From ffc1fcdc2db65b27ad5ba384350e5b35f87817fb Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Thu, 5 Sep 2013 20:40:31 -0400 Subject: [PATCH] Disable symlink-based test on Windows. --- test/test-multiple.script | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/test/test-multiple.script b/test/test-multiple.script index a94fa3f7..ed62f54a 100644 --- a/test/test-multiple.script +++ b/test/test-multiple.script @@ -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)) -- GitLab