diff options
Diffstat (limited to 'tests/event.test')
| -rw-r--r-- | tests/event.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/event.test b/tests/event.test index 5e8cc4c..0ac11cd 100644 --- a/tests/event.test +++ b/tests/event.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: event.test,v 1.21 2006/10/09 19:15:44 msofer Exp $ +# RCS: @(#) $Id: event.test,v 1.22 2006/11/03 11:45:33 dkf Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -407,7 +407,7 @@ test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} {soc puts $s foobar close $s } - catch {set s1 [socket -server accept 0]} + catch {set s1 [socket -server accept -myaddr 127.0.0.1 0]} after 1000 catch {set s2 [socket 127.0.0.1 [lindex [fconfigure $s1 -sockname] 2]]} close $s1 |