From 72a786ac56a05cd77f13348e3fa0362ffffef3ce Mon Sep 17 00:00:00 2001 From: "Thomas M. Hermann" Date: Thu, 22 Nov 2012 14:22:04 -0600 Subject: [PATCH] Print failures and errors during tests if requested. --- lisp-unit.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp-unit.lisp b/lisp-unit.lisp index 1e35baa..491201a 100644 --- a/lisp-unit.lisp +++ b/lisp-unit.lisp @@ -642,6 +642,8 @@ assertion.") (push test-name (missing-tests results)) ;; Summarize and return the test results finally + (when *print-failures* (print-failure results)) + (when *print-errors* (print-error results)) (summarize-results results) (return results))) @@ -657,6 +659,8 @@ assertion.") else do (push test-name (missing-tests results)) finally + (when *print-failures* (print-failure results)) + (when *print-errors* (print-error results)) (summarize-results results) (return results))) -- 2.11.4.GIT