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 | 00863e2c671d1b08bff511bcb15f81ff83470681 (patch) | |
| tree | 9fd0d284ba9dda21d8234ef7ab9d4b2767341865 /tests/socket.test | |
| parent | 304bb531d7f770cd713deac2bb35863a2fd098bb (diff) | |
| download | tcl-00863e2c671d1b08bff511bcb15f81ff83470681.zip tcl-00863e2c671d1b08bff511bcb15f81ff83470681.tar.gz tcl-00863e2c671d1b08bff511bcb15f81ff83470681.tar.bz2 | |
Made test socket-14.1 more robust to stop failure on OS X (Snow Leopard)
Diffstat (limited to 'tests/socket.test')
| -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} { |