|
Last change
on this file since 12615 was
12615,
checked in by Mark Evenson, 13 years ago
|
|
Tweaks to ABCL Lisp tests for convenience.
RUN-MATCHING saves last invocation parameter in *LAST-RUN-MATCHING*
Export symbols DO-TEST and DO-TESTS.
|
-
Property svn:eol-style set to
native
|
|
File size:
1.1 KB
|
| Line | |
|---|
| 1 | (defpackage #:abcl.test.lisp |
|---|
| 2 | (:use #:cl #:abcl-rt) |
|---|
| 3 | (:nicknames "ABCL-TEST-LISP" "ABCL-TEST") |
|---|
| 4 | (:export |
|---|
| 5 | #:run #:run-matching |
|---|
| 6 | #:do-test #:do-tests)) |
|---|
| 7 | (in-package #:abcl.test.lisp) |
|---|
| 8 | |
|---|
| 9 | (defparameter *abcl-test-directory* |
|---|
| 10 | (make-pathname :host (pathname-host *load-truename*) |
|---|
| 11 | :device (pathname-device *load-truename*) |
|---|
| 12 | :directory (pathname-directory *load-truename*))) |
|---|
| 13 | |
|---|
| 14 | (defun run () |
|---|
| 15 | "Run the Lisp test suite for ABCL." |
|---|
| 16 | (let ((*default-pathname-defaults* *abcl-test-directory*)) |
|---|
| 17 | (do-tests))) |
|---|
| 18 | |
|---|
| 19 | (defvar *last-run-matching* "url-pathname") |
|---|
| 20 | |
|---|
| 21 | ;;; XXX move this into test-utilities.lisp? |
|---|
| 22 | (defun run-matching (&optional (match *last-run-matching*)) |
|---|
| 23 | (setf *last-run-matching* match) |
|---|
| 24 | (let* ((matching (string-upcase match)) |
|---|
| 25 | (tests |
|---|
| 26 | (remove-if-not |
|---|
| 27 | (lambda (name) (search matching name)) |
|---|
| 28 | (mapcar (lambda (entry) |
|---|
| 29 | (symbol-name (abcl-rt::name entry))) |
|---|
| 30 | (rest abcl-rt::*entries*))))) |
|---|
| 31 | (dolist (test tests) |
|---|
| 32 | (do-test (intern test :abcl.test.lisp))))) |
|---|
| 33 | |
|---|
| 34 | |
|---|
| 35 | |
|---|
| 36 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
