From a37ecf0b232bbc66138bef0a8792b2ac73081489 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 11 Apr 2008 01:12:01 +0000 Subject: [PATCH] net/url and tests fixes for windows svn: r9249 original commit: 2dc02d81fe13aa2f275657e2b91368271bba9927 --- collects/tests/mzscheme/net.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/tests/mzscheme/net.ss b/collects/tests/mzscheme/net.ss index c467128119..6e63ec5e0e 100644 --- a/collects/tests/mzscheme/net.ss +++ b/collects/tests/mzscheme/net.ss @@ -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)