diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-15 10:58:13 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-15 10:58:13 (GMT) |
| commit | c5e979695a611130614e19fa74d14f26de62dab3 (patch) | |
| tree | 176623cc395d1e0b9b26518b51ad1f5a7ce36eda /tests/ioCmd.test | |
| parent | 99ab923ed55f810fe95753c074c0e7b02f6809e8 (diff) | |
| download | tcl-c5e979695a611130614e19fa74d14f26de62dab3.zip tcl-c5e979695a611130614e19fa74d14f26de62dab3.tar.gz tcl-c5e979695a611130614e19fa74d14f26de62dab3.tar.bz2 | |
Missing test cleanups that break later tests.
Diffstat (limited to 'tests/ioCmd.test')
| -rw-r--r-- | tests/ioCmd.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index b4ba04a..cab4e97 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -2057,6 +2057,8 @@ test iocmd-32.0 {origin interpreter of moved channel gone} -match glob -body { lappend res [catch {interp eval $idb [list close $chan]} msg] $msg set res +} -cleanup { + interp delete $idb } -constraints {testchannel} \ -result {1 {Owner lost} 1 {Owner lost} 1 {Owner lost} 1 {Owner lost} 1 {Owner lost}} @@ -2099,6 +2101,8 @@ test iocmd-32.1 {origin interpreter of moved channel destroyed during access} -m set res }] set res +} -cleanup { + interp delete $idb } -constraints {testchannel} -result {Owner lost} test iocmd-32.2 {delete interp of reflected chan} { |