suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix expand-path Windows test

Browse Source 
svn: r5229
This commit is contained in:
Matthew Flatt 2007-01-05 07:10:37 +00:00
parent 71f0a99be1
commit 51f9cba62a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/tests/mzscheme/path.ss
View File

@ -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)