summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-09-16 17:12:25 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-09-16 17:12:25 (GMT)
commita46ead9692a9b2e6ddedba10dc6e11d3cb6bfdda (patch)
tree9fd0d284ba9dda21d8234ef7ab9d4b2767341865
parentee0187240aa7cb4e3eb5cd96de081a7d6f9af0e6 (diff)
downloadtcl-a46ead9692a9b2e6ddedba10dc6e11d3cb6bfdda.zip
tcl-a46ead9692a9b2e6ddedba10dc6e11d3cb6bfdda.tar.gz
tcl-a46ead9692a9b2e6ddedba10dc6e11d3cb6bfdda.tar.bz2
Made test socket-14.1 more robust to stop failure on OS X (Snow Leopard)
-rw-r--r--tests/socket.test1
1 files changed, 1 insertions, 0 deletions
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} {