(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>