Changeset 11537 for trunk/abcl/abcl.asd


Ignore:
Timestamp:
01/04/09 12:14:40 (13 years ago)
Author:
Mark Evenson
Message:

build.xml's target 'abcl.test' invokes the GCL ANSI-TEST interpreted tests by default.

In order for these tests to work, you will need a sibling directory of
'abcl' called 'ansi-tests' which contains the GCL ANSI-TEST suite from
<svn://common-lisp.net/project/ansi-test/svn/trunk/ansi-tests>.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/abcl.asd

    r11530 r11537  
    1111  :version "0.2.0")
    1212
    13 (defmethod perform :after ((o load-op) (c (eql (find-system 'abcl))))
     13(defmethod perform :around ((o load-op) (c (eql (find-system 'abcl))))
     14  (call-next-method)
     15  (format t "DEBUG: load-op around :abcl.~%")
    1416  (asdf:oos 'asdf:load-op :test-abcl))
     17
     18(defmethod perform ((o test-op) (c (eql (find-system 'abcl))))
     19  (format t "DEBUG: test-op :abcl.~%")
     20  (asdf:oos 'asdf:load-op :test-abcl :force t)
     21  (asdf:oos 'asdf:test-op :ansi-test-compiled :force t))
    1522
    1623(defsystem :test-abcl
    1724  :documentation "A collection of test suites for ABCL."
    1825  :version "0.3"
    19   :components
     26  :depends-on (:ansi-test-compiled :ansi-test-interpreted))
     27
     28(defmethod perform :after ((o test-op) (c (eql (find-system 'test-abcl))))
     29  (asdf:oos 'asdf:load-op :ansi-test-interpreted :force t)
     30  (asdf:oos 'asdf:load-op :ansi-test-compiled :force t))
     31
     32(defsystem :ansi-test :version "0.1" :components
    2033     ((:module ansi-tests :pathname "test/lisp/ansi/"
    21          :documentation "GCL ANSI test suite"
     34         :documentation "GCL ANSI test suite."
    2235         :components
    2336        ((:file "package")))))
     37(defsystem :ansi-test-interpreted :version "0,1" :depends-on (ansi-test))
     38(defsystem :ansi-test-compiled :version "0.1" :depends-on (ansi-test))
    2439
    25 (defmethod perform ((o test-op) (c (eql (find-system 'abcl))))
    26   "Invoke tests with:  (asdf:oos 'asdf:test-op :test-abcl)."
    27   (funcall (intern (symbol-name 'run-ansi-tests)
    28        :abcl.tests.ansi-tests)))
     40(defmethod perform ((o test-op) (c (eql (find-system 'ansi-test-interpreted))))
     41  (funcall (intern (symbol-name 'run) :abcl.tests.ansi-tests)
     42     :compile-tests nil))
     43
     44(defmethod perform ((o test-op) (c (eql (find-system 'ansi-test-compiled))))
     45  (funcall (intern (symbol-name 'run) :abcl.tests.ansi-tests)
     46     :compile-tests t))
    2947
    3048;;; Works for: abcl, sbcl, clisp
Note: See TracChangeset for help on using the changeset viewer.