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

Fixing redirectget test

Browse Source
This commit is contained in:
Jay McCarthy 2010-09-16 13:42:34 -06:00
parent 3b95c7acd5
commit afcc7c818d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/web-server/util.rkt
View File

@ -84,7 +84,9 @@
(define (call d u bs)
(htxml (collect d (make-request #"GET" (string->url u) empty (delay bs) #"" "127.0.0.1" 80 "127.0.0.1"))))
(define (htxml bs)
(match (regexp-match #"^.+\r\n\r\n(.+)$" bs)
(match (regexp-match #"^.+\r\n\r\n(.*)$" bs)
[(list _ #"")
""]
[(list _ s)
(string->xexpr (bytes->string/utf-8 s))]
[_