Changeset 12615

Timestamp:

04/15/10 14:53:27 (13 years ago)

Author:

Mark Evenson

Message:

Tweaks to ABCL Lisp tests for convenience.

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

Export symbols DO-TEST and DO-TESTS.

File:

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

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

@@ -3 +3 @@
   (:nicknames "ABCL-TEST-LISP" "ABCL-TEST")
   (:export 
-   #:run #:run-matching))
+   #:run #:run-matching
+   #:do-test #:do-tests))
 (in-package #:abcl.test.lisp)
 
@@ -16 +17 @@
     (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