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   ("Todo"
  31    (todo (ok nil))
  32    (eres (todo (ok (/ 0 0))) (:todo t :skip nil)))
  33   ("Documentation"
  34    ("Defined by user"
  35     (eres (ok 1 "Foo") (:doc "Foo"))
  36     (eres (eq 1 1 "Another doc") (:doc "Another doc")))
  37    ("Auto generated"
  38     (eres (ok 1) (:doc "(ok 1)")
  39           "Correct ok docs generated.")
  40     (eres (eq 1 1) (:doc "(eq 1 1)")
  41           "Correct eq docs generated.")))
  42   ("Comments"
  43    (eres (error (/ 1 0)) (:comments "got: '(arith-error)'")
  44          "We get arith-error from a divide by 0")
  45    (eres (ok "Something") (:comments "got: '\"Something\"'"))
  46    (eres (eq 1 1) (:comments "both: '1'")
  47          "eq hit")
  48    (eres (eq 1 2) (:comments "one: '1'\ntwo: '2'")
  49          "eq miss"))))