Changeset 13808


Ignore:
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:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd

    r13807 r13808  
    2121(defsystem :abcl-asdf-test
    2222  :author "Mark Evenson"
    23   :depends-on (abcl)
     23  :depends-on (abcl-asdf)
    2424  :components
    25   ((:module tests :components
    26             (#+nil (:file "example")
    27                    (:file "maven")))))
     25  ((:module tests :serial t :components
     26            ((:file "example")
     27             (:file "maven")
     28             (:file "test")))))
    2829
    29 #+nil FIXME
     30#|
     31(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf-test))))
     32  (funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
     33
     34(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf))))
     35  (asdf:load-system :abcl-asdf-test))
     36  (asdf:test-system :abcl-asdf-test))
     37
     38 ;;; FIXME
    3039(defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf))))
    3140   "Invoke tests with (asdf:test-system 'abcl-asdf)."
     
    3443   (asdf:load-system 'abcl-asdf-test)
    3544   (funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
    36 
     45|#
  • trunk/abcl/contrib/abcl-asdf/packages.lisp

    r13807 r13808  
    2828
    2929(defpackage #:abcl-asdf-test
    30   (:use :cl #+nil :abcl-test-lisp) ;;; FIXME
     30  (:use :cl #+nil :abcl-test-lisp) ;;; FIXME include some sort of test framework
    3131  (:export #:run))
  • trunk/abcl/contrib/abcl-asdf/tests/example.lisp

    r13804 r13808  
    11(in-package :abcl-asdf-test)
    22
    3 (deftest LOG4J.2
    4     (progn
    5       (asdf:load-system "log4j")
    6       (let ((logger (#"getLogger" 'log4j.Logger (symbol-name (gensym)))))
    7         (#"trace" logger "Kilroy wuz here.")))
    8   t)
     3;;;(deftest LOG4J.2
     4;;;    (progn
     5(defun test-LOG4J.2 ()
     6  (asdf:load-system "log4j")
     7  (let ((logger (#"getLogger" 'log4j.Logger (symbol-name (gensym)))))
     8    (#"trace" logger "Kilroy wuz here.")))
     9;;;  t)
    910
    1011
  • trunk/abcl/contrib/abcl-asdf/tests/maven.lisp

    r13804 r13808  
    1010(in-package :abcl-asdf-test)
    1111
    12 (deftest LOG4J.1
     12;;;;(deftest LOG4J.1
     13(defun test-LOG4J.1 ()
    1314    (let ((result (abcl-asdf:resolve-dependencies "log4j" "log4j")))
    1415      (and result
    1516           (format *standard-output* "~&~A~%" result)
    16            (type-p result 'cons)))
    17   t)
     17           (type-p result 'cons))))
     18;;;  t)
    1819
    1920
    20 (deftest ABCL.1
     21;;;;(deftest ABCL.1
     22(defun test-ABCL.1 ()
    2123    (let ((result (abcl-asdf:resolve-dependencies "org.armedbear.lisp" "abcl")))
    2224      (and result
    2325           (format *standard-output* "~&~A~%" result)
    24            (type-p result 'cons)))
    25   t)
     26           (type-p result 'cons))))
     27;;;  t)
    2628
    2729
Note: See TracChangeset for help on using the changeset viewer.