source: trunk/abcl/abcl.asd @ 11596

Last change on this file since 11596 was 11596, checked in by Mark Evenson, 13 years ago

Invocation of ASDF tests from Lisp via instructions at top of 'abcl.asd' works.

Optimized 'build.xml' run time for typical (repeated) usage scenarios:

o downloading of 'junit.jar' based on presence on filesystem.
o rebuilding of 'abcl.jar' based on explicit check via Ant

Removed automatic execution of ABCL-TESTS based on load.

Ant 'abcl.test' target not working in all situations. Needs further
debugging. Workaround: use the Lisp-based ASDF test entry point for now.

ANSI-TESTS-COMPILED ANSI-TESTS-INTERPRETED need a sibling directory
containing the GCL ANSI tests from
<svn://common-lisp.net/project/ansi-test/svn/trunk/ansi-tests>. They
complain semi-intellibly if not found.

  • Property svn:keywords set to Id
File size: 3.0 KB
Line 
1;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
2;;; $Id: abcl.asd 11596 2009-01-27 18:29:01Z mevenson $
3
4;;;; To run:
5;;;;   
6#|
7cmd$ abcl
8CL-USER(1): (progn (require 'asdf)
9                   (asdf:oos 'asdf:load-op :abcl)
10                   (asdf:oos 'asdf:test-op :ansi-test-compiled :force t))
11|#
12
13(require 'asdf)
14(defpackage :abcl-asdf
15  (:use :cl :asdf))
16(in-package :abcl-asdf)
17
18;;; Wrapper for all ABCL ASDF definitions.
19(defsystem :abcl
20  :version "0.3.0")
21
22(defmethod perform :after ((o load-op) (c (eql (find-system 'abcl))))
23  ;;; Additional test suite loads would go here.
24  (asdf:oos 'asdf:load-op :test-abcl :force t))
25
26(defmethod perform ((o test-op) (c (eql (find-system 'abcl))))
27  ;;; Additional test suite invocations would go here.
28  (asdf:oos 'asdf:test-op :ansi-test-compiled :force t))
29
30;;; A collection of test suites for ABCL.
31(defsystem :test-abcl
32  :version "0.3"
33  :depends-on (:ansi-test-compiled :abcl-tests))
34
35(defmethod perform :after ((o load-op) (c (eql (find-system 'test-abcl))))
36  #+nil (asdf:oos 'asdf:test-op :cl-bench :force t)
37  #+nil (asdf:oos 'asdf:test-op :abcl-tests :force t)
38  #+nil (asdf:oos 'asdf:test-op :ansi-test-interpreted :force t)
39  (asdf:oos 'asdf:load-op :ansi-test-compiled :force t))
40
41(defsystem :ansi-test :version "0.1" :components
42     ;;; GCL ANSI test suite.
43     ((:module ansi-tests :pathname "test/lisp/ansi/" :components
44         ((:file "package")))))
45(defsystem :ansi-test-interpreted :version "0,1" :depends-on (ansi-test))
46(defsystem :ansi-test-compiled :version "0.1" :depends-on (ansi-test))
47
48(defsystem :abcl-tests
49   :version "1.0"
50   :components
51     ((:module rt :serial t  :pathname "test/lisp/abcl/" :components
52        ((:file "rt-package") (:file "rt") (:file "test-utilities")))
53      (:module tests :depends-on (rt)
54        :pathname "test/lisp/abcl/" :components
55        ((:file "compiler-tests")
56         (:file "condition-tests")
57         (:file "file-system-tests")
58 #+nil         (:file "math-tests")
59         (:file "java-tests")
60         (:file "misc-tests")
61         (:file "pathname-tests")))))
62 
63 (defmethod perform ((o test-op) (c (eql (find-system 'abcl-tests))))
64   "Invoke tests with:  (asdf:oos 'asdf:test-op :abcl-tests :force t)."
65   ;;; FIXME needs ASDF:OOS to be invoked with :FORCE t
66   (funcall (intern (symbol-name 'do-tests) :test)))
67 
68(defmethod perform ((o test-op) (c (eql (find-system 'ansi-test-interpreted))))
69   "Invoke tests with:  (asdf:oos 'asdf:test-op :abcl-tests :force t)."
70   ;;; FIXME needs ASDF:OOS to be invoked with :FORCE t
71  (funcall (intern (symbol-name 'run) :abcl.tests.ansi-tests)
72     :compile-tests nil))
73
74(defmethod perform ((o test-op) (c (eql (find-system 'ansi-test-compiled))))
75  "Invoke tests with:  (asdf:oos 'asdf:test-op :abcl-test-compiled :force t)."
76  (funcall (intern (symbol-name 'run) :abcl.tests.ansi-tests)
77     :compile-tests t))
78
79;;; Build ABCL from a Lisp.
80;;; Works for: abcl, sbcl, clisp, cmu, lispworks, allegro, openmcl
81(defsystem :build-abcl
82  :components
83     ((:module build :pathname ""  :components
84         ((:file "build-abcl")
85          (:file "customizations" :depends-on ("build-abcl"))))))
86
87
88
Note: See TracBrowser for help on using the repository browser.