From 6f48aaeaa78a8c1ac0cba9394c3a1d59507f49cd Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 27 Feb 2011 19:02:09 -0600
Subject: [PATCH] added a test case for this commit:

  http://git.racket-lang.org/plt/commit/2482816d3d
---
 collects/tests/racket/file.rktl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/collects/tests/racket/file.rktl b/collects/tests/racket/file.rktl
index 5778ed34dc..e27d22cffa 100644
--- a/collects/tests/racket/file.rktl
+++ b/collects/tests/racket/file.rktl
@@ -1317,11 +1317,11 @@
 ;; TCP
 
 (let ([do-once
-       (lambda (evt?)
+       (lambda (evt? localhost)
 	 (let* (
 	  [l (tcp-listen 0 5 #t)]
     [pn (listen-port l)])
-	   (let-values ([(r1 w1) (tcp-connect "localhost" pn)]
+	   (let-values ([(r1 w1) (tcp-connect localhost pn)]
 			[(r2 w2) (if evt?
 				     (apply values (sync (tcp-accept-evt l)))
 				     (tcp-accept l))])
@@ -1339,8 +1339,10 @@
 	   (when evt?
 	     (test #f sync/timeout 0 (tcp-accept-evt l)))
 	   (tcp-close l)))])
-  (do-once #f)
-  (do-once #t))
+  (do-once #f "localhost")
+  (do-once #t "localhost")
+  (do-once #f "::1")
+  (do-once #t "::1"))
 
 (test #f tcp-port? (current-input-port))
 (test #f tcp-port? (current-output-port))