From 51f9cba62a3875b62c61a6e9d985beaf4d9fa059 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 5 Jan 2007 07:10:37 +0000 Subject: [PATCH] fix expand-path Windows test svn: r5229 --- collects/tests/mzscheme/path.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/tests/mzscheme/path.ss b/collects/tests/mzscheme/path.ss index 24e541a363..3e3acaaa00 100644 --- a/collects/tests/mzscheme/path.ss +++ b/collects/tests/mzscheme/path.ss @@ -685,18 +685,19 @@ (test (string->path "\\\\?\\c:\\a\\.") expand-path (coerce "\\\\?\\c:\\\\a\\\\.")) (test (string->path "\\\\?\\c:\\a\\\\") expand-path (coerce "\\\\?\\c:\\a\\\\")) (test (string->path "\\\\?\\c:\\a\\.") expand-path (coerce "\\\\?\\c:\\a\\\\.")) - (test (string->path "\\\\?\\\\c:") expand-path (coerce "\\\\?\\c:")) (test (string->path "\\\\?\\UNC\\a\\b\\.") expand-path (coerce "\\\\?\\UNC\\\\a\\b\\.")) (test (string->path "\\\\?\\UNC\\a\\b\\.") expand-path (coerce "\\\\?\\UNC\\\\a\\b\\\\.")) (test (string->path "\\\\?\\RED\\\\..") expand-path (coerce "\\\\?\\RED\\..")) (test (string->path "\\\\?\\") expand-path (coerce "\\\\?\\\\")))]) (when (eq? 'windows (system-type)) (go expand-path) + (test (string->path "\\\\?\\c:") expand-path (coerce "\\\\?\\c:")) (go simplify-path)) - (go (lambda (p) (simplify-path p #f)))) + (go (lambda (p) (simplify-path p #f))) + (test (string->path "\\\\?\\\\c:") simplify-path (coerce "\\\\?\\c:") #f)) - (test (bytes->path #"..") simplify-path (coerce "\\\\?\\REL\\..") #F) - (test (bytes->path #"..") simplify-path (coerce "\\\\?\\REL\\..\\") #F) + (test (bytes->path #"..") simplify-path (coerce "\\\\?\\REL\\..") #f) + (test (bytes->path #"..") simplify-path (coerce "\\\\?\\REL\\..\\") #f) (when (eq? 'windows (system-type)) (test (bytes->path #"\\\\foo\\bar\\") expand-path (coerce "\\\\foo\\bar\\"))) (test (bytes->path #"\\\\foo\\bar") simplify-path (coerce "\\\\foo\\bar\\") #f)