From b80094cf1274a12232c86f9f9e0812f8b3ae2df0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 20 Mar 2004 17:18:24 +0000
Subject: [PATCH] .

original commit: b8cd7098bf7f453ca03cf2e65d0eb140eecd5711
---
 collects/tests/mzscheme/net.ss | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/collects/tests/mzscheme/net.ss b/collects/tests/mzscheme/net.ss
index e3561e4d2e..7a9143852b 100644
--- a/collects/tests/mzscheme/net.ss
+++ b/collects/tests/mzscheme/net.ss
@@ -1,6 +1,39 @@
 
 (load-relative "loadtest.ss")
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; url parsing tests
+;;
+
+(require (lib "url.ss" "net"))
+
+(let ()
+  (define (test-s->u vec str)
+    (define (string->url/vec str)
+      (let ([res (string->url str)])
+        (vector (url-scheme res)
+                (url-host res)
+                (url-port res)
+                (url-path res)
+                (url-params res)
+                (url-query res)
+                (url-fragment res)
+                (url/user-user res))))
+      (test vec string->url/vec str))
+  
+  (test-s->u (vector "http" "www.google.com" #f '() #f #f #f #f)
+             "http://www.google.com/")
+  (test-s->u (vector "http" "www.google.com" #f (list "a" "b" "c") #f #f #f #f)
+             "http://www.google.com/a/b/c"))
+
+(report-errs)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; other net tests
+;;
+
 (require (lib "base64.ss" "net")
 	 (lib "qp.ss" "net")
 	 (lib "thread.ss"))