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

fixed PRs 7783 7785

Browse Source 
svn: r1731

original commit: 00d989a80a
This commit is contained in:
Robby Findler 2005-12-31 14:23:49 +00:00
parent 6a81603ede
commit 18ac669ebc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -218,6 +218,9 @@
(test-s->u (vector "http" "robb y" "www.drscheme.org" #f '("") '() #f)
"http://robb%20y@www.drscheme.org/")
(test-s->u (vector "mailto" #f #f #f '("robby@plt-scheme.org") () #f)
"mailto:robby@plt-scheme.org")
(let ([empty-url (make-url #f #f #f #f '() '() #f)])
(test-c-u/r (string->url "http://www.drscheme.org")
empty-url