ant.lisp 650 Bytes
Newer Older
1 2 3
(in-package :abcl/build/t)

(prove:plan 1)
4 5 6
(prove:ok
 (build-abcl:ant/install)
 "Testing ABCL-specific Ant installation of Ant into XDG hierarchy…")
7

8 9 10 11 12 13 14 15
(if (not (ignore-errors (asdf:find-system :abcl)))
    (prove:diag "Unable to find 'abcl.asd'.~&Enable ASDF to find 'abcl.asd' by adding symlink to ~~/common-lisp/ to ABCL source directory.")
    (let ((ant-file (asdf:system-relative-pathname :abcl "build.xml")))
      (prove:plan 1)
      (prove:ok
       (abcl-build:ant/call ant-file "abcl.diagnostic")
       (format nil "Testing invocation of private Ant on main ABCL build artifact at ~&~2,t~a…" ant-file))))
            
16
(prove:finalize)