Adding compat0 test cases

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"

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

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