Add a unit test for deadgrep-visit-file

Wilfred · Feb 11, 2021 · 3eada3b · 3eada3b
1 parent b27ba94
commit 3eada3b
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/test/deadgrep-unit-test.el b/test/deadgrep-unit-test.el
@@ -121,6 +121,14 @@ some results."
     (eq (get-text-property (point) 'face)
         'deadgrep-match-face))))
 
+(ert-deftest deadgrep-visit-result ()
+  "`deadgrep-visit-result' should open the file at point."
+  (with-temp-deadgrep-buf
+   (deadgrep-forward-match)
+   (deadgrep-visit-result)
+   (let ((buf-name (buffer-file-name)))
+     (should (s-ends-with-p "deadgrep.el" buf-name)))))
+
 (ert-deftest deadgrep--split-line ()
   (-let* ((raw-line
            "[0m[35mdeadgrep.el[0m:[0m[32m123[0m:    (when ([0m[31m[1mbuffer-live[0m-p buffer)")
@@ -466,11 +474,11 @@ edit mode."
     (let ((deadgrep--file-type 'tests))
       (should
        (equal (deadgrep--arguments "foo" 'string 'sensitive '(1 . 0))
-              '("--color=ansi" "--line-number" "--no-heading" "--with-filename" "--fixed-strings" "--case-sensitive" "--type=TEST" "--before-context=1" "--after-context=0" "--" "foo" "."))))
+              '("--color=ansi" "--line-number" "--no-heading" "--no-column" "--with-filename" "--fixed-strings" "--case-sensitive" "--type=TEST" "--before-context=1" "--after-context=0" "--" "foo" "."))))
     (let ((deadgrep--file-type 'no-tests))
       (should
        (equal (deadgrep--arguments "foo" 'string 'sensitive '(1 . 0))
-              '("--color=ansi" "--line-number" "--no-heading" "--with-filename" "--fixed-strings" "--case-sensitive" "--type-not=TEST" "--before-context=1" "--after-context=0" "--" "foo" ".")))))
+              '("--color=ansi" "--line-number" "--no-heading" "--no-column" "--with-filename" "--fixed-strings" "--case-sensitive" "--type-not=TEST" "--before-context=1" "--after-context=0" "--" "foo" ".")))))
   )
 
 (ert-deftest deadgrep--arguments-error-cases ()