Include new files missing from previous commit.

parent adec2d9c
(require 'asdf)
(handler-case
(progn
(asdf:oos 'asdf:load-op :abcl :force t)
(asdf:oos 'asdf:test-op :abcl-test-lisp :force t))
(t (e) (warn "Exiting after catching ~A" e)))
(ext:exit)
(defpackage #:abcl.test.lisp
(:use #:cl #:abcl-rt)
(:export #:run))
(in-package #:abcl.test.lisp)
(defparameter *abcl-lisp-test-pathname* nil)
(eval-when (:load-toplevel)
(setf *abcl-lisp-test-pathname* *load-truename*))
(defun run ()
(progv
'(*default-pathname-defaults*)
`(,(merge-pathnames *abcl-lisp-test-pathname* *default-pathname-defaults*))
(rem-all-tests)
(load "test-utilities.lisp")
(load "compiler-tests.lisp")
(load "condition-tests.lisp")
(load "file-system-tests.lisp")
(load "java-tests.lisp")
(load "math-tests.lisp")
(load "misc-tests.lisp")
(do-tests)))
\ No newline at end of file
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