summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-05 17:18:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-05 17:18:51 (GMT)
commit7d27109da91753ce0ed031d0c7c3eb095b0b7fed (patch)
treedde5c78bdea584270f2bdea7eabe96e75ad34968 /tests
parentb0f443a7d7b38c2220cfb1b1c0710a804f55c811 (diff)
downloadtcl-7d27109da91753ce0ed031d0c7c3eb095b0b7fed.zip
tcl-7d27109da91753ce0ed031d0c7c3eb095b0b7fed.tar.gz
tcl-7d27109da91753ce0ed031d0c7c3eb095b0b7fed.tar.bz2
Segfaulting test (backport of iortrans-5.11).
Diffstat (limited to 'tests')
-rw-r--r--tests/iogt.test22
1 files changed, 21 insertions, 1 deletions
diff --git a/tests/iogt.test b/tests/iogt.test
index d81acd6..abe4246 100644
--- a/tests/iogt.test
+++ b/tests/iogt.test
@@ -251,7 +251,17 @@ proc id_torture {chan op data} {
clear_read {;#ignore}
flush/write -
flush/read {}
- write -
+ write {
+ global level
+ if {$level} {
+ return
+ }
+ incr level
+ testchannel unstack $chan
+ testchannel transform $chan \
+ -command [namespace code [list id_torture $chan]]
+ return $data
+ }
read {
testchannel unstack $chan
testchannel transform $chan \
@@ -665,6 +675,16 @@ test iogt-2.4 {basic I/O, mixed trail} {testchannel} {
close $fh
set x
} {}
+test iogt-2.5 {basic I/O, mixed trail} {testchannel} {
+ set ::level 0
+ set fh [open $path(dummyout) w]
+ torture -attach $fh
+ puts -nonewline $fh abcdef
+ flush $fh
+ testchannel unstack $fh
+ close $fh
+ set x
+} {}
test iogt-3.0 {Tcl_Channel valid after stack/unstack, fevent handling} \
{testchannel unknownFailure} {