diff options
| author | Steve Bennett <steveb@workware.net.au> | 2014-04-28 13:15:00 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2014-04-28 13:15:00 +1000 |
| commit | 799585fa2e3f2705fe351b63b25978dc1c5a4bc4 (patch) | |
| tree | faccf9cac12251bd4cba14ce76667d86959779ff | |
| parent | 2109114de9f21f13641f01fabc1473146b5f39d9 (diff) | |
| download | jimtcl-799585fa2e3f2705fe351b63b25978dc1c5a4bc4.zip jimtcl-799585fa2e3f2705fe351b63b25978dc1c5a4bc4.tar.gz jimtcl-799585fa2e3f2705fe351b63b25978dc1c5a4bc4.tar.bz2 | |
event.test: Fix test on Haiku
Haiku doesn't seem to trigger the "readable" event
on a connected socket with no data, so use the "writable" event instead
since this seems to work on all platforms.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
| -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 a969f4c..856e0cc 100644 --- a/tests/event.test +++ b/tests/event.test @@ -122,10 +122,10 @@ test event-11.5 {Tcl_VwaitCmd procedure: round robin scheduling, 2 sources} {jim set x 0 set y 0 set z 0 - fileevent $s2 readable { incr z } + fileevent $s2 writable { incr z } vwait z fileevent $f1 writable { incr x; if { $y == 3 } { set z done } } - fileevent $s2 readable { incr y; if { $x == 3 } { set z done } } + fileevent $s2 writable { incr y; if { $x == 3 } { set z done } } vwait z close $f1 close $s2 |