From 369c6f29cb094e06083a203dfd622b21fc9eb226 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 24 Jul 2014 17:17:41 +0000
Subject: [9d19af7adb] Make sure all timer events get canceled.

---
 tests/ioCmd.test | 3 +--
 1 file changed, 1 insertion(+), 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 {
-- 
cgit v0.12