diff options
Diffstat (limited to 'evil-tests.el')
| -rw-r--r-- | evil-tests.el | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/evil-tests.el b/evil-tests.el index 7ccef73..96bf2a6 100644 --- 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) |