source: trunk/abcl/abcl.asd @ 13260

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

Test for ticket #142.

  • Property svn:keywords set to Id
File size: 4.7 KB
Line 
1;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
2;;; $Id: abcl.asd 13260 2011-04-03 16:02:44Z 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;;;
24;;; We guard with #+abcl for tests that other Lisps cannot load.  This
25;;; could be possibly be done at finer granularity in the files
26;;; themselves.
27(defsystem :abcl-test-lisp :version "1.2" :components
28     ((:module abcl-rt
29                     :pathname "test/lisp/abcl/" :serial t :components
30         ((:file "rt-package")
31                      (:file "rt")
32                      (:file "test-utilities")))
33      (:module package  :depends-on (abcl-rt)
34         :pathname "test/lisp/abcl/" :components
35         ((:file "package")))
36            (:module test :depends-on (package)
37         :pathname "test/lisp/abcl/" :components
38                     ((:file "utilities")
39                      (:file "compiler-tests")
40                      (:file "condition-tests")
41                      #+abcl
42                      (:file "class-file")
43                      #+abcl
44                      (:file "metaclass")
45                      #+abcl
46                      (:file "mop-tests-setup")
47                      #+abcl
48                      (:file "mop-tests" :depends-on ("mop-tests-setup"))
49                      (:file "file-system-tests")
50                      #+abcl
51                      (:file "jar-pathname" :depends-on
52                             ("utilities" "pathname-tests" "file-system-tests"))
53                      #+abcl
54                      (:file "url-pathname")
55                      (:file "math-tests"
56                             :depends-on ("compiler-tests"))
57                      (:file "misc-tests")
58                      (:file "latin1-tests")
59                      #+abcl
60                      (:file "bugs" :depends-on ("file-system-tests"))
61                      (:file "wild-pathnames" :depends-on ("file-system-tests"))
62                      #+abcl
63                      (:file "pathname-tests" :depends-on ("utilities"))))))
64
65(defmethod perform ((o test-op) (c (eql (find-system 'abcl-test-lisp))))
66   "Invoke tests with (asdf:oos 'asdf:test-op :abcl-test-lisp)."
67   (funcall (intern (symbol-name 'run) :abcl.test.lisp)))
68
69;;; Test ABCL with the interpreted ANSI tests
70(defsystem :ansi-interpreted :version "1.1"
71           :components
72           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
73         ((:file "package")
74                (:file "parse-ansi-errors" :depends-on ("package"))))))
75(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-interpreted))))
76  (operate 'load-op :ansi-interpreted))
77(defmethod perform ((o test-op) (c (eql (find-system :ansi-interpreted))))
78  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
79     :compile-tests nil))
80
81;;; Test ABCL with the compiled ANSI tests
82(defsystem :ansi-compiled :version "1.1"
83           :components
84           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
85         ((:file "package")
86                (:file "parse-ansi-errors" :depends-on ("package"))))))
87(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-compiled))))
88  (operate 'load-op :ansi-compiled))
89(defmethod perform ((o test-op) (c (eql (find-system :ansi-compiled))))
90  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
91     :compile-tests t))
92
93
94;;; Test ABCL with CL-BENCH
95(defsystem :cl-bench :components
96           ((:module cl-bench-package :pathname "../cl-bench/"
97                    :components ((:file "defpackage")))
98            (:module cl-bench-wrapper :pathname "test/lisp/cl-bench/"
99                     :depends-on (cl-bench-package) :components
100                     ((:file "wrapper")))))
101(defmethod perform :before ((o test-op) (c (eql (find-system :cl-bench))))
102  (operate 'load-op :cl-bench :force t))
103(defmethod perform ((o test-op) (c (eql (find-system :cl-bench))))
104  (funcall (intern (symbol-name 'run) :abcl.test.cl-bench)))
105 
106;;; Build ABCL from a Lisp.
107;;; aka the "Lisp-hosted build system"
108;;; Works for: abcl, sbcl, clisp, cmu, lispworks, allegro, openmcl
109(defsystem :build-abcl :components
110     ((:module build :pathname ""  :components
111         ((:file "build-abcl")
112          (:file "customizations" :depends-on ("build-abcl"))))))
113
114
115
Note: See TracBrowser for help on using the repository browser.