[armedbear-cvs] r13935 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon May 14 01:15:53 2012
New Revision: 13935

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

Use the same name as defined in ANSI-TESTS.

Modified:
   trunk/abcl/test/lisp/abcl/package.lisp

Modified: trunk/abcl/test/lisp/abcl/package.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/package.lisp	Mon May 14 01:15:51 2012	(r13934)
+++ trunk/abcl/test/lisp/abcl/package.lisp	Mon May 14 01:15:53 2012	(r13935)
@@ -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)