test

test

Takes a name and an expression.
If the expression evaluates to true, it says (name ok) to stdout.
If false, it says (name FAIL) to stderr.

(test one-eq-one  (= 1 1))
   ; (one-eq-one ok)

(test zero-eq-one (= 0 1))
   ; (zero-eq-one FAIL)