Figuring out where tests go

svn: r6595

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

@@ -2,7 +2,12 @@
   (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
   (provide dispatch-lang-tests)
   
-  ; XXX
   (define dispatch-lang-tests
     (test-suite
-     "Web Language")))
+     "Web Language"
+     
+     ; XXX test web.ss
+     ; XXX test web-extras.ss
+     ; XXX test web-cells.ss
+     
+     )))

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

@@ -44,6 +44,8 @@
     (test-suite
      "Servlets"
      
+     ; XXX test update cache
+     
      (test-pred "configure.ss"
                 string?
                 (let* ([d (mkd (build-path example-servlets 'up "configure.ss"))]
@@ -88,7 +90,7 @@
      
      (test-suite
       "servlet/web.ss"
-      ; XXX
+      ; XXX test web.ss
       )
      
      )))

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

@@ -4,10 +4,7 @@
            "file-box-test.ss"
            "labels-test.ss"
            "stuff-url-test.ss"
-           "web-cells-test.ss"
+           "web-param-test.ss")
-           "web-extras-test.ss"
-           "web-param-test.ss"
-           "web-test.ss")
   (provide all-lang-tests)
   
   (define all-lang-tests  
@@ -17,7 +14,4 @@
      file-box-tests
      labels-tests
      stuff-url-tests
-     web-cells-tests
+     web-param-tests)))
-     web-extras-tests
-     web-param-tests
-     web-tests)))

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

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

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

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

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

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

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

@@ -4,4 +4,9 @@
   
   (define all-managers-tests
     (test-suite
-     "Continuation Managers")))
+     "Continuation Managers"
+     
+     ; XXX test timeout.ss
+     ; XXX test none.ss
+     ; XXX test lru.ss
+     )))