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

net/url and tests fixes for windows

Browse Source 
svn: r9249

original commit: 2dc02d81fe
This commit is contained in:
Matthew Flatt 2008-04-11 01:12:01 +00:00
parent 8e59e04b24
commit a37ecf0b23
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/mzscheme/net.ss
View File

@ -282,10 +282,12 @@
(test-s->u #("file" #f "" #f #t (#("abc") #("def.html")) () #f)
"file:///abc/def.html")
(test "file:///abc/def.html" url->string (string->url "file:///abc/def.html"))
(test "file://a/b" url->string (string->url "file://a/b"))
(parameterize ([file-url-path-convention-type 'unix])
(test "file://a/b" url->string (string->url "file://a/b")))
(test-s->u #("file" #f "localhost" #f #t (#("abc") #("def.html")) () #f)
"file://localhost/abc/def.html")
(parameterize ([file-url-path-convention-type 'unix])
(test-s->u #("file" #f "localhost" #f #t (#("abc") #("def.html")) () #f)
"file://localhost/abc/def.html"))
;; test files: urls with colons, and the different parsing on Windows
(test-s->u #("file" #f "localhost" 123 #t (#("abc") #("def.html")) () #f)