diff options
Diffstat (limited to 'tests/gpgscm')
| -rw-r--r-- | tests/gpgscm/tests.scm | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index b5df9b7b4..7b8d48943 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -538,11 +538,19 @@ (= 99 p::retcode)))) procs)) (define (report) - (echo (length procs) "tests run," - (length (passed)) "succeeded," - (length (failed)) "failed," - (length (skipped)) "skipped.") - (length (failed))))))) + (define (print-tests tests message) + (unless (null? tests) + (apply echo (cons message + (map (lambda (t) t::name) tests))))) + + (let ((failed' (failed)) (skipped' (skipped))) + (echo (length procs) "tests run," + (length (passed)) "succeeded," + (length failed') "failed," + (length skipped') "skipped.") + (print-tests failed' "Failed tests:") + (print-tests skipped' "Skipped tests:") + (length failed'))))))) (define (verbosity n) (if (= 0 n) '() (cons '--verbose (verbosity (- n 1))))) |