summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authormdejong <mdejong>2003-03-06 09:16:12 (GMT)
committermdejong <mdejong>2003-03-06 09:16:12 (GMT)
commita060bfc83abd3ede4e970cef1959af6d9f75946e (patch)
treebeb16481c0323e16d75fa932bc0f7e7b91f5ca94 /tests
parentee86aa6fca4bdbb2d897e973b48b0cf1f704820d (diff)
downloadtcl-a060bfc83abd3ede4e970cef1959af6d9f75946e.zip
tcl-a060bfc83abd3ede4e970cef1959af6d9f75946e.tar.gz
tcl-a060bfc83abd3ede4e970cef1959af6d9f75946e.tar.bz2
* generic/tclIO.c (Tcl_SetChannelOption):
Invoke the Tcl_SetChannelBufferSize method as a result of changing the -buffersize option to fconfigure. The previous implementation used some inlined code that reset the buffer size to the default size instead of ignoring the request as implemented in Tcl_SetChannelBufferSize. * tests/io.test: Update test case so that it actually checks the implementation of Tcl_SetChannelBufferSize.
Diffstat (limited to 'tests')
-rw-r--r--tests/io.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/io.test b/tests/io.test
index d74fa9d..46aaa6c 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.40 2003/02/25 22:03:38 andreas_kupries Exp $
+# RCS: @(#) $Id: io.test,v 1.41 2003/03/06 09:16:21 mdejong Exp $
if {[catch {package require tcltest 2}]} {
puts stderr "Skipping tests in [info script]. tcltest 2 required."
@@ -4803,7 +4803,7 @@ test io-38.2 {Tcl_SetChannelBufferSize, Tcl_GetChannelBufferSize} {
lappend l [fconfigure $f -buffersize]
close $f
set l
-} {4096 10000 4096 4096 4096 100000 4096}
+} {4096 10000 10000 10000 10000 100000 100000}
test io-38.3 {Tcl_SetChannelBufferSize, changing buffersize between reads} {
# This test crashes the interp if Bug #427196 is not fixed