Diff

Differences From Artifact [e1293c78f6]:

To Artifact [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