@@ -1,10 +1,11 @@ #! /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 @@ -16,11 +17,10 @@ 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