(assert t)
(assert (ok? 1))
(assert-eq nil (ok? (1)))
(assert-eq t (ok? 1))
(assert (ok? (assert t)))
(assert (not (ok? (assert nil))))
(assert (not (ok? (assert-fail '1))))
(assert-fail '(1))