3 (null (let ((etest-file 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))
15 "Load path being set returns correct value")))
27 (like "Hello" "^\\(H\\).+\\(o\\)$"))
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)))
35 (eres (eq 1 1) (:result t))
36 (eres (eq 1 2) (:result nil)))
38 (eres (equal '(1 2) '(1 2)) (:result t))
39 (eres (equal '(1 2) '(3 4)) (:result nil)))
41 (eres (error (/ 1 0)) (:result t))
42 (eres (error (/ 0 1)) (:result nil)))
44 (eres (noerror (+ 1 1)) (:result t))
45 (eres (noerror (/ 1 0)) (:result nil)))
48 (eres (ok 1 "Foo") (:doc "Foo"))
49 (eres (eq 1 1 "Another doc") (:doc "Another doc")))
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.")))
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'")
61 (eres (eq 1 2) (:comments "one: '1'\ntwo: '2'")