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

Catching contract violation error discovered by Danny Yoo

Browse Source
This commit is contained in:
Jay McCarthy 2013-01-25 06:50:00 -07:00
parent 9210437b3f
commit 545009a48a
2 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/tests/web-server/pr/cl-long.rkt Normal file
View File

@ -0,0 +1,14 @@
#lang racket/base
(require web-server/http
web-server/http/request
web-server/http/bindings
rackunit
"../util.rkt")
(define request-bs
#"POST /xapps/agent-stat HTTP/1.1\r\nUser-Agent: curl/7.21.6 (x86_64-pc-linux-gnu) libcurl/7.21.6 OpenSSL/1.0.0e zlib/1.2.3.4 libidn/1.22 librtmp/2.3\r\nHost: localhost:8080\r\nAccept: */*\r\nContent-Length: 95\r\nContent-Type: application/x-www-form-urlencoded\r\n\r\n")
(define-values (conn ip op)
(make-mock-connection request-bs))
(check-exn (λ (x) (regexp-match #rx"Post data" (exn-message x)))
(λ () (read-request conn 80 (λ _ (values "to" "from")))))

20
collects/web-server/http/request.rkt
View File

@ -274,7 +274,17 @@
[(string->number (bytes->string/utf-8 value))
=> (lambda (len)
(let ([raw-bytes (read-bytes len in)])
(values (delay (append (parse-bindings raw-bytes) (force bindings-GET))) raw-bytes)))]
(cond
[(eof-object? raw-bytes)
(network-error
'read-bindings
"Post data ended pre-maturely")]
[else
(values (delay
(append
(parse-bindings raw-bytes)
(force bindings-GET)))
raw-bytes)])))]
[else
(network-error
'read-bindings
@ -288,7 +298,13 @@
(cond [(string->number (bytes->string/utf-8 value))
=> (lambda (len)
(let ([raw-bytes (read-bytes len in)])
(values (delay empty) raw-bytes)))]
(cond
[(eof-object? raw-bytes)
(network-error
'read-bindings
"Post data ended pre-maturely")]
[else
(values (delay empty) raw-bytes)])))]
[else
(network-error
'read-bindings