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

URL parsing is closer to the RFC now

Browse Source 
svn: r5965

original commit: e885e79295
This commit is contained in:
Eli Barzilay 2007-04-17 11:56:20 +00:00
parent 7de7d761ff
commit aa04fe03f3
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -252,12 +252,16 @@
(test-s->u #("a+b-c456.d" #f "www.foo.com" #f #t (#("")) () #f) (test-s->u #("a+b-c456.d" #f "www.foo.com" #f #t (#("")) () #f)
"a+b-c456.d://www.foo.com/") "a+b-c456.d://www.foo.com/")
;; a colon can appear in absolute paths ;; a colon and other junk (`sub-delims') can appear in usernames
(test-s->u #(#f #f #f #f #t (#("x:y") #("z")) () #f) (test #("http" "x:!$&'()*+,;=y" "www.drscheme.org" #f #t (#("a")) () #f)
"/x:y/z") string->url/vec
"http://x:!$&'()*+,;=y@www.drscheme.org/a")
;; a colon and atsign can appear in absolute paths
(test-s->u #(#f #f #f #f #t (#("x:@y") #("z")) () #f)
"/x:@y/z")
;; and in relative paths as long as it's not in the first element ;; and in relative paths as long as it's not in the first element
(test-s->u #(#f #f #f #f #f (#("x") #("y:z")) () #f) (test-s->u #(#f #f #f #f #f (#("x") #("y:@z")) () #f)
"x/y:z") "x/y:@z")
;; test bad schemes ;; test bad schemes
(err/rt-test (string->url "://www.foo.com/") url-exception?) (err/rt-test (string->url "://www.foo.com/") url-exception?)