aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2024-02-04 11:26:48 -0800
committercolin <colin@cicadas.surf>2024-02-04 11:26:48 -0800
commit29e4729d30b6b06881443b009589c0b87079631a (patch)
tree3e9f70be7ec4b162594fc4bddc123742ab8ee72e
parentc5ae8b66b6133b1a3ca4f99a4fd34b7e5c2b87de (diff)
report function for test-failure-error
-rw-r--r--src/testiere.lisp5
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