source: branches/0.20.x/abcl/test/lisp/ansi/package.lisp

(defpackage :abcl.test.ansi
  (:use :cl :asdf)
  (:nicknames "ansi-tests" "abcl-ansi-tests" "gcl-ansi")
  (:export :run :report :parse))

(in-package :abcl.test.ansi)

(defparameter *ansi-tests-master-source-location*
  "<svn://common-lisp.net/project/ansi-test/svn/trunk/ansi-tests>")  

(defparameter *ansi-tests-directory*
  (if (find :asdf2 *features*)
      (asdf:system-relative-pathname 
       :ansi-compiled "../ansi-tests/")
      (merge-pathnames
       #p"../ansi-tests/"
       (asdf:component-pathname (asdf:find-system :ansi-compiled)))))

(defun run (&key (compile-tests nil)) 
  "Run the ANSI-TESTS suite, to be found in *ANSI-TESTS-DIRECTORY*.
Possibly running the compiled version of the tests if COMPILE-TESTS is non-NIL."
  (let* ((ansi-tests-directory 
    *ansi-tests-directory*)
   (boot-file 
    (if compile-tests "compileit.lsp" "doit.lsp"))
   (message 
    (format nil "Invocation of '~A' in ~A" boot-file ansi-tests-directory)))
    (handler-case 
  (progv 
      '(*default-pathname-defaults*) 
      `(,(merge-pathnames *ansi-tests-directory* *default-pathname-defaults*))
    (format t "--->  ~A begins.~%" message)
    (format t "Invoking ABCL hosted on ~A ~A.~%" 
      (software-type) (software-version))
    (if (find :unix *features*)
        (run-shell-command "cd ~A; make clean" ansi-tests-directory)
        ;; XXX -- what to invoke on win32?  Untested:
        (run-shell-command 
         (format nil "~A~%~A"
           (format nil "cd ~A" *ansi-tests-directory*)
           (format nil "erase *.cls *.abcl"))))
    (time (load boot-file))
    (format t "<--- ~A ends.~%" message))
      (file-error (e)
    (error 
     (format nil
       "Failed to find the GCL ANSI tests in '~A'.
Because ~A.
To resolve, please locally obtain ~A, 
and set the value of *ANSI-TESTS-DIRECTORY* to that location."
     ansi-tests-directory e 
     *ansi-tests-master-source-location*))))))