From f6bf4e963d94e31798287de418fb333c0103f3c9 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 7 Jun 2007 21:41:42 +0000 Subject: [PATCH] Removing tests that are handled elsewhere svn: r6525 --- .../default-web-root/servlets/tests/b-module.ss | 14 -------------- .../default-web-root/servlets/tests/bad-require.ss | 1 - .../default-web-root/servlets/tests/bad-return.ss | 6 ------ .../default-web-root/servlets/tests/broken.ss | 6 ------ .../default-web-root/servlets/tests/non-unit.ss | 1 - 5 files changed, 28 deletions(-) delete mode 100644 collects/web-server/default-web-root/servlets/tests/b-module.ss delete mode 100644 collects/web-server/default-web-root/servlets/tests/bad-require.ss delete mode 100644 collects/web-server/default-web-root/servlets/tests/bad-return.ss delete mode 100644 collects/web-server/default-web-root/servlets/tests/broken.ss delete mode 100644 collects/web-server/default-web-root/servlets/tests/non-unit.ss diff --git a/collects/web-server/default-web-root/servlets/tests/b-module.ss b/collects/web-server/default-web-root/servlets/tests/b-module.ss deleted file mode 100644 index d795a0d989..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/b-module.ss +++ /dev/null @@ -1,14 +0,0 @@ -(module b-module mzscheme - (provide interface-version timeout start) - (require (lib "servlet.ss" "web-server")) - - (define interface-version 'v1) - - (define timeout +inf.0) - - ; start : request -> response - (define (start initial-request) - `(html (head (title "A Test Page")) - (body ([bgcolor "white"]) - (p ,(format "Here are the initial bindings: ~v" - (request-bindings initial-request))))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/bad-require.ss b/collects/web-server/default-web-root/servlets/tests/bad-require.ss deleted file mode 100644 index 3453e0b6c2..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/bad-require.ss +++ /dev/null @@ -1 +0,0 @@ -(require "not-there-on-purpose.ss") diff --git a/collects/web-server/default-web-root/servlets/tests/bad-return.ss b/collects/web-server/default-web-root/servlets/tests/bad-return.ss deleted file mode 100644 index d3f950c84f..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/bad-return.ss +++ /dev/null @@ -1,6 +0,0 @@ -(module bad-return mzscheme - (provide (all-defined)) - (define interface-version 'v1) - (define timeout +inf.0) - (define (start initial-request) - 5)) diff --git a/collects/web-server/default-web-root/servlets/tests/broken.ss b/collects/web-server/default-web-root/servlets/tests/broken.ss deleted file mode 100644 index 342979f19f..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/broken.ss +++ /dev/null @@ -1,6 +0,0 @@ -(module broken mzscheme - (provide (all-defined)) - (define interface-version 'v1) - (define timeout +inf.0) - (define (start initial-request) - (raise 'kablooie))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/non-unit.ss b/collects/web-server/default-web-root/servlets/tests/non-unit.ss deleted file mode 100644 index 7ed6ff82de..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/non-unit.ss +++ /dev/null @@ -1 +0,0 @@ -5