Fix dir! & file! tests

This commit is contained in:
Henrik Lissner 2019-11-09 20:25:55 -05:00
parent 967e32c084
commit 2158b7bdeb
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -69,13 +69,15 @@
(describe "file!" (describe "file!"
(it "returns the executing file" (it "returns the executing file"
(expect (eval-and-compile (file!)) (expect (eval-and-compile (file!))
:to-equal (expand-file-name "test/test-core-lib.el" :to-equal
doom-core-dir)))) (eval-and-compile load-file-name))))
(describe "dir!" (describe "dir!"
(it "returns the executing directory" (it "returns the executing directory"
(expect (eval-and-compile (dir!)) (expect (eval-and-compile (dir!))
:to-equal (expand-file-name "test" doom-core-dir)))) :to-equal
(eval-and-compile
(directory-file-name (file-name-directory load-file-name))))))
(describe "pushnew!" (describe "pushnew!"
(it "pushes values onto a list symbol, in order" (it "pushes values onto a list symbol, in order"