diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-10-12 20:29:05 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:57 +1000 |
commit | 92083f41130290f9e2cf1eedc5750a348fd11809 (patch) | |
tree | 7f848baf4a549979cf495c6347a6d5385e008a45 /tests/event.test | |
parent | 0e2703df31a67c57e23954943f7980c5cc309755 (diff) | |
download | jimtcl-92083f41130290f9e2cf1eedc5750a348fd11809.zip jimtcl-92083f41130290f9e2cf1eedc5750a348fd11809.tar.gz jimtcl-92083f41130290f9e2cf1eedc5750a348fd11809.tar.bz2 |
Portability fixes
Especially for eCos, mingw32 and cygwin
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/event.test')
-rw-r--r-- | tests/event.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/event.test b/tests/event.test index 0f681af..725d63b 100644 --- a/tests/event.test +++ b/tests/event.test @@ -105,15 +105,16 @@ foreach i [after info] { after cancel $i } +if {[info commands socket] ne ""} { test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} { set f1 [open test1 w] proc accept {s args} { puts $s foobar close $s } - catch {set s1 [socket stream.server 5001]} + set s1 [socket stream.server 5001] after 1000 - catch {set s2 [socket stream 5001]} + set s2 [socket stream 127.0.0.1:5001] close $s1 set x 0 set y 0 @@ -128,6 +129,7 @@ test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} { file delete test1 test2 list $x $y $z } {3 3 done} +} test event-11.6 {Tcl_VwaitCmd procedure: round robin scheduling, same source} { file delete test1 test2 set f1 [open test1 w] |