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