diff --git a/test/script-support.lisp b/test/script-support.lisp index 936055d7db815d585b11770d42d828887c9efb80..e2b13096ce0e1125254f3709fdb8ea92742c54b3 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -687,6 +687,10 @@ is bound, write a message and exit on an error. If (format t "CR ~S~%" (symbol-value (asym :*central-registry*))) (format t "loading test-module-depend~%") (acall :oos (asym :load-op) :test-module-depend) + (assert-equal (asymval :*f2c* :test-package) 1) + (format t "loading test-module-depend again -- shouldn't rebuild anything~%") + (acall :oos (asym :load-op) :test-module-depend) + (assert-equal (asymval :*f2c* :test-package) 1) (format t "done loading~%")) (defun load-asdf (&optional tag)