Changeset 13261


Ignore:
Timestamp:
04/04/11 08:41:43 (11 years ago)
Author:
Mark Evenson
Message:

Only invoke ABCL internal Lisp tests by default.

Housecleaning in ASDF defintion removing uncessary ABCL-ASDF pacakge.
Move to the more friendly ASDF2 invocations.

Normalize ASDF-TEST-LISP convention to "hanging keyword".

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/abcl.asd

    r13260 r13261  
    33
    44(require 'asdf)
    5 (defpackage :abcl-asdf
    6   (:use :cl :asdf))
    7 (in-package :abcl-asdf)
     5(in-package :asdf)
    86
    97;;; 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))
     8(defsystem :abcl :version "0.6.0")
    179
    1810;;;  Run via (asdf:operate 'asdf:test-op :abcl :force t)
    1911(defmethod perform ((o test-op) (c (eql (find-system :abcl))))
    20   (operate 'test-op :abcl-tests :force t))
     12  (load-system (find-system :abcl-test-lisp))
     13  (operate 'test-op :abcl-test-lisp))
    2114
    2215;;; Test ABCL with the Lisp unit tests collected in "test/lisp/abcl"
     
    4639                      (:file "mop-tests-setup")
    4740                      #+abcl
    48                       (:file "mop-tests" :depends-on ("mop-tests-setup"))
     41                      (:file "mop-tests" :depends-on
     42                             ("mop-tests-setup"))
    4943                      (:file "file-system-tests")
    5044                      #+abcl
    51                       (:file "jar-pathname" :depends-on
     45                      (:file "jar-pathname" :depends-on 
    5246                             ("utilities" "pathname-tests" "file-system-tests"))
    5347                      #+abcl
    5448                      (:file "url-pathname")
    55                       (:file "math-tests"
    56                              :depends-on ("compiler-tests"))
     49                      (:file "math-tests" :depends-on
     50                             ("compiler-tests"))
    5751                      (:file "misc-tests")
    5852                      (:file "latin1-tests")
    5953                      #+abcl
    60                       (:file "bugs" :depends-on ("file-system-tests"))
    61                       (:file "wild-pathnames" :depends-on ("file-system-tests"))
     54                      (:file "bugs" :depends-on
     55                             ("file-system-tests"))
     56                      (:file "wild-pathnames" :depends-on
     57                             ("file-system-tests"))
    6258                      #+abcl
    63                       (:file "pathname-tests" :depends-on ("utilities"))))))
     59                      (:file "pathname-tests" :depends-on
     60                             ("utilities"))))))
    6461
    6562(defmethod perform ((o test-op) (c (eql (find-system 'abcl-test-lisp))))
     
    7471                (:file "parse-ansi-errors" :depends-on ("package"))))))
    7572(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-interpreted))))
    76   (operate 'load-op :ansi-interpreted))
     73  (load-system :ansi-interpreted))
    7774(defmethod perform ((o test-op) (c (eql (find-system :ansi-interpreted))))
    7875  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
     
    8683                (:file "parse-ansi-errors" :depends-on ("package"))))))
    8784(defmethod perform :before ((o test-op) (c (eql (find-system :ansi-compiled))))
    88   (operate 'load-op :ansi-compiled))
     85  (load-system :ansi-compiled))
    8986(defmethod perform ((o test-op) (c (eql (find-system :ansi-compiled))))
    9087  (funcall (intern (symbol-name 'run) :abcl.test.ansi)
    9188     :compile-tests t))
    92 
    9389
    9490;;; Test ABCL with CL-BENCH
     
    10096                     ((:file "wrapper")))))
    10197(defmethod perform :before ((o test-op) (c (eql (find-system :cl-bench))))
    102   (operate 'load-op :cl-bench :force t))
     98  (load-system :cl-bench))
    10399(defmethod perform ((o test-op) (c (eql (find-system :cl-bench))))
    104100  (funcall (intern (symbol-name 'run) :abcl.test.cl-bench)))
Note: See TracChangeset for help on using the changeset viewer.