source: trunk/abcl/abcl.asd @ 13010

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

Test for working :WILD-INFERIORS.

Added tests in 'test/lisp/abcl/wild-inferiors.lisp', for which Ville's
implementation passes.

  • Property svn:keywords set to Id
File size: 4.5 KB
RevLine 
[11530]1;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
2;;; $Id: abcl.asd 13010 2010-11-07 12:10:45Z mevenson $
3
4(require 'asdf)
5(defpackage :abcl-asdf
6  (:use :cl :asdf))
7(in-package :abcl-asdf)
8
[11556]9;;; Wrapper for all ABCL ASDF definitions.
[12338]10(defsystem :abcl :version "0.5.0")
[11530]11
[12141]12(defmethod perform :after ((o load-op) (c (eql (find-system :abcl))))
[12338]13  (operate 'load-op :abcl-test-lisp :force t)
[12335]14  (operate 'load-op :cl-bench :force t)
[12141]15  (operate 'load-op :ansi-compiled :force t)
16  (operate 'load-op :ansi-interpreted :force t))
[11537]17
[12338]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))
[12301]21
[12338]22;;; Test ABCL with the Lisp unit tests collected in "test/lisp/abcl"
[13008]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.
[12301]27(defsystem :abcl-test-lisp :version "1.1" :components
[12402]28     ((:module abcl-rt
29                     :pathname "test/lisp/abcl/" :serial t :components
30         ((:file "rt-package") (:file "rt")
31                      (:file "test-utilities")))
[12300]32      (:module package  :depends-on (abcl-rt)
[11605]33         :pathname "test/lisp/abcl/" :components
[12402]34         ((:file "package")))
35            (:module test :depends-on (package)
36         :pathname "test/lisp/abcl/" :components
37                     ((:file "compiler-tests")
38                      (:file "condition-tests")
[13008]39                      #+abcl
[12918]40                      (:file "class-file")
[13008]41                      #+abcl
[12658]42                      (:file "metaclass")
[12899]43                      #+abcl
[12402]44                      (:file "mop-tests-setup")
[12899]45                      #+abcl
[12402]46                      (:file "mop-tests" :depends-on ("mop-tests-setup"))
47                      (:file "file-system-tests")
[12899]48                      #+abcl
49                      (:file "jar-pathname" :depends-on
50                             ("pathname-tests"))
51                      #+abcl
[12610]52                      (:file "url-pathname")
[12402]53                      (:file "math-tests")
54                      (:file "misc-tests")
[12902]55                      (:file "latin1-tests")
[13008]56                      #+abcl
[12899]57                      (:file "bugs" :depends-on ("file-system-tests"))
[13010]58                      (:file "wild-pathnames" :depends-on ("file-system-tests"))
[13008]59                      #+abcl
[12402]60                      (:file "pathname-tests")))))
61
[11599]62(defmethod perform ((o test-op) (c (eql (find-system 'abcl-test-lisp))))
[12301]63   "Invoke tests with (asdf:oos 'asdf:test-op :abcl-test-lisp)."
[12402]64   (funcall (intern (symbol-name 'run) :abcl.test.lisp)))
[12335]65
[12338]66;;; Test ABCL with the interpreted ANSI tests
[12509]67(defsystem :ansi-interpreted :version "1.1"
[12338]68           :components
69           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
[12509]70         ((:file "package")
71                (:file "parse-ansi-errors" :depends-on ("package"))))))
[12338]72(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-interpreted))))
73  (operate 'load-op :ansi-interpreted))
74(defmethod perform ((o test-op) (c (eql (find-system :ansi-interpreted))))
75  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
76     :compile-tests nil))
77
78;;; Test ABCL with the compiled ANSI tests
[12509]79(defsystem :ansi-compiled :version "1.1"
[12338]80           :components
81           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
[12509]82         ((:file "package")
83                (:file "parse-ansi-errors" :depends-on ("package"))))))
[12338]84(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-compiled))))
85  (operate 'load-op :ansi-compiled))
86(defmethod perform ((o test-op) (c (eql (find-system :ansi-compiled))))
87  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
88     :compile-tests t))
89
90
91;;; Test ABCL with CL-BENCH
[12335]92(defsystem :cl-bench :components
[12337]93           ((:module cl-bench-package :pathname "../cl-bench/"
94                    :components ((:file "defpackage")))
95            (:module cl-bench-wrapper :pathname "test/lisp/cl-bench/"
96                     :depends-on (cl-bench-package) :components
97                     ((:file "wrapper")))))
[12335]98(defmethod perform :before ((o test-op) (c (eql (find-system :cl-bench))))
99  (operate 'load-op :cl-bench :force t))
100(defmethod perform ((o test-op) (c (eql (find-system :cl-bench))))
101  (funcall (intern (symbol-name 'run) :abcl.test.cl-bench)))
[11599]102 
[11556]103;;; Build ABCL from a Lisp.
[11599]104;;; aka the "Lisp-hosted build system"
[11556]105;;; Works for: abcl, sbcl, clisp, cmu, lispworks, allegro, openmcl
[11599]106(defsystem :build-abcl :components
[11530]107     ((:module build :pathname ""  :components
108         ((:file "build-abcl")
109          (:file "customizations" :depends-on ("build-abcl"))))))
110
111
112
Note: See TracBrowser for help on using the repository browser.