etest.etest

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