diff --git a/collects/web-server/default-web-root/servlets/tests/a-module.ss b/collects/web-server/default-web-root/servlets/tests/a-module.ss deleted file mode 100644 index 02c5b05358..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/a-module.ss +++ /dev/null @@ -1,12 +0,0 @@ -(module a-module mzscheme - (provide interface-version timeout start) - - (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 "A simple module servlet works."))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/bad-xexpr.ss b/collects/web-server/default-web-root/servlets/tests/bad-xexpr.ss deleted file mode 100644 index f7f66f4b46..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/bad-xexpr.ss +++ /dev/null @@ -1,10 +0,0 @@ -(module bad-xexpr mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define interface-version 'v1) - (define timeout 60) - (define (start initial-request) - (send/back - `(html (a ([href url]) - "Title"))))) diff --git a/collects/web-server/default-web-root/servlets/tests/counter-cells.ss b/collects/web-server/default-web-root/servlets/tests/counter-cells.ss deleted file mode 100644 index 3abc279bad..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/counter-cells.ss +++ /dev/null @@ -1,46 +0,0 @@ -(module counter-cells mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define interface-version 'v1) - (define timeout 60) - (define (start _) - (main-page)) - - (define the-counter (make-web-cell 0)) - (define the-header (make-web-cell (box "Main page"))) - - (define (counter) - (send/suspend/dispatch - (lambda (embed/url) - `(html (h2 ,(number->string (web-cell-ref the-counter))) - (a ([href ,(embed/url - (lambda _ - (web-cell-shadow the-counter - (add1 (web-cell-ref the-counter))) - (counter)))]) - "Increment") - (br) - (a ([href ,(embed/url - (lambda _ - 'exit))]) - "Exit"))))) - - (define (main-page) - (send/suspend/dispatch - (lambda (embed/url) - `(html (h2 ,(unbox (web-cell-ref the-header))) - (form ([method "POST"] - [action ,(embed/url - (lambda (req) - (set-box! (web-cell-ref the-header) - (extract-binding/single 'header (request-bindings req))) - (main-page)))]) - (input ([type "text"] [name "header"])) - (input ([type "submit"]))) - (br) - (a ([href ,(embed/url - (lambda _ - (counter) - (main-page)))]) - "View Counter")))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/cust.ss b/collects/web-server/default-web-root/servlets/tests/cust.ss deleted file mode 100644 index c0160973e1..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/cust.ss +++ /dev/null @@ -1,15 +0,0 @@ -(module cust mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define servlet-cust (current-custodian)) - (define timeout 30) - (define interface-version 'v1) - - (define (start ir) - `(html - (head (title "Custodian test")) - (body - (p ,(if (eq? (current-custodian) servlet-cust) - "It didn't work." - "It did work.")))))) diff --git a/collects/web-server/default-web-root/servlets/tests/cut-module.ss b/collects/web-server/default-web-root/servlets/tests/cut-module.ss deleted file mode 100644 index 7dfb04b03b..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/cut-module.ss +++ /dev/null @@ -1,55 +0,0 @@ -; purpose: to test send/suspend, send/forward, send/back, and send/finish -(module cut-module mzscheme - (provide interface-version timeout start) - (require (lib "servlet.ss" "web-server")) - - (define interface-version 'v1) - - (define timeout (* 7 24 60 60)) - - ; : request -> response - (define (start initial-request) - (let ([order (extract-binding/single - 'order - (request-bindings - (send/suspend (let ([question "Place your order"]) - (lambda (k-url) - `(html (head (title ,question)) - (body (form ([action ,k-url] [method "post"]) - ,question - (input ([type "text"] [name "order"]))))))))))]) - (if (string=? "coconut" order) - (continue-shopping) - (retry-order)))) - - ; : -> doesn't - (define (continue-shopping) - (let* ([next-request - (send/forward - (lambda (k-url) - `(html (head (title "Keep shopping")) - (body (form ([action ,k-url] [method "post"]) - (p "Your order has shipped to a random location. You may not go back.") - (p (input ([type "submit"] [name "go"] [value "Keep Shopping"]))) - (p (input ([type "submit"] [name "stop"] [value "Logout"]))))))))] - [next (request-bindings next-request)]) - (cond - [(exists-binding? 'go next) - (start next-request)] - [(exists-binding? 'stop next) - (send/finish goodbye-page)] - [else - (send/finish - `(html (head (title "Oops")) - (body ([bgcolor "white"]) - (p "Oops " ,(format "next = ~v" next)))))]))) - - ; : -> doesn't - (define (retry-order) - (send/back '(html (head (title "oops")) - (body (p "This store only sells coconuts. Please click the browser's back button and type " - (code "coconut") " in the field."))))) - - (define goodbye-page - `(html (head (title "Goodbye")) - (body (p "Thank you for shopping."))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/expiration.ss b/collects/web-server/default-web-root/servlets/tests/expiration.ss deleted file mode 100644 index 79865e12a1..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/expiration.ss +++ /dev/null @@ -1,35 +0,0 @@ -(module expiration mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define timeout (* 60 3)) - (define interface-version 'v1) - - (define (start initial-request) - (parameterize ([current-servlet-continuation-expiration-handler - (lambda (request-for-expired) - (send/back - `(html (body (p "You lose! (Default)")))))]) - (let loop ([request initial-request]) - (send/suspend/dispatch - (lambda (embed/url) - `(html - (head (title "Expiration demo")) - (body (p "Open each of the links below in a new window. Then click the link in 'Forget' window. Then reload each window.") - (p (a ([href ,(embed/url loop)]) - "Loop")) - (p (a ([href ,(embed/url - loop - (lambda (request-for-expired) - (send/back - `(html (head (title "Expiration demo")) - (body (p "You win! (Special)"))))))]) - "Loop w/ Expiration")) - (p (a ([href ,(embed/url - (lambda (request) - (loop - (send/forward - (lambda (k-url) - `(html (head (title "Expiration demo")) - (body (p (a ([href ,k-url]) "Forget the past.")))))))))]) - "Prepare to forget the past.")))))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/mime.ss b/collects/web-server/default-web-root/servlets/tests/mime.ss deleted file mode 100644 index 2dea2d3620..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/mime.ss +++ /dev/null @@ -1,9 +0,0 @@ -(module mime mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - (define interface-version 'v1) - (define timeout +inf.0) - (define (start initial-request) - `("text/uber-format" - "uber uber uber" - "-de-doo"))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/response.ss b/collects/web-server/default-web-root/servlets/tests/response.ss deleted file mode 100644 index 5eb100c500..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/response.ss +++ /dev/null @@ -1,5 +0,0 @@ -(define title "A Test of Direct Responses") - -`(html (head (title ,title)) - (body (h2 ,title) - (p "This is only a test."))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/ssd.ss b/collects/web-server/default-web-root/servlets/tests/ssd.ss deleted file mode 100644 index 8098699192..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/ssd.ss +++ /dev/null @@ -1,18 +0,0 @@ -(module ssd mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - (define interface-version 'v1) - (define timeout 120) - (define (start ir) - (printf "X~n") - (send/suspend/dispatch - (lambda (embed/url) - `(html (head) - (body - (ul - ,@(map (lambda (i) - `(li (a ([href ,(embed/url - (lambda (r) - `(html (head) (body ,i))))]) - ,(number->string i)))) - `(1 2 3 4 5 6 7 8 9 0))))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/static.ss b/collects/web-server/default-web-root/servlets/tests/static.ss deleted file mode 100644 index c71d73062d..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/static.ss +++ /dev/null @@ -1,9 +0,0 @@ -(module static mzscheme - (require (lib "servlet.ss" "web-server")) - (provide interface-version timeout start) - (define interface-version 'v1) - (define timeout +inf.0) - (define (start initial-request) - (list - #"text/html" - "Foo")))