Test case stubs

svn: r6453

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

@@ -1,7 +1,9 @@
 (module all-configuration-tests mzscheme
-  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           "configuration-table-test.ss")
   (provide all-configuration-tests)
   
   (define all-configuration-tests  
     (test-suite
-     "Configuration")))
+     "Configuration"
+     configuration-table-tests)))

collects/web-server/tests/configuration/configuration-table-test.ss

@@ -0,0 +1,7 @@
+(module configuration-table-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide configuration-table-tests)
+  
+  (define configuration-table-tests
+    (test-suite
+     "Configuration Table")))

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

@@ -1,7 +1,17 @@
 (module all-dispatchers-tests mzscheme
-  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           "dispatch-passwords-test.ss"
+           "dispatch-files-test.ss"        
+           "dispatch-servlets-test.ss"
+           "dispatch-lang-test.ss"         
+           "filesystem-map-test.ss")
   (provide all-dispatchers-tests)
   
   (define all-dispatchers-tests  
     (test-suite
-     "Dispatchers")))
+     "Dispatchers"
+     dispatch-passwords-tests
+     dispatch-files-tests
+     dispatch-servlets-tests
+     dispatch-lang-tests
+     filesystem-map-tests)))

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

@@ -0,0 +1,7 @@
+(module dispatch-files-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide dispatch-files-tests)
+  
+  (define dispatch-files-tests
+    (test-suite
+     "Files")))

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

@@ -0,0 +1,7 @@
+(module dispatch-lang-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide dispatch-lang-tests)
+  
+  (define dispatch-lang-tests
+    (test-suite
+     "Web Language")))

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

@@ -0,0 +1,7 @@
+(module dispatch-passwords-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide dispatch-passwords-tests)
+  
+  (define dispatch-passwords-tests
+    (test-suite
+     "Passwords")))

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

@@ -0,0 +1,7 @@
+(module dispatch-servlets-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide dispatch-servlets-tests)
+  
+  (define dispatch-servlets-tests
+    (test-suite
+     "Servlets")))

collects/web-server/tests/dispatchers/filesystem-map-test.ss

@@ -0,0 +1,7 @@
+(module filesystem-map-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide filesystem-map-tests)
+  
+  (define filesystem-map-tests
+    (test-suite
+     "Filesystem Map")))

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

@@ -1,9 +1,11 @@
 (module all-graveyard-tests mzscheme
   (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           "file-vector-test.ss"
            "persistent-close-test.ss")
   (provide all-graveyard-tests)
   
   (define all-graveyard-tests
     (test-suite
      "Graveyard"
+     file-vector-tests
      persistent-close-tests)))

collects/web-server/tests/graveyard/file-vector-test.ss

@@ -0,0 +1,30 @@
+(module file-vector-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           (lib "serialize.ss")
+           (lib "file-vector.ss" "web-server" "graveyard"))
+  (provide file-vector-tests)
+  
+  (define file-vector-tests
+    (test-suite
+     "File Vector"
+     
+     (test-case
+      "file-vector references"
+      (let ([fv (make-file-vector '/tmp/foo 1 2 3)])
+        (check = 1 (file-vector-ref fv 0))
+        (check = 2 (file-vector-ref fv 1))
+        (check = 3 (file-vector-ref fv 2))
+        (file-vector-set! fv 0 -1)
+        (file-vector-set! fv 1 -2)
+        (file-vector-set! fv 2 -3)
+        (check = -1 (file-vector-ref fv 0))
+        (check = -2 (file-vector-ref fv 1))
+        (check = -3 (file-vector-ref fv 2))))
+     
+     (test-case
+      "serializing file vectors"
+      (let* ([fv (make-file-vector '/tmp/foo -1 -2 -3)]
+             [fv2 (deserialize (serialize fv))])
+        (check = -1 (file-vector-ref fv2 0))
+        (check = -2 (file-vector-ref fv2 1))
+        (check = -3 (file-vector-ref fv2 2)))))))

collects/web-server/tests/graveyard/persistent-close-test.ss

@@ -1,35 +1,12 @@
 (module persistent-close-test mzscheme
-  (require (lib "file-vector.ss" "web-server" "graveyard")
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-           (planet "test.ss" ("schematics" "schemeunit.plt" 2))
-           (lib "serialize.ss")
            (lib "persistent-close.ss" "web-server" "graveyard"))  
   (provide persistent-close-tests)
   
   (define persistent-close-tests
     (test-suite
      "Persistent Closures"
-     
+          
-     (test-case
-      "file-vector references"
-      (let ([fv (make-file-vector '/tmp/foo 1 2 3)])
-        (check = 1 (file-vector-ref fv 0))
-        (check = 2 (file-vector-ref fv 1))
-        (check = 3 (file-vector-ref fv 2))
-        (file-vector-set! fv 0 -1)
-        (file-vector-set! fv 1 -2)
-        (file-vector-set! fv 2 -3)
-        (check = -1 (file-vector-ref fv 0))
-        (check = -2 (file-vector-ref fv 1))
-        (check = -3 (file-vector-ref fv 2))))
-
-     (test-case
-      "serializing file vectors"
-      (let* ([fv (make-file-vector '/tmp/foo -1 -2 -3)]
-             [fv2 (deserialize (serialize fv))])
-        (check = -1 (file-vector-ref fv2 0))
-        (check = -2 (file-vector-ref fv2 1))
-        (check = -3 (file-vector-ref fv2 2))))
-     
      (test-case
       "close/file test"
       (let ([x 7] [y 8])

collects/web-server/tests/lang/abort-resume-test.ss

@@ -0,0 +1,7 @@
+(module abort-resume-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide abort-resume-tests)
+  
+  (define abort-resume-tests
+    (test-suite
+     "Abort Resume")))

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

@@ -1,15 +1,27 @@
 (module all-lang-tests mzscheme
   (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           "abort-resume-test.ss"
            "anormal-test.ss"
+           "file-box-test.ss"
            "labels-test.ss"
            "stuff-url-test.ss"
-           "web-param-test.ss")
+           "util-test.ss"
+           "web-cells-test.ss"
+           "web-extras-test.ss"
+           "web-param-test.ss"
+           "web-test.ss")
   (provide all-lang-tests)
   
   (define all-lang-tests  
     (test-suite
      "Web Language"
+     abort-resume-tests
      anormal-tests
+     file-box-tests
      labels-tests
      stuff-url-tests
-     web-param-tests)))
+     util-tests
+     web-cells-tests
+     web-extras-tests
+     web-param-tests
+     web-tests)))

collects/web-server/tests/lang/file-box-test.ss

@@ -0,0 +1,7 @@
+(module file-box-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide file-box-tests)
+  
+  (define file-box-tests
+    (test-suite
+     "File Boxes")))

collects/web-server/tests/lang/util-test.ss

@@ -0,0 +1,7 @@
+(module util-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide util-tests)
+  
+  (define util-tests
+    (test-suite
+     "Utilities")))

collects/web-server/tests/lang/web-cells-test.ss

@@ -0,0 +1,7 @@
+(module web-cells-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide web-cells-tests)
+  
+  (define web-cells-tests
+    (test-suite
+     "Web Cells")))

collects/web-server/tests/lang/web-extras-test.ss

@@ -0,0 +1,7 @@
+(module web-extras-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide web-extras-tests)
+  
+  (define web-extras-tests
+    (test-suite
+     "Web Extras")))

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

@@ -0,0 +1,7 @@
+(module web-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide web-tests)
+  
+  (define web-tests
+    (test-suite
+     "Web")))

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

@@ -1,11 +1,29 @@
 (module all-private-tests mzscheme
   (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           "request-test.ss"
+           "cache-table-test.ss"
+           "response-test.ss"
+           "connection-manager-test.ss"
+           "servlet-test.ss"
            "define-closure-test.ss"
-           "request-test.ss")
+           "session-test.ss"
+           "mime-types-test.ss"
+           "url-param-test.ss"
+           "mod-map-test.ss"
+           "util-test.ss")
   (provide all-private-tests)
   
   (define all-private-tests
     (test-suite
      "Internal"
+     cache-table-tests
+     connection-manager-tests
      define-closure-tests
-     request-tests)))
+     mime-types-tests
+     mod-map-tests
+     request-tests
+     response-tests
+     servlet-tests
+     session-tests
+     url-param-tests
+     util-tests)))

collects/web-server/tests/private/cache-table-test.ss

@@ -0,0 +1,7 @@
+(module cache-table-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide cache-table-tests)
+  
+  (define cache-table-tests
+    (test-suite
+     "Cache Table")))

collects/web-server/tests/private/connection-manager-test.ss

@@ -0,0 +1,7 @@
+(module connection-manager-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide connection-manager-tests)
+  
+  (define connection-manager-tests
+    (test-suite
+     "Connection Manager")))

collects/web-server/tests/private/mime-types-test.ss

@@ -0,0 +1,7 @@
+(module mime-types-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide mime-types-tests)
+  
+  (define mime-types-tests
+    (test-suite
+     "MIME Types")))

collects/web-server/tests/private/mod-map-test.ss

@@ -0,0 +1,7 @@
+(module mod-map-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide mod-map-tests)
+  
+  (define mod-map-tests
+    (test-suite
+     "Module Map")))

collects/web-server/tests/private/response-test.ss

@@ -0,0 +1,7 @@
+(module response-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide response-tests)
+  
+  (define response-tests
+    (test-suite
+     "HTTP Responses")))

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

@@ -0,0 +1,8 @@
+(module servlet-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           (lib "servlet.ss" "web-server"))
+  (provide servlet-tests)
+  
+  (define servlet-tests
+    (test-suite
+     "Servlets")))

collects/web-server/tests/private/session-test.ss

@@ -0,0 +1,7 @@
+(module session-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide session-tests)
+  
+  (define session-tests
+    (test-suite
+     "Sessions")))

collects/web-server/tests/private/url-param-test.ss

@@ -0,0 +1,7 @@
+(module url-param-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide url-param-tests)
+  
+  (define url-param-tests
+    (test-suite
+     "URL Parameters")))

collects/web-server/tests/private/util-test.ss

@@ -0,0 +1,7 @@
+(module util-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide util-tests)
+  
+  (define util-tests
+    (test-suite
+     "Utilities")))

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

@@ -1,7 +1,17 @@
 (module all-servlet-tests mzscheme
-  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           "bindings-test.ss"
+           "servlet-url-test.ss"
+           "basic-auth-test.ss"
+           "helpers-test.ss"
+           "web-test.ss")
   (provide all-servlet-tests)
   
   (define all-servlet-tests
     (test-suite
-     "Servlet (Internal)")))
+     "Servlet (Internal)"
+     bindings-tests
+     servlet-url-tests
+     basic-auth-tests
+     helpers-tests
+     web-tests)))

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

@@ -0,0 +1,7 @@
+(module basic-auth-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide basic-auth-tests)
+  
+  (define basic-auth-tests
+    (test-suite
+     "BASIC Authentication")))

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

@@ -0,0 +1,7 @@
+(module bindings-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide bindings-tests)
+  
+  (define bindings-tests
+    (test-suite
+     "Bindings")))

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

@@ -0,0 +1,7 @@
+(module helpers-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide helpers-tests)
+  
+  (define helpers-tests
+    (test-suite
+     "Helpers")))

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

@@ -0,0 +1,7 @@
+(module servlet-url-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide servlet-url-tests)
+  
+  (define servlet-url-tests
+    (test-suite
+     "Servlet URLs")))

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

@@ -0,0 +1,7 @@
+(module web-test mzscheme
+  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
+  (provide web-tests)
+  
+  (define web-tests
+    (test-suite
+     "Web")))