[Pkg-gnupg-commit] [gnupg2] 95/180: gpgscm: Print failed and skipped tests.

[Daniel Kahn Gillmor]

This is an automated email from the git hooks/post-receive script.

dkg pushed a commit to branch master
in repository gnupg2.

commit 429891a704057437517cb0b45d11392b40fa1ee8
Author: Justus Winter <justus at g10code.com>
Date:   Thu Nov 17 13:12:38 2016 +0100

    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 <justus at g10code.com>
---
 tests/gpgscm/tests.scm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm
index b5df9b7..7b8d489 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)))))

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-gnupg/gnupg2.git