From a46ead9692a9b2e6ddedba10dc6e11d3cb6bfdda Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 16 Sep 2011 17:12:25 +0000
Subject: Made test socket-14.1 more robust to stop failure on OS X (Snow
 Leopard)

---
 tests/socket.test | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/socket.test b/tests/socket.test
index 58eb3ee..f63f5ca 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -1760,6 +1760,7 @@ test socket-14.1 {[socket -async] fileevent while still connecting} \
         set client [socket -async localhost $port]
         fileevent $client writable {
             lappend x [fconfigure $client -error]
+	    fileevent $client writable {}
         }
         set after [after 1000 {lappend x timeout}]
         while {[llength $x] < 2 && "timeout" ni $x} {
-- 
cgit v0.12