From 8894f0ce182691ea0e9108103c343432957edc09 Mon Sep 17 00:00:00 2001 From: "Thomas M. Hermann" Date: Thu, 22 Nov 2012 13:25:28 -0600 Subject: [PATCH] Update print-error to work with result objects. --- lisp-unit.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp-unit.lisp b/lisp-unit.lisp index d136332..c01a483 100644 --- a/lisp-unit.lisp +++ b/lisp-unit.lisp @@ -723,10 +723,16 @@ assertion.") (defmethod print-error ((result test-result)) "Print the error condition." (let ((*print-escape* nil)) - (format t "~& | Execution error:~% | ~W" (condition result)) + (format t "~& | Execution error:~% | ~W" (exerr result)) (format t "~& |~%") (print-summary result))) +(defmethod print-error ((results test-results-db)) + "Print all of the error tests." + (loop with db = (database results) + for test in (error-tests results) do + (print-error (gethash test db)))) + ;;; Useful equality predicates for tests ;;; (LOGICALLY-EQUAL x y) => true or false -- 2.11.4.GIT