Artifact e1293c78f6edba343b6d6ff37597819aad4d4a11:
0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 #! /usr/bin/env
0010: 74 63 6c 73 68 0a 0a 73 65 74 20 68 61 76 65 4d tclsh..set haveM
0020: 6b 34 76 66 73 20 30 0a 63 61 74 63 68 20 7b 0a k4vfs 0.catch {.
0030: 09 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0040: 20 76 66 73 3a 3a 6d 6b 34 0a 09 73 65 74 20 68 vfs::mk4..set h
0050: 61 76 65 4d 6b 34 76 66 73 20 31 0a 7d 0a 0a 69 aveMk4vfs 1.}..i
0060: 66 20 7b 21 24 68 61 76 65 4d 6b 34 76 66 73 7d f {!$haveMk4vfs}
0070: 20 7b 0a 09 23 20 54 68 69 73 20 74 65 73 74 20 {..# This test
0080: 6f 6e 6c 79 20 61 70 70 6c 69 65 73 20 74 6f 20 only applies to
0090: 6b 69 74 73 20 74 68 61 74 20 69 6e 63 6c 75 64 kits that includ
00a0: 65 20 4d 6b 34 76 66 73 0a 09 65 78 69 74 20 30 e Mk4vfs..exit 0
00b0: 0a 7d 0a 0a 73 65 74 20 54 4d 50 46 49 4c 45 20 .}..set TMPFILE
00c0: 24 3a 3a 65 6e 76 28 54 4d 50 46 49 4c 45 29 0a $::env(TMPFILE).
00d0: 0a 73 65 74 20 3a 3a 66 63 6f 70 79 5f 63 6f 6d .set ::fcopy_com
00e0: 70 6c 65 74 65 20 30 0a 70 72 6f 63 20 66 63 6f plete 0.proc fco
00f0: 70 79 5f 63 6f 6d 70 6c 65 74 65 20 7b 61 72 67 py_complete {arg
0100: 73 7d 20 7b 0a 09 73 65 74 20 3a 3a 66 63 6f 70 s} {..set ::fcop
0110: 79 5f 63 6f 6d 70 6c 65 74 65 20 31 0a 7d 0a 0a y_complete 1.}..
0120: 76 66 73 3a 3a 6d 6b 34 3a 3a 4d 6f 75 6e 74 20 vfs::mk4::Mount
0130: 24 54 4d 50 46 49 4c 45 20 2f 54 45 53 54 0a 73 $TMPFILE /TEST.s
0140: 65 74 20 66 64 20 5b 6f 70 65 6e 20 2f 54 45 53 et fd [open /TES
0150: 54 2f 63 72 6f 73 73 2e 70 6e 67 5d 0a 66 63 6f T/cross.png].fco
0160: 6e 66 69 67 75 72 65 20 24 66 64 20 2d 74 72 61 nfigure $fd -tra
0170: 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a nslation binary.
0180: 73 65 74 20 6f 75 74 20 5b 6f 70 65 6e 20 2f 64 set out [open /d
0190: 65 76 2f 6e 75 6c 6c 20 77 5d 0a 66 63 6f 70 79 ev/null w].fcopy
01a0: 20 24 66 64 20 24 6f 75 74 20 2d 63 6f 6d 6d 61 $fd $out -comma
01b0: 6e 64 20 66 63 6f 70 79 5f 63 6f 6d 70 6c 65 74 nd fcopy_complet
01c0: 65 0a 61 66 74 65 72 20 33 30 30 30 0a 75 70 64 e.after 3000.upd
01d0: 61 74 65 0a 0a 69 66 20 7b 24 3a 3a 66 63 6f 70 ate..if {$::fcop
01e0: 79 5f 63 6f 6d 70 6c 65 74 65 20 21 3d 20 31 7d y_complete != 1}
01f0: 20 7b 0a 09 70 75 74 73 20 22 45 78 70 65 63 74 {..puts "Expect
0200: 65 64 3a 20 20 46 63 6f 70 79 20 43 6f 6d 70 6c ed: Fcopy Compl
0210: 65 74 65 20 3d 20 31 22 0a 09 70 75 74 73 20 22 ete = 1"..puts "
0220: 47 6f 74 3a 20 20 20 20 20 20 20 46 63 6f 70 79 Got: Fcopy
0230: 20 43 6f 6d 70 6c 65 74 65 20 3d 20 24 3a 3a 66 Complete = $::f
0240: 63 6f 70 79 5f 63 6f 6d 70 6c 65 74 65 22 0a 09 copy_complete"..
0250: 65 78 69 74 20 31 0a 7d 0a 0a 65 78 69 74 20 30 exit 1.}..exit 0
0260: 0a .