[Tcl-bugs] [ tcl-Bugs-964268 ] new io.test faillures

[SourceForge.net <no...@so...>]

Bugs item #964268, was opened at 2004-06-01 06:29
Message generated for change (Comment added) made by davygrvy
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=964268&group_id=10894

Category: 25. Channel System
Group: development: 8.5a2
>Status: Closed
>Resolution: Fixed
Priority: 8
Submitted By: Don Porter (dgp)
Assigned to: David Gravereaux (davygrvy)
Summary: new io.test faillures

Initial Comment:
==== io-38.2 Tcl_SetChannelBufferSize,
Tcl_GetChannelBufferSize FAILED
==== Contents of test case:

    set f [open $path(longfile) r]
    set l ""
    lappend l [fconfigure $f -buffersize]
    fconfigure $f -buffersize 10000
    lappend l [fconfigure $f -buffersize]
    fconfigure $f -buffersize 1
    lappend l [fconfigure $f -buffersize]
    fconfigure $f -buffersize -1
    lappend l [fconfigure $f -buffersize]
    fconfigure $f -buffersize 0
    lappend l [fconfigure $f -buffersize]
    fconfigure $f -buffersize 100000
    lappend l [fconfigure $f -buffersize]
    fconfigure $f -buffersize 10000000
    lappend l [fconfigure $f -buffersize]
    close $f
    set l

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad value for -buffersize: must not be
less than 10 or greater than 1Mbyte.
    while executing
"fconfigure $f -buffersize 1"
    ("uplevel" body line 7)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== io-38.2 FAILED

==== io-39.11 Tcl_SetChannelOption,
Tcl_GetChannelOption, buffer size FAILED
==== Contents of test case:

    file delete $path(test1)
    set f [open $path(test1) w]
    fconfigure $f -buffersize -10
    set x [fconfigure $f -buffersize]
    close $f
    set x

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad value for -buffersize: must not be
less than 10 or greater than 1Mbyte.
    while executing
"fconfigure $f -buffersize -10"
    ("uplevel" body line 4)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== io-39.11 FAILED

==== io-39.12 Tcl_SetChannelOption,
Tcl_GetChannelOption buffer size FAILED
==== Contents of test case:

    file delete $path(test1)
    set f [open $path(test1) w]
    fconfigure $f -buffersize 10000000
    set x [fconfigure $f -buffersize]
    close $f
    set x

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: bad value for -buffersize: must not be
less than 10 or greater than 1Mbyte.
    while executing
"fconfigure $f -buffersize 10000000"
    ("uplevel" body line 4)
    invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== io-39.12 FAILED


----------------------------------------------------------------------

>Comment By: David Gravereaux (davygrvy)
Date: 2004-06-01 12:16

Message:
Logged In: YES 
user_id=7549

range verification removed, test suite changes reverted, 
failures fixed.

----------------------------------------------------------------------

Comment By: David Gravereaux (davygrvy)
Date: 2004-06-01 10:30

Message:
Logged In: YES 
user_id=7549

-buffersize setting invalid.  I'll fix the test suite.

Did the author of these tests know that they are silently 
ignored?

----------------------------------------------------------------------

Comment By: Andreas Kupries (andreas_kupries)
Date: 2004-06-01 08:07

Message:
Logged In: YES 
user_id=75003

Reassigned to david, this seems to originate in his latest
changes.

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=964268&group_id=10894