summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-03-27 16:27:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-03-27 16:27:09 (GMT)
commit8868d903d92c976f3c5eb3ea4a4a98862de6e6c0 (patch)
tree38435cf8dacbf3aa1e6ae458e67505ce219d0998 /tests
parent0d475f68d96279bbbd554fb4223b2c4fa333adba (diff)
downloadtcl-8868d903d92c976f3c5eb3ea4a4a98862de6e6c0.zip
tcl-8868d903d92c976f3c5eb3ea4a4a98862de6e6c0.tar.gz
tcl-8868d903d92c976f3c5eb3ea4a4a98862de6e6c0.tar.bz2
New test iortrans-4.8.1 exposes segfault bug [721ec69271].
Diffstat (limited to 'tests')
-rw-r--r--tests/ioTrans.test19
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/ioTrans.test b/tests/ioTrans.test
index 5a8874c..b21d894 100644
--- a/tests/ioTrans.test
+++ b/tests/ioTrans.test
@@ -540,6 +540,25 @@ test iortrans-4.8 {chan read, read, bug 2921116} -setup {
rename foo {}
} -result {{read rt* {test data
}} file*}
+test iortrans-4.8.1 {chan read, bug 721ec69271} -setup {
+ set res {}
+} -match glob -body {
+ proc foo {fd args} {
+ handle.initialize
+ handle.finalize
+ lappend ::res $args
+ # Kill and recreate transform while it is operating
+ chan pop $fd
+ chan push $fd [list foo $fd]
+ }
+ set c [chan push [set c [tempchan]] [list foo $c]]
+ chan configure $c -buffersize 2
+ lappend res [read $c]
+} -cleanup {
+ tempdone
+ rename foo {}
+} -result {{read rt* {test data
+}} file*}
test iortrans-4.9 {chan read, gets, bug 2921116} -setup {
set res {}
} -match glob -body {