Plaster

common-lisp
(parachute:define-test foo (dolist (x '(1 2 -5 3)) (parachute:is = (max x 0) x))) FOO CL-USER> (parachute:test 'foo) ? COMMON-LISP-USER::FOO 0.000 ✔ (is = (max x 0) x) 0.000 ✔ (is = (max x 0) x) 0.000 ✘ (is = (max x 0) x) 0.000 ✔ (is = (max x 0) x) 0.000 ✘ COMMON-LISP-USER::FOO ;; Summary: Passed: 3 Failed: 1 Skipped: 0 ;; Failures: 1/ 4 tests failed in COMMON-LISP-USER::FOO The test form x evaluated to -5 when 0 was expected to be equal under =. #<PLAIN 5, FAILED results>