? tools/man2tcl
? unix/LOG
? unix/LOG.2
? unix/linux-ix86
? unix/buffer.tcl
Index: tests/io.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/io.test,v
retrieving revision 1.18
diff -u -r1.18 io.test
--- tests/io.test	2001/05/23 23:22:43	1.18
+++ tests/io.test	2001/07/17 18:43:09
@@ -4723,6 +4723,17 @@
     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} {
@@ -6814,7 +6825,6 @@
     close $f
     set result
 } [testmainthread]
-
 
 
 # cleanup
