diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-05-06 14:43:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-05-06 14:43:19 (GMT) |
| commit | 5684837e350796f98813f2dc9cfecabb7ea2fe09 (patch) | |
| tree | d357243898e1785fc60d1870f031abb95432f31f /tests/iogt.test | |
| parent | d9f128a5af6973fa48e8c0a801ca19c34cb67784 (diff) | |
| parent | 0fc3bdcc7e6bd2903a1e84017073bf39dff8a3ad (diff) | |
| download | tcl-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.test | 21 |
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 {}}} { |