summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-07-24 17:17:41 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-07-24 17:17:41 (GMT)
commit369c6f29cb094e06083a203dfd622b21fc9eb226 (patch)
tree823ae3d1c7af5a9002414575aac2dec5bee1a966 /tests
parent103265bd2b0e08ddb0c3d1fa280411f904f3490b (diff)
downloadtcl-369c6f29cb094e06083a203dfd622b21fc9eb226.zip
tcl-369c6f29cb094e06083a203dfd622b21fc9eb226.tar.gz
tcl-369c6f29cb094e06083a203dfd622b21fc9eb226.tar.bz2
[9d19af7adb] Make sure all timer events get canceled.
Diffstat (limited to 'tests')
-rw-r--r--tests/ioCmd.test3
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index dcca1f5..57f8d47 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -2748,10 +2748,9 @@ test iocmd.tf-24.17.bug3522560 {postevent for transfered channel} \
init* {set ret {initialize finalize watch read}}
watch {
set l [lindex $args 0]
+ catch {after cancel $::timer}
if {[llength $l]} {
set ::timer [after $::drive [list POST $ch]]
- } else {
- after cancel $::timer
}
}
finalize {