Changeset 14010

Timestamp:

Jul 21, 2010, 1:39:58 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Add :exit keyword argument to test-ccl. When t, the lisp will
exit with code 1 if any tests fail. If all the tests pass, it
will exit with code 0.

File:

• trunk/source/lib/compile-ccl.lisp (modified) (2 diffs)

trunk/source/lib/compile-ccl.lisp

@@ -798 +798 @@
 
 (defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t)
-                      optimization-settings)
+                      optimization-settings exit)
   (with-preserved-working-directory ()
     (let* ((*package* (find-package "CL-USER")))
@@ -813 +813 @@
           (map nil #'delete-file
                (directory (merge-pathnames *.fasl-pathname* "ccl:tests;ansi-tests;temp*"))))
-        (symbol-value failed)))))
+        (let ((failed-tests (symbol-value failed)))
+          (when exit
+            (quit (if failed-tests 1 0)))
+          failed-tests)))))
+