Changeset 14249 for trunk/abcl/test/lisp/ansi/abcl-ansi.lisp

Timestamp:

11/16/12 13:40:47 (8 years ago)

Author:

Mark Evenson

Message:

ansi-tests: always clean out the intermediate artifacts when running ANSI tests.

Now output the removed artifacts to *STANDARD-OUTPUT*.

File:

• trunk/abcl/test/lisp/ansi/abcl-ansi.lisp (modified) (2 diffs)

trunk/abcl/test/lisp/ansi/abcl-ansi.lisp

@@ -15 +15 @@
 Possibly running the compiled version of the tests if COMPILE-TESTS is non-NIL."
   (verify-ansi-tests)
+  (mapcar (lambda (result)
+            (when (second result)
+              (format t "Removed ~A.~&" (first result))))
+          (clean-tests))
   (let* ((ansi-tests-directory 
     *ansi-tests-directory*)
@@ -58 +62 @@
   (verify-ansi-tests)
 
-  (mapcar #'delete-file
+  (mapcar (lambda (p)
+            (when (probe-file p)
+              (list p (delete-file p))))
     (append (directory (format nil "~A/*.cls" *ansi-tests-directory*))
       (directory (format nil "~A/*.abcl" *ansi-tests-directory*))