From f9487b6168b945f5e112abda7c9b517f2b8d1362 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 6 Dec 2013 17:19:07 -0700
Subject: [PATCH] net/http-client: fix `http-conn-live?` result

Merge to v6.0

original commit: 1f6453de8959adc6a9b1fc3e7ef78fbf202e10b9
---
 pkgs/net-pkgs/net-test/tests/net/http-client.rkt | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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 dbda01123e..d416dc06ca 100644
--- a/pkgs/net-pkgs/net-test/tests/net/http-client.rkt
+++ b/pkgs/net-pkgs/net-test/tests/net/http-client.rkt
@@ -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