testservicemode 0
    set f [open $path(test1) r]
    testchannelevent $f add readable [namespace code [list second $f]]
    testchannelevent $f add readable [namespace code [list first $f]]
    testservicemode 1
    update
    if {!$done} {
	set $timer2 [after 200 lappend done timeout]
	set timer2 [after 200 set done 1]
	vwait done
	after cancel $timer2
    }
    set z
} -cleanup {
    close $f
} -result [list {first called} {first called not toplevel} \