source: trunk/abcl/abcl.asd @ 12402

Last change on this file since 12402 was 12402, checked in by Mark Evenson, 11 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:keywords set to Id
File size: 3.6 KB
1;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
2;;; $Id: abcl.asd 12402 2010-01-26 11:15:48Z mevenson $
4(require 'asdf)
5(defpackage :abcl-asdf
6  (:use :cl :asdf))
7(in-package :abcl-asdf)
9;;; Wrapper for all ABCL ASDF definitions.
10(defsystem :abcl :version "0.5.0")
12(defmethod perform :after ((o load-op) (c (eql (find-system :abcl))))
13  (operate 'load-op :abcl-test-lisp :force t)
14  (operate 'load-op :cl-bench :force t)
15  (operate 'load-op :ansi-compiled :force t)
16  (operate 'load-op :ansi-interpreted :force t))
18;;;  Run via (asdf:operate 'asdf:test-op :abcl :force t)
19(defmethod perform ((o test-op) (c (eql (find-system :abcl))))
20  (operate 'test-op :abcl-tests :force t))
22;;; Test ABCL with the Lisp unit tests collected in "test/lisp/abcl"
23(defsystem :abcl-test-lisp :version "1.1" :components
24     ((:module abcl-rt
25                     :pathname "test/lisp/abcl/" :serial t :components
26         ((:file "rt-package") (:file "rt")
27                      (:file "test-utilities")))
28      (:module package  :depends-on (abcl-rt)
29         :pathname "test/lisp/abcl/" :components
30         ((:file "package")))
31            (:module test :depends-on (package)
32         :pathname "test/lisp/abcl/" :components
33                     ((:file "compiler-tests")
34                      (:file "condition-tests")
35                      (:file "mop-tests-setup")
36                      (:file "mop-tests" :depends-on ("mop-tests-setup"))
37                      (:file "file-system-tests")
38                      (:file "jar-file")
39                      (:file "math-tests")
40                      (:file "misc-tests")
41                      (:file "pathname-tests")))))
43(defmethod perform ((o test-op) (c (eql (find-system 'abcl-test-lisp))))
44   "Invoke tests with (asdf:oos 'asdf:test-op :abcl-test-lisp)."
45   (funcall (intern (symbol-name 'run) :abcl.test.lisp)))
47;;; Test ABCL with the interpreted ANSI tests
48(defsystem :ansi-interpreted :version "1.0.1"
49           :components
50           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
51         ((:file "package")))))
52(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-interpreted))))
53  (operate 'load-op :ansi-interpreted))
54(defmethod perform ((o test-op) (c (eql (find-system :ansi-interpreted))))
55  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
56     :compile-tests nil))
58;;; Test ABCL with the compiled ANSI tests
59(defsystem :ansi-compiled :version "1.0.1"
60           :components
61           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
62         ((:file "package")))))
63(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-compiled))))
64  (operate 'load-op :ansi-compiled))
65(defmethod perform ((o test-op) (c (eql (find-system :ansi-compiled))))
66  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
67     :compile-tests t))
70;;; Test ABCL with CL-BENCH
71(defsystem :cl-bench :components
72           ((:module cl-bench-package :pathname "../cl-bench/"
73                    :components ((:file "defpackage")))
74            (:module cl-bench-wrapper :pathname "test/lisp/cl-bench/"
75                     :depends-on (cl-bench-package) :components
76                     ((:file "wrapper")))))
77(defmethod perform :before ((o test-op) (c (eql (find-system :cl-bench))))
78  (operate 'load-op :cl-bench :force t))
79(defmethod perform ((o test-op) (c (eql (find-system :cl-bench))))
80  (funcall (intern (symbol-name 'run)
82;;; Build ABCL from a Lisp.
83;;; aka the "Lisp-hosted build system"
84;;; Works for: abcl, sbcl, clisp, cmu, lispworks, allegro, openmcl
85(defsystem :build-abcl :components
86     ((:module build :pathname ""  :components
87         ((:file "build-abcl")
88          (:file "customizations" :depends-on ("build-abcl"))))))
Note: See TracBrowser for help on using the repository browser.