From 20220e60b643a969137e7c4022d193c0385f4e4c Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Tue, 12 Jun 2007 23:59:19 +0000
Subject: [PATCH] adjust-timeout

svn: r6616
---
 .../default-web-root/servlets/examples/adjust.ss   | 13 +++++++++++++
 collects/web-server/docs/reference/managers.scrbl  |  3 +++
 .../tests/dispatchers/dispatch-servlets-test.ss    | 14 +++++++-------
 3 files changed, 23 insertions(+), 7 deletions(-)
 create mode 100644 collects/web-server/default-web-root/servlets/examples/adjust.ss

diff --git a/collects/web-server/default-web-root/servlets/examples/adjust.ss b/collects/web-server/default-web-root/servlets/examples/adjust.ss
new file mode 100644
index 0000000000..818d51a00e
--- /dev/null
+++ b/collects/web-server/default-web-root/servlets/examples/adjust.ss
@@ -0,0 +1,13 @@
+(module adjust mzscheme
+  (require (lib "servlet.ss" "web-server"))
+  (provide (all-defined))
+  (define interface-version 'v1)
+  (define timeout +inf.0)
+  (define (start initial-request)
+    (adjust-timeout! 1)
+    (send/suspend
+     (lambda (k-url)
+       `(html (head (title "Hello"))
+              (body (a ([href ,k-url])
+                       "Link")))))
+    `(html (body "Should not happen"))))
\ No newline at end of file
diff --git a/collects/web-server/docs/reference/managers.scrbl b/collects/web-server/docs/reference/managers.scrbl
index 4b210732a9..bd087718a0 100644
--- a/collects/web-server/docs/reference/managers.scrbl
+++ b/collects/web-server/docs/reference/managers.scrbl
@@ -105,6 +105,9 @@ Web Language. (See @secref["lang"].)
  up, the @scheme[exn:fail:servlet-manager:no-continuation] exception
  is thrown with @scheme[instance-exp-handler] as the expiration handler, if
  no expiration-handler was passed to @scheme[continuation-store!].
+ 
+ @scheme[adjust-timeout!] corresponds to @scheme[reset-timer!] on the timer 
+ responsible for the servlet instance.
 }
 
 This manager has been found to be... problematic... in large-scale
diff --git a/collects/web-server/tests/dispatchers/dispatch-servlets-test.ss b/collects/web-server/tests/dispatchers/dispatch-servlets-test.ss
index b21a9aedeb..aecc95e232 100644
--- a/collects/web-server/tests/dispatchers/dispatch-servlets-test.ss
+++ b/collects/web-server/tests/dispatchers/dispatch-servlets-test.ss
@@ -51,6 +51,7 @@
      "Servlets"
      
      ; XXX test update cache
+     ; XXX redirect/get
      
      (test-pred "configure.ss"
                 string?
@@ -112,10 +113,9 @@
                    (list "Expired"
                          "Done."
                          "Expired"))
-      )
-     
-     ; XXX redirect/get
-     ; XXX redirect/get/forget
-     ; XXX adjust-timeout!
-     
-     )))
\ No newline at end of file
+      (test-equal? "adjust.ss - adjust-timeout!"
+                   (let* ([d (mkd (build-path example-servlets "adjust.ss"))]
+                          [k0 (first ((sxpath "//a/@href/text()") (call d url0 empty)))])
+                     (sleep 3)
+                     (call d k0 empty))
+                   "#")))))
\ No newline at end of file