suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Figuring out where to run servlet tests

Browse Source 
svn: r6585
This commit is contained in:
Jay McCarthy 2007-06-12 05:49:09 +00:00
parent 8d47684c09
commit 5d5a90c4e1
5 changed files with 7 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/tests/all-web-server-tests.ss
View File

@ -7,7 +7,6 @@
"managers/all-managers-tests.ss" "managers/all-managers-tests.ss"
"private/all-private-tests.ss" "private/all-private-tests.ss"
"servlet/all-servlet-tests.ss" "servlet/all-servlet-tests.ss"
"servlet-test.ss"
"servlet-env-test.ss") "servlet-env-test.ss")
(provide all-web-server-tests) (provide all-web-server-tests)
@ -21,5 +20,4 @@
all-managers-tests all-managers-tests
all-private-tests all-private-tests
all-servlet-tests all-servlet-tests
servlet-tests
servlet-env-tests))) servlet-env-tests)))

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

@ -3,15 +3,11 @@
(only (planet "ssax.ss" ("lizorkin" "ssax.plt" 1 3)) (only (planet "ssax.ss" ("lizorkin" "ssax.plt" 1 3))
ssax:xml->sxml) ssax:xml->sxml)
(planet "sxml.ss" ("lizorkin" "sxml.plt" 1 4)) (planet "sxml.ss" ("lizorkin" "sxml.plt" 1 4))
(lib "file.ss")
(lib "etc.ss") (lib "etc.ss")
(lib "url.ss" "net") (lib "url.ss" "net")
(lib "list.ss") (lib "list.ss")
(lib "xml.ss" "xml")
(lib "pretty.ss") (lib "pretty.ss")
(lib "request-structs.ss" "web-server" "private") (lib "request-structs.ss" "web-server" "private")
(lib "util.ss" "web-server" "private")
(lib "dispatch.ss" "web-server" "dispatchers")
(lib "cache-table.ss" "web-server" "private") (lib "cache-table.ss" "web-server" "private")
(lib "web-server-structs.ss" "web-server" "private") (lib "web-server-structs.ss" "web-server" "private")
(lib "namespace.ss" "web-server" "configuration") (lib "namespace.ss" "web-server" "configuration")
@ -44,7 +40,6 @@
(define test-servlets (build-path (collection-path "web-server") "tests" "servlets")) (define test-servlets (build-path (collection-path "web-server") "tests" "servlets"))
(define example-servlets (build-path (collection-path "web-server") "default-web-root" "servlets" "examples/")) (define example-servlets (build-path (collection-path "web-server") "default-web-root" "servlets" "examples/"))
; XXX
(define dispatch-servlets-tests (define dispatch-servlets-tests
(test-suite (test-suite
"Servlets" "Servlets"
@ -91,4 +86,9 @@
url0 url0
(build-list 7 (lambda (i) i)))))) (build-list 7 (lambda (i) i))))))
(test-suite
"servlet/web.ss"
; XXX
)
))) )))

9
collects/web-server/tests/servlet-test.ss
View File

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

6
collects/web-server/tests/servlet/all-servlet-tests.ss
View File

@ -3,8 +3,7 @@
"bindings-test.ss" "bindings-test.ss"
"servlet-url-test.ss" "servlet-url-test.ss"
"basic-auth-test.ss" "basic-auth-test.ss"
"helpers-test.ss" "helpers-test.ss")
"web-test.ss")
(provide all-servlet-tests) (provide all-servlet-tests)
(define all-servlet-tests (define all-servlet-tests
@ -13,5 +12,4 @@
bindings-tests bindings-tests
servlet-url-tests servlet-url-tests
basic-auth-tests basic-auth-tests
helpers-tests helpers-tests)))
web-tests)))

8
collects/web-server/tests/servlet/web-test.ss
View File

@ -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")))