Permalink
Browse files

print test outcomes later

Used to print 'Pass' even though an ensure failed.

Moved the printing of the outcome later, when it cannot change
anymore.

Change-Id: If5b5b47104a9f96a8f0047ffd3c78b7aa0ffb82d
  • Loading branch information...
1 parent a8b74de commit 259fd623c970a8596675542205fd8518e6a2d3a6 Gabor Melis committed with Gary King Jan 19, 2012
Showing with 6 additions and 6 deletions.
  1. +6 −6 dev/test-runner.lisp
View
@@ -256,12 +256,6 @@ nor configuration file options were specified.")))))
(let ((datum (list suite-name test-case-name (test-data suite))))
(cond ((null result-pushed?)
(setf result-pushed? t)
- (when *test-print-test-case-names*
- (when (not (eq *test-print-test-case-names* :brief))
- (format *lift-debug-output* "~40T"))
- (print-lift-message "~a"
- (result-summary-tag (getf (test-data suite) :problem)
- *test-print-test-case-names*)))
(push datum (tests-run result)))
(t
;; replace
@@ -337,6 +331,12 @@ nor configuration file options were specified.")))))
(go :test-end))
:test-end)
(maybe-push-result)))
+ (when *test-print-test-case-names*
+ (when (not (eq *test-print-test-case-names* :brief))
+ (format *lift-debug-output* "~40T"))
+ (print-lift-message "~a"
+ (result-summary-tag (getf (test-data suite) :problem)
+ *test-print-test-case-names*)))
(setf *current-test-case-name* test-case-name *test-result* result)
(third (first (tests-run result))))

0 comments on commit 259fd62

Please sign in to comment.