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 | e8c5871609dd3ff3b2aa3d21ab5c3651ba683ed7 (patch) | |
| tree | a2786551f8e13b61389585a9411a667b4e3bf7ee | |
| parent | gpgscm: Generalize the test runner. (diff) | |
| download | libgpg-error-e8c5871609dd3ff3b2aa3d21ab5c3651ba683ed7.tar.gz libgpg-error-e8c5871609dd3ff3b2aa3d21ab5c3651ba683ed7.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]>
| -rw-r--r-- | tests.scm | 18 |
1 files changed, 13 insertions, 5 deletions
@@ -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))))) |