Changeset 13808

Timestamp:

01/25/12 13:57:43 (9 years ago)

Author:

Mark Evenson

Message:

abcl-asdf: remove all the broken test framework references.

The system defintion ABCL-ASDF-TEST now loads again. Use
ABCL-ASDF-TEST:RUN as the executable symbol for manual tests.

Location:

trunk/abcl/contrib/abcl-asdf

Files:

• abcl-asdf.asd (modified) (2 diffs)
• packages.lisp (modified) (1 diff)
• tests/example.lisp (modified) (1 diff)
• tests/maven.lisp (modified) (1 diff)

trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd

@@ -21 +21 @@
 (defsystem :abcl-asdf-test
   :author "Mark Evenson"
-  :depends-on (abcl)
+  :depends-on (abcl-asdf)
   :components
-  ((:module tests :components
-            (#+nil (:file "example")
-                   (:file "maven")))))
+  ((:module tests :serial t :components
+            ((:file "example")
+             (:file "maven")
+             (:file "test")))))
 
-#+nil FIXME
+#|
+(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf-test))))
+  (funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
+
+(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf))))
+  (asdf:load-system :abcl-asdf-test))
+  (asdf:test-system :abcl-asdf-test))
+
+ ;;; FIXME
 (defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf))))
    "Invoke tests with (asdf:test-system 'abcl-asdf)."
@@ -34 +43 @@
    (asdf:load-system 'abcl-asdf-test)
    (funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
-
+|#

trunk/abcl/contrib/abcl-asdf/packages.lisp

@@ -28 +28 @@
 
 (defpackage #:abcl-asdf-test
-  (:use :cl #+nil :abcl-test-lisp) ;;; FIXME
+  (:use :cl #+nil :abcl-test-lisp) ;;; FIXME include some sort of test framework
   (:export #:run))

trunk/abcl/contrib/abcl-asdf/tests/example.lisp

@@ -1 +1 @@
 (in-package :abcl-asdf-test)
 
-(deftest LOG4J.2
-    (progn
-      (asdf:load-system "log4j")
-      (let ((logger (#"getLogger" 'log4j.Logger (symbol-name (gensym)))))
-        (#"trace" logger "Kilroy wuz here.")))
-  t)
+;;;(deftest LOG4J.2
+;;;    (progn
+(defun test-LOG4J.2 ()
+  (asdf:load-system "log4j")
+  (let ((logger (#"getLogger" 'log4j.Logger (symbol-name (gensym)))))
+    (#"trace" logger "Kilroy wuz here.")))
+;;;  t)
 
 

trunk/abcl/contrib/abcl-asdf/tests/maven.lisp

@@ -10 +10 @@
 (in-package :abcl-asdf-test)
 
-(deftest LOG4J.1
+;;;;(deftest LOG4J.1
+(defun test-LOG4J.1 ()
     (let ((result (abcl-asdf:resolve-dependencies "log4j" "log4j")))
       (and result
            (format *standard-output* "~&~A~%" result)
-           (type-p result 'cons)))
-  t)
+           (type-p result 'cons))))
+;;;  t)
 
 
-(deftest ABCL.1
+;;;;(deftest ABCL.1
+(defun test-ABCL.1 ()
     (let ((result (abcl-asdf:resolve-dependencies "org.armedbear.lisp" "abcl")))
       (and result
            (format *standard-output* "~&~A~%" result)
-           (type-p result 'cons)))
-  t)
+           (type-p result 'cons))))
+;;;  t)