Changeset 11576

Timestamp:

01/23/09 16:07:13 (15 years ago)

Author:

Mark Evenson

Message:

Move internal ABCL tests to proper hierarchy.

Loading via ASDF not finished.

Location:

trunk/abcl

Files:

• abcl.asd (modified) (1 diff)
• src/org/armedbear/lisp/tests (deleted)
• test/lisp/abcl/compiler-tests.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/compiler-tests.lisp)
• test/lisp/abcl/condition-tests.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/condition-tests.lisp)
• test/lisp/abcl/file-system-tests.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/file-system-tests.lisp)
• test/lisp/abcl/java-tests.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/java-tests.lisp)
• test/lisp/abcl/jl-config.cl (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/jl-config.cl)
• test/lisp/abcl/math-tests.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/math-tests.lisp)
• test/lisp/abcl/misc-tests.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/misc-tests.lisp)
• test/lisp/abcl/pathname-tests.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/pathname-tests.lisp)
• test/lisp/abcl/rt-package.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/rt-package.lisp)
• test/lisp/abcl/rt.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/rt.lisp)
• test/lisp/abcl/test-utilities.lisp (copied) (copied from trunk/abcl/src/org/armedbear/lisp/tests/test-utilities.lisp)

trunk/abcl/abcl.asd

@@ -36 +36 @@
 (defsystem :ansi-test-compiled :version "0.1" :depends-on (ansi-test))
 
+
+(defsystem :abcl-tests
+  :version "1.0"
+  :components
+    ((:module rt :serial t  :pathname "test/lisp/abcl/" :components
+        ((:file "rt-package") (:file "rt") (:file "test-utilities")))
+     (:module tests :depends-on (rt)
+        :pathname "test/lisp/abcl/" :components
+        ((:file "compiler-tests") 
+         (:file "condition-tests")
+         (:file "file-system-tests") 
+#+nil        (:file "math-tests")
+         (:file "java-tests")
+         (:file "misc-tests")
+         (:file "pathname-tests")))))
+
+(defmethod perform ((o test-op) (c (eql (find-system 'abcl-tests))))
+  "Invoke tests with:  (asdf:operate 'asdf:test-op :abcl-tests)."
+  (funcall (intern (symbol-name 'do-tests) :test)))
+
 (defmethod perform ((o test-op) (c (eql (find-system 'ansi-test-interpreted))))
   (funcall (intern (symbol-name 'run) :abcl.tests.ansi-tests)