security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-04-17 15:44:34 +02:00
Code Activity

gpgscm: Print failed and skipped tests.

Browse Source 
* tests/gpgscm/tests.scm (test-pool::report): Print failed and skipped
tests at the end.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-11-17 13:12:38 +01:00
parent d43dabf460
commit 429891a704
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/gpgscm/tests.scm
View File

@ -538,11 +538,19 @@
(= 99 p::retcode)))) (= 99 p::retcode))))
procs)) procs))
(define (report) (define (report)
(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," (echo (length procs) "tests run,"
(length (passed)) "succeeded," (length (passed)) "succeeded,"
(length (failed)) "failed," (length failed') "failed,"
(length (skipped)) "skipped.") (length skipped') "skipped.")
(length (failed))))))) (print-tests failed' "Failed tests:")
(print-tests skipped' "Skipped tests:")
(length failed')))))))
(define (verbosity n) (define (verbosity n)
(if (= 0 n) '() (cons '--verbose (verbosity (- n 1))))) (if (= 0 n) '() (cons '--verbose (verbosity (- n 1)))))