From 584020c40a4e35baeac0f6a5a3f8267ff43cd376 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 4 Mar 2016 00:56:29 -0500
Subject: popup: Consider file targets in region

---
 snakemake-test.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'snakemake-test.el')

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")
-- 
cgit v1.2.3