diff options
author | andreas_kupries <andreas_kupries@noemail.net> | 2001-07-17 18:46:46 (GMT) |
---|---|---|
committer | andreas_kupries <andreas_kupries@noemail.net> | 2001-07-17 18:46:46 (GMT) |
commit | de899f14017a591e51b7923013c916e4aa87a7b6 (patch) | |
tree | c4f2a60a79575f609059e57bc00936bae9533aea /tests/io.test | |
parent | a76b593c8c9ee8564f76e0a0d55e27b5956daa32 (diff) | |
download | tcl-de899f14017a591e51b7923013c916e4aa87a7b6.zip tcl-de899f14017a591e51b7923013c916e4aa87a7b6.tar.gz tcl-de899f14017a591e51b7923013c916e4aa87a7b6.tar.bz2 |
427196: Extended the testsuite.
FossilOrigin-Name: e9b2b11b9abcf1f700ee6778b7bc8c467d4c44ce
Diffstat (limited to 'tests/io.test')
-rw-r--r-- | tests/io.test | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test index b77c6c6..792a2a2 100644 --- a/tests/io.test +++ b/tests/io.test @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: io.test,v 1.18 2001/05/23 23:22:43 hobbs Exp $ +# RCS: @(#) $Id: io.test,v 1.19 2001/07/17 18:46:47 andreas_kupries Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -4723,6 +4723,17 @@ test io-38.2 {Tcl_SetChannelBufferSize, Tcl_GetChannelBufferSize} { set l } {4096 10000 4096 4096 4096 100000 4096} +test io-38.3 {Tcl_SetChannelBufferSize, changing buffersize between reads} { + # This test crashes the interp if Bug #427196 is not fixed + + set chan [open [info script] r] + fconfigure $chan -buffersize 10 + set var [read $chan 2] + fconfigure $chan -buffersize 32 + append var [read $chan] + close $chan +} {} + # Test Tcl_SetChannelOption, Tcl_GetChannelOption test io-39.1 {Tcl_GetChannelOption} { @@ -6816,7 +6827,6 @@ test io-59.1 {Thread reference of channels} { } [testmainthread] - # cleanup foreach file [list fooBar longfile script output test1 pipe my_script foo \ bar test2 test3 cat stdout] { |