summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2010-08-04 16:49:02 (GMT)
committerandreas_kupries <akupries@shaw.ca>2010-08-04 16:49:02 (GMT)
commitd22e96bfc585f1e3d9b592a0dfdeeabe1c6a49e2 (patch)
treeb555a84190f46b5d7da17a5d78f11277a22007b6 /tests
parentf5169dbe59924b18e67ece3867b7ddddc5820324 (diff)
downloadtcl-d22e96bfc585f1e3d9b592a0dfdeeabe1c6a49e2.zip
tcl-d22e96bfc585f1e3d9b592a0dfdeeabe1c6a49e2.tar.gz
tcl-d22e96bfc585f1e3d9b592a0dfdeeabe1c6a49e2.tar.bz2
* generic/tclIORChan.c: [Bug 3034840]: Fixed reference counting
* generic/tclIORTrans.c: in InvokeTclMethod and callers. * tests/ioTrans.test:
Diffstat (limited to 'tests')
-rw-r--r--tests/ioTrans.test24
1 files changed, 23 insertions, 1 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test
index 7399bfb..8932874 100644
--- a/tests/ioTrans.test
+++ b/tests/ioTrans.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: ioTrans.test,v 1.8 2010/03/17 16:35:42 andreas_kupries Exp $
+# RCS: @(#) $Id: ioTrans.test,v 1.9 2010/08/04 16:49:02 andreas_kupries Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -854,6 +854,28 @@ test iortrans-11.1 {origin interpreter of moved transform destroyed during acces
} -constraints {testchannel impossible} \
-result {Owner lost}
+
+test iortrans-11.2 {delete interp of reflected transform} -body {
+ interp create slave
+
+ # Magic to get the test* commands into the slave
+ load {} Tcltest slave
+
+ # Get base channel into the slave
+ set c [tempchan]
+ testchannel cut $c
+ interp eval slave [list testchannel splice $c]
+ interp eval slave [list set c $c]
+
+ slave eval {
+ proc no-op args {}
+ proc driver {c sub args} {return {initialize finalize read write}}
+ set t [chan push $c [list driver $c]]
+ chan event $c readable no-op
+ }
+ interp delete slave
+} -result {} -constraints {testchannel}
+
# ### ### ### ######### ######### #########
## Same tests as above, but exercising the code forwarding and
## receiving driver operations to the originator thread.