Differences From Artifact [071f7d4e2d]:

• File tests/io.test — part of check-in [dd31314594] at 2009-11-12 17:41:30 on branch core-8-4-branch — * generic/tclIO.c (CopyData): [Bug 2895565]. Dropped bogosity * tests/io.test: which used the number of _written_ bytes or character to update the counters for the read bytes/characters. New test io-53.11. This is a backward port from the 8.5 branch. (user: andreas_kupries size: 215823)

To Artifact [fe2f08f73b]:

• File tests/io.test — part of check-in [90b4acd7bd] at 2011-03-01 15:38:36 on branch core-8-4-branch — Now that we're no longer using SCM based on RCS, the RCS Keyword lines cause more harm than good. Purged them. (user: dgp size: 215742) [more...]

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#
# Copyright (c) 1991-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# 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.2.24 2009/11/12 17:41:31 andreas_kupries Exp $

if {[catch {package require tcltest 2}]} {
    puts stderr "Skipping tests in [info script].  tcltest 2 required."
    return
}
namespace eval ::tcl::test::io {

<
<

8
9
10
11
12
13
14


15
16
17
18
19
20
21

#
# Copyright (c) 1991-1994 The Regents of the University of California.
# Copyright (c) 1994-1997 Sun Microsystems, Inc.
# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.



if {[catch {package require tcltest 2}]} {
    puts stderr "Skipping tests in [info script].  tcltest 2 required."
    return
}
namespace eval ::tcl::test::io {