feature/evil: fix unit tests

This commit is contained in:
Henrik Lissner 2018-01-04 00:40:41 -05:00
parent e74a95de32
commit 776533adb7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -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