Changeset 11537


Ignore:
Timestamp:
01/04/09 12:14:40 (12 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>.

Location:
trunk/abcl
Files:
6 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
  • trunk/abcl/build.xml

    r11535 r11537  
    463463  <arg value="--noinit"/>
    464464  <arg value="--load"/>
    465   <arg value="scripts/ansi-tests-interpreted.lisp "/>
     465  <arg value="${basedir}/scripts/ansi-tests-interpreted.lisp "/>
    466466      </java>
    467467    </target>
     
    473473  <arg value="--noinit"/>
    474474  <arg value="--load"/>
    475   <arg value="scripts/ansi-tests-compiled.lisp "/>
     475  <arg value="${basedir}/scripts/ansi-tests-compiled.lisp "/>
    476476      </java>
    477477    </target>
  • trunk/abcl/nbproject/project.properties

    r11529 r11537  
    2222includes=org/armedbear/lisp/**/*.java,org/armedbear/lisp/**/*.lisp
    2323jar.compress=true
     24javac.classpath=
    2425# Space-separated list of extra javac options
    2526javac.compilerargs=
  • trunk/abcl/scripts/ansi-tests-compiled.lisp

    r11530 r11537  
    11(require 'asdf)
    22(asdf:oos 'asdf:load-op :abcl)
    3 (abcl.tests.ansi-tests:run :compile-tests t)
     3(asdf:oos 'asdf:load-op :test-abcl)
     4(asdf:oos 'asdf:test-op :ansi-test-compiled :force t)
    45(ext:exit)
  • trunk/abcl/scripts/ansi-tests-interpreted.lisp

    r11530 r11537  
    11(require 'asdf)
    22(asdf:oos 'asdf:load-op :abcl)
    3 (asdf:oos 'asdf:test-op :abcl :force t)
     3(asdf:oos 'asdf:load-op :test-abcl)
     4(asdf:oos 'asdf:test-op :ansi-test-interpreted :force t)
    45(ext:exit)
  • trunk/abcl/test/lisp/ansi/package.lisp

    r11530 r11537  
    1414   (asdf:component-pathname (asdf:find-system :abcl))))
    1515
    16 (defun run (&optional (compile-tests nil))
     16(defun run (&key (compile-tests nil))
    1717  "Run the ANSI-TESTS suite, found in *ANSI-TESTS-DIRECTORY*.
    1818Possibly running the compiled version of the tests if COMPILE-TESTS is non-NIL."
Note: See TracChangeset for help on using the changeset viewer.