Changeset 9862


Ignore:
Timestamp:
Jul 1, 2008, 5:46:17 PM (11 years ago)
Author:
gz
Message:

Add :ansi and :ccl args to test-ccl, to allow separate control over whether or not to run the ansi and the ccl parts of the test suite. Also, don't suppress compiler warnings during do-tests

File:
1 edited

Legend:

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

    r9842 r9862  
    600600         (cwd ,wd)))))
    601601
    602 (defun ensure-tests-loaded (&key force update)
     602(defun ensure-tests-loaded (&key force update ansi ccl)
    603603  (unless (and (find-package "REGRESSION-TEST") (not force))
    604604    (if (probe-file "ccl:tests;ansi-tests;")
     
    645645      (let ((redef-var (find-symbol "*WARN-IF-REDEFINE-TEST*" :REGRESSION-TEST)))
    646646        (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"))
    648649          ;; 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))
    652654  (with-preserved-working-directory ()
    653655    (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)
    655657      (cwd "ccl:tests;ansi-tests;")
    656658      (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST"))
    657             (*suppress-compiler-warnings* t)
    658659            (*print-catch-errors* nil))
    659660        (time (funcall do-tests :verbose verbose :compile t :catch-errors catch-errors)))
Note: See TracChangeset for help on using the changeset viewer.