Changeset 13935

Timestamp:

05/14/12 08:15:53 (12 years ago)

Author:

Mark Evenson

Message:

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

Use the same name as defined in ANSI-TESTS.

File:

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

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

@@ -4 +4 @@
   (: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)
@@ -28 +30 @@
 (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)
@@ -43 +45 @@
 
 ;;; Deprecated 
-(setf (symbol-function 'run-matching) #'do-matching)
+(setf (symbol-function 'run-matching) #'do-tests-matching)
+(setf (symbol-function 'do-matching) #'do-tests-matching)