summaryrefslogtreecommitdiff
path: root/snakemake-test.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2016-03-04 00:56:29 -0500
committerKyle Meyer <kyle@kyleam.com>2016-03-04 00:56:29 -0500
commit584020c40a4e35baeac0f6a5a3f8267ff43cd376 (patch)
tree44d0aafbdb9b56f1e91ab84c84c54d30771fd069 /snakemake-test.el
parente9f6240f36e8123d8eabf7785f64f50e4e0ed50e (diff)
downloadsnakemake-mode-584020c40a4e35baeac0f6a5a3f8267ff43cd376.tar.gz
popup: Consider file targets in region
Diffstat (limited to 'snakemake-test.el')
-rw-r--r--snakemake-test.el20
1 files changed, 20 insertions, 0 deletions
diff --git a/snakemake-test.el b/snakemake-test.el
index 8ebb3ff..6374b0d 100644
--- a/snakemake-test.el
+++ b/snakemake-test.el
@@ -693,6 +693,26 @@ rule abc:
(forward-line -1)
(snakemake-org-link-file-targets)))))
+(ert-deftest snakemake-test-region-file-targets ()
+ (let ((files '("/path/to/fname" "fname2" "CAP")))
+ (should (equal (mapcar #'expand-file-name files)
+ (with-temp-buffer
+ (insert (mapconcat #'identity files "\n"))
+ (snakemake-region-file-targets
+ (point-min) (point-max)))))
+ (should (equal (mapcar #'expand-file-name files)
+ (with-temp-buffer
+ (insert (mapconcat #'identity files ","))
+ (snakemake-region-file-targets
+ (point-min) (point-max)))))
+ (should (equal (mapcar #'expand-file-name files)
+ (with-temp-buffer
+ (insert (car files))
+ (insert ?\n)
+ (insert (mapconcat #'identity (cdr files) " "))
+ (snakemake-region-file-targets
+ (point-min) (point-max)))))))
+
(ert-deftest snakemake-test-file-targets-at-point ()
(should
(equal '("aa.out")