diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-05-09 13:33:27 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-05-09 13:33:27 (GMT) |
| commit | fbab4e790df526d0da43a1122d1cca31cfd24e66 (patch) | |
| tree | e100a9dd09c5eefd4e813b1d2574ed68490f5f7d /tests | |
| parent | c9eee4b29ab5763b1c99d721139fa5b7180721ba (diff) | |
| parent | d28769d37874fb207bec2ac0d3c8206c7ab566f8 (diff) | |
| download | tcl-fbab4e790df526d0da43a1122d1cca31cfd24e66.zip tcl-fbab4e790df526d0da43a1122d1cca31cfd24e66.tar.gz tcl-fbab4e790df526d0da43a1122d1cca31cfd24e66.tar.bz2 | |
Test iocmd-32.1 is not "impossible" but after writing it properly it does segfault trying to use a deleted interp. Fixed.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ioCmd.test | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index ebc9cc7..ff93719 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -2076,13 +2076,13 @@ test iocmd-32.1 {origin interpreter of moved channel destroyed during access} -m proc foo {args} { oninit; onfinal; track; # destroy interpreter during channel access - # Actually not possible for an interp to destroy itself. - interp delete {} - return} + suicide + } set chan [chan create {r w} foo] fconfigure $chan -buffering none set chan }] + interp alias $ida suicide {} interp delete $ida # Move channel to 2nd thread. interp eval $ida [list testchannel cut $chan] @@ -2100,8 +2100,7 @@ test iocmd-32.1 {origin interpreter of moved channel destroyed during access} -m set res }] set res -} -constraints {testchannel impossible} \ - -result {Owner lost} +} -constraints {testchannel} -result {Owner lost} test iocmd-32.2 {delete interp of reflected chan} { # Bug 3034840 |