summaryrefslogtreecommitdiffstats
path: root/tests/iogt.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-06 14:43:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-06 14:43:19 (GMT)
commit5684837e350796f98813f2dc9cfecabb7ea2fe09 (patch)
treed357243898e1785fc60d1870f031abb95432f31f /tests/iogt.test
parentd9f128a5af6973fa48e8c0a801ca19c34cb67784 (diff)
parent0fc3bdcc7e6bd2903a1e84017073bf39dff8a3ad (diff)
downloadtcl-5684837e350796f98813f2dc9cfecabb7ea2fe09.zip
tcl-5684837e350796f98813f2dc9cfecabb7ea2fe09.tar.gz
tcl-5684837e350796f98813f2dc9cfecabb7ea2fe09.tar.bz2
Merge 8.5. New test iogt-2.5 panics.
Diffstat (limited to 'tests/iogt.test')
-rw-r--r--tests/iogt.test21
1 files changed, 20 insertions, 1 deletions
diff --git a/tests/iogt.test b/tests/iogt.test
index ded8bb9..50034de 100644
--- a/tests/iogt.test
+++ b/tests/iogt.test
@@ -229,7 +229,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 \
@@ -580,6 +590,15 @@ 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
+} {}
test iogt-3.0 {Tcl_Channel valid after stack/unstack, fevent handling} -setup {
proc DoneCopy {n {err {}}} {