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 @@
(defparameter asd2 (subpathname tmp "test-multiple-too.asd"))
(defparameter file4 (test-fasl "file4"))
(setf *central-registry* `(,*test-directory* ,tmp))
(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))
;; 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)))
(load-system 'test-multiple-free)
(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