diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-05-02 15:58:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-05-02 15:58:03 (GMT) |
| commit | 3f767c15a3a870d5692ae43cd6151fb86ffa2bf3 (patch) | |
| tree | 9de398663005e19753c1e34cf54b9ad5b0e3c868 /tests/ioCmd.test | |
| parent | b40083e57b3756f499252aa8a3a0ac428ef7a258 (diff) | |
| parent | c72145346d53621e954b69597ccfaebc1cc4e7ba (diff) | |
| download | tcl-3f767c15a3a870d5692ae43cd6151fb86ffa2bf3.zip tcl-3f767c15a3a870d5692ae43cd6151fb86ffa2bf3.tar.gz tcl-3f767c15a3a870d5692ae43cd6151fb86ffa2bf3.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/ioCmd.test')
| -rw-r--r-- | tests/ioCmd.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 3976d25..ebc9cc7 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -2824,10 +2824,11 @@ test iocmd.tf-24.17.bug3522560 {postevent for transfered channel} \ set res } -cleanup { + after cancel $::timer rename LOG {} rename POST {} rename HANDLER {} - unset beat drive data forever res tid ch + unset beat drive data forever res tid ch timer } -match glob \ -result {{initialize rc* read} {watch rc* read} {read rc* 4096} {watch rc* {}} {watch rc* read} {read rc* 4096} {watch rc* {}} {finalize rc*}} |