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

repair path test for Windows

Browse Source
This commit is contained in:
Matthew Flatt 2021-05-12 16:51:24 -06:00
parent 520a8e0ac6
commit dd71fbad5a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test-core/tests/racket/path.rktl
View File

@ -1026,7 +1026,10 @@
(err/rt-test (string->path-element "" (system-path-convention-type) #t))
(err/rt-test (string->path-element "a\0b" #t))
(test #f string->path-element "a/b" #t)
(test (bytes->path #"\\\\?\\REL\\\\a/b") bytes->path-element #"a/b" 'windows #t)
(if (eq? 'windows (system-path-convention-type))
(test (bytes->path #"\\\\?\\REL\\\\a/b") string->path-element "a/b" #t)
(test #f string->path-element "a/b" #t))
(test #"\\\\?\\REL\\\\a/b" path->bytes (bytes->path-element #"a/b" 'windows))