Changeset 9840 for trunk/tests


Ignore:
Timestamp:
Jun 27, 2008, 5:02:26 PM (11 years ago)
Author:
gz
Message:

Add *warn-if-redefine-test* (default t) to control the test redefinition warnings

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/rt.lsp

    r9045 r9840  
    4949(defvar *optimization-settings* '((safety 3)))
    5050
     51(defvar *warn-if-redefine-test* t)
     52
    5153(defvar *failed-tests* nil "After DO-TESTS, becomes the list of names of tests that have failed")
    5254(defvar *passed-tests* nil "After DO-TESTS, becomes the list of names of tests that have passed")
     
    157159     (pred
    158160      (setf (cadr pred) entry)
    159       (report-error nil
    160         "Redefining test ~:@(~S~)"
    161         (name entry)))
     161      (when *warn-if-redefine-test*
     162        (report-error nil
     163                      "Redefining test ~:@(~S~)"
     164                      (name entry))))
    162165     (t
    163166      (setf (gethash (name entry) *entries-table*) *entries-tail*)
Note: See TracChangeset for help on using the changeset viewer.