adjust-timeout

svn: r6616

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

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

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"))
-      )
+      (test-equal? "adjust.ss - adjust-timeout!"
-     
+                   (let* ([d (mkd (build-path example-servlets "adjust.ss"))]
-     ; XXX redirect/get
+                          [k0 (first ((sxpath "//a/@href/text()") (call d url0 empty)))])
-     ; XXX redirect/get/forget
+                     (sleep 3)
-     ; XXX adjust-timeout!
+                     (call d k0 empty))
-     
+                   "#")))))
-     )))