From 6c0be70d2b1cc5dbfd1277556ac27ea2e39be4bb Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Mon, 10 Aug 2020 16:54:46 +0000
Subject: amend to [8054e19451]: clean up timeout timer event (avoid timing
 issues on further tests)

---
 tests/chanio.test | 1 +
 tests/io.test     | 1 +
 2 files changed, 2 insertions(+)

diff --git a/tests/chanio.test b/tests/chanio.test
index 93375a0..66f4a30 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -5734,6 +5734,7 @@ test chan-io-46.1 {Tcl event loop vs multiple interpreters} {testfevent fileeven
     set timer [after 10 lappend x timeout]
     testfevent cmd $script
     vwait x
+    after cancel $timer
     testfevent cmd {chan close $f}
     list [testfevent cmd {set x}] [testfevent cmd {info commands after}]
 } {{f triggered: foo bar} after}
diff --git a/tests/io.test b/tests/io.test
index 0db6afb..685394c 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -6036,6 +6036,7 @@ test io-46.1 {Tcl event loop vs multiple interpreters} {testfevent fileevent} {
     set timer [after 10 lappend x timeout]
     testfevent cmd $script
     vwait x
+    after cancel $timer
     testfevent cmd {close $f}
     list [testfevent cmd {set x}] [testfevent cmd {info commands after}]
 } {{f triggered: foo bar} after}
-- 
cgit v0.12