source: trunk/abcl/test/lisp/ansi/package.lisp @ 11596

Last change on this file since 11596 was 11596, checked in by Mark Evenson, 13 years ago

Invocation of ASDF tests from Lisp via instructions at top of 'abcl.asd' works.

Optimized 'build.xml' run time for typical (repeated) usage scenarios:

o downloading of 'junit.jar' based on presence on filesystem.
o rebuilding of 'abcl.jar' based on explicit check via Ant

Removed automatic execution of ABCL-TESTS based on load.

Ant 'abcl.test' target not working in all situations. Needs further
debugging. Workaround: use the Lisp-based ASDF test entry point for now.

ANSI-TESTS-COMPILED ANSI-TESTS-INTERPRETED need a sibling directory
containing the GCL ANSI tests from
<svn://common-lisp.net/project/ansi-test/svn/trunk/ansi-tests>. They
complain semi-intellibly if not found.

  • Property svn:eol-style set to native
File size: 1.8 KB
Line 
1(defpackage :abcl.tests.ansi-tests
2  (:use :cl :asdf)
3  (:nicknames "ansi-tests" "abcl-ansi-tests")
4  (:export :run))
5
6(in-package :abcl.tests.ansi-tests)
7
8(defparameter *ansi-tests-master-source-location*
9  "<svn://common-lisp.net/project/ansi-test/svn/trunk/ansi-tests>") 
10
11(defparameter *ansi-tests-directory*
12  (merge-pathnames
13   #p"../ansi-tests/"
14   (asdf:component-pathname (asdf:find-system :abcl))))
15
16(defun run (&key (compile-tests nil)) 
17  "Run the ANSI-TESTS suite, found in *ANSI-TESTS-DIRECTORY*.
18Possibly running the compiled version of the tests if COMPILE-TESTS is non-NIL."
19  (let* ((original-pathname-defaults *default-pathname-defaults*)
20  (ansi-tests-directory *ansi-tests-directory*)
21  (boot-file (if compile-tests "compileit.lsp" "doit.lsp"))
22  (message (format nil "Invocation of '~A' in ~A"
23             boot-file ansi-tests-directory)))
24    (handler-case 
25  (progn
26    (setf  *default-pathname-defaults*
27     (merge-pathnames ansi-tests-directory 
28          *default-pathname-defaults*))
29    (format t "--->  ~A begins.~%" message)
30    (format t "Invoking ABCL hosted on ~A ~A.~%" 
31      (software-type) (software-version))
32    (if (find :unix *features*)
33        (run-shell-command "cd ~A; make clean" ansi-tests-directory)
34        ;; XXX -- what to invoke on win32?  Please verify
35        (run-shell-command 
36         (format nil ("~A~%~A")
37           (format nil "cd ~A" *ansi-tests-directory*)
38           (format nil "erase *.cls *.abcl"))))
39    (time (load boot-file))
40    (format t "<--- ~A ends.~%" message))
41      (file-error (e)
42    (error 
43     (format nil
44       "Failed to find the GCL ANSI tests in '~A'.
45Because ~A.
46To resolve, please locally obtain ~A,
47and set the value of *ANSI-TESTS-DIRECTORY* to that location."
48     ansi-tests-directory e 
49     *ansi-tests-master-source-location*))))
50    (setf *default-pathname-defaults*
51    original-pathname-defaults)))
52       
53       
54
Note: See TracBrowser for help on using the repository browser.