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

[Mark Evenson]

Author: mevenson
Date: Thu Apr 15 10:53:27 2010
New Revision: 12615

Log:
Tweaks to ABCL Lisp tests for convenience.

RUN-MATCHING saves last invocation parameter in *LAST-RUN-MATCHING*

Export symbols DO-TEST and DO-TESTS.



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

Modified: trunk/abcl/test/lisp/abcl/package.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/package.lisp	(original)
+++ trunk/abcl/test/lisp/abcl/package.lisp	Thu Apr 15 10:53:27 2010
@@ -2,7 +2,8 @@
   (:use #:cl #:abcl-rt)
   (:nicknames "ABCL-TEST-LISP" "ABCL-TEST")
   (:export 
-   #:run #:run-matching))
+   #:run #:run-matching
+   #:do-test #:do-tests))
 (in-package #:abcl.test.lisp)
 
 (defparameter *abcl-test-directory* 
@@ -15,8 +16,11 @@
   (let ((*default-pathname-defaults* *abcl-test-directory*))
     (do-tests)))
 
+(defvar *last-run-matching* "url-pathname")
+
 ;;; XXX move this into test-utilities.lisp?
-(defun run-matching (&optional (match "jar-file."))
+(defun run-matching (&optional (match *last-run-matching*))
+  (setf *last-run-matching* match)
   (let* ((matching (string-upcase match))
          (tests
           (remove-if-not