source: trunk/abcl/test/lisp/abcl/package.lisp @ 12402

Last change on this file since 12402 was 12402, checked in by Mark Evenson, 14 years ago

Move abcl-test-lisp to ASDF packaging.

Change to ASDF packaging of abcl-test-lisp. Remove ASDF system
'abcl-tests' as ASDF systems without components don't carry
dependencies transitively. Remove unneed :BEFORE load of
abcl-test-lisp. Renamed conflicting tests now that they are loaded via

Implement ability to run tests matching a string. Export
ABCL.TEST.LISP::RUN-MATCHING as external symbol.

Added 'test/lisp/abcl/math-tests.lisp' back to ABCL.TEST.LISP, fixing
errors that prevented it from working.

Fix bug with directories specified to three-arg form of SYS:ZIP. JAR
files always use '/' to name hierarchial entries. Allow of a top
directory for creating hierarchially ZIPs: for arguments like
"pathname pathnames &optional topdir" all pathnames will be
interpolated relative to topdir.

Contains the version of jar-file tests corresponding to PATHNAME,
TRUENAME, and PROBE-FILE. The tests for jar-file will currently fail
as it needs the implementation of SYS:UNZIP which in turn depends on
the new version of Pathname which should follow shortly in a separate

jar-file initilization rewritten in Lisp, so it works under Windows.

Java tests for Pathname and Stream.

Help my dyslexic brain by renaming
*abcl-{lisp-test,test,lisp}-directory* to *abcl-test-directory*.

Refinement of jar-file tests. Correct all JAR-FILE.PATHNAME.* tests.
JAR-FILE tests use the cross-platform form of COPY-FILE. Renamed test,
using WITH-JAR-FILE-INIT macro.

  • Property svn:eol-style set to native
File size: 975 bytes
1(defpackage #:abcl.test.lisp 
2  (:use #:cl #:abcl-rt)
3  (:nicknames "ABCL-TEST-LISP" "ABCL-TEST")
4  (:export 
5   #:run #:run-matching))
6(in-package #:abcl.test.lisp)
8(defparameter *abcl-test-directory* 
9   (make-pathname :host (pathname-host *load-truename*)
10                  :device (pathname-device *load-truename*)
11                  :directory (pathname-directory *load-truename*)))
13(defun run ()
14  "Run the Lisp test suite for ABCL."
15  (let ((*default-pathname-defaults* *abcl-test-directory*))
16    (do-tests)))
18;;; XXX move this into test-utilities.lisp?
19(defun run-matching (&optional (match "jar-file."))
20  (let* ((matching (string-upcase match))
21         (tests
22          (remove-if-not
23           (lambda (name) (search matching name))
24           (mapcar (lambda (entry) 
25                     (symbol-name (abcl-rt::name entry))) 
26                   (rest abcl-rt::*entries*)))))
27    (dolist (test tests)
28      (do-test (intern test :abcl.test.lisp)))))
Note: See TracBrowser for help on using the repository browser.