From 55e7b8d2142e4fe237cb60cc2df6cfdd45ef9252 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Thu, 27 Feb 2014 21:34:00 -0500
Subject: [PATCH] Removing some pathname tests on Windows, and some janderson
 comments.

---
 test/asdf-pathname-test.script | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script
index bb2a93e3..aa52de4e 100644
--- a/test/asdf-pathname-test.script
+++ b/test/asdf-pathname-test.script
@@ -426,20 +426,16 @@
 ;; we're testing with unix or some emulation, are we not?
 
 (assert-pathname-equal (resolve-location '(:home)) (truename (user-homedir-pathname)))
-(assert-pathname-equal (resolve-location '("/foo" "bar" "baz")) #p"/foo/bar/baz")
-(assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory t) #p"/foo/bar/baz/")
-(assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory t :wilden t) (wilden #p"/foo/bar/baz/"))
-(assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory nil :wilden t) (wilden #p"/foo/bar/"))
-(assert-pathname-equal (resolve-location '("/foo" "bar" :**/ "baz" #p"*.*") :ensure-directory nil :wilden t) #p"/foo/bar/**/baz/*.*")
+#-os-windows
+(progn
+  (assert-pathname-equal (resolve-location '("/foo" "bar" "baz")) #p"/foo/bar/baz")
+  (assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory t) #p"/foo/bar/baz/")
+  (assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory t :wilden t) (wilden #p"/foo/bar/baz/"))
+  (assert-pathname-equal (resolve-location '("/foo" "bar" "baz") :ensure-directory nil :wilden t) (wilden #p"/foo/bar/"))
+  (assert-pathname-equal (resolve-location '("/foo" "bar" :**/ "baz" #p"*.*") :ensure-directory nil :wilden t) #p"/foo/bar/**/baz/*.*"))
 
 (assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-1))))
 (assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-2))))
 
 #-gcl
 (assert (test-component-pathnames :delete-host t :support-string-pathnames nil))
-
-#|
-(load "LIBRARY:de;setf;utility;asdf;cp-test.lisp")
-(logical-pathname-translations "ASDFTEST")
-(gethash "test-system" asdf::*defined-systems*)
-|#
-- 
GitLab