Differences From Artifact [4243725b68]:

• File tests/io.test — part of check-in [c2fdb10e8e] at 1998-06-09 13:08:23 on branch trunk — *** empty log message *** (user: stanton size: 133147)

To Artifact [9f26bd21d9]:

• File tests/io.test — part of check-in [1d4fda1f1e] at 1998-06-18 18:25:58 on branch trunk — *** empty log message *** (user: stanton size: 133160)

5118
5119
5120
5121
5122
5123
5124

5125
5126
5127
5128
5129
5130
5131

    set x 0
    vwait x
    vwait x
    set result $x
    testchannelevent $f set 0 none
    after idle {set y done}
    vwait y

    lappend result $y
} {2 done}

test io-34.1 {buffered data and file events, gets} {
    proc accept {sock args} {
	set ::s2 $sock
    }

>

5118
5119
5120
5121
5122
5123
5124
5125
5126
5127
5128
5129
5130
5131
5132

    set x 0
    vwait x
    vwait x
    set result $x
    testchannelevent $f set 0 none
    after idle {set y done}
    vwait y
    close $f
    lappend result $y
} {2 done}

test io-34.1 {buffered data and file events, gets} {
    proc accept {sock args} {
	set ::s2 $sock
    }