diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-07-31 08:39:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-07-31 08:39:50 (GMT) |
| commit | 27be6e4e9ada6489a2bb9de775cab72378825b2b (patch) | |
| tree | c2e372443d6b96e908a4db00bc22d4bd54bdf312 /tests/ioCmd.test | |
| parent | 1990c76e8d05fcf48cccabb5d2f1a49c3c99ecd1 (diff) | |
| parent | f10bee2648e7e87c576a1afe761e8525255d3a7a (diff) | |
| download | tcl-robust_async_connect_tests.zip tcl-robust_async_connect_tests.tar.gz tcl-robust_async_connect_tests.tar.bz2 | |
merge trunkrobust_async_connect_tests
Diffstat (limited to 'tests/ioCmd.test')
| -rw-r--r-- | tests/ioCmd.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 8d35ec7..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 { @@ -2814,7 +2813,9 @@ test iocmd.tf-24.17.bug3522560 {postevent for transfered channel} \ update } LOG THREAD-LOOP-DONE - thread::exit + #thread::exit + # Thread exits cause leaks; Use clean thread shutdown + set forever yourGirl } LOG MAIN_WAITING |