From cbe5d8713129b87eb2348af18bdf203896e10131 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Tue, 12 Jun 2007 15:12:46 +0000
Subject: [PATCH] Figuring out where tests go

svn: r6595
---
 .../web-server/tests/dispatchers/dispatch-lang-test.ss |  9 +++++++--
 .../tests/dispatchers/dispatch-servlets-test.ss        |  4 +++-
 collects/web-server/tests/lang/all-lang-tests.ss       | 10 ++--------
 collects/web-server/tests/lang/web-cells-test.ss       |  8 --------
 collects/web-server/tests/lang/web-extras-test.ss      |  8 --------
 collects/web-server/tests/lang/web-test.ss             |  8 --------
 .../web-server/tests/managers/all-managers-tests.ss    |  7 ++++++-
 7 files changed, 18 insertions(+), 36 deletions(-)
 delete mode 100644 collects/web-server/tests/lang/web-cells-test.ss
 delete mode 100644 collects/web-server/tests/lang/web-extras-test.ss
 delete mode 100644 collects/web-server/tests/lang/web-test.ss

diff --git a/collects/web-server/tests/dispatchers/dispatch-lang-test.ss b/collects/web-server/tests/dispatchers/dispatch-lang-test.ss
index 845e80f7e8..3de5a38eb0 100644
--- a/collects/web-server/tests/dispatchers/dispatch-lang-test.ss
+++ b/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")))
\ No newline at end of file
+     "Web Language"
+     
+     ; XXX test web.ss
+     ; XXX test web-extras.ss
+     ; XXX test web-cells.ss
+     
+     )))
\ No newline at end of file
diff --git a/collects/web-server/tests/dispatchers/dispatch-servlets-test.ss b/collects/web-server/tests/dispatchers/dispatch-servlets-test.ss
index c2f883e7a0..334877d62d 100644
--- a/collects/web-server/tests/dispatchers/dispatch-servlets-test.ss
+++ b/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
       )
      
      )))
\ No newline at end of file
diff --git a/collects/web-server/tests/lang/all-lang-tests.ss b/collects/web-server/tests/lang/all-lang-tests.ss
index 9356989890..6b1ff43d8f 100644
--- a/collects/web-server/tests/lang/all-lang-tests.ss
+++ b/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-extras-test.ss"
-           "web-param-test.ss"
-           "web-test.ss")
+           "web-param-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-extras-tests
-     web-param-tests
-     web-tests)))
\ No newline at end of file
+     web-param-tests)))
\ No newline at end of file
diff --git a/collects/web-server/tests/lang/web-cells-test.ss b/collects/web-server/tests/lang/web-cells-test.ss
deleted file mode 100644
index 9a76895aa3..0000000000
--- a/collects/web-server/tests/lang/web-cells-test.ss
+++ /dev/null
@@ -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")))
\ No newline at end of file
diff --git a/collects/web-server/tests/lang/web-extras-test.ss b/collects/web-server/tests/lang/web-extras-test.ss
deleted file mode 100644
index f04e2900e2..0000000000
--- a/collects/web-server/tests/lang/web-extras-test.ss
+++ /dev/null
@@ -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")))
\ No newline at end of file
diff --git a/collects/web-server/tests/lang/web-test.ss b/collects/web-server/tests/lang/web-test.ss
deleted file mode 100644
index 1b9a885066..0000000000
--- a/collects/web-server/tests/lang/web-test.ss
+++ /dev/null
@@ -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")))
\ No newline at end of file
diff --git a/collects/web-server/tests/managers/all-managers-tests.ss b/collects/web-server/tests/managers/all-managers-tests.ss
index aeaed6be0d..31b75206de 100644
--- a/collects/web-server/tests/managers/all-managers-tests.ss
+++ b/collects/web-server/tests/managers/all-managers-tests.ss
@@ -4,4 +4,9 @@
   
   (define all-managers-tests
     (test-suite
-     "Continuation Managers")))
\ No newline at end of file
+     "Continuation Managers"
+     
+     ; XXX test timeout.ss
+     ; XXX test none.ss
+     ; XXX test lru.ss
+     )))
\ No newline at end of file