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 | 3c51a58c1e0ed0a986208f785a247038a6248bfc (patch) | |
| tree | 9de398663005e19753c1e34cf54b9ad5b0e3c868 /tests/ioCmd.test | |
| parent | fb36ca1b1838600f958c3f6e06b4db9dff16465f (diff) | |
| parent | 01f9f84db571c2f875c4d88fd8c9bd0735f326dd (diff) | |
| download | tcl-3c51a58c1e0ed0a986208f785a247038a6248bfc.zip tcl-3c51a58c1e0ed0a986208f785a247038a6248bfc.tar.gz tcl-3c51a58c1e0ed0a986208f785a247038a6248bfc.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*}} |