diff options
| author | Justus Winter <[email protected]> | 2016-11-17 12:12:38 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-12-13 14:09:26 +0000 |
| commit | 429891a704057437517cb0b45d11392b40fa1ee8 (patch) | |
| tree | 405183b3feddc8899234dcb74169a8116f0197e5 | |
| parent | gpgscm: Generalize the test runner. (diff) | |
| download | gnupg-429891a704057437517cb0b45d11392b40fa1ee8.tar.gz gnupg-429891a704057437517cb0b45d11392b40fa1ee8.zip | |
gpgscm: Print failed and skipped tests.
* tests/gpgscm/tests.scm (test-pool::report): Print failed and skipped
tests at the end.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to '')
| -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))))) |