diff options
| -rw-r--r-- | src/testiere.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/testiere.lisp b/src/testiere.lisp index acd3460..5b90ec8 100644 --- a/src/testiere.lisp +++ b/src/testiere.lisp @@ -33,7 +33,10 @@ ((reason :initarg :reason))) (define-condition test-failure-error (testiere-error) - ((test :initarg :test))) + ((test :initarg :test)) + (:report (lambda (err stream) + (with-slots (test reason) err + (format stream "~{~s~^ ~} failed:~% ~a" test reason))))) (defun failed (test reason-fmt &rest fmt-args) "Signal a TEST-FAILURE-ERROR. TEST is a deignator for the |