Changeset 9862 for trunk/source/lib/compile-ccl.lisp
- Timestamp:
- Jul 1, 2008, 5:46:17 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/compile-ccl.lisp
r9842 r9862 600 600 (cwd ,wd))))) 601 601 602 (defun ensure-tests-loaded (&key force update )602 (defun ensure-tests-loaded (&key force update ansi ccl) 603 603 (unless (and (find-package "REGRESSION-TEST") (not force)) 604 604 (if (probe-file "ccl:tests;ansi-tests;") … … 645 645 (let ((redef-var (find-symbol "*WARN-IF-REDEFINE-TEST*" :REGRESSION-TEST))) 646 646 (progv (list redef-var) (list (if force nil (symbol-value redef-var))) 647 (load "ccl:tests;ansi-tests;gclload2.lsp") 647 (when ansi 648 (load "ccl:tests;ansi-tests;gclload2.lsp")) 648 649 ;; And our own tests 649 (load "ccl:tests;ansi-tests;ccl.lsp")))))) 650 651 (defun test-ccl (&key force (update t) verbose (catch-errors t)) 650 (when ccl 651 (load "ccl:tests;ansi-tests;ccl.lsp"))))))) 652 653 (defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t)) 652 654 (with-preserved-working-directory () 653 655 (let* ((*package* (find-package "CL-USER"))) 654 (ensure-tests-loaded :force force :update update )656 (ensure-tests-loaded :force force :update update :ansi ansi :ccl ccl) 655 657 (cwd "ccl:tests;ansi-tests;") 656 658 (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST")) 657 (*suppress-compiler-warnings* t)658 659 (*print-catch-errors* nil)) 659 660 (time (funcall do-tests :verbose verbose :compile t :catch-errors catch-errors)))
Note: See TracChangeset
for help on using the changeset viewer.