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

PR 7976 fixed

Browse Source 
svn: r2473

original commit: e2d053bac1
This commit is contained in:
Robby Findler 2006-03-21 02:11:14 +00:00
parent 8d3c0e6665
commit db3d3052bf
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -255,6 +255,14 @@
(test-s->u (vector "mailto" #f #f #f #f '(#("robby@plt-scheme.org")) '() #f) (test-s->u (vector "mailto" #f #f #f #f '(#("robby@plt-scheme.org")) '() #f)
"mailto:robby@plt-scheme.org") "mailto:robby@plt-scheme.org")
(test (vector "http" #f "www.drscheme.org" #f #f '() '((bar . "馨慧")) #f)
string->url/vec
"http://www.drscheme.org?bar=馨慧")
(test (vector "http" #f "www.drscheme.org" #f #f '() '((bár . "é")) #f)
string->url/vec
"http://www.drscheme.org?bár=é")
(let ([empty-url (make-url #f #f #f #f #f '() '() #f)]) (let ([empty-url (make-url #f #f #f #f #f '() '() #f)])
(test-c-u/r (string->url "http://www.drscheme.org") (test-c-u/r (string->url "http://www.drscheme.org")
empty-url empty-url