suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Obey contract in internal test

Browse Source
This commit is contained in:
Jay McCarthy 2012-09-01 12:48:14 -06:00
parent be72d1475b
commit b68fb6f228
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/web-server/private/request-test.rkt
View File

@ -28,14 +28,14 @@
(define-values (conn headers) (make-mock-connection&headers post-data)) (define-values (conn headers) (make-mock-connection&headers post-data))
(call-with-values (call-with-values
(lambda () (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))) (lambda (f s) f)))
(define (get-post-data/raw post-data) (define (get-post-data/raw post-data)
(define-values (conn headers) (make-mock-connection&headers post-data)) (define-values (conn headers) (make-mock-connection&headers post-data))
(call-with-values (call-with-values
(lambda () (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))) (lambda (f s) s)))
(define (test-read-request b) (define (test-read-request b)