Attachment "tcl.427196.1.diff.txt" to
ticket [427196ffff]
added by
andreas_kupries
2001-07-18 01:45:02.
? 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