[Emacs-diffs] emacs-25 f559b37 3/4: Add tests for xref-collect-matches

[Dmitry Gutov]

branch: emacs-25
commit f559b374a30f3615261f7a902fc3428cac6289f4
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Add tests for xref-collect-matches
    
    * test/automated/xref-tests.el: New file.  Add tests for
    xref-collect-matches.
---
 test/automated/data/xref/file1.txt |    2 ++
 test/automated/data/xref/file2.txt |    2 ++
 test/automated/xref-tests.el       |   37 ++++++++++++++++++++++++++++++++++++
 3 files changed, 41 insertions(+)

diff --git a/test/automated/data/xref/file1.txt 
b/test/automated/data/xref/file1.txt
new file mode 100644
index 0000000..5d7cc54
--- /dev/null
+++ b/test/automated/data/xref/file1.txt
@@ -0,0 +1,2 @@
+foo foo
+bar
diff --git a/test/automated/data/xref/file2.txt 
b/test/automated/data/xref/file2.txt
new file mode 100644
index 0000000..9f075f2
--- /dev/null
+++ b/test/automated/data/xref/file2.txt
@@ -0,0 +1,2 @@
+
+bar
diff --git a/test/automated/xref-tests.el b/test/automated/xref-tests.el
new file mode 100644
index 0000000..1b500c3
--- /dev/null
+++ b/test/automated/xref-tests.el
@@ -0,0 +1,37 @@
+(require 'xref)
+(require 'cl-lib)
+
+(defvar xref-tests-data-dir
+  (expand-file-name "data/xref/"
+                    (file-name-directory (or load-file-name 
(buffer-file-name)))))
+
+(ert-deftest xref-collect-matches-finds-none-for-some-regexp ()
+  (should (null (xref-collect-matches "zzz" "*" xref-tests-data-dir nil))))
+
+(ert-deftest xref-collect-matches-finds-some-for-bar ()
+  (let* ((matches (xref-collect-matches "bar" "*" xref-tests-data-dir nil))
+         (locs (cl-sort (mapcar #'xref-item-location matches)
+                        #'string<
+                        :key #'xref-location-group)))
+    (should (= 2 (length matches)))
+    (should (string-match-p "file1\\.txt\\'" (xref-location-group (nth 0 
locs))))
+    (should (string-match-p "file2\\.txt\\'" (xref-location-group (nth 1 
locs))))))
+
+(ert-deftest xref-collect-matches-finds-two-matches-on-the-same-line ()
+  (let* ((matches (xref-collect-matches "foo" "*" xref-tests-data-dir nil))
+         (locs (mapcar #'xref-item-location matches)))
+    (should (= 2 (length matches)))
+    (should (string-match-p "file1\\.txt\\'" (xref-location-group (nth 0 
locs))))
+    (should (string-match-p "file1\\.txt\\'" (xref-location-group (nth 1 
locs))))
+    (should (equal 1 (xref-location-line (nth 0 locs))))
+    (should (equal 1 (xref-location-line (nth 1 locs))))
+    (should (equal 0 (xref-file-location-column (nth 0 locs))))
+    (should (equal 4 (xref-file-location-column (nth 1 locs))))))
+
+;; (ert-deftest xref-collect-matches-finds-an-empty-line-regexp-match ()
+;;   (let* ((matches (xref-collect-matches "^$" "*" xref-tests-data-dir nil))
+;;          (locs (mapcar #'xref-item-location matches)))
+;;     (should (= 1 (length matches)))
+;;     (should (string-match-p "file2\\.txt\\'" (xref-location-group (nth 0 
locs))))
+;;     (should (equal 1 (xref-location-line (nth 0 locs))))
+;;     (should (equal 0 (xref-file-location-column (nth 0 locs))))))