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

net/http-client: fix http-conn-live? result

Browse Source 
Merge to v6.0

original commit: 1f6453de89
This commit is contained in:
Matthew Flatt 2013-12-06 17:19:07 -07:00
parent 784ab3a94d
commit f9487b6168
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
pkgs/net-pkgs/net-test/tests/net/http-client.rkt
View File

@ -88,6 +88,22 @@
#:headers empty
#:data #f)
raw ereq estatus eheaders econtent))
#,(syntax/loc stx
(test-e the-port
(let ([c (hc:http-conn-open "localhost"
#:port the-port
#:ssl? #f)])
(check-equal? #t (hc:http-conn-live? c))
(hc:http-conn-send! c
"/"
#:method "GET"
#:headers empty
#:data #f)
(begin0
(hc:http-conn-recv! c
#:close? #t)
(check-equal? #f (hc:http-conn-live? c))))
raw ereq estatus eheaders econtent))
#,(syntax/loc stx
(test-e the-port
(u:http-sendrecv/url