diff options
| author | colin <colin@cicadas.surf> | 2024-02-04 11:26:48 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-02-04 11:26:48 -0800 |
| commit | 29e4729d30b6b06881443b009589c0b87079631a (patch) | |
| tree | 3e9f70be7ec4b162594fc4bddc123742ab8ee72e /src | |
| parent | c5ae8b66b6133b1a3ca4f99a4fd34b7e5c2b87de (diff) | |
report function for test-failure-error
Diffstat (limited to 'src')
| -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 |