summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2023-03-17 14:22:44 (GMT)
committerdgp <dgp@users.sourceforge.net>2023-03-17 14:22:44 (GMT)
commit13b1529c7b6f4da55532170ee08ac047581b6300 (patch)
treeea29c9975e7e072bd474f32c093b08eb40c1d759
parent87b64566847ce5fda7292ec8b2d2de3739e7e680 (diff)
downloadtcl-13b1529c7b6f4da55532170ee08ac047581b6300.zip
tcl-13b1529c7b6f4da55532170ee08ac047581b6300.tar.gz
tcl-13b1529c7b6f4da55532170ee08ac047581b6300.tar.bz2
Clean up after events to avoid errors in later tests that use an event loop.
-rw-r--r--tests/ioTrans.test3
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test
index 3a23e61..44e7d64 100644
--- a/tests/ioTrans.test
+++ b/tests/ioTrans.test
@@ -643,6 +643,9 @@ namespace eval reflector {
proc finalize {_ chan} {
+ foreach id [after info] {
+ after cancel $id
+ }
namespace delete $_
}