Changeset 13312


Ignore:
Timestamp:
06/08/11 15:28:11 (10 years ago)
Author:
Mark Evenson
Message:

Renam RUN-MATCHING to DO-MATCHING improving output.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/package.lisp

    r13009 r13312  
    33  (:nicknames "ABCL-TEST-LISP" "ABCL-TEST")
    44  (:export
    5    #:run #:run-matching
    6    #:do-test #:do-tests))
     5   #:run
     6   #:do-matching #:run-matching
     7   #:do-test
     8   #:do-tests))
    79(in-package #:abcl.test.lisp)
    810
     
    1921    (do-tests)))
    2022
     23;;; XXX move this into test-utilities.lisp?
    2124(defvar *last-run-matching* "url-pathname")
    2225
    23 ;;; XXX move this into test-utilities.lisp?
    24 (defun run-matching (&optional (match *last-run-matching*))
     26(defun do-matching (&optional (match *last-run-matching*))
    2527  "Run all tests in suite whose symbol contains MATCH in a case-insensitive manner."
    2628  (setf *last-run-matching* match)
    2729  (let* ((matching (string-upcase match))
    28          (tests
    29           (remove-if-not
    30            (lambda (name) (search matching name))
    31            (mapcar (lambda (entry)
    32                      (symbol-name (abcl-rt::name entry)))
    33                    (rest abcl-rt::*entries*)))))
    34     (dolist (test tests)
    35       (do-test (intern test :abcl.test.lisp)))))
     30         (count 0))
     31    (mapcar (lambda (entry)
     32              (if (search matching (symbol-name (abcl-rt::name entry)))
     33                  (setf (abcl-rt::pend entry) t
     34                        count (1+ count))
     35                  (setf (abcl-rt::pend entry) nil)))
     36            (rest abcl-rt::*entries*))
     37    (format t "Performing ~A tests matching '~A'.~%" count matching)
     38    (abcl-rt::do-entries t)))
     39
     40;;; Deprecated
     41(setf (symbol-function 'run-matching) #'do-matching)
     42
    3643   
    3744
Note: See TracChangeset for help on using the changeset viewer.