web.ss tests

svn: r6598

collects/web-server/tests/servlet/web-test.ss

@@ -1,20 +1,29 @@
 (module web-test mzscheme
   (require (planet "test.ss" ("schematics" "schemeunit.plt" 2))
+           (lib "url.ss" "net")
            (lib "web.ss" "web-server" "servlet"))
   (provide web-tests)
   
+  (define url0 (string->url "http://test.com/servlets/example.ss"))
+  
   (define web-tests
     (test-suite
      "Web"
      
      (test-suite 
-      "continuation-url?"
-      )
-     
-     (test-suite
-      "embed-ids"
-      )
+      "continuation-url? and embed-ids"
+      (test-false "not k-url" (continuation-url? url0))
+      (test-equal? "identity"
+                   (continuation-url? (string->url (embed-ids (list 1 2 3) url0)))
+                   (list 1 2 3)))
      
      (test-suite
       "xexpr/callback->xexpr"
-      ))))
+      
+      (test-equal? "Simple"
+                   (xexpr/callback->xexpr 
+                    (lambda _ "#")
+                    `(html (head (title "Hello!"))
+                           (body (a ([href ,(lambda (request) "Hey!")]) "A link"))))
+                   `(html (head (title "Hello!"))
+                           (body (a ([href "#"]) "A link"))))))))