diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-03-21 13:20:06 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-03-21 13:20:06 (GMT) |
| commit | 80c91fcdfbe07625d34a7501bb7adbeb452b5066 (patch) | |
| tree | e3dad5733b092e0a94d28159ed13db35f4938f32 | |
| parent | 373df264032be15389cfbcb4f0b9fd7204c49f5d (diff) | |
| download | tcl-80c91fcdfbe07625d34a7501bb7adbeb452b5066.zip tcl-80c91fcdfbe07625d34a7501bb7adbeb452b5066.tar.gz tcl-80c91fcdfbe07625d34a7501bb7adbeb452b5066.tar.bz2 | |
Convert "impossible" test to a "knownBug" test. Exposes a segfault!
| -rw-r--r-- | tests/ioCmd.test | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 768a748..8f0bfbf 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -1927,6 +1927,8 @@ test iocmd-32.0 {origin interpreter of moved channel gone} -match glob -body { test iocmd-32.1 {origin interpreter of moved channel destroyed during access} -match glob -body { + # This test segfaults; Ought to fix that. + set ida [interp create];#puts <<$ida>> set idb [interp create];#puts <<$idb>> @@ -1940,13 +1942,12 @@ 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] @@ -1965,7 +1966,7 @@ test iocmd-32.1 {origin interpreter of moved channel destroyed during access} -m set res }] set res -} -constraints {testchannel impossible} \ +} -constraints {testchannel knownBug} \ -result {Owner lost} test iocmd-32.2 {delete interp of reflected chan} { |