summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/io.test14
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] {