source: trunk/abcl/abcl.asd @ 12335

Last change on this file since 12335 was 12335, checked in by Mark Evenson, 12 years ago

Initial fix for support for running cl-bench test suite from Ant build via ASDF.

This probably doesn't work on win32 without 'make' in your path.

Running the cl-bench suite now works via the 'test.cl-bench' target if
the test suite has been downloaded from
"http://www.chez.com/emarsden/downloads/cl-bench.tar.gz" and placed in
a sibling directory (#p../cl-bench/) to ABCL root.

Move the cl-bench ASDF description into 'abcl.asd' now that I have
finally understood (?) the correct CLOS method invocation.

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