source: trunk/abcl/abcl.asd @ 12406

Last change on this file since 12406 was 12406, checked in by Mark Evenson, 11 years ago

Where possible collect bug reports as unit tests so they can stay fixed.

  • Property svn:keywords set to Id
File size: 3.6 KB
Line 
1;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
2;;; $Id: abcl.asd 12406 2010-01-29 08:45:34Z 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.5.0")
11
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))
17
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))
21
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 "bugs")
42                      (:file "pathname-tests")))))
43
44(defmethod perform ((o test-op) (c (eql (find-system 'abcl-test-lisp))))
45   "Invoke tests with (asdf:oos 'asdf:test-op :abcl-test-lisp)."
46   (funcall (intern (symbol-name 'run) :abcl.test.lisp)))
47
48;;; Test ABCL with the interpreted ANSI tests
49(defsystem :ansi-interpreted :version "1.0.1"
50           :components
51           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
52         ((:file "package")))))
53(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-interpreted))))
54  (operate 'load-op :ansi-interpreted))
55(defmethod perform ((o test-op) (c (eql (find-system :ansi-interpreted))))
56  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
57     :compile-tests nil))
58
59;;; Test ABCL with the compiled ANSI tests
60(defsystem :ansi-compiled :version "1.0.1"
61           :components
62           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
63         ((:file "package")))))
64(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-compiled))))
65  (operate 'load-op :ansi-compiled))
66(defmethod perform ((o test-op) (c (eql (find-system :ansi-compiled))))
67  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
68     :compile-tests t))
69
70
71;;; Test ABCL with CL-BENCH
72(defsystem :cl-bench :components
73           ((:module cl-bench-package :pathname "../cl-bench/"
74                    :components ((:file "defpackage")))
75            (:module cl-bench-wrapper :pathname "test/lisp/cl-bench/"
76                     :depends-on (cl-bench-package) :components
77                     ((:file "wrapper")))))
78(defmethod perform :before ((o test-op) (c (eql (find-system :cl-bench))))
79  (operate 'load-op :cl-bench :force t))
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.