From 8d87b3a2ca769c70a6d77cdce99dc035acdea094 Mon Sep 17 00:00:00 2001 From: "Thomas M. Hermann" Date: Tue, 30 Oct 2012 20:51:30 -0500 Subject: [PATCH] Return the actual condition instead of :error. --- lisp-unit.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp-unit.lisp b/lisp-unit.lisp index f30d769..70ace4f 100644 --- a/lisp-unit.lisp +++ b/lisp-unit.lisp @@ -506,14 +506,13 @@ assertion.") (incf (fail results) fail) (push test-name (failed-tests results))) ;; Count errors and record name - (when (eq :error exerr) + (when exerr (incf (exerr results)) (push test-name (error-tests results))) ;; Print a summary of the results (when (or *print-summary* *print-failures* *print-errors*) (print-summary - test-name pass fail - (when (eq :error exerr) 1))))) + test-name pass fail (when exerr 1))))) (defun summarize-results (results) "Print a summary of all results." @@ -543,7 +542,7 @@ assertion.") (if (use-debugger-p condition) condition (return-from run-test-thunk - (values *pass* *fail* :error condition)))))) + (values *pass* *fail* condition)))))) (run-code code)) ;; Return the result count (values *pass* *fail* nil))) -- 2.11.4.GIT