From 52201f68d13cc3e87e905eed223b2ea88f984f44 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 25 Apr 2007 23:12:38 +0000 Subject: [PATCH] fix path.ss test quite to work on non-Windows platforms svn: r6046 --- collects/tests/mzscheme/path.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/path.ss b/collects/tests/mzscheme/path.ss index c42ec8d35d..7582242bde 100644 --- a/collects/tests/mzscheme/path.ss +++ b/collects/tests/mzscheme/path.ss @@ -708,7 +708,8 @@ (test (bytes->path #"\\\\?\\\\\\c:\\") simplify-path (coerce "\\\\?\\\\\\c:\\") #f) (test (bytes->path #"\\\\?\\\\\\c:") simplify-path (coerce "\\\\?\\\\\\c:") #f) - (test (bytes->path #"\\\\?\\c:\\a\\b//c\\d") expand-path (coerce "\\\\?\\c:\\a\\b//c\\d")) + (when (eq? 'windows (system-type)) + (test (bytes->path #"\\\\?\\c:\\a\\b//c\\d") expand-path (coerce "\\\\?\\c:\\a\\b//c\\d"))) (test (bytes->path #"\\\\?\\UNC\\a\\b/c\\") simplify-path (coerce "\\\\?\\\\UNC\\a\\b/c") #f) (test (bytes->path #"\\\\a\\b\\") simplify-path (coerce "\\\\?\\\\UNC\\a\\b") #f)