summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-08 03:28:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-08 03:28:56 (GMT)
commit311f44633e3dab963b7705cd04ffa3a4b6c4dcce (patch)
tree691948500985fc43c2eee0e90a31e76c654c8e18 /tests
parent3f767c15a3a870d5692ae43cd6151fb86ffa2bf3 (diff)
parent5e1038193c820c5a5ae7b27886d8d3100e18ea49 (diff)
downloadtcl-311f44633e3dab963b7705cd04ffa3a4b6c4dcce.zip
tcl-311f44633e3dab963b7705cd04ffa3a4b6c4dcce.tar.gz
tcl-311f44633e3dab963b7705cd04ffa3a4b6c4dcce.tar.bz2
merge trunk
Diffstat (limited to 'tests')
-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 {}}} {