summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-03-21 13:20:06 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-03-21 13:20:06 (GMT)
commit6b106c4d93bfc4a452a3cf9d78aa3ee25761e553 (patch)
treee3dad5733b092e0a94d28159ed13db35f4938f32
parent5bd5d7b876314f563f1ac021424b7f79f45196dd (diff)
downloadtcl-6b106c4d93bfc4a452a3cf9d78aa3ee25761e553.zip
tcl-6b106c4d93bfc4a452a3cf9d78aa3ee25761e553.tar.gz
tcl-6b106c4d93bfc4a452a3cf9d78aa3ee25761e553.tar.bz2
Convert "impossible" test to a "knownBug" test. Exposes a segfault!
-rw-r--r--tests/ioCmd.test9
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} {