source: trunk/abcl/abcl.asd @ 12301

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

Loading ABCL tests improved; renamed loading jar-file tests.

ASDF loading of ABCL-TEST-LISP improved to not need :FORCE argument.

JAR-FILE tests included as part of ABCL-TEST-LISP.

  • Property svn:keywords set to Id
File size: 3.1 KB
Line 
1;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
2;;; $Id: abcl.asd 12301 2009-12-22 16:07:07Z 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  #+nil (asdf:oos 'asdf:test-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(defmethod perform :before ((o load-op) (c t))
32  (warn "ASDF load-op class is ~A" c))
33
34(defsystem :ansi-test :version "1.0" :components
35     ;;; GCL ANSI test suite.
36     ((:module ansi-tests :pathname "test/lisp/ansi/" :components
37         ((:file "package")))))
38
39(defsystem :ansi-interpreted :version "1.0" :depends-on (ansi-test))
40(defmethod perform ((o test-op) (c (eql (find-system :ansi-interpreted))))
41   "Invoke tests with:  (asdf:oos 'asdf:test-op :ansi-interpreted :force t)."
42  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
43     :compile-tests nil))
44(defmethod perform :before ((o test-op) (c (eql (find-system
45                                                 :ansi-interpreted))))
46  (operate 'load-op :ansi-interpreted :force t))
47
48(defsystem :ansi-compiled :version "1.0" :depends-on (ansi-test))
49(defmethod perform ((o test-op) (c (eql (find-system :ansi-compiled))))
50  "Invoke tests with:  (asdf:oos 'asdf:test-op :abcl-compiled :force t)."
51  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
52     :compile-tests t))
53(defmethod perform :before ((o test-op) (c (eql (find-system
54                                                 :ansi-compiled))))
55  (operate 'load-op :ansi-compiled :force t))
56
57(defsystem :abcl-test-lisp :version "1.1" :components
58     ((:module abcl-rt :pathname "test/lisp/abcl/" :serial t :components
59         ((:file "rt-package") (:file "rt")))
60      (:module package  :depends-on (abcl-rt)
61         :pathname "test/lisp/abcl/" :components
62         ((:file "package")))))
63
64(defmethod perform :before ((o test-op) (c (eql (find-system
65                                                 :abcl-test-lisp))))
66  (operate 'load-op :abcl-test-lisp :force t))
67
68(defmethod perform ((o test-op) (c (eql (find-system 'abcl-test-lisp))))
69   "Invoke tests with (asdf:oos 'asdf:test-op :abcl-test-lisp)."
70   (funcall (intern (symbol-name 'run) :abcl-test)))
71 
72;;; Build ABCL from a Lisp.
73;;; aka the "Lisp-hosted build system"
74;;; Works for: abcl, sbcl, clisp, cmu, lispworks, allegro, openmcl
75(defsystem :build-abcl :components
76     ((:module build :pathname ""  :components
77         ((:file "build-abcl")
78          (:file "customizations" :depends-on ("build-abcl"))))))
79
80
81
Note: See TracBrowser for help on using the repository browser.