Renam RUN-MATCHING to DO-MATCHING improving output.

parent acfae881
......@@ -2,8 +2,10 @@
(:use #:cl #:abcl-rt)
(:nicknames "ABCL-TEST-LISP" "ABCL-TEST")
#:run #:run-matching
#:do-test #:do-tests))
#:do-matching #:run-matching
(in-package #:abcl.test.lisp)
(defparameter *abcl-test-directory*
......@@ -18,21 +20,26 @@
(let ((*default-pathname-defaults* *abcl-test-directory*))
;;; 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))
(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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment