diff options
author | dgp <dgp@users.sourceforge.net> | 2014-05-16 14:47:59 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-05-16 14:47:59 (GMT) |
commit | 0c97f2ebb010c257374052fb66f737f99cb1e018 (patch) | |
tree | f40ad72828d9fa3a5dc4a59ede2dee8daed72706 /tests/ioCmd.test | |
parent | 6f8a00dcd5a10e71caf9e3d2f7067523c4ff0b28 (diff) | |
parent | 267fb4eebd7345f715153cea17de47c2396d31f8 (diff) | |
download | tcl-0c97f2ebb010c257374052fb66f737f99cb1e018.zip tcl-0c97f2ebb010c257374052fb66f737f99cb1e018.tar.gz tcl-0c97f2ebb010c257374052fb66f737f99cb1e018.tar.bz2 |
merge 8.5bug_io_32_11
Diffstat (limited to 'tests/ioCmd.test')
-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 bb133f9..5a76d48 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -2038,13 +2038,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] @@ -2063,8 +2063,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 |