etest-execute.etest

   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.")))