Add tests for multi-jump

emacs-evil · Jul 12, 2024 · fc99343 · fc99343
1 parent 9cdd55b
commit fc99343
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 6 deletions.
diff --git a/evil-jumps.el b/evil-jumps.el
@@ -313,7 +313,7 @@ change the current buffer."
           (when previous-pos
             (setf (evil-jumps-struct-previous-pos struct) nil)
             (if (and
-                 ;; `evil-jump-backward' and 'evil-jump-forward' needs
+                 ;; `evil-jump-backward' and 'evil-jump-forward' need
                  ;; to be handled specially. When jumping backward
                  ;; multiple times, calling `evil-set-jump' is always
                  ;; wrong: If you jump back twice and we call

diff --git a/evil-tests.el b/evil-tests.el
@@ -9722,8 +9722,7 @@ parameter set."
         ("3\C-i") ;; even after jumping forward 3 times it can't get past the 3rd z
         "z z [z] z z z z z"))
     (ert-info ("Jump across files")
-      (let ((temp-file "evil-test-"))
-        (make-temp-file "evil-test-")
+      (let ((temp-file (make-temp-file "evil-test-")))
         (unwind-protect
             (evil-test-buffer
               "[z] z z z z z z"
@@ -9734,9 +9733,27 @@ parameter set."
               ("\C-i")
               "new buffe[r]")
           (delete-file temp-file)
-          (with-current-buffer (get-file-buffer temp-file)
-            (set-buffer-modified-p nil))
-          (kill-buffer (get-file-buffer temp-file)))))))
+          (let ((buf (file-name-nondirectory temp-file)))
+            (when (get-buffer buf) (kill-buffer buf))))))
+    (ert-info ("Jump multiple times between files")
+      (let ((a (make-temp-file "evil-aa-" nil nil "evil-bb\n\nthis is a"))
+            (b (make-temp-file "evil-bb-" nil nil "evil-cc\n\nthis is b"))
+            (c (make-temp-file "evil-cc-" nil nil "this is c")))
+        (unwind-protect
+            (evil-test-buffer
+              (find-file a)
+              ("gf" [return])
+              "evil-cc\n\nthis is b"
+              ("gf" [return])
+              "this is c"
+              ("\C-o" "\C-o")
+              "evil-bb\n\nthis is a"
+              ("\C-i" "\C-i")
+              "this is c")
+          (dolist (f (list a b c))
+            (let ((buf (file-name-nondirectory f)))
+              (when (get-buffer buf) (kill-buffer buf)))
+            (delete-file f)))))))
 
 (ert-deftest evil-test-find-file ()
   :tags '(evil jumps)