Hex Artifact Content

Artifact 51b15d2a557141c6d3ebd7a219d7bdc5c6f6f0fe:


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 76 66 73 3a 3a   vfs::mk4..vfs::
0050: 6d 6b 34 3a 3a 4d 6f 75 6e 74 20 24 54 4d 50 46  mk4::Mount $TMPF
0060: 49 4c 45 20 2f 54 45 53 54 0a 09 73 65 74 20 68  ILE /TEST..set h
0070: 61 76 65 4d 6b 34 76 66 73 20 31 0a 7d 0a 0a 69  aveMk4vfs 1.}..i
0080: 66 20 7b 21 24 68 61 76 65 4d 6b 34 76 66 73 7d  f {!$haveMk4vfs}
0090: 20 7b 0a 09 23 20 54 68 69 73 20 74 65 73 74 20   {..# This test 
00a0: 6f 6e 6c 79 20 61 70 70 6c 69 65 73 20 74 6f 20  only applies to 
00b0: 6b 69 74 73 20 74 68 61 74 20 69 6e 63 6c 75 64  kits that includ
00c0: 65 20 4d 6b 34 76 66 73 0a 09 65 78 69 74 20 30  e Mk4vfs..exit 0
00d0: 0a 7d 0a 0a 73 65 74 20 54 4d 50 46 49 4c 45 20  .}..set TMPFILE 
00e0: 24 3a 3a 65 6e 76 28 54 4d 50 46 49 4c 45 29 0a  $::env(TMPFILE).
00f0: 0a 73 65 74 20 3a 3a 66 63 6f 70 79 5f 63 6f 6d  .set ::fcopy_com
0100: 70 6c 65 74 65 20 30 0a 70 72 6f 63 20 66 63 6f  plete 0.proc fco
0110: 70 79 5f 63 6f 6d 70 6c 65 74 65 20 7b 61 72 67  py_complete {arg
0120: 73 7d 20 7b 0a 09 73 65 74 20 3a 3a 66 63 6f 70  s} {..set ::fcop
0130: 79 5f 63 6f 6d 70 6c 65 74 65 20 31 0a 7d 0a 0a  y_complete 1.}..
0140: 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 2f 54 45  set fd [open /TE
0150: 53 54 2f 63 72 6f 73 73 2e 70 6e 67 5d 0a 66 63  ST/cross.png].fc
0160: 6f 6e 66 69 67 75 72 65 20 24 66 64 20 2d 74 72  onfigure $fd -tr
0170: 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79  anslation binary
0180: 0a 73 65 74 20 6f 75 74 20 5b 6f 70 65 6e 20 2f  .set out [open /
0190: 64 65 76 2f 6e 75 6c 6c 20 77 5d 0a 66 63 6f 70  dev/null w].fcop
01a0: 79 20 24 66 64 20 24 6f 75 74 20 2d 63 6f 6d 6d  y $fd $out -comm
01b0: 61 6e 64 20 66 63 6f 70 79 5f 63 6f 6d 70 6c 65  and fcopy_comple
01c0: 74 65 0a 61 66 74 65 72 20 33 30 30 30 0a 75 70  te.after 3000.up
01d0: 64 61 74 65 0a 0a 69 66 20 7b 24 3a 3a 66 63 6f  date..if {$::fco
01e0: 70 79 5f 63 6f 6d 70 6c 65 74 65 20 21 3d 20 31  py_complete != 1
01f0: 7d 20 7b 0a 09 70 75 74 73 20 22 45 78 70 65 63  } {..puts "Expec
0200: 74 65 64 3a 20 20 46 63 6f 70 79 20 43 6f 6d 70  ted:  Fcopy Comp
0210: 6c 65 74 65 20 3d 20 31 22 0a 09 70 75 74 73 20  lete = 1"..puts 
0220: 22 47 6f 74 3a 20 20 20 20 20 20 20 46 63 6f 70  "Got:       Fcop
0230: 79 20 43 6f 6d 70 6c 65 74 65 20 3d 20 24 3a 3a  y Complete = $::
0240: 66 63 6f 70 79 5f 63 6f 6d 70 6c 65 74 65 22 0a  fcopy_complete".
0250: 09 65 78 69 74 20 31 0a 7d 0a 0a 65 78 69 74 20  .exit 1.}..exit 
0260: 30 0a                                            0.