Changeset 13312

Timestamp:

06/08/11 15:28:11 (12 years ago)

Author:

Mark Evenson

Message:

Renam RUN-MATCHING to DO-MATCHING improving output.

File:

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

trunk/abcl/test/lisp/abcl/package.lisp

@@ -3 +3 @@
   (:nicknames "ABCL-TEST-LISP" "ABCL-TEST")
   (:export 
-   #:run #:run-matching
-   #:do-test #:do-tests))
+   #:run 
+   #:do-matching #:run-matching
+   #:do-test 
+   #:do-tests))
 (in-package #:abcl.test.lisp)
 
@@ -19 +21 @@
     (do-tests)))
 
+;;; XXX move this into test-utilities.lisp?
 (defvar *last-run-matching* "url-pathname")
 
-;;; XXX move this into test-utilities.lisp?
-(defun run-matching (&optional (match *last-run-matching*))
+(defun do-matching (&optional (match *last-run-matching*))
   "Run all tests in suite whose symbol contains MATCH in a case-insensitive manner."
   (setf *last-run-matching* match)
   (let* ((matching (string-upcase match))
-         (tests
-          (remove-if-not
-           (lambda (name) (search matching name))
-           (mapcar (lambda (entry) 
-                     (symbol-name (abcl-rt::name entry))) 
-                   (rest abcl-rt::*entries*)))))
-    (dolist (test tests)
-      (do-test (intern test :abcl.test.lisp)))))
+         (count 0))
+    (mapcar (lambda (entry) 
+              (if (search matching (symbol-name (abcl-rt::name entry)))
+                  (setf (abcl-rt::pend entry) t
+                        count (1+ count))
+                  (setf (abcl-rt::pend entry) nil)))
+            (rest abcl-rt::*entries*))
+    (format t "Performing ~A tests matching '~A'.~%" count matching)
+    (abcl-rt::do-entries t)))
+
+;;; Deprecated 
+(setf (symbol-function 'run-matching) #'do-matching)
+