From 772b263eb3b99839d247c190d2d55043d4937917 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 7 Jan 2006 03:25:26 +0000 Subject: [PATCH] fixed up file: urls and fixed a bug in the parsing of urls with empty string host names svn: r1779 original commit: aa5d3f737811208ba53915272b6b91e0a98ce2f1 --- collects/tests/mzscheme/net.ss | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/net.ss b/collects/tests/mzscheme/net.ss index 7462896b19..8ac5c8153e 100644 --- a/collects/tests/mzscheme/net.ss +++ b/collects/tests/mzscheme/net.ss @@ -180,6 +180,12 @@ "/") (test-s->u (vector #f #f #f #f #f '() '() #f) "") + (test-s->u (vector "http" #f #f #f #t '(#("")) '() #f) + "http:/") + + (test-s->u (vector "http" #f "" #f #t '(#("")) '() #f) + "http:///") + (test-s->u (vector "http" #f "www.drscheme.org" #f #f '() '() #f) "http://www.drscheme.org") (test-s->u (vector "http" #f "www.drscheme.org" #f #t '(#("")) '() #f) @@ -234,7 +240,14 @@ (test-s->u (vector "http" #f "www.drscheme.org" #f #t (list #("." "") #(".." "") #(same "") #(up "") #("..." "") #("abc.def" "")) '() #f) "http://www.drscheme.org/%2e;/%2e%2e;/.;/..;/...;/abc.def;") - + ;; test file: urls + (test-s->u (vector "file" #f #f #f #t '(#("abc") #("def.html")) '() #f) + "file:/abc/def.html") + + (test-s->u (vector "file" #f "localhost" #f #t '(#("abc") #("def.html")) '() #f) + "file://localhost/abc/def.html") + + ;; test case sensitivity (test (vector "http" "ROBBY" "www.drscheme.org" 80 #t '(#("INDEX.HTML" "XXX")) '((T . "P")) "YYY") string->url/vec "HTTP://ROBBY@WWW.DRSCHEME.ORG:80/INDEX.HTML;XXX?T=P#YYY")