[armedbear-cvs] r14249 - trunk/abcl/test/lisp/ansi

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Nov 16 05:40:47 2012
New Revision: 14249

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

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

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

Modified: trunk/abcl/test/lisp/ansi/abcl-ansi.lisp
==============================================================================
--- trunk/abcl/test/lisp/ansi/abcl-ansi.lisp	Thu Nov 15 16:34:00 2012	(r14248)
+++ trunk/abcl/test/lisp/ansi/abcl-ansi.lisp	Fri Nov 16 05:40:47 2012	(r14249)
@@ -14,6 +14,10 @@
   "Run the ANSI-TESTS suite, to be found in *ANSI-TESTS-DIRECTORY*.
 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*)
 	 (boot-file 
@@ -57,7 +61,9 @@
   ;; so we don't have to hunt for 'make' in the PATH on win32.
   (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*))
 		  (directory (format nil "~A/scratch/*" *ansi-tests-directory*))