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

18
tests/gpgscm/tests.scm
View File

@ -538,11 +538,19 @@
(= 99 p::retcode)))) (= 99 p::retcode))))
procs)) procs))
(define (report) (define (report)
(echo (length procs) "tests run," (define (print-tests tests message)
(length (passed)) "succeeded," (unless (null? tests)
(length (failed)) "failed," (apply echo (cons message
(length (skipped)) "skipped.") (map (lambda (t) t::name) tests)))))
(length (failed)))))))
(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) (define (verbosity n)
(if (= 0 n) '() (cons '--verbose (verbosity (- n 1))))) (if (= 0 n) '() (cons '--verbose (verbosity (- n 1)))))