Commit 209dd2c0 authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

abcl-test-lisp: rename DO-MATCHING to DO-TESTS-MATCHING.

Use the same name as defined in ANSI-TESTS.
parent 7d9e1445
......@@ -3,12 +3,14 @@
(:nicknames "ABCL-TEST-LISP" "ABCL-TEST")
(:export
#:run
#:do-matching #:run-matching
#:do-test
#:do-tests
#:do-tests-matching
;; previously in file-system-tests.lisp
#:pathnames-equal-p #:run-shell-command #:copy-file #:make-symbolic-link
#:touch #:make-temporary-directory #:delete-directory-and-files
;;; Deprecated
#:do-matching #:run-matching
))
(in-package #:abcl.test.lisp)
......@@ -27,7 +29,7 @@
;;; XXX move this into test-utilities.lisp?
(defvar *last-run-matching* "url-pathname")
(defun do-matching (&optional (match *last-run-matching*))
(defun do-tests-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))
......@@ -42,7 +44,8 @@
(abcl-rt::do-entries t)))
;;; Deprecated
(setf (symbol-function 'run-matching) #'do-matching)
(setf (symbol-function 'run-matching) #'do-tests-matching)
(setf (symbol-function 'do-matching) #'do-tests-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