Skip to content
Snippets Groups Projects
Commit ffc1fcdc authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Disable symlink-based test on Windows.

parent 87de1860
No related branches found
No related tags found
No related merge requests found
...@@ -5,11 +5,15 @@ ...@@ -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))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment