From b923f9c1b2f7997197b6c213ecde4a3867955de6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 6 Dec 2013 17:19:07 -0700 Subject: [PATCH] net/http-client: fix `http-conn-live?` result Merge to v6.0 (cherry picked from commit 1f6453de8959adc6a9b1fc3e7ef78fbf202e10b9) --- pkgs/net-pkgs/net-test/tests/net/http-client.rkt | 16 ++++++++++++++++ racket/collects/net/http-client.rkt | 3 ++- 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/pkgs/net-pkgs/net-test/tests/net/http-client.rkt b/pkgs/net-pkgs/net-test/tests/net/http-client.rkt index 816dc334d5..2b1f10393b 100644 --- a/pkgs/net-pkgs/net-test/tests/net/http-client.rkt +++ b/pkgs/net-pkgs/net-test/tests/net/http-client.rkt @@ -78,6 +78,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 diff --git a/racket/collects/net/http-client.rkt b/racket/collects/net/http-client.rkt index 2fbcc8fa74..59b2f418f5 100644 --- a/racket/collects/net/http-client.rkt +++ b/racket/collects/net/http-client.rkt @@ -44,7 +44,8 @@ (define (http-conn-live? hc) (and (http-conn-to hc) - (http-conn-from hc))) + (http-conn-from hc) + #t)) (define (http-conn-open! hc host-bs #:ssl? [ssl? #f] #:port [port (if ssl? 443 80)]) (http-conn-close! hc)