From 0aa9f55fd0e202b63aaa549da55a5c3352a99fc8 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Fri, 6 Sep 2024 15:37:26 +1000
Subject: 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>
---
 tests/event.test | 4 ++--
 1 file 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}
-- 
cgit v1.1