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