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 1 #! /usr/bin/env tclsh 2 2 3 3 set haveMk4vfs 0 4 4 catch { 5 5 package require vfs::mk4 6 + vfs::mk4::Mount $TMPFILE /TEST 6 7 set haveMk4vfs 1 7 8 } 8 9 9 10 if {!$haveMk4vfs} { 10 11 # This test only applies to kits that include Mk4vfs 11 12 exit 0 12 13 } ................................................................................ 14 15 set TMPFILE $::env(TMPFILE) 15 16 16 17 set ::fcopy_complete 0 17 18 proc fcopy_complete {args} { 18 19 set ::fcopy_complete 1 19 20 } 20 21 21 -vfs::mk4::Mount $TMPFILE /TEST 22 22 set fd [open /TEST/cross.png] 23 23 fconfigure $fd -translation binary 24 24 set out [open /dev/null w] 25 25 fcopy $fd $out -command fcopy_complete 26 26 after 3000 27 27 update 28 28