Fixing tests

2010-12-08 14:07:23 -07:00 · 2010-12-08 14:07:23 -07:00 · 7ac2b8e316
commit 7ac2b8e316
parent 5285dc6a16
1 changed files with 3 additions and 1 deletions
--- a/collects/tests/web-server/pr/11125.rkt
+++ b/collects/tests/web-server/pr/11125.rkt
@ -13,7 +13,9 @@
      
      (define (start req)
        (thread-cell-set! tc (add1 (thread-cell-ref tc)))
-        (number->string (thread-cell-ref tc)))
+        (response/full 200 #"Okay" (current-seconds)
+                       #"text" empty
+                       (list (string->bytes/utf-8 (number->string (thread-cell-ref tc))))))
      
      (define-values (pipe-read-p pipe-write-p)
        (make-pipe))