From 43d2fdc86c454dc83a6fe24125d0fd1188cc1bfa Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 26 Aug 2020 14:52:42 +0000
Subject: Testcase chan-io-50.1 still fails sometimes on MacOSX. So put same
 measures in place as in io-50.1. See: [f586089a2b]

---
 tests/chanio.test | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tests/chanio.test b/tests/chanio.test
index 66f4a30..10f3624 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -6380,12 +6380,16 @@ test chan-io-50.1 {testing handler deletion} -setup {
     set f [open $path(test1) w]
     chan close $f
     set f [open $path(test1) r]
+    variable z not_called
+    set timer [after 50 lappend z timeout]
+    testservicemode 0
     testchannelevent $f add readable [namespace code {
 	variable z called
 	testchannelevent $f delete 0
     }]
-    variable z not_called
-    update
+    testservicemode 1
+    vwait z
+    after cancel $timer
     set z
 } -cleanup {
     chan close $f
-- 
cgit v0.12