parent 7ea92116
......@@ -9,8 +9,8 @@ Note: for users of SLIME, this will appear in the associated *inferior-lisp* bu
(require :log4j)
(#"configure" 'log4j.BasicConfigurator)
(#"info" (#"getRootLogger" 'log4j.Logger) "Kilroy wuz here."))
(#"info" (#"getRootLogger" 'log4j.Logger) "Kilroy wuz here.")
(pass "no error occured while logging")
(abcl-asdf:resolve-dependencies "log4j" "log4j")
(in-package :abcl-asdf/test)
(plan 4)
(diag "Testing local bootable Maven version.")
(diag (format nil
"~{~&~a~}" (multiple-value-list (ensure-mvn-version)))))
(diag "Testing local bootable Maven version.")
(diag (format nil "~{~&~a~}" (multiple-value-list (ensure-mvn-version))))
(let ((result (abcl-asdf:resolve-dependencies "log4j" "log4j")))
(and result
(diag (format nil"~&~A~%" result))
(type-p result 'cons))))
(abcl-asdf:resolve "org.abcl/abcl"))
(is-type (abcl-asdf:resolve-dependencies "log4j" "log4j") 'string)
(is-type (abcl-asdf:resolve "org.abcl/abcl") 'string)
(in-package :cl-user)
(prove:plan 3)
(let ((deps (resolve-multiple-maven-dependencies
(let ((deps (abcl-asdf:resolve-multiple-maven-dependencies
......@@ -10,9 +11,8 @@
(prove:ok (= (length deps) 87))
(prove:is (length deps) 87)
(prove:ok (not (find "owlapi-osgidistribution" deps :test 'search)))
(prove:ok (not (find "protege" deps :test 'search))))
(in-package :abcl-asdf/test)
(prove:plan 1)
(let ((result (abcl-asdf:resolve-dependencies "org.armedbear.lisp" "abcl")))
(and result
(format *standard-output* "~&~A~%" result)
(type-p result 'cons)))
(abcl-asdf:resolve-dependencies "org.armedbear.lisp" "abcl")
"Resolving ABCL from distributed Maven POM graph.")
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment