11 (like "Hello" "^\\(H\\).+\\(o\\)$"))
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)))
19 (eres (eq 1 1) (:result t))
20 (eres (eq 1 2) (:result nil)))
22 (eres (equal '(1 2) '(1 2)) (:result t))
23 (eres (equal '(1 2) '(3 4)) (:result nil)))
25 (eres (error (/ 1 0)) (:result t))
26 (eres (error (/ 0 1)) (:result nil)))
28 (eres (noerror (+ 1 1)) (:result t))
29 (eres (noerror (/ 1 0)) (:result nil)))
32 (eres (ok 1 "Foo") (:doc "Foo"))
33 (eres (eq 1 1 "Another doc") (:doc "Another doc")))
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.")))
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'")
45 (eres (eq 1 2) (:comments "one: '1'\ntwo: '2'")