[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-05-7-gbdc547a

Raymond Toy rtoy at common-lisp.net
Tue May 13 03:10:51 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  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 at 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


More information about the cmucl-commit mailing list