diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-09-16 17:12:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-09-16 17:12:25 (GMT) |
| commit | a46ead9692a9b2e6ddedba10dc6e11d3cb6bfdda (patch) | |
| tree | 9fd0d284ba9dda21d8234ef7ab9d4b2767341865 | |
| parent | ee0187240aa7cb4e3eb5cd96de081a7d6f9af0e6 (diff) | |
| download | tcl-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.test | 1 |
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} { |