adding test

svn: r1842
2006-01-16 20:00:21 +00:00 · 2006-01-16 20:00:21 +00:00 · 7a35f717ba
commit 7a35f717ba
parent 12c7c0b6c6
1 changed files with 10 additions and 0 deletions
--- a/collects/tests/web-server/new/pr7823.ss
+++ b/collects/tests/web-server/new/pr7823.ss
@ -0,0 +1,10 @@
+(module pr7823 mzscheme
+  (require (lib "response.ss" "web-server"))
+  
+  (define x (make-response/full
+             200 "OK" (current-seconds) #"text/html" '()
+             (list "<html><body>Hello</body></html>")))
+  
+  (display x) (newline)
+  (display (response/full-body x)) (newline)
+  (display (response/basic-extras x)) (newline))