From b68fb6f228dd9819a51aecc0a2c6da45219c3d7b Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 1 Sep 2012 12:48:14 -0600 Subject: [PATCH] Obey contract in internal test --- collects/tests/web-server/private/request-test.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/web-server/private/request-test.rkt b/collects/tests/web-server/private/request-test.rkt index e6658d352b..5ab62136c3 100644 --- a/collects/tests/web-server/private/request-test.rkt +++ b/collects/tests/web-server/private/request-test.rkt @@ -28,14 +28,14 @@ (define-values (conn headers) (make-mock-connection&headers post-data)) (call-with-values (lambda () - (read-bindings&post-data/raw (connection-i-port conn) #"POST" #f headers)) + (read-bindings&post-data/raw (connection-i-port conn) #"POST" (string->url "http://localhost") headers)) (lambda (f s) f))) (define (get-post-data/raw post-data) (define-values (conn headers) (make-mock-connection&headers post-data)) (call-with-values (lambda () - (read-bindings&post-data/raw (connection-i-port conn) #"POST" #f headers)) + (read-bindings&post-data/raw (connection-i-port conn) #"POST" (string->url "http://localhost") headers)) (lambda (f s) s))) (define (test-read-request b)