Converted the cgi tests to use my test macro, and included them in the

nightly testing.

svn: r14139

collects/tests/net/cgi.ss

@@ -1,6 +1,7 @@
 #lang scheme
 (require net/cgi
-         net/uri-codec)
+         net/uri-codec
+         tests/eli-tester)
 
 (define-syntax test-result
   (syntax-rules ()
@@ -13,38 +14,20 @@
                                "Error: `~a' evaluated to `~a', expected `~a'.\n"
                                'expression result expected))))]))
 
-(putenv "REQUEST_METHOD" "GET")
+(void (putenv "REQUEST_METHOD" "GET"))
 
-(test-result (begin
+(define (test-bindings mode query-string)
-              (current-alist-separator-mode 'amp-or-semi)
+  (parameterize ([current-alist-separator-mode mode])
-              (putenv "QUERY_STRING" "key1=value1&key2=value2;key3=value3")
+    (putenv "QUERY_STRING" query-string)
-              (get-bindings))
+    (get-bindings)))
-             '((key1 . "value1")
-               (key2 . "value2")
-               (key3 . "value3")))
 
-(test-result (begin
+(test (test-bindings 'amp-or-semi "key1=value1&key2=value2;key3=value3")
-              (current-alist-separator-mode 'amp)
+      => '([key1 . "value1"] [key2 . "value2"] [key3 . "value3"])
-              (putenv "QUERY_STRING" "key1=value1&key2=value2")
+      (test-bindings 'amp "key1=value1&key2=value2")
-              (get-bindings))
+      => '([key1 . "value1"] [key2 . "value2"])
-             '((key1 . "value1")
+      (test-bindings 'amp "key1=value1;key2=value2")
-               (key2 . "value2")))
+      => '([key1 . "value1;key2=value2"])
-
+      (test-bindings 'semi "key1=value1;key2=value2")
-(test-result (begin
+      => '([key1 . "value1"] [key2 . "value2"])
-              (current-alist-separator-mode 'amp)
+      (test-bindings 'semi "key1=value1&key2=value2")
-              (putenv "QUERY_STRING" "key1=value1;key2=value2")
+      => '([key1 . "value1&key2=value2"]))
-              (get-bindings))
-             '((key1 . "value1;key2=value2")))
-
-(test-result (begin
-              (current-alist-separator-mode 'semi)
-              (putenv "QUERY_STRING" "key1=value1;key2=value2")
-              (get-bindings))
-             '((key1 . "value1")
-               (key2 . "value2")))
-
-(test-result (begin
-              (current-alist-separator-mode 'semi)
-              (putenv "QUERY_STRING" "key1=value1&key2=value2")
-              (get-bindings))
-             '((key1 . "value1&key2=value2")))

collects/tests/net/main.ss

@@ -0,0 +1,3 @@
+#lang scheme/base
+
+(require "cgi.ss")

collects/tests/run-automated-tests.ss

@@ -38,6 +38,7 @@
     ;; [require "stepper/automatic-tests.ss" (lib "scheme/base")]
     [require "lazy/main.ss"]
     [require "scribble/main.ss"]
+    [require "net/main.ss"]
     ))