From d7bd9ddc5fb86d6acca18f2fd33d31ff350cb4e7 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Sat, 4 Dec 2010 23:20:45 -0700
Subject: [PATCH] Adding compat0 test cases

---
 .../dispatchers/dispatch-servlets-test.rkt    |  2 ++
 .../htdocs/servlets/examples/add-compat0.rkt  | 29 +++++++++++++++++++
 .../servlets/examples/template-compat0.rkt    | 11 +++++++
 3 files changed, 42 insertions(+)
 create mode 100644 collects/web-server/default-web-root/htdocs/servlets/examples/add-compat0.rkt
 create mode 100644 collects/web-server/default-web-root/htdocs/servlets/examples/template-compat0.rkt

diff --git a/collects/tests/web-server/dispatchers/dispatch-servlets-test.rkt b/collects/tests/web-server/dispatchers/dispatch-servlets-test.rkt
index b27aaa9092..1106736a03 100644
--- a/collects/tests/web-server/dispatchers/dispatch-servlets-test.rkt
+++ b/collects/tests/web-server/dispatchers/dispatch-servlets-test.rkt
@@ -72,6 +72,8 @@
                           (build-path example-servlets "add-v2.rkt"))
     (test-add-two-numbers mkd "add-ssd.rkt - send/suspend/dispatch"
                           (build-path example-servlets "add-ssd.rkt"))
+    (test-add-two-numbers mkd "add-compat0.rkt"
+                          (build-path example-servlets "add-compat0.rkt"))
     (test-add-two-numbers mkd "add-formlets.rkt - send/formlet"
                           (build-path example-servlets "add-formlets.rkt"))
     (test-add-two-numbers mkd "add-page.rkt"
diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/add-compat0.rkt b/collects/web-server/default-web-root/htdocs/servlets/examples/add-compat0.rkt
new file mode 100644
index 0000000000..ba71b5866f
--- /dev/null
+++ b/collects/web-server/default-web-root/htdocs/servlets/examples/add-compat0.rkt
@@ -0,0 +1,29 @@
+#lang racket/base
+(require web-server/servlet
+         web-server/compat/0/coerce)
+(provide (all-defined-out))
+(define interface-version 'v1)
+(define timeout +inf.0)
+
+; request-number : str -> num
+(define (request-number which-number)
+  (send/suspend/dispatch
+   (lambda (embed/url)
+     `(html (head (title "Enter a Number to Add"))
+            (body ([bgcolor "white"])
+                  (form ([action ,(embed/url
+                                   (lambda (request)
+                                     (string->number
+                                      (extract-binding/single
+                                       'number
+                                       (request-bindings request)))))]
+                         [method "post"])
+                        "Enter the " ,which-number " number to add: "
+                        (input ([type "text"] [name "number"] [value ""]))
+                        (input ([type "submit"] [name "enter"] [value "Enter"]))))))))
+
+(define (start initial-request)
+  `(html (head (title "Sum"))
+         (body ([bgcolor "white"])
+               (p "The answer is "
+                  ,(number->string (+ (request-number "first") (request-number "second")))))))
diff --git a/collects/web-server/default-web-root/htdocs/servlets/examples/template-compat0.rkt b/collects/web-server/default-web-root/htdocs/servlets/examples/template-compat0.rkt
new file mode 100644
index 0000000000..d5f7fb63f5
--- /dev/null
+++ b/collects/web-server/default-web-root/htdocs/servlets/examples/template-compat0.rkt
@@ -0,0 +1,11 @@
+#lang racket
+(require web-server/templates
+         web-server/http
+         web-server/compat/0/coerce)
+(provide (all-defined-out))
+(define interface-version 'v1)
+(define timeout +inf.0)
+
+(define (start initial-request)
+  (cons TEXT/HTML-MIME-TYPE
+        (list (string->bytes/utf-8 (include-template "static.html")))))