The first paragraph
\n") - (sleep 4) - (output-chunk "The second paragraph
\n")))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/inf-essence.ss b/collects/web-server/default-web-root/servlets/tests/inf-essence.ss deleted file mode 100644 index b6fb9386dd..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/inf-essence.ss +++ /dev/null @@ -1,13 +0,0 @@ -(module inf-essence mzscheme - (define a (alarm-evt +inf.0)) - - (let loop () - (sync - (handle-evt a - (lambda _ - (printf "Infinity has passed.~n"))) - (handle-evt (alarm-evt (+ (current-inexact-milliseconds) - (* 1000 1))) - (lambda _ - (printf "One second has passed.~n")))) - (loop))) diff --git a/collects/web-server/default-web-root/servlets/tests/inf.ss b/collects/web-server/default-web-root/servlets/tests/inf.ss deleted file mode 100644 index 73c99870e6..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/inf.ss +++ /dev/null @@ -1,12 +0,0 @@ -(module inf 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 "This is a simple module servlet."))))) diff --git a/collects/web-server/default-web-root/servlets/tests/instance-expiration-2.ss b/collects/web-server/default-web-root/servlets/tests/instance-expiration-2.ss deleted file mode 100644 index 6533ee18f1..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/instance-expiration-2.ss +++ /dev/null @@ -1,24 +0,0 @@ -(module instance-expiration-2 mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define timeout 5) - (define interface-version 'v2) - - (define (instance-expiration-handler expired-request) - ; Not allowed to call any (lib "servlet.ss" "web-server") methods - ; (I can't enforce this, however, so if you accidentally do weird things will happen.) - (send/suspend (lambda (k) - `(html (head (title "You win.")) (body "You win."))))) - - (define (start initial-request) - (send/suspend/dispatch - (lambda (embed/url) - `(html - (head (title "Instance expiration demo")) - (body (p (a ([href ,(embed/url - (lambda (request) - `(html (head (title "Instance expiration demo")) - (body (p "Reload in a few minutes.") - (p "(or change the instance id to something made up.")))))]) - "Click this link.")))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/instance-expiration.ss b/collects/web-server/default-web-root/servlets/tests/instance-expiration.ss deleted file mode 100644 index 8f0fc07b16..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/instance-expiration.ss +++ /dev/null @@ -1,23 +0,0 @@ -(module instance-expiration mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define timeout 5) - (define interface-version 'v2) - - (define (instance-expiration-handler expired-request) - ; Not allowed to call any (lib "servlet.ss" "web-server") methods - ; (I can't enforce this, however, so if you accidentally do weird things will happen.) - `(html (head (title "You win.")) (body "You win."))) - - (define (start initial-request) - (send/suspend/dispatch - (lambda (embed/url) - `(html - (head (title "Instance expiration demo")) - (body (p (a ([href ,(embed/url - (lambda (request) - `(html (head (title "Instance expiration demo")) - (body (p "Reload in a few minutes.") - (p "(or change the instance id to something made up.")))))]) - "Click this link.")))))))) diff --git a/collects/web-server/default-web-root/servlets/tests/jas01-param.ss b/collects/web-server/default-web-root/servlets/tests/jas01-param.ss deleted file mode 100644 index 3f508f17ad..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/jas01-param.ss +++ /dev/null @@ -1,9 +0,0 @@ -(module jas01-param mzscheme - (provide get-time) - - (define load-time (make-parameter #f)) - - (define (get-time) - (load-time)) - - (load-time (current-seconds))) diff --git a/collects/web-server/default-web-root/servlets/tests/jas01-test.ss b/collects/web-server/default-web-root/servlets/tests/jas01-test.ss deleted file mode 100644 index 5a468319b0..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/jas01-test.ss +++ /dev/null @@ -1,10 +0,0 @@ -(module jas01-test mzscheme - (define start #f) - (thread-wait - (thread - (lambda () - (set! start (dynamic-require "jas01.ss" 'start))))) - (thread-wait - (thread - (lambda () - (printf "~S~n" (start 'foo)))))) diff --git a/collects/web-server/default-web-root/servlets/tests/lock.ss b/collects/web-server/default-web-root/servlets/tests/lock.ss deleted file mode 100644 index 6f67fc2e7a..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/lock.ss +++ /dev/null @@ -1,24 +0,0 @@ -(module lock mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define interface-version 'v2-transitional) - (define timeout 60) - (define (instance-expiration-handler _) - `(html (body "Error"))) - (define (start _) - (send/suspend/dispatch - (lambda (embed/url) - `(html (body - (p (a ([href ,(embed/url - (lambda _ - (sleep 5) - (second "Slow")))]) - "Slow")) - (p (a ([href ,(embed/url - (lambda _ - (second "Fast")))]) - "Fast"))))))) - (define (second label) - `(html (body ,label - ,(number->string (current-seconds)))))) diff --git a/collects/web-server/default-web-root/servlets/tests/module-suspended-init.ss b/collects/web-server/default-web-root/servlets/tests/module-suspended-init.ss deleted file mode 100644 index cee311cec4..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/module-suspended-init.ss +++ /dev/null @@ -1,29 +0,0 @@ -(module module-suspended-init 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 ([name (extract-binding/single - 'name - (request-bindings - (send/suspend (let ([question "What is your name?"]) - (lambda (k-url) - `(html (head (title ,question)) - (body (form ([action ,k-url] [method "post"]) - ,question - (input ([type "text"] [name "order"]))))))))))]) - `(html (head (title "Hi " ,name "!")) - (body (p "Hello, " ,name "! Don't you feel special now?"))))) - - (send/suspend - (lambda (k-url) - `(html (head (title "Module Init")) - (body (form ([action ,k-url] [method "post"]) - (p "Maybe calling send/suspend during the module initialization is not a good idea.") - (p "This call to send/suspend fails in the development environment since the parameter is #f") - (p "It fails in the server because the instance id is not yet installed into the table."))))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/none-test.ss b/collects/web-server/default-web-root/servlets/tests/none-test.ss deleted file mode 100644 index 9097168261..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/none-test.ss +++ /dev/null @@ -1,10 +0,0 @@ -(module none-test mzscheme - (require (lib "none.ss" "web-server" "managers")) - (provide (all-defined)) - - (define interface-version 'v2-transitional) - (define manager (create-none-manager - (lambda (failed-request) - `(html (body (h2 "Error")))))) - (define (start initial-request) - `(html (body (h2 "Look Ma, No Instance!"))))) diff --git a/collects/web-server/default-web-root/servlets/tests/plus.ss b/collects/web-server/default-web-root/servlets/tests/plus.ss deleted file mode 100644 index 27b31755e4..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/plus.ss +++ /dev/null @@ -1,28 +0,0 @@ -(module plus mzscheme - (require (lib "servlet.ss" "web-server") - (lib "pretty.ss")) - (provide (all-defined)) - - (define interface-version 'v1) - (define timeout 60) - (define (start _) - (define req - (send/suspend - (lambda (k-url) - `(html - (body - (form ([action ,k-url] [method "POST"]) - (input ([type "checkbox"] [name "checkbox"])) - (input ([type "text"] [name "text+foo"])) - (input ([type "submit"] [name "submit"])))))))) - (define binds - (request-bindings req)) - (define sport - (open-output-string)) - (define pp - (parameterize ([current-output-port sport]) - (pretty-print binds))) - `(html - (body - (pre - ,(get-output-string sport)))))) diff --git a/collects/web-server/default-web-root/servlets/tests/pr5490.ss b/collects/web-server/default-web-root/servlets/tests/pr5490.ss deleted file mode 100644 index 03cd86153e..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/pr5490.ss +++ /dev/null @@ -1,8 +0,0 @@ -(module pr5490 mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define interface-version 'v1) - (define timeout 120) - (define (start ireq) - (send/finish '(("paul") "...")))) diff --git a/collects/web-server/default-web-root/servlets/tests/pr7359.ss b/collects/web-server/default-web-root/servlets/tests/pr7359.ss deleted file mode 100644 index e14ed95fd5..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/pr7359.ss +++ /dev/null @@ -1,12 +0,0 @@ -(module pr7359 mzscheme - (require (lib "serialize.ss") - (lib "servlet.ss" "web-server")) - (provide interface-version timeout start) - - (define interface-version 'v1) - (define timeout +inf.0) - - (define-serializable-struct foo ()) - (define (start req) - (deserialize (serialize (make-foo))) - `(html (body "Made it")))) diff --git a/collects/web-server/default-web-root/servlets/tests/pr7533.ss b/collects/web-server/default-web-root/servlets/tests/pr7533.ss deleted file mode 100644 index 4a934b327f..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/pr7533.ss +++ /dev/null @@ -1,19 +0,0 @@ -(module pr7533 mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define interface-version 'v1) - (define timeout 60) - (define (start initial-request) - (define start-time (current-seconds)) - (let loop ((last-time start-time)) - (let ((time (current-seconds))) - (send/suspend - (lambda (k) - `(html - (form ((action ,k) (method "post")) - (p ,(format "It has been ~a seconds since starting (~a seconds since last iteration)." - (- time start-time) - (- time last-time))) - (input ((type "submit"))))))) - (loop time))))) diff --git a/collects/web-server/default-web-root/servlets/tests/size.ss b/collects/web-server/default-web-root/servlets/tests/size.ss deleted file mode 100644 index 4c272a4812..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/size.ss +++ /dev/null @@ -1,23 +0,0 @@ -(module size mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - (define interface-version 'v1) - (define timeout +inf.0) - - (define line-size 80) - (define (build-a-str n) - (list->string (let loop ([n n]) - (cond - [(zero? n) (list #\newline)] - [else (cons #\a (loop (sub1 n)))])))) - (define line (build-a-str (sub1 line-size))) - (define html-overhead 68) - (define (start initial-request) - (define bindings (request-bindings initial-request)) - (define size (- (string->number (cdr (assq 'size bindings))) html-overhead)) - (define nlines (quotient size line-size)) - (define extra (remainder size line-size)) - - `(html (head (title "A Page")) - (body (p ,@(vector->list (make-vector nlines line)) - ,(build-a-str extra)))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/suspended-module.ss b/collects/web-server/default-web-root/servlets/tests/suspended-module.ss deleted file mode 100644 index 6c4ce3890e..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/suspended-module.ss +++ /dev/null @@ -1,21 +0,0 @@ -(module suspended-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 ([name (extract-binding/single - 'name - (request-bindings - (send/suspend (let ([question "What is your name?"]) - (lambda (k-url) - `(html (head (title ,question)) - (body (form ([action ,k-url] [method "post"]) - ,question - (input ([type "text"] [name "order"]))))))))))]) - `(html (head (title "Hi " ,name "!")) - (body (p "Hello, " ,name "! Don't you feel special now?")))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/test.ss b/collects/web-server/default-web-root/servlets/tests/test.ss deleted file mode 100644 index 1bd7da8d20..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/test.ss +++ /dev/null @@ -1,17 +0,0 @@ -(module test mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - (define interface-version 'v1) - (define timeout +inf.0) - (define count 0) - - (define (start initial-request) - (with-handlers ([void (lambda (exn) `(html (body (p ,(exn-message exn)))))]) - (set! count (add1 count)) - `(html (head (title "Testing 1...2...3")) - (body (p "This is a generated web page.") - (p ,(format "Here are the bindings:~n~s~n" (request-bindings initial-request)) - (br) - "Count = " ,(number->string count) - (br) - ,(format "Here are the headers:~n~s~n" (request-headers initial-request)))))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/update.ss b/collects/web-server/default-web-root/servlets/tests/update.ss deleted file mode 100644 index f3941d01e3..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/update.ss +++ /dev/null @@ -1,11 +0,0 @@ -(module update mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define timeout 60) - (define interface-version 'v1) - (define (start initial-request) - (send/back - `(html (head) - (body - (h1 "Hey")))))) diff --git a/collects/web-server/default-web-root/servlets/tests/url.ss b/collects/web-server/default-web-root/servlets/tests/url.ss deleted file mode 100644 index 65f027e329..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/url.ss +++ /dev/null @@ -1,15 +0,0 @@ -(module url mzscheme - (require (lib "servlet.ss" "web-server") - (lib "url.ss" "net")) - (provide (all-defined)) - (define interface-version 'v1) - (define timeout +inf.0) - - (define count 0) - - (define (start initial-request) - (set! count (add1 count)) - `(html (head (title "URL Test")) - (body (p "The method requested is: " ,(format "~s" (request-method initial-request))) - (p "The URL requested is: " ,(url->string (request-uri initial-request))) - (p "count is: " ,(number->string count)))))) \ No newline at end of file diff --git a/collects/web-server/default-web-root/servlets/tests/utf8.ss b/collects/web-server/default-web-root/servlets/tests/utf8.ss deleted file mode 100644 index ee4f151814..0000000000 --- a/collects/web-server/default-web-root/servlets/tests/utf8.ss +++ /dev/null @@ -1,17 +0,0 @@ -(module utf8 mzscheme - (require (lib "servlet.ss" "web-server")) - (provide (all-defined)) - - (define interface-version 'v1) - (define timeout 60) - (define (start initial-request) - (extract-binding/single - 'name - (request-bindings - (send/suspend - (lambda (k-url) - `(html - (body - (form ([action ,k-url]) - (input ([type "text"] [name "name"])) - (input ([type "submit"])))))))))))