mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
feature/evil: fix unit tests
This commit is contained in:
@ -9,16 +9,17 @@ affects your Emacs packages)."
|
|||||||
(other ,dest))
|
(other ,dest))
|
||||||
(with-temp-file it
|
(with-temp-file it
|
||||||
(insert "Hello world"))
|
(insert "Hello world"))
|
||||||
(unwind-protect
|
(with-minor-mode!! projectile-mode
|
||||||
(progn
|
(unwind-protect
|
||||||
(should (file-exists-p it))
|
(progn
|
||||||
(find-file-literally it)
|
(should (file-exists-p it))
|
||||||
(should (equal (buffer-string) "Hello world"))
|
(find-file-literally it)
|
||||||
(should (equal (buffer-file-name) it))
|
(should (equal (buffer-string) "Hello world"))
|
||||||
(let ((inhibit-message (not doom-debug-mode)))
|
(should (equal (buffer-file-name) it))
|
||||||
,@body))
|
(let ((inhibit-message (not doom-debug-mode)))
|
||||||
(ignore-errors (delete-file it))
|
,@body))
|
||||||
,(if dest `(ignore-errors (delete-file other))))))
|
(ignore-errors (delete-file it))
|
||||||
|
,(if dest `(ignore-errors (delete-file other)))))))
|
||||||
|
|
||||||
;;
|
;;
|
||||||
(def-test! move-this-file
|
(def-test! move-this-file
|
||||||
|
Reference in New Issue
Block a user