[armedbear-cvs] r14180 - trunk/abcl/test/lisp/ansi

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Oct 11 04:33:27 2012
New Revision: 14180

Log:
Invoke ANSI-TESTS:DO-TESTS-MATCHING in proper directory.

Modified:
   trunk/abcl/test/lisp/ansi/abcl-ansi.lisp

Modified: trunk/abcl/test/lisp/ansi/abcl-ansi.lisp
==============================================================================
--- trunk/abcl/test/lisp/ansi/abcl-ansi.lisp	Thu Oct 11 04:33:26 2012	(r14179)
+++ trunk/abcl/test/lisp/ansi/abcl-ansi.lisp	Thu Oct 11 04:33:27 2012	(r14180)
@@ -80,7 +80,8 @@
   "Run all tests in suite whose symbol contains MATCH in a case-insensitive manner."
   (setf *last-run-matching* match)
   (let* ((matching (string-upcase match))
-         (count 0))
+         (count 0)
+         (*default-pathname-defaults* *ansi-tests-directory*))
     (mapcar (lambda (entry) 
               (if (search matching (symbol-name (rt::name entry)))
                   (setf (rt::pend entry) t