source: trunk/abcl/abcl.asd @ 13057

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

Tests for the implementation of URI encoding.

Restructured test package by factoring commonly used routines into the
newly created 'utilities.lisp'.

Start marking tests that are known failures.

  • Property svn:keywords set to Id
File size: 4.6 KB
Line 
1;;; -*- Mode: LISP; Syntax: COMMON-LISP -*-
2;;; $Id: abcl.asd 13057 2010-11-27 11:03:58Z 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                      (:file "misc-tests")
57                      (:file "latin1-tests")
58                      #+abcl
59                      (:file "bugs" :depends-on ("file-system-tests"))
60                      (:file "wild-pathnames" :depends-on ("file-system-tests"))
61                      #+abcl
62                      (:file "pathname-tests" :depends-on ("utilities"))))))
63
64(defmethod perform ((o test-op) (c (eql (find-system 'abcl-test-lisp))))
65   "Invoke tests with (asdf:oos 'asdf:test-op :abcl-test-lisp)."
66   (funcall (intern (symbol-name 'run) :abcl.test.lisp)))
67
68;;; Test ABCL with the interpreted ANSI tests
69(defsystem :ansi-interpreted :version "1.1"
70           :components
71           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
72         ((:file "package")
73                (:file "parse-ansi-errors" :depends-on ("package"))))))
74(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-interpreted))))
75  (operate 'load-op :ansi-interpreted))
76(defmethod perform ((o test-op) (c (eql (find-system :ansi-interpreted))))
77  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
78     :compile-tests nil))
79
80;;; Test ABCL with the compiled ANSI tests
81(defsystem :ansi-compiled :version "1.1"
82           :components
83           ((:module ansi-tests :pathname "test/lisp/ansi/" :components
84         ((:file "package")
85                (:file "parse-ansi-errors" :depends-on ("package"))))))
86(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-compiled))))
87  (operate 'load-op :ansi-compiled))
88(defmethod perform ((o test-op) (c (eql (find-system :ansi-compiled))))
89  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
90     :compile-tests t))
91
92
93;;; Test ABCL with CL-BENCH
94(defsystem :cl-bench :components
95           ((:module cl-bench-package :pathname "../cl-bench/"
96                    :components ((:file "defpackage")))
97            (:module cl-bench-wrapper :pathname "test/lisp/cl-bench/"
98                     :depends-on (cl-bench-package) :components
99                     ((:file "wrapper")))))
100(defmethod perform :before ((o test-op) (c (eql (find-system :cl-bench))))
101  (operate 'load-op :cl-bench :force t))
102(defmethod perform ((o test-op) (c (eql (find-system :cl-bench))))
103  (funcall (intern (symbol-name 'run) :abcl.test.cl-bench)))
104 
105;;; Build ABCL from a Lisp.
106;;; aka the "Lisp-hosted build system"
107;;; Works for: abcl, sbcl, clisp, cmu, lispworks, allegro, openmcl
108(defsystem :build-abcl :components
109     ((:module build :pathname ""  :components
110         ((:file "build-abcl")
111          (:file "customizations" :depends-on ("build-abcl"))))))
112
113
114
Note: See TracBrowser for help on using the repository browser.