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 Diff line number Diff line
@@ -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))