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

tests for using colons in scheme-less paths

Browse Source 
svn: r5959

original commit: ee91e07ee3
This commit is contained in:
Eli Barzilay 2007-04-17 06:11:39 +00:00
parent 317337e409
commit 7de7d761ff
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -252,6 +252,13 @@
(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
(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
(test-s->u #(#f #f #f #f #f (#("x") #("y:z")) () #f)
"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?)
(err/rt-test (string->url "9://www.foo.com/") url-exception?) (err/rt-test (string->url "9://www.foo.com/") url-exception?)