Changeset 13808
- Timestamp:
- 01/25/12 13:57:43 (11 years ago)
- Location:
- trunk/abcl/contrib/abcl-asdf
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd
r13807 r13808 21 21 (defsystem :abcl-asdf-test 22 22 :author "Mark Evenson" 23 :depends-on (abcl )23 :depends-on (abcl-asdf) 24 24 :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"))))) 28 29 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 30 39 (defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf)))) 31 40 "Invoke tests with (asdf:test-system 'abcl-asdf)." … … 34 43 (asdf:load-system 'abcl-asdf-test) 35 44 (funcall (intern (symbol-name 'run) 'abcl-asdf-test))) 36 45 |# -
trunk/abcl/contrib/abcl-asdf/packages.lisp
r13807 r13808 28 28 29 29 (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 31 31 (:export #:run)) -
trunk/abcl/contrib/abcl-asdf/tests/example.lisp
r13804 r13808 1 1 (in-package :abcl-asdf-test) 2 2 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) 9 10 10 11 -
trunk/abcl/contrib/abcl-asdf/tests/maven.lisp
r13804 r13808 10 10 (in-package :abcl-asdf-test) 11 11 12 (deftest LOG4J.1 12 ;;;;(deftest LOG4J.1 13 (defun test-LOG4J.1 () 13 14 (let ((result (abcl-asdf:resolve-dependencies "log4j" "log4j"))) 14 15 (and result 15 16 (format *standard-output* "~&~A~%" result) 16 (type-p result 'cons))) 17 t)17 (type-p result 'cons)))) 18 ;;; t) 18 19 19 20 20 (deftest ABCL.1 21 ;;;;(deftest ABCL.1 22 (defun test-ABCL.1 () 21 23 (let ((result (abcl-asdf:resolve-dependencies "org.armedbear.lisp" "abcl"))) 22 24 (and result 23 25 (format *standard-output* "~&~A~%" result) 24 (type-p result 'cons))) 25 t)26 (type-p result 'cons)))) 27 ;;; t) 26 28 27 29
Note: See TracChangeset
for help on using the changeset viewer.