diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-03 11:45:32 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-11-03 11:45:32 (GMT) |
| commit | b0336f197479fbd56091c339eec3cacc76e99292 (patch) | |
| tree | 1eefe38f45eef7570a4b44ce733132a9d2fb8602 /tests/event.test | |
| parent | 9620510685aba2a1cd7181551718278db98778c1 (diff) | |
| download | tcl-b0336f197479fbd56091c339eec3cacc76e99292.zip tcl-b0336f197479fbd56091c339eec3cacc76e99292.tar.gz tcl-b0336f197479fbd56091c339eec3cacc76e99292.tar.bz2 | |
Keep most tests from making sockets that are reachable off the machine.
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 |