[git] CMU Common Lisp branch master updated. snapshot-2014-01-4-gc4aaa90

Raymond Toy rtoy at common-lisp.net
Mon Jan 6 04:36:09 UTC 2014


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  c4aaa9099d992a0b2cec538a503f87a4e86e0663 (commit)
      from  89a16ec62716a5eaf544d8aa0bd490e0c3c267ff (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit c4aaa9099d992a0b2cec538a503f87a4e86e0663
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Jan 5 20:36:01 2014 -0800

    In the summary, print out all test failures and errors.

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index e4b8b99..c77fec5 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -59,7 +59,7 @@
 	    test-results))
     (nreverse test-results)))
 
-(defun print-test-results (results)
+(defun print-test-results (results &key verbose)
   (let ((passed 0)
 	(failed 0)
 	(execute-errors 0)
@@ -92,16 +92,20 @@
     ;; determine if there were any test failures.
     (cond ((plusp (+ failed execute-errors))
 	   (when failed-tests
-	     (format t "~2&Failed tests: ~S~%" failed-tests))
+	     (format t "~2&Failed tests: ~S~%" failed-tests)
+	     (dolist (result results)
+	       (lisp-unit:print-failures result)))
 	   (when execute-error-tests
-	     (format t "~2&Execute failures: ~S~%" execute-error-tests))
+	     (format t "~2&Execute failures: ~S~%" execute-error-tests)
+	     (dolist (result results)
+	       (lisp-unit:print-errors result)))
 	   (unix:unix-exit 1))
 	  (t
 	   (unix:unix-exit 0)))))
 
-(defun run-all-tests (&optional (test-directory #P"tests/"))
+(defun run-all-tests (&key (test-directory #P"tests/") (verbose t))
   (load-test-files test-directory)
-  (print-test-results (run-loaded-tests)))
+  (print-test-results (run-loaded-tests) :verbose t))
 
 ;;(run-all-tests)
 ;;(quit)

-----------------------------------------------------------------------

Summary of changes:
 tests/run-tests.lisp |   14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp



More information about the cmucl-cvs mailing list