Added `etest-load-path' functionality and tests.
[ETest.git] / etest.etest
blobadd00dde1518c410e9e74aab7f1b4f1bd4dcc209
1 (etest
2  ("Execute"
3   (null (let ((etest-file nil)
4               (etest-load-path nil))
5           (etest-execute-get-test-file))
6         "No etest-file or load-path results in nil")
7   (like (let ((etest-file "etest.etest"))
8           (etest-execute-get-test-file))
9         (concat default-directory etest-file)
10         "etest-file being set returns a good path")
11   (like (let ((etest-file nil)
12               (etest-load-path default-directory))
13           (etest-execute-get-test-file))
14         "^etest.etest$"
15         "Load path being set returns correct value")))
17 (etest
18  ("Etest"
19   ("Simple"
20    (ok 1)
21    (null nil)
22    (eq 1 1)
23    (eql 1.1 1.1)
24    (equal '(1 2) '(1 2))
25    (error (/ 1 0))
26    (noerror (+ 1 1))
27    (like "Hello" "^\\(H\\).+\\(o\\)$"))
28   ("Results"
29    ("ok results"  
30   (eres (ok nil) (:result nil))
31     (eres (ok t) (:result t))
32     (eres (ok (+ 1 1)) (:result t))
33     (eres (ok 0) (:result t)))
34    ("eq results"
35     (eres (eq 1 1) (:result t))
36     (eres (eq 1 2) (:result nil)))
37    ("equal results"
38     (eres (equal '(1 2) '(1 2)) (:result t))
39     (eres (equal '(1 2) '(3 4)) (:result nil)))
40    ("error"
41     (eres (error (/ 1 0)) (:result t))
42     (eres (error (/ 0 1)) (:result nil)))
43    ("noerror"
44     (eres (noerror (+ 1 1)) (:result t))
45     (eres (noerror (/ 1 0)) (:result nil)))
46   ("Documentation"
47    ("Defined by user"
48     (eres (ok 1 "Foo") (:doc "Foo"))
49     (eres (eq 1 1 "Another doc") (:doc "Another doc")))
50    ("Auto generated"
51     (eres (ok 1) (:doc "(ok 1)")
52           "Correct ok docs generated.")
53     (eres (eq 1 1) (:doc "(eq 1 1)")
54           "Correct eq docs generated.")))
55   ("Comments"
56    (eres (error (/ 1 0)) (:comments "got: '(arith-error)'")
57          "We get arith-error from a divide by 0")
58    (eres (ok "Something") (:comments "got: '\"Something\"'"))
59    (eres (eq 1 1) (:comments "both: '1'")
60          "eq hit")
61    (eres (eq 1 2) (:comments "one: '1'\ntwo: '2'")
62          "eq miss")))))