(plan 1)

(expect "cond"
        (equal 'ok
               (cond ((> 1 2) 'fail)
                     (nil 'fail)
                     ((zerop 0) 'ok)
                     (t 'fail))))