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@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