Organizing tests

svn: r6597

collects/web-server/servlet/web.ss

@@ -76,7 +76,7 @@
       [(procedure? p-exp) (p->a p-exp)]
       [else p-exp])) 
   
-  ;; Weak contracts: the input is checked in output-response, and a message is
+  ;; XXX Weak contracts: the input is checked in output-response, and a message is
   ;; sent directly to the client (Web browser) instead of the terminal/log.
   (provide/contract
    [xexpr/callback->xexpr (embed/url? xexpr/callback? . -> . xexpr?)]

collects/web-server/tests/dispatchers/dispatch-lang-test.ss

@@ -7,7 +7,14 @@
      "Web Language"
      
      ; XXX test web.ss
+     (test-suite
+      "web.ss")
+
      ; XXX test web-extras.ss
-     ; XXX test web-cells.ss
+     (test-suite
+      "web-extras.ss")
      
+     ; XXX test web-cells.ss
+     (test-suite
+      "web-cell.ss")
      )))

collects/web-server/tests/dispatchers/dispatch-servlets-test.ss

@@ -90,7 +90,18 @@
      
      (test-suite
       "servlet/web.ss"
-      ; XXX test web.ss
+      ; XXX current-url-transform
+      ; XXX current-servlet-continuation-expiration-handler
+      ; XXX redirect/get
+      ; XXX redirect/get/forget
+      ; XXX adjust-timeout!
+      ; XXX clear-continuation-table!
+      ; XXX send/back
+      ; XXX send/finish
+      ; XXX send/suspend
+      ; XXX send/forward
+      ; XXX send/suspend/dispatch
+      ; XXX send/suspend/callback
       )
      
      )))

collects/web-server/tests/servlet/all-servlet-tests.ss

@@ -3,7 +3,8 @@
            "bindings-test.ss"
            "servlet-url-test.ss"
            "basic-auth-test.ss"
-           "helpers-test.ss")
+           "helpers-test.ss"
+           "web-test.ss")
   (provide all-servlet-tests)
   
   (define all-servlet-tests
@@ -12,4 +13,5 @@
      bindings-tests
      servlet-url-tests
      basic-auth-tests
-     helpers-tests)))
+     helpers-tests
+     web-tests)))

collects/web-server/tests/servlet/web-test.ss

@@ -0,0 +1,20 @@
+(module web-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           (lib "web.ss" "web-server" "servlet"))
+  (provide web-tests)
+  
+  (define web-tests
+    (test-suite
+     "Web"
+     
+     (test-suite 
+      "continuation-url?"
+      )
+     
+     (test-suite
+      "embed-ids"
+      )
+     
+     (test-suite
+      "xexpr/callback->xexpr"
+      ))))