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