Artifact e1293c78f6edba343b6d6ff37597819aad4d4a11:

• File build/test/tests/15-mk4vfsfcopy.tcl — part of check-in [ae7d9fc61b] at 2010-10-16 21:28:59 on branch trunk — Added patch from P. Thoyts fixing async channel copies in mk4vfs. This closes bug [0990f53b1a]. (user: rkeene, size: 609) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

set haveMk4vfs 0
catch {
	package require vfs::mk4
	set haveMk4vfs 1
}

if {!$haveMk4vfs} {
	# This test only applies to kits that include Mk4vfs
	exit 0
}

set TMPFILE $::env(TMPFILE)

set ::fcopy_complete 0
proc fcopy_complete {args} {
	set ::fcopy_complete 1
}

vfs::mk4::Mount $TMPFILE /TEST
set fd [open /TEST/cross.png]
fconfigure $fd -translation binary
set out [open /dev/null w]
fcopy $fd $out -command fcopy_complete
after 3000
update

if {$::fcopy_complete != 1} {
	puts "Expected:  Fcopy Complete = 1"
	puts "Got:       Fcopy Complete = $::fcopy_complete"
	exit 1
}

exit 0