diff options
Diffstat (limited to 'tests/event.test')
-rw-r--r-- | tests/event.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/event.test b/tests/event.test index 2dc6eb6..a4e9c95 100644 --- a/tests/event.test +++ b/tests/event.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# "@(#) event.test 1.36 97/12/08 15:05:00" +# RCS: @(#) $Id: event.test,v 1.1.2.2 1998/09/24 23:59:23 stanton Exp $ if {[string compare test [info procs test]] == 1} then {source defs} @@ -384,8 +384,8 @@ test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} {soc puts $s foobar close $s } - set s1 [socket -server accept 5000] - set s2 [socket 127.0.0.1 5000] + set s1 [socket -server accept 5001] + set s2 [socket 127.0.0.1 5001] close $s1 set x 0 set y 0 |