Loading test/test-multiple.script +10 −6 Original line number Diff line number Diff line Loading @@ -5,11 +5,15 @@ (defparameter asd2 (subpathname tmp "test-multiple-too.asd")) (defparameter file4 (test-fasl "file4")) (setf *central-registry* `(,*test-directory* ,tmp)) ;; Don't rely on ln -s on Windows (unless (os-windows-p) (run-program (format nil "ln -sf ~A ~A" (native-namestring asd) (native-namestring asd2))) (oos 'load-source-op 'test-multiple-too) (assert (asymval :*file3* :test-package)) (assert (asymval :*file3* :test-package))) (load-system 'test-multiple-free) (assert (probe-file* file4)) Loading
test/test-multiple.script +10 −6 Original line number Diff line number Diff line Loading @@ -5,11 +5,15 @@ (defparameter asd2 (subpathname tmp "test-multiple-too.asd")) (defparameter file4 (test-fasl "file4")) (setf *central-registry* `(,*test-directory* ,tmp)) ;; Don't rely on ln -s on Windows (unless (os-windows-p) (run-program (format nil "ln -sf ~A ~A" (native-namestring asd) (native-namestring asd2))) (oos 'load-source-op 'test-multiple-too) (assert (asymval :*file3* :test-package)) (assert (asymval :*file3* :test-package))) (load-system 'test-multiple-free) (assert (probe-file* file4))