Commit 5cc68fba authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Test tweaks.

parent 660e42c8
......@@ -105,12 +105,14 @@ test-upgrade:
echo "Testing upgrade from ASDF $${tag} using method $$x" ; \
git show $${tag}:asdf.lisp > tmp/asdf-$${tag}.lisp ; \
case ${lisp}:$$tag:$$x in \
ecl:1.*|ecl:2.00*|ecl:2.01[0-6]:*|ecl:2.20:*) \
: Skip, because of various ASDF issues ;; \
ccl:1.*|ccl:2.0[01]*) \
: Skip, because ccl broke old asdf ;; \
cmucl:1.*|cmucl:2.00*|cmucl:2.01[0-4]:*) \
: Skip, CMUCL has problems before 2.014.7 due to source-registry upgrade ;; \
ecl:1.*|ecl:2.0[01]*|ecl:2.20:*) \
: Skip, because of various ASDF issues ;; \
mkcl:1.*|mkcl:2.0[01]*|mkcl:2.2[0-3]:*) \
: Skip, because MKCL is only supported starting with 2.24 ;; \
*) (set -x ; \
case $$x in \
load-system) l="$$lo (asdf-test::load-asdf-system)" ;; \
......
......@@ -152,15 +152,17 @@ is bound, write a message and exit on an error. If
(defun register-directory (dir)
(pushnew dir (symbol-value (find-symbol (string :*central-registry*) :asdf))))
(defun asdf-load (x)
(defun asdf-load (x &key verbose)
(let ((xoos (find-symbol (string :oos) :asdf))
(xload-op (find-symbol (string :load-op) :asdf)))
(funcall xoos xload-op x :verbose t)))
(xload-op (find-symbol (string :load-op) :asdf))
(*load-print* verbose)
(*load-verbose* verbose))
(funcall xoos xload-op x :verbose verbose)))
(defun load-asdf-system ()
(defun load-asdf-system (&rest keys)
(quietly
(register-directory *asdf-directory*)
(asdf-load :asdf)))
(apply 'asdf-load :asdf keys)))
(defun testing-asdf (thunk)
(quit-on-error
......
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