Add a unit test for deadgrep-visit-file

Author: Wilfred

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
            "deadgrep.el:123:    (when (buffer-live-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 ()