Changeset 14010


Ignore:
Timestamp:
Jul 21, 2010, 8:39:58 PM (9 years ago)
Author:
rme
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/compile-ccl.lisp

    r13743 r14010  
    798798
    799799(defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t)
    800                       optimization-settings)
     800                      optimization-settings exit)
    801801  (with-preserved-working-directory ()
    802802    (let* ((*package* (find-package "CL-USER")))
     
    813813          (map nil #'delete-file
    814814               (directory (merge-pathnames *.fasl-pathname* "ccl:tests;ansi-tests;temp*"))))
    815         (symbol-value failed)))))
     815        (let ((failed-tests (symbol-value failed)))
     816          (when exit
     817            (quit (if failed-tests 1 0)))
     818          failed-tests)))))
     819
Note: See TracChangeset for help on using the changeset viewer.