source: trunk/abcl/abcl.asd @ 11537

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

build.xml's target 'abcl.test' invokes the GCL ANSI-TEST interpreted tests by default.

In order for these tests to work, you will need a sibling directory of
'abcl' called 'ansi-tests' which contains the GCL ANSI-TEST suite from
<svn://common-lisp.net/project/ansi-test/svn/trunk/ansi-tests>.

File size: 1.9 KB
Line 
1;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
2;;; $Id$
3
4(require 'asdf)
5(defpackage :abcl-asdf
6  (:use :cl :asdf))
7(in-package :abcl-asdf)
8
9(defsystem :abcl
10  :documentation "Wrapper for all ABCL ASDF definitions."
11  :version "0.2.0")
12
13(defmethod perform :around ((o load-op) (c (eql (find-system 'abcl))))
14  (call-next-method)
15  (format t "DEBUG: load-op around :abcl.~%")
16  (asdf:oos 'asdf:load-op :test-abcl))
17
18(defmethod perform ((o test-op) (c (eql (find-system 'abcl))))
19  (format t "DEBUG: test-op :abcl.~%")
20  (asdf:oos 'asdf:load-op :test-abcl :force t)
21  (asdf:oos 'asdf:test-op :ansi-test-compiled :force t))
22
23(defsystem :test-abcl
24  :documentation "A collection of test suites for ABCL."
25  :version "0.3"
26  :depends-on (:ansi-test-compiled :ansi-test-interpreted))
27
28(defmethod perform :after ((o test-op) (c (eql (find-system 'test-abcl))))
29  (asdf:oos 'asdf:load-op :ansi-test-interpreted :force t)
30  (asdf:oos 'asdf:load-op :ansi-test-compiled :force t))
31
32(defsystem :ansi-test :version "0.1" :components
33     ((:module ansi-tests :pathname "test/lisp/ansi/"
34         :documentation "GCL ANSI test suite."
35         :components
36        ((:file "package")))))
37(defsystem :ansi-test-interpreted :version "0,1" :depends-on (ansi-test))
38(defsystem :ansi-test-compiled :version "0.1" :depends-on (ansi-test))
39
40(defmethod perform ((o test-op) (c (eql (find-system 'ansi-test-interpreted))))
41  (funcall (intern (symbol-name 'run) :abcl.tests.ansi-tests)
42     :compile-tests nil))
43
44(defmethod perform ((o test-op) (c (eql (find-system 'ansi-test-compiled))))
45  (funcall (intern (symbol-name 'run) :abcl.tests.ansi-tests)
46     :compile-tests t))
47
48;;; Works for: abcl, sbcl, clisp
49(defsystem :build-abcl
50  :documentation "Build ABCL from a Lisp."
51  :components
52     ((:module build :pathname ""  :components
53         ((:file "build-abcl")
54          (:file "customizations" :depends-on ("build-abcl"))))))
55
56
57
Note: See TracBrowser for help on using the repository browser.