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>

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