Removed mis-quotes.
[ETest.git] / etest-execute.etest
blob7c208bbe55c5dfd091881e519706e2c5a78bbcc1
1 (etest
2  ("Execute"
3   (like   (let ((etest-file "etest.etest"))
4             (etest-execute-get-test-file))
5           (concat default-directory etest-file)
6           "`etest-file' being set returns a good path")
7   (like (let ((etest-file nil)
8               (etest-load-path (list default-directory)))
9           (etest-execute-get-test-file))
10         "/etest-execute.etest$"
11         "Load path being set returns correct value")
12   (like (let ((etest-file nil)
13               (etest-load-path nil))
14           (etest-execute-get-test-file))
15         "/etest-execute.etest$"
16         ".etest file found in the cwd.")
17   (error (let ((buffer-file-name "this-shouldnt-be"))
18            (etest-execute))
19          "`test-execute' throws an error when no file found.")))