summary of which tests failed

[jimka2001]

I'd like to have a report not only of how many tests failed but of which tests failed.
Whenever a test fails, it reports at the point of failure. But this is hard to find when the
number of tests is huge.

[jimka2001]

Here is an example of what kind of output I'd like to have. I.e., a summary of
which tests failed. Otherwise if there are 1000s of tests with lots of output,
it can be difficult to know which tests I need to visit and re-run.

`
LISP-TYPES-TEST TYPES/REDUCE-LISP-TYPE-10
Beginning test TYPES/REDUCE-LISP-TYPE-10
TYPES/REDUCE-LISP-TYPE-10: 1 assertions passed, 0 failed.

LISP-TYPES-TEST TYPES/REDUCE-LISP-TYPE-10 0.01 seconds

LISP-TYPES-TEST LISP-TYPES/TYPECASE-TO-TYPE
Beginning test LISP-TYPES/TYPECASE-TO-TYPE
LISP-TYPES/TYPECASE-TO-TYPE: 4 assertions passed, 0 failed.

LISP-TYPES-TEST LISP-TYPES/TYPECASE-TO-TYPE 0.025 seconds

| failed: TYPE/RULE-CASE
| failed: BAKER/DECOMPOSE-2
| failed: BAKER/DECOMPOSE-5
| failed: BAKER/EXAMPLE-1
| failed: TEST/REMOVE-SUPERS-2
| failed: TEST/REMOVE-SUBS
Unit Test Summary
| 663 assertions total
| 651 passed
| 12 failed
| 0 execution errors
| 0 missing tests

#<TEST-RESULTS-DB Total(663) Passed(651) Failed(12) Errors(0)>

LISP-TYPES-TEST> (run-1-test 'TYPE/RULE-CASE)
#<PACKAGE "LISP-TYPES-TEST"> TYPE/RULE-CASE
Beginning test TYPE/RULE-CASE
| Failed Form: (EQUAL 3 N)
| Expected T but saw NIL
| 3
=> 3
| N
=> 4
|
| Failed Form: (EQUAL
(RULE-CASE (+ 4 5)
(T (INCF N) 9)
((= 1 N) (INCF N) 9)
((= 2 N) (INCF N) 0))
0)
| Expected T but saw NIL
| (RULE-CASE (+ 4 5)
(T (INCF N) 9)
((= 1 N) (INCF N) 9)
((= 2 N) (INCF N) 0))
=> 0
| 0
=> 0
|
TYPE/RULE-CASE: 0 assertions passed, 2 failed.

#<PACKAGE "LISP-TYPES-TEST"> TYPE/RULE-CASE 0.02 seconds

| failed: TYPE/RULE-CASE
Unit Test Summary
| 2 assertions total
| 0 passed
| 2 failed
| 0 execution errors
| 0 missing tests

#<TEST-RESULTS-DB Total(2) Passed(0) Failed(2) Errors(0)>

LISP-TYPES-TEST>

`