Differences From Artifact [be40c5aacd]:

• File tests/io.test — part of check-in [2d93b1436c] at 2011-01-12 15:23:06 on branch activestate-nre-excised-variant-2-subtracted — This commit is both no-NRE v2, implemented by subtracting the NRE pieces (*), and update to CVS trunk head of Wednesday Jan 5. (*) no-NRE v1 in the other branch was created in an additive manner from the point where 8.5 was branched from the trunk, by adding all the patches but those for NRE. (user: andreask size: 233229)

To Artifact [6567259391]:

• File tests/io.test — part of check-in [5b2d91d5e3] at 2011-01-18 19:26:56 on branch activestate-nre-excised-variant-2-subtracted — Brought no-nre v2 up-to-date with 8.6 head as of Jan 18 11:30 PST. (user: andreask size: 233231) [more...]

3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868

    read stdin 0
} ""
test io-32.3 {Tcl_Read, negative byte count} {
    set f [open $path(longfile) r]
    set l [list [catch {read $f -1} msg] $msg]
    close $f
    set l
} {1 {bad argument "-1": should be "nonewline"}}
test io-32.4 {Tcl_Read, positive byte count} {
    set f [open $path(longfile) r]
    set x [read $f 1024]
    set s [string length $x]
    unset x
    close $f
    set s

|

3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868

    read stdin 0
} ""
test io-32.3 {Tcl_Read, negative byte count} {
    set f [open $path(longfile) r]
    set l [list [catch {read $f -1} msg] $msg]
    close $f
    set l
} {1 {expected non-negative integer but got "-1"}}
test io-32.4 {Tcl_Read, positive byte count} {
    set f [open $path(longfile) r]
    set x [read $f 1024]
    set s [string length $x]
    unset x
    close $f
    set s