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      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