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 bdc547a3580cadfaaa77353ddcd8ada8e9980bd5 (commit) from c34d88b5fb3e8a27a3ac5605f96ddd77aa29ae3b (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 bdc547a3580cadfaaa77353ddcd8ada8e9980bd5 Author: Raymond Toy <toy.raymond@gmail.com> Date: Mon May 12 20:10:42 2014 -0700 Fix up some comments, and add a few more. diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp index 8046c7d..46ec3a3 100644 --- a/tests/run-tests.lisp +++ b/tests/run-tests.lisp @@ -44,6 +44,7 @@ (defvar *test-names* nil) +;; Look through all the files in the TEST-DIRECTORY and load them. (defun load-test-files (&optional (test-directory #p"tests/")) (dolist (file (directory (merge-pathnames "*.lisp" test-directory))) (unless (equal file *load-path*) @@ -55,10 +56,8 @@ (setf *test-files* (nreverse *test-files*)) (setf *test-names* (nreverse *test-names*))) -;; Look through all the files in the tests directory and load them. -;; Then run all of the tests. For each file, it ia assumed that a -;; package is created that is named with "-TESTS" appended to he -;; pathname-name of the file. +;; Run all of the tests in *TEST-NAMES*. Return a list of all of the +;; lisp-unit results for each of the test sets. (defun run-loaded-tests () (let (test-results) (dolist (test *test-names*) @@ -66,6 +65,7 @@ test-results)) (nreverse test-results))) +;; Print out a summary of test results produced from RUN-LOADED-TESTS. (defun print-test-results (results &key verbose) (let ((passed 0) (failed 0) @@ -110,6 +110,10 @@ (t (unix:unix-exit 0))))) +;; Look through all the files in the TEST-DIRECTORY and load them. +;; Then run all of the tests. For each file, it ia assumed that a +;; package is created that is named with "-TESTS" appended to he +;; pathname-name of the file. (defun run-all-tests (&key (test-directory #P"tests/") (verbose t)) (load-test-files test-directory) (print-test-results (run-loaded-tests) :verbose t)) ----------------------------------------------------------------------- Summary of changes: tests/run-tests.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp