From 7ac2b8e316bc7d688ba6be225db3b6cfad600d1f Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 8 Dec 2010 14:07:23 -0700 Subject: [PATCH] Fixing tests --- collects/tests/web-server/pr/11125.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/tests/web-server/pr/11125.rkt b/collects/tests/web-server/pr/11125.rkt index 4e441ce475..93a3147227 100644 --- 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))