From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Thu, 22 Nov 2012 20:22:04 +0000 (-0600)
Subject: Print failures and errors during tests if requested.
X-Git-Tag: 0.9.4~16
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/72a786ac56a05cd77f13348e3fa0362ffffef3ce

Print failures and errors during tests if requested.
---

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)))