From 49e542f71dfbf97a1f82e0cdf3c53b64e06041e4 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 1 Jun 2007 18:53:21 +0000 Subject: [PATCH] Test case stubs svn: r6453 --- .../configuration/all-configuration-tests.ss | 6 ++-- .../configuration/configuration-table-test.ss | 7 +++++ .../dispatchers/all-dispatchers-tests.ss | 14 +++++++-- .../tests/dispatchers/dispatch-files-test.ss | 7 +++++ .../tests/dispatchers/dispatch-lang-test.ss | 7 +++++ .../dispatchers/dispatch-passwords-test.ss | 7 +++++ .../dispatchers/dispatch-servlets-test.ss | 7 +++++ .../tests/dispatchers/filesystem-map-test.ss | 7 +++++ .../tests/graveyard/all-graveyard-tests.ss | 2 ++ .../tests/graveyard/file-vector-test.ss | 30 +++++++++++++++++++ .../tests/graveyard/persistent-close-test.ss | 27 ++--------------- .../tests/lang/abort-resume-test.ss | 7 +++++ .../web-server/tests/lang/all-lang-tests.ss | 16 ++++++++-- .../web-server/tests/lang/file-box-test.ss | 7 +++++ collects/web-server/tests/lang/util-test.ss | 7 +++++ .../web-server/tests/lang/web-cells-test.ss | 7 +++++ .../web-server/tests/lang/web-extras-test.ss | 7 +++++ collects/web-server/tests/lang/web-test.ss | 7 +++++ .../tests/private/all-private-tests.ss | 22 ++++++++++++-- .../tests/private/cache-table-test.ss | 7 +++++ .../tests/private/connection-manager-test.ss | 7 +++++ .../tests/private/mime-types-test.ss | 7 +++++ .../web-server/tests/private/mod-map-test.ss | 7 +++++ .../web-server/tests/private/response-test.ss | 7 +++++ .../web-server/tests/private/servlet-test.ss | 8 +++++ .../web-server/tests/private/session-test.ss | 7 +++++ .../tests/private/url-param-test.ss | 7 +++++ .../web-server/tests/private/util-test.ss | 7 +++++ .../tests/servlet/all-servlet-tests.ss | 14 +++++++-- .../tests/servlet/basic-auth-test.ss | 7 +++++ .../web-server/tests/servlet/bindings-test.ss | 7 +++++ .../web-server/tests/servlet/helpers-test.ss | 7 +++++ .../tests/servlet/servlet-url-test.ss | 7 +++++ collects/web-server/tests/servlet/web-test.ss | 7 +++++ 34 files changed, 279 insertions(+), 35 deletions(-) create mode 100644 collects/web-server/tests/configuration/configuration-table-test.ss create mode 100644 collects/web-server/tests/dispatchers/dispatch-files-test.ss create mode 100644 collects/web-server/tests/dispatchers/dispatch-lang-test.ss create mode 100644 collects/web-server/tests/dispatchers/dispatch-passwords-test.ss create mode 100644 collects/web-server/tests/dispatchers/dispatch-servlets-test.ss create mode 100644 collects/web-server/tests/dispatchers/filesystem-map-test.ss create mode 100644 collects/web-server/tests/graveyard/file-vector-test.ss create mode 100644 collects/web-server/tests/lang/abort-resume-test.ss create mode 100644 collects/web-server/tests/lang/file-box-test.ss create mode 100644 collects/web-server/tests/lang/util-test.ss create mode 100644 collects/web-server/tests/lang/web-cells-test.ss create mode 100644 collects/web-server/tests/lang/web-extras-test.ss create mode 100644 collects/web-server/tests/lang/web-test.ss create mode 100644 collects/web-server/tests/private/cache-table-test.ss create mode 100644 collects/web-server/tests/private/connection-manager-test.ss create mode 100644 collects/web-server/tests/private/mime-types-test.ss create mode 100644 collects/web-server/tests/private/mod-map-test.ss create mode 100644 collects/web-server/tests/private/response-test.ss create mode 100644 collects/web-server/tests/private/servlet-test.ss create mode 100644 collects/web-server/tests/private/session-test.ss create mode 100644 collects/web-server/tests/private/url-param-test.ss create mode 100644 collects/web-server/tests/private/util-test.ss create mode 100644 collects/web-server/tests/servlet/basic-auth-test.ss create mode 100644 collects/web-server/tests/servlet/bindings-test.ss create mode 100644 collects/web-server/tests/servlet/helpers-test.ss create mode 100644 collects/web-server/tests/servlet/servlet-url-test.ss create mode 100644 collects/web-server/tests/servlet/web-test.ss diff --git a/collects/web-server/tests/configuration/all-configuration-tests.ss b/collects/web-server/tests/configuration/all-configuration-tests.ss index c2544f4690..97b6fa0809 100644 --- a/collects/web-server/tests/configuration/all-configuration-tests.ss +++ b/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"))) \ No newline at end of file + "Configuration" + configuration-table-tests))) \ No newline at end of file diff --git a/collects/web-server/tests/configuration/configuration-table-test.ss b/collects/web-server/tests/configuration/configuration-table-test.ss new file mode 100644 index 0000000000..c437aead7c --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/dispatchers/all-dispatchers-tests.ss b/collects/web-server/tests/dispatchers/all-dispatchers-tests.ss index ca74759dff..94655bd90f 100644 --- a/collects/web-server/tests/dispatchers/all-dispatchers-tests.ss +++ b/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"))) \ No newline at end of file + "Dispatchers" + dispatch-passwords-tests + dispatch-files-tests + dispatch-servlets-tests + dispatch-lang-tests + filesystem-map-tests))) \ No newline at end of file diff --git a/collects/web-server/tests/dispatchers/dispatch-files-test.ss b/collects/web-server/tests/dispatchers/dispatch-files-test.ss new file mode 100644 index 0000000000..e73ed04770 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/dispatchers/dispatch-lang-test.ss b/collects/web-server/tests/dispatchers/dispatch-lang-test.ss new file mode 100644 index 0000000000..f13d4fca3e --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/dispatchers/dispatch-passwords-test.ss b/collects/web-server/tests/dispatchers/dispatch-passwords-test.ss new file mode 100644 index 0000000000..3300879350 --- /dev/null +++ b/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"))) \ 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 new file mode 100644 index 0000000000..a7e028cad2 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/dispatchers/filesystem-map-test.ss b/collects/web-server/tests/dispatchers/filesystem-map-test.ss new file mode 100644 index 0000000000..c490868515 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/graveyard/all-graveyard-tests.ss b/collects/web-server/tests/graveyard/all-graveyard-tests.ss index ab6748f53c..b73120eb0c 100644 --- a/collects/web-server/tests/graveyard/all-graveyard-tests.ss +++ b/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))) \ No newline at end of file diff --git a/collects/web-server/tests/graveyard/file-vector-test.ss b/collects/web-server/tests/graveyard/file-vector-test.ss new file mode 100644 index 0000000000..8bd4ff3feb --- /dev/null +++ b/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))))))) \ No newline at end of file diff --git a/collects/web-server/tests/graveyard/persistent-close-test.ss b/collects/web-server/tests/graveyard/persistent-close-test.ss index b1cfe2a01c..5e9db5093e 100644 --- a/collects/web-server/tests/graveyard/persistent-close-test.ss +++ b/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") - (planet "test.ss" ("schematics" "schemeunit.plt" 2)) - (lib "serialize.ss") + (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)) (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]) diff --git a/collects/web-server/tests/lang/abort-resume-test.ss b/collects/web-server/tests/lang/abort-resume-test.ss new file mode 100644 index 0000000000..f46346a2b3 --- /dev/null +++ b/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"))) \ 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 4e3d339c89..545f95e77e 100644 --- a/collects/web-server/tests/lang/all-lang-tests.ss +++ b/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))) \ No newline at end of file + util-tests + web-cells-tests + web-extras-tests + web-param-tests + web-tests))) \ No newline at end of file diff --git a/collects/web-server/tests/lang/file-box-test.ss b/collects/web-server/tests/lang/file-box-test.ss new file mode 100644 index 0000000000..b494001e87 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/lang/util-test.ss b/collects/web-server/tests/lang/util-test.ss new file mode 100644 index 0000000000..07ceb1dbba --- /dev/null +++ b/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"))) \ 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 new file mode 100644 index 0000000000..2c90c481ec --- /dev/null +++ b/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"))) \ 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 new file mode 100644 index 0000000000..add8e6f0c6 --- /dev/null +++ b/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"))) \ 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 new file mode 100644 index 0000000000..19b20e0060 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/private/all-private-tests.ss b/collects/web-server/tests/private/all-private-tests.ss index d72f121d6a..de913e1f5f 100644 --- a/collects/web-server/tests/private/all-private-tests.ss +++ b/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))) \ No newline at end of file + mime-types-tests + mod-map-tests + request-tests + response-tests + servlet-tests + session-tests + url-param-tests + util-tests))) \ No newline at end of file diff --git a/collects/web-server/tests/private/cache-table-test.ss b/collects/web-server/tests/private/cache-table-test.ss new file mode 100644 index 0000000000..4b1baf4493 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/private/connection-manager-test.ss b/collects/web-server/tests/private/connection-manager-test.ss new file mode 100644 index 0000000000..9d69a7d936 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/private/mime-types-test.ss b/collects/web-server/tests/private/mime-types-test.ss new file mode 100644 index 0000000000..e4593f1295 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/private/mod-map-test.ss b/collects/web-server/tests/private/mod-map-test.ss new file mode 100644 index 0000000000..227b26c19d --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/private/response-test.ss b/collects/web-server/tests/private/response-test.ss new file mode 100644 index 0000000000..9c5b528806 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/private/servlet-test.ss b/collects/web-server/tests/private/servlet-test.ss new file mode 100644 index 0000000000..a42866e9d6 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/private/session-test.ss b/collects/web-server/tests/private/session-test.ss new file mode 100644 index 0000000000..0a331c4269 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/private/url-param-test.ss b/collects/web-server/tests/private/url-param-test.ss new file mode 100644 index 0000000000..e40a8e9304 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/private/util-test.ss b/collects/web-server/tests/private/util-test.ss new file mode 100644 index 0000000000..07ceb1dbba --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/servlet/all-servlet-tests.ss b/collects/web-server/tests/servlet/all-servlet-tests.ss index 96838c4a09..1e8261e312 100644 --- a/collects/web-server/tests/servlet/all-servlet-tests.ss +++ b/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)"))) \ No newline at end of file + "Servlet (Internal)" + bindings-tests + servlet-url-tests + basic-auth-tests + helpers-tests + web-tests))) \ No newline at end of file diff --git a/collects/web-server/tests/servlet/basic-auth-test.ss b/collects/web-server/tests/servlet/basic-auth-test.ss new file mode 100644 index 0000000000..b91d0635c7 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/servlet/bindings-test.ss b/collects/web-server/tests/servlet/bindings-test.ss new file mode 100644 index 0000000000..52bc7f6e35 --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/servlet/helpers-test.ss b/collects/web-server/tests/servlet/helpers-test.ss new file mode 100644 index 0000000000..5ab386996f --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/servlet/servlet-url-test.ss b/collects/web-server/tests/servlet/servlet-url-test.ss new file mode 100644 index 0000000000..001e207c7b --- /dev/null +++ b/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"))) \ No newline at end of file diff --git a/collects/web-server/tests/servlet/web-test.ss b/collects/web-server/tests/servlet/web-test.ss new file mode 100644 index 0000000000..19b20e0060 --- /dev/null +++ b/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"))) \ No newline at end of file