event.test: don't rely on 'stdin readable'

Use after instead because otherwise the alarm
in the readable script which confuses things later.

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 bda47b0..a81128e 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -218,8 +218,8 @@ test event-13.1 "vwait/signal" signal {
     signal handle ALRM
     list [catch -signal {
         alarm 0.1
-        # This is just to prevent the vwait from exiting immediately
-        stdin readable { format test }
+        # prevent the vwait from exiting immediately
+        after 1000 { }
         vwait forever
     } msg] $msg
 } {5 SIGALRM}