etest-result-mode.el: Prettier alignment of metadata output.
[ETest.git] / etest.etest
blob29024f000112fe36f08387006acf163dcdd5da4a
1 (etest
2  ("Etest"
3   ("Simple"
4    (ok 1)
5    (null nil)
6    (eq 1 1)
7    (eql 1.1 1.1)
8    (equal '(1 2) '(1 2))
9    (error (/ 1 0))
10    (noerror (+ 1 1))
11    (like "Hello" "^\\(H\\).+\\(o\\)$"))
12   ("Results"
13    ("ok results"  
14   (eres (ok nil) (:result nil))
15     (eres (ok t) (:result t))
16     (eres (ok (+ 1 1)) (:result t))
17     (eres (ok 0) (:result t)))
18    ("eq results"
19     (eres (eq 1 1) (:result t))
20     (eres (eq 1 2) (:result nil)))
21    ("equal results"
22     (eres (equal '(1 2) '(1 2)) (:result t))
23     (eres (equal '(1 2) '(3 4)) (:result nil)))
24    ("error"
25     (eres (error (/ 1 0)) (:result t))
26     (eres (error (/ 0 1)) (:result nil)))
27    ("noerror"
28     (eres (noerror (+ 1 1)) (:result t))
29     (eres (noerror (/ 1 0)) (:result nil)))
30   ("Documentation"
31    ("Defined by user"
32     (eres (ok 1 "Foo") (:doc "Foo"))
33     (eres (eq 1 1 "Another doc") (:doc "Another doc")))
34    ("Auto generated"
35     (eres (ok 1) (:doc "(ok 1)")
36           "Correct ok docs generated.")
37     (eres (eq 1 1) (:doc "(eq 1 1)")
38           "Correct eq docs generated.")))
39   ("Comments"
40    (eres (error (/ 1 0)) (:comments "got: '(arith-error)'")
41          "We get arith-error from a divide by 0")
42    (eres (ok "Something") (:comments "got: '\"Something\"'"))
43    (eres (eq 1 1) (:comments "both: '1'")
44          "eq hit")
45    (eres (eq 1 2) (:comments "one: '1'\ntwo: '2'")
46          "eq miss")))))