fixed PRs 7783 7785

svn: r1731 original commit: 00d989a80a
2005-12-31 14:23:49 +00:00 · 2005-12-31 14:23:49 +00:00 · 18ac669ebc
commit 18ac669ebc
parent 6a81603ede
1 changed files with 3 additions and 0 deletions
--- a/collects/tests/mzscheme/net.ss
+++ b/collects/tests/mzscheme/net.ss
@ -217,6 +217,9 @@
             "http://www.drscheme.org/a ; a/ b / c ")
  (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")