error report printing smartness: don't print failure details if there were none
Sun Sep 21 04:18:33 PDT 2008 attila.lendvai@gmail.com
* error report printing smartness: don't print failure details if there were none
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-stefil/stefil.lisp new-stefil/stefil.lisp
--- old-stefil/stefil.lisp 2014-07-26 08:11:20.000000000 -0700
+++ new-stefil/stefil.lisp 2014-07-26 08:11:20.000000000 -0700
@@ -271,7 +271,7 @@
(failed-assertion-count (count-if (rcurry #'typep 'failed-assertion) failure-descriptions))
(unexpected-error-count (count-if (rcurry #'typep 'unexpected-error) failure-descriptions))
(expected-count (count-if 'expected-p (failure-descriptions-of self))))
- (format t "test-run: ~A tests, ~A assertions, ~A failures in ~A sec (~A failed assertions, ~A errors, ~A expected)"
+ (format t "test-run: ~A tests, ~A assertions, ~A failures in ~A sec~[~:; (~A failed assertions, ~A errors, ~A expected)~]"
(hash-table-count (run-tests-of self))
(assertion-count-of self)
total-failure-count
@@ -283,6 +283,7 @@
real-time-spent-in-seconds)
real-time-spent-in-seconds
"?"))
+ total-failure-count ; index in the ~[] conditional
failed-assertion-count
unexpected-error-count
(cond ((= expected-count total-failure-count)