From 29e4729d30b6b06881443b009589c0b87079631a Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 4 Feb 2024 11:26:48 -0800
Subject: report function for test-failure-error

---
 src/testiere.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3