Commit ffc1fcdc authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Disable symlink-based test on Windows.

parent 87de1860
Loading
Loading
Loading
Loading
+10 −6
Original line number Original line Diff line number Diff line
@@ -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))