Check-in [8e7cd7106a]
Overview
Comment:Corrected test for presence of mk4 in mk4vfs fcopy test
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8e7cd7106ab018d4cc29861587c55b770c20ec15
User & Date: rkeene on 2010-10-16 23:48:28
Other Links: manifest | tags
Context
2010-10-17
17:27
Added link to home page from build page check-in: 626ffe0122 user: rkeene tags: trunk
2010-10-16
23:48
Corrected test for presence of mk4 in mk4vfs fcopy test check-in: 8e7cd7106a user: rkeene tags: trunk
21:28
Added patch from P. Thoyts fixing async channel copies in mk4vfs. This closes bug [0990f53b1a]. check-in: ae7d9fc61b user: rkeene tags: trunk
Changes

Modified build/test/tests/15-mk4vfsfcopy.tcl from [e1293c78f6] to [51b15d2a55].

1
2
3
4
5

6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#! /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






>















<







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

22
23
24
25
26
27
28
#! /usr/bin/env tclsh

set haveMk4vfs 0
catch {
	package require vfs::mk4
	vfs::mk4::Mount $TMPFILE /TEST
	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
}


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