0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
0050: 0a 23 0d 0a 23 20 63 6f 6d 6d 6f 6e 2e 65 61 67 .#..# common.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74 le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61 ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73 chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63 ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20 domain, use at
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0110: 23 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a ##....#..# NOTE:
0120: 20 55 73 65 20 6f 75 72 20 6f 77 6e 20 6e 61 6d Use our own nam
0130: 65 73 70 61 63 65 20 68 65 72 65 20 62 65 63 61 espace here beca
0140: 75 73 65 20 65 76 65 6e 20 74 68 6f 75 67 68 20 use even though
0150: 77 65 20 64 6f 20 6e 6f 74 20 64 69 72 65 63 74 we do not direct
0160: 6c 79 0d 0a 23 20 20 20 20 20 20 20 73 75 70 70 ly..# supp
0170: 6f 72 74 20 6e 61 6d 65 73 70 61 63 65 73 20 6f ort namespaces o
0180: 75 72 73 65 6c 76 65 73 2c 20 77 65 20 64 6f 20 urselves, we do
0190: 6e 6f 74 20 77 61 6e 74 20 74 6f 20 70 6f 6c 6c not want to poll
01a0: 75 74 65 20 74 68 65 20 67 6c 6f 62 61 6c 0d 0a ute the global..
01b0: 23 20 20 20 20 20 20 20 6e 61 6d 65 73 70 61 63 # namespac
01c0: 65 20 69 66 20 74 68 69 73 20 73 63 72 69 70 74 e if this script
01d0: 20 61 63 74 75 61 6c 6c 79 20 65 6e 64 73 20 75 actually ends u
01e0: 70 20 62 65 69 6e 67 20 65 76 61 6c 75 61 74 65 p being evaluate
01f0: 64 20 69 6e 20 54 63 6c 2e 0d 0a 23 0d 0a 6e 61 d in Tcl...#..na
0200: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 45 mespace eval ::E
0210: 61 67 6c 65 20 7b 0d 0a 20 20 69 66 20 7b 5b 69 agle {.. if {[i
0220: 73 45 61 67 6c 65 5d 7d 20 74 68 65 6e 20 7b 0d sEagle]} then {.
0230: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 . ###########
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0280: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 .. ##########
0290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02a0: 23 23 20 42 45 47 49 4e 20 45 61 67 6c 65 20 4f ## BEGIN Eagle O
02b0: 4e 4c 59 20 23 23 23 23 23 23 23 23 23 23 23 23 NLY ############
02c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02d0: 23 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 #.. #########
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0320: 23 23 0d 0a 0d 0a 20 20 20 20 70 72 6f 63 20 67 ##.... proc g
0330: 65 74 42 75 69 6c 64 59 65 61 72 20 7b 7d 20 7b etBuildYear {} {
0340: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
0350: 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 20 # NOTE: See if
0360: 74 68 65 20 22 79 65 61 72 22 20 73 65 74 74 69 the "year" setti
0370: 6e 67 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 ng has been over
0380: 72 69 64 64 65 6e 20 62 79 20 74 68 65 20 75 73 ridden by the us
0390: 65 72 20 28 65 2e 67 2e 20 6f 6e 0d 0a 20 20 20 er (e.g. on..
03a0: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 63 # the c
03b0: 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 20 20 54 ommand line). T
03c0: 68 69 73 20 68 65 6c 70 73 20 63 6f 6e 74 72 6f his helps contro
03d0: 6c 20 65 78 61 63 74 6c 79 20 77 68 69 63 68 20 l exactly which
03e0: 73 65 74 20 6f 66 0d 0a 20 20 20 20 20 20 23 20 set of.. #
03f0: 20 20 20 20 20 20 62 69 6e 61 72 69 65 73 20 77 binaries w
0400: 65 20 61 72 65 20 74 65 73 74 69 6e 67 2c 20 74 e are testing, t
0410: 68 6f 73 65 20 70 72 6f 64 75 63 65 64 20 75 73 hose produced us
0420: 69 6e 67 20 65 69 74 68 65 72 20 74 68 65 20 56 ing either the V
0430: 69 73 75 61 6c 0d 0a 20 20 20 20 20 20 23 20 20 isual.. #
0440: 20 20 20 20 20 53 74 75 64 69 6f 20 32 30 30 38 Studio 2008
0450: 20 6f 72 20 56 69 73 75 61 6c 20 53 74 75 64 69 or Visual Studi
0460: 6f 20 32 30 31 30 20 62 75 69 6c 64 20 73 79 73 o 2010 build sys
0470: 74 65 6d 73 2e 20 20 54 6f 20 6f 76 65 72 72 69 tems. To overri
0480: 64 65 20 74 68 69 73 0d 0a 20 20 20 20 20 20 23 de this.. #
0490: 20 20 20 20 20 20 20 76 61 6c 75 65 20 76 69 61 value via
04a0: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e the command lin
04b0: 65 2c 20 65 6e 74 65 72 20 61 20 63 6f 6d 6d 61 e, enter a comma
04c0: 6e 64 20 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e nd similar to on
04d0: 65 20 6f 66 20 74 68 65 0d 0a 20 20 20 20 20 20 e of the..
04e0: 23 20 20 20 20 20 20 20 66 6f 6c 6c 6f 77 69 6e # followin
04f0: 67 20 28 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 g (all on one li
0500: 6e 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ne):.. #..
0510: 20 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 # Eag
0520: 6c 65 53 68 65 6c 6c 2e 65 78 65 20 2d 70 72 65 leShell.exe -pre
0530: 49 6e 69 74 69 61 6c 69 7a 65 20 22 73 65 74 20 Initialize "set
0540: 74 65 73 74 5f 79 65 61 72 20 32 30 30 38 22 0d test_year 2008".
0550: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 20 . #
0560: 20 2d 66 69 6c 65 20 2e 5c 70 61 74 68 5c 74 6f -file .\path\to
0570: 5c 61 6c 6c 2e 65 61 67 6c 65 0d 0a 20 20 20 20 \all.eagle..
0580: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 20 20 20 #.. #
0590: 20 20 20 45 61 67 6c 65 53 68 65 6c 6c 2e 65 78 EagleShell.ex
05a0: 65 20 2d 70 72 65 49 6e 69 74 69 61 6c 69 7a 65 e -preInitialize
05b0: 20 22 73 65 74 20 74 65 73 74 5f 79 65 61 72 20 "set test_year
05c0: 32 30 31 30 22 0d 0a 20 20 20 20 20 20 23 20 20 2010".. #
05d0: 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 -file .\p
05e0: 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 ath\to\all.eagle
05f0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
0600: 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 # EagleSh
0610: 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 6e 69 74 ell.exe -preInit
0620: 69 61 6c 69 7a 65 20 22 75 6e 73 65 74 20 2d 6e ialize "unset -n
0630: 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 5f 79 ocomplain test_y
0640: 65 61 72 22 0d 0a 20 20 20 20 20 20 23 20 20 20 ear".. #
0650: 20 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 61 -file .\pa
0660: 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 0d th\to\all.eagle.
0670: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
0680: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
0690: 20 3a 3a 74 65 73 74 5f 79 65 61 72 5d 20 26 26 ::test_year] &&
06a0: 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 [string length
06b0: 24 3a 3a 74 65 73 74 5f 79 65 61 72 5d 20 3e 20 $::test_year] >
06c0: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 0} then {..
06d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 #.. #
06e0: 4e 4f 54 45 3a 20 55 73 65 20 74 68 65 20 73 70 NOTE: Use the sp
06f0: 65 63 69 66 69 65 64 20 74 65 73 74 20 79 65 61 ecified test yea
0700: 72 2e 20 20 49 66 20 74 68 69 73 20 76 61 72 69 r. If this vari
0710: 61 62 6c 65 20 69 73 20 6e 6f 74 20 73 65 74 2c able is not set,
0720: 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 20 the.. #
0730: 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 76 61 default va
0740: 6c 75 65 20 77 69 6c 6c 20 62 65 20 62 61 73 65 lue will be base
0750: 64 20 6f 6e 20 77 68 65 74 68 65 72 20 6f 72 20 d on whether or
0760: 6e 6f 74 20 45 61 67 6c 65 20 68 61 73 20 62 65 not Eagle has be
0770: 65 6e 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 en.. #
0780: 20 20 20 20 63 6f 6d 70 69 6c 65 64 20 61 67 61 compiled aga
0790: 69 6e 73 74 20 74 68 65 20 2e 4e 45 54 20 46 72 inst the .NET Fr
07a0: 61 6d 65 77 6f 72 6b 20 32 2e 30 20 6f 72 20 34 amework 2.0 or 4
07b0: 2e 30 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a .0... #..
07c0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 return $
07d0: 3a 3a 74 65 73 74 5f 79 65 61 72 0d 0a 20 20 20 ::test_year..
07e0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
07f0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
0800: 23 20 4e 4f 54 45 3a 20 49 66 20 45 61 67 6c 65 # NOTE: If Eagle
0810: 20 68 61 73 20 62 65 65 6e 20 63 6f 6d 70 69 6c has been compil
0820: 65 64 20 61 67 61 69 6e 73 74 20 74 68 65 20 2e ed against the .
0830: 4e 45 54 20 46 72 61 6d 65 77 6f 72 6b 20 34 2e NET Framework 4.
0840: 30 2c 20 75 73 65 0d 0a 20 20 20 20 20 20 20 20 0, use..
0850: 23 20 20 20 20 20 20 20 22 32 30 31 30 22 20 61 # "2010" a
0860: 73 20 74 68 65 20 74 65 73 74 20 79 65 61 72 3b s the test year;
0870: 20 6f 74 68 65 72 77 69 73 65 2c 20 75 73 65 20 otherwise, use
0880: 22 32 30 30 38 22 2e 20 20 49 66 20 61 6e 6f 74 "2008". If anot
0890: 68 65 72 0d 0a 20 20 20 20 20 20 20 20 23 20 20 her.. #
08a0: 20 20 20 20 20 6d 61 6a 6f 72 20 5b 69 6e 63 6f major [inco
08b0: 6d 70 61 74 69 62 6c 65 5d 20 76 65 72 73 69 6f mpatible] versio
08c0: 6e 20 6f 66 20 74 68 65 20 2e 4e 45 54 20 46 72 n of the .NET Fr
08d0: 61 6d 65 77 6f 72 6b 20 69 73 20 72 65 6c 65 61 amework is relea
08e0: 73 65 64 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 sed,.. #
08f0: 20 20 20 20 20 20 74 68 69 73 20 63 68 65 63 6b this check
0900: 20 77 69 6c 6c 20 68 61 76 65 20 74 6f 20 62 65 will have to be
0910: 20 63 68 61 6e 67 65 64 2e 0d 0a 20 20 20 20 20 changed...
0920: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 #.. re
0930: 74 75 72 6e 20 5b 65 78 70 72 20 7b 5b 68 61 76 turn [expr {[hav
0940: 65 43 6f 6e 73 74 72 61 69 6e 74 20 69 6d 61 67 eConstraint imag
0950: 65 52 75 6e 74 69 6d 65 34 30 5d 20 3f 20 22 32 eRuntime40] ? "2
0960: 30 31 30 22 20 3a 20 22 32 30 30 38 22 7d 5d 0d 010" : "2008"}].
0970: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d . }.. }.
0980: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 .... proc get
0990: 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 69 BuildConfigurati
09a0: 6f 6e 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 on {} {.. #
09b0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
09c0: 53 65 65 20 69 66 20 74 68 65 20 22 63 6f 6e 66 See if the "conf
09d0: 69 67 75 72 61 74 69 6f 6e 22 20 73 65 74 74 69 iguration" setti
09e0: 6e 67 20 68 61 73 20 62 65 65 6e 20 6f 76 65 72 ng has been over
09f0: 72 69 64 64 65 6e 20 62 79 20 74 68 65 20 75 73 ridden by the us
0a00: 65 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 er.. #
0a10: 20 20 28 65 2e 67 2e 20 6f 6e 20 74 68 65 20 63 (e.g. on the c
0a20: 6f 6d 6d 61 6e 64 20 6c 69 6e 65 29 2e 20 20 54 ommand line). T
0a30: 68 69 73 20 68 65 6c 70 73 20 63 6f 6e 74 72 6f his helps contro
0a40: 6c 20 65 78 61 63 74 6c 79 20 77 68 69 63 68 20 l exactly which
0a50: 73 65 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 set.. #
0a60: 20 20 20 6f 66 20 62 69 6e 61 72 69 65 73 20 77 of binaries w
0a70: 65 20 61 72 65 20 74 65 73 74 69 6e 67 20 28 69 e are testing (i
0a80: 2e 65 2e 20 74 68 6f 73 65 20 62 75 69 6c 74 20 .e. those built
0a90: 69 6e 20 74 68 65 20 22 44 65 62 75 67 22 20 6f in the "Debug" o
0aa0: 72 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 r.. #
0ab0: 20 22 52 65 6c 65 61 73 65 22 20 62 75 69 6c 64 "Release" build
0ac0: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 73 29 configurations)
0ad0: 2e 20 20 54 6f 20 6f 76 65 72 72 69 64 65 20 74 . To override t
0ae0: 68 69 73 20 76 61 6c 75 65 20 76 69 61 20 74 68 his value via th
0af0: 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 e.. #
0b00: 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2c 20 65 command line, e
0b10: 6e 74 65 72 20 61 20 63 6f 6d 6d 61 6e 64 20 73 nter a command s
0b20: 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 20 6f 66 imilar to one of
0b30: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 28 the following (
0b40: 61 6c 6c 0d 0a 20 20 20 20 20 20 23 20 20 20 20 all.. #
0b50: 20 20 20 6f 6e 20 6f 6e 65 20 6c 69 6e 65 29 3a on one line):
0b60: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
0b70: 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 # EagleSh
0b80: 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 6e 69 74 ell.exe -preInit
0b90: 69 61 6c 69 7a 65 20 22 73 65 74 20 74 65 73 74 ialize "set test
0ba0: 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 44 _configuration D
0bb0: 65 62 75 67 22 0d 0a 20 20 20 20 20 20 23 20 20 ebug".. #
0bc0: 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 -file .\p
0bd0: 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 ath\to\all.eagle
0be0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
0bf0: 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 53 68 # EagleSh
0c00: 65 6c 6c 2e 65 78 65 20 2d 70 72 65 49 6e 69 74 ell.exe -preInit
0c10: 69 61 6c 69 7a 65 20 22 73 65 74 20 74 65 73 74 ialize "set test
0c20: 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 52 _configuration R
0c30: 65 6c 65 61 73 65 22 0d 0a 20 20 20 20 20 20 23 elease".. #
0c40: 20 20 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e -file .
0c50: 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 \path\to\all.eag
0c60: 6c 65 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 le.. #..
0c70: 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 # Eagle
0c80: 53 68 65 6c 6c 2e 65 78 65 20 2d 66 69 6c 65 20 Shell.exe -file
0c90: 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 .\path\to\all.ea
0ca0: 67 6c 65 20 2d 70 72 65 54 65 73 74 0d 0a 20 20 gle -preTest..
0cb0: 20 20 20 20 23 20 20 20 20 20 20 20 20 20 22 75 # "u
0cc0: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e nset -nocomplain
0cd0: 20 74 65 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 test_configurat
0ce0: 69 6f 6e 22 0d 0a 20 20 20 20 20 20 23 0d 0a 20 ion".. #..
0cf0: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 if {[info e
0d00: 78 69 73 74 73 20 3a 3a 74 65 73 74 5f 63 6f 6e xists ::test_con
0d10: 66 69 67 75 72 61 74 69 6f 6e 5d 20 26 26 20 5c figuration] && \
0d20: 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 73 74 72 .. [str
0d30: 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 74 65 ing length $::te
0d40: 73 74 5f 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e st_configuration
0d50: 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 ] > 0} then {..
0d60: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
0d70: 20 20 23 20 4e 4f 54 45 3a 20 55 73 65 20 74 68 # NOTE: Use th
0d80: 65 20 73 70 65 63 69 66 69 65 64 20 74 65 73 74 e specified test
0d90: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 20 configuration.
0da0: 20 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c The default val
0db0: 75 65 20 75 73 65 64 0d 0a 20 20 20 20 20 20 20 ue used..
0dc0: 20 23 20 20 20 20 20 20 20 66 6f 72 20 74 68 69 # for thi
0dd0: 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 22 52 s variable is "R
0de0: 65 6c 65 61 73 65 22 2c 20 61 73 20 73 65 74 20 elease", as set
0df0: 62 79 20 74 68 65 20 74 65 73 74 20 73 75 69 74 by the test suit
0e00: 65 20 69 74 73 65 6c 66 2e 0d 0a 20 20 20 20 20 e itself...
0e10: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 #.. re
0e20: 74 75 72 6e 20 24 3a 3a 74 65 73 74 5f 63 6f 6e turn $::test_con
0e30: 66 69 67 75 72 61 74 69 6f 6e 0d 0a 20 20 20 20 figuration..
0e40: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 } else {..
0e50: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
0e60: 20 4e 4f 54 45 3a 20 4e 6f 72 6d 61 6c 6c 79 2c NOTE: Normally,
0e70: 20 77 65 20 77 69 6c 6c 20 6e 65 76 65 72 20 68 we will never h
0e80: 69 74 20 74 68 69 73 20 63 61 73 65 20 62 65 63 it this case bec
0e90: 61 75 73 65 20 74 68 65 20 76 61 6c 75 65 20 6f ause the value o
0ea0: 66 20 74 68 65 0d 0a 20 20 20 20 20 20 20 20 23 f the.. #
0eb0: 20 20 20 20 20 20 20 74 65 73 74 20 63 6f 6e 66 test conf
0ec0: 69 67 75 72 61 74 69 6f 6e 20 76 61 72 69 61 62 iguration variab
0ed0: 6c 65 20 69 73 20 61 6c 77 61 79 73 20 73 65 74 le is always set
0ee0: 20 62 79 20 74 68 65 20 74 65 73 74 20 73 75 69 by the test sui
0ef0: 74 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 te.. #
0f00: 20 20 20 20 69 74 73 65 6c 66 3b 20 68 6f 77 65 itself; howe
0f10: 76 65 72 2c 20 69 74 20 63 61 6e 20 62 65 20 6f ver, it can be o
0f20: 76 65 72 72 69 64 64 65 6e 20 75 73 69 6e 67 20 verridden using
0f30: 74 68 65 20 75 6e 73 65 74 20 63 6f 6d 6d 61 6e the unset comman
0f40: 64 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 d.. #
0f50: 20 20 20 66 72 6f 6d 20 74 68 65 20 2d 70 72 65 from the -pre
0f60: 54 65 73 74 20 6f 70 74 69 6f 6e 20 74 6f 20 74 Test option to t
0f70: 68 65 20 74 65 73 74 20 73 75 69 74 65 2e 0d 0a he test suite...
0f80: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
0f90: 20 20 20 72 65 74 75 72 6e 20 24 3a 3a 65 61 67 return $::eag
0fa0: 6c 65 5f 70 6c 61 74 66 6f 72 6d 28 63 6f 6e 66 le_platform(conf
0fb0: 69 67 75 72 61 74 69 6f 6e 29 0d 0a 20 20 20 20 iguration)..
0fc0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }.....
0fd0: 20 20 20 70 72 6f 63 20 67 65 74 42 75 69 6c 64 proc getBuild
0fe0: 44 69 72 65 63 74 6f 72 79 20 7b 7d 20 7b 0d 0a Directory {} {..
0ff0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
1000: 20 4e 4f 54 45 3a 20 53 65 65 20 69 66 20 74 68 NOTE: See if th
1010: 65 20 22 6e 61 74 69 76 65 22 20 72 75 6e 74 69 e "native" runti
1020: 6d 65 20 6f 70 74 69 6f 6e 20 68 61 73 20 62 65 me option has be
1030: 65 6e 20 61 64 64 65 64 2e 20 20 49 66 20 73 6f en added. If so
1040: 2c 20 75 73 65 20 74 68 65 0d 0a 20 20 20 20 20 , use the..
1050: 20 23 20 20 20 20 20 20 20 64 69 72 65 63 74 6f # directo
1060: 72 79 20 66 6f 72 20 74 68 65 20 6d 69 78 65 64 ry for the mixed
1070: 2d 6d 6f 64 65 20 61 73 73 65 6d 62 6c 79 20 28 -mode assembly (
1080: 61 2e 6b 2e 61 2e 20 74 68 65 20 6e 61 74 69 76 a.k.a. the nativ
1090: 65 20 69 6e 74 65 72 6f 70 0d 0a 20 20 20 20 20 e interop..
10a0: 20 23 20 20 20 20 20 20 20 61 73 73 65 6d 62 6c # assembl
10b0: 79 29 2e 20 20 54 6f 20 65 6e 61 62 6c 65 20 74 y). To enable t
10c0: 68 69 73 20 6f 70 74 69 6f 6e 20 76 69 61 20 74 his option via t
10d0: 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2c he command line,
10e0: 20 65 6e 74 65 72 20 61 0d 0a 20 20 20 20 20 20 enter a..
10f0: 23 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 20 # command
1100: 73 69 6d 69 6c 61 72 20 74 6f 20 6f 6e 65 20 6f similar to one o
1110: 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 f the following
1120: 28 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e 65 (all on one line
1130: 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 ):.. #..
1140: 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c 65 # Eagle
1150: 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 69 Shell.exe -initi
1160: 61 6c 69 7a 65 20 2d 72 75 6e 74 69 6d 65 4f 70 alize -runtimeOp
1170: 74 69 6f 6e 20 6e 61 74 69 76 65 0d 0a 20 20 20 tion native..
1180: 20 20 20 23 20 20 20 20 20 20 20 20 20 2d 66 69 # -fi
1190: 6c 65 20 2e 5c 70 61 74 68 5c 74 6f 5c 61 6c 6c le .\path\to\all
11a0: 2e 65 61 67 6c 65 0d 0a 20 20 20 20 20 20 23 0d .eagle.. #.
11b0: 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 54 . # T
11c0: 6f 20 65 6e 61 62 6c 65 20 74 68 69 73 20 6f 70 o enable this op
11d0: 74 69 6f 6e 20 76 69 61 20 74 68 65 20 63 6f 6d tion via the com
11e0: 6d 61 6e 64 20 6c 69 6e 65 20 70 72 69 6f 72 20 mand line prior
11f0: 74 6f 20 74 68 65 20 22 62 65 74 61 20 31 36 22 to the "beta 16"
1200: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
1210: 72 65 6c 65 61 73 65 20 6f 66 20 45 61 67 6c 65 release of Eagle
1220: 2c 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 , the following
1230: 63 6f 6d 6d 61 6e 64 20 6d 75 73 74 20 62 65 20 command must be
1240: 75 73 65 64 20 69 6e 73 74 65 61 64 0d 0a 20 20 used instead..
1250: 20 20 20 20 23 20 20 20 20 20 20 20 28 61 6c 73 # (als
1260: 6f 20 61 6c 6c 20 6f 6e 20 6f 6e 65 20 6c 69 6e o all on one lin
1270: 65 29 3a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 e):.. #..
1280: 20 20 20 20 23 20 20 20 20 20 20 20 45 61 67 6c # Eagl
1290: 65 53 68 65 6c 6c 2e 65 78 65 20 2d 69 6e 69 74 eShell.exe -init
12a0: 69 61 6c 69 7a 65 20 2d 70 6f 73 74 49 6e 69 74 ialize -postInit
12b0: 69 61 6c 69 7a 65 0d 0a 20 20 20 20 20 20 23 20 ialize.. #
12c0: 20 20 20 20 20 20 20 20 22 6f 62 6a 65 63 74 20 "object
12d0: 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 invoke Interpret
12e0: 65 72 2e 47 65 74 41 63 74 69 76 65 20 41 64 64 er.GetActive Add
12f0: 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 RuntimeOption na
1300: 74 69 76 65 22 0d 0a 20 20 20 20 20 20 23 20 20 tive".. #
1310: 20 20 20 20 20 20 20 2d 66 69 6c 65 20 2e 5c 70 -file .\p
1320: 61 74 68 5c 74 6f 5c 61 6c 6c 2e 65 61 67 6c 65 ath\to\all.eagle
1330: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
1340: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
1350: 73 20 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 74 s ::build_direct
1360: 6f 72 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 ory] && \..
1370: 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e [string len
1380: 67 74 68 20 24 3a 3a 62 75 69 6c 64 5f 64 69 72 gth $::build_dir
1390: 65 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 ectory] > 0} the
13a0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a n {.. #..
13b0: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
13c0: 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 The location of
13d0: 74 68 65 20 62 75 69 6c 64 20 64 69 72 65 63 74 the build direct
13e0: 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f 76 65 ory has been ove
13f0: 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 rridden;..
1400: 20 20 23 20 20 20 20 20 20 20 74 68 65 72 65 66 # theref
1410: 6f 72 65 2c 20 75 73 65 20 69 74 20 76 65 72 62 ore, use it verb
1420: 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20 23 atim... #
1430: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
1440: 20 24 3a 3a 62 75 69 6c 64 5f 64 69 72 65 63 74 $::build_direct
1450: 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 ory.. } els
1460: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a e {.. #..
1470: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
1480: 46 69 67 75 72 65 20 6f 75 74 20 74 68 65 20 62 Figure out the b
1490: 75 69 6c 64 20 62 61 73 65 20 64 69 72 65 63 74 uild base direct
14a0: 6f 72 79 2e 20 20 54 68 69 73 20 77 69 6c 6c 20 ory. This will
14b0: 62 65 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 be the directory
14c0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
14d0: 20 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 20 that contains
14e0: 74 68 65 20 61 63 74 75 61 6c 20 62 75 69 6c 64 the actual build
14f0: 20 6f 75 74 70 75 74 20 64 69 72 65 63 74 6f 72 output director
1500: 79 20 28 65 2e 67 2e 20 22 62 69 6e 22 29 2e 0d y (e.g. "bin")..
1510: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
1520: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 if {[info ex
1530: 69 73 74 73 20 3a 3a 62 75 69 6c 64 5f 62 61 73 ists ::build_bas
1540: 65 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 e_directory] &&
1550: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b \.. [
1560: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a string length $:
1570: 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 69 72 65 :build_base_dire
1580: 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e ctory] > 0} then
1590: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d {.. #.
15a0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 . # NOT
15b0: 45 3a 20 54 68 65 20 6c 6f 63 61 74 69 6f 6e 20 E: The location
15c0: 6f 66 20 74 68 65 20 62 75 69 6c 64 20 62 61 73 of the build bas
15d0: 65 20 64 69 72 65 63 74 6f 72 79 20 68 61 73 20 e directory has
15e0: 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 3b been overridden;
15f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 20 20 .. #
1600: 20 20 20 20 74 68 65 72 65 66 6f 72 65 2c 20 75 therefore, u
1610: 73 65 20 69 74 20 76 65 72 62 61 74 69 6d 2e 0d se it verbatim..
1620: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
1630: 20 20 20 20 20 20 20 20 73 65 74 20 70 61 74 68 set path
1640: 20 24 3a 3a 62 75 69 6c 64 5f 62 61 73 65 5f 64 $::build_base_d
1650: 69 72 65 63 74 6f 72 79 0d 0a 20 20 20 20 20 20 irectory..
1660: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 69 6e 66 } elseif {[inf
1670: 6f 20 65 78 69 73 74 73 20 3a 3a 63 6f 6d 6d 6f o exists ::commo
1680: 6e 5f 64 69 72 65 63 74 6f 72 79 5d 20 26 26 20 n_directory] &&
1690: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5b \.. [
16a0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a string length $:
16b0: 3a 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 :common_director
16c0: 79 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a y] > 0} then {..
16d0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
16e0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e # NOTE: N
16f0: 65 78 74 2c 20 66 61 6c 6c 62 61 63 6b 20 74 6f ext, fallback to
1700: 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 65 the parent dire
1710: 63 74 6f 72 79 20 6f 66 20 74 68 65 20 6f 6e 65 ctory of the one
1720: 20 63 6f 6e 74 61 69 6e 69 6e 67 0d 0a 20 20 20 containing..
1730: 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 74 # t
1740: 68 69 73 20 66 69 6c 65 20 28 69 2e 65 2e 20 22 his file (i.e. "
1750: 63 6f 6d 6d 6f 6e 2e 65 61 67 6c 65 22 29 2c 20 common.eagle"),
1760: 69 66 20 61 76 61 69 6c 61 62 6c 65 2e 0d 0a 20 if available...
1770: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
1780: 20 20 20 20 20 20 73 65 74 20 70 61 74 68 20 5b set path [
1790: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 3a 3a file dirname $::
17a0: 63 6f 6d 6d 6f 6e 5f 64 69 72 65 63 74 6f 72 79 common_directory
17b0: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 ].. } els
17c0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 e {.. #
17d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f .. # NO
17e0: 54 45 3a 20 46 69 6e 61 6c 6c 79 2c 20 66 61 6c TE: Finally, fal
17f0: 6c 62 61 63 6b 20 74 6f 20 74 68 65 20 70 61 72 lback to the par
1800: 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 ent directory of
1810: 20 74 68 65 20 45 61 67 6c 65 54 65 73 74 0d 0a the EagleTest..
1820: 20 20 20 20 20 20 20 20 20 20 23 20 20 20 20 20 #
1830: 20 20 70 61 74 68 2e 20 20 54 68 65 20 45 61 67 path. The Eag
1840: 6c 65 54 65 73 74 20 70 61 63 6b 61 67 65 20 67 leTest package g
1850: 75 61 72 61 6e 74 65 65 73 20 74 68 61 74 20 74 uarantees that t
1860: 68 69 73 20 76 61 72 69 61 62 6c 65 0d 0a 20 20 his variable..
1870: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
1880: 77 69 6c 6c 20 62 65 20 73 65 74 20 74 6f 20 74 will be set to t
1890: 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e he directory con
18a0: 74 61 69 6e 69 6e 67 20 74 68 65 20 66 69 72 73 taining the firs
18b0: 74 20 66 69 6c 65 20 74 6f 0d 0a 20 20 20 20 20 t file to..
18c0: 20 20 20 20 20 23 20 20 20 20 20 20 20 65 78 65 # exe
18d0: 63 75 74 65 20 74 68 65 20 5b 72 75 6e 54 65 73 cute the [runTes
18e0: 74 50 72 6f 6c 6f 67 75 65 5d 20 73 63 72 69 70 tPrologue] scrip
18f0: 74 20 6c 69 62 72 61 72 79 20 70 72 6f 63 65 64 t library proced
1900: 75 72 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 ure...
1910: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 74 #.. set
1920: 20 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 6e path [file dirn
1930: 61 6d 65 20 24 3a 3a 70 61 74 68 5d 0d 0a 20 20 ame $::path]..
1940: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
1950: 20 20 20 69 66 20 7b 5b 68 61 73 52 75 6e 74 69 if {[hasRunti
1960: 6d 65 4f 70 74 69 6f 6e 20 6e 61 74 69 76 65 5d meOption native]
1970: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
1980: 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 return [file
1990: 20 6a 6f 69 6e 20 24 70 61 74 68 20 62 69 6e 20 join $path bin
19a0: 5b 67 65 74 42 75 69 6c 64 59 65 61 72 5d 20 5c [getBuildYear] \
19b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
19c0: 5b 6d 61 63 68 69 6e 65 54 6f 50 6c 61 74 66 6f [machineToPlatfo
19d0: 72 6d 20 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f rm $::tcl_platfo
19e0: 72 6d 28 6d 61 63 68 69 6e 65 29 5d 20 5c 0d 0a rm(machine)] \..
19f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 67 [g
1a00: 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 etBuildConfigura
1a10: 74 69 6f 6e 5d 5d 0d 0a 20 20 20 20 20 20 20 20 tion]]..
1a20: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 } else {..
1a30: 20 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 return [file
1a40: 20 6a 6f 69 6e 20 24 70 61 74 68 20 62 69 6e 20 join $path bin
1a50: 5b 67 65 74 42 75 69 6c 64 59 65 61 72 5d 20 5c [getBuildYear] \
1a60: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
1a70: 5b 67 65 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 [getBuildConfigu
1a80: 72 61 74 69 6f 6e 5d 20 62 69 6e 5d 0d 0a 20 20 ration] bin]..
1a90: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. }
1aa0: 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 .. }.....
1ab0: 70 72 6f 63 20 67 65 74 42 75 69 6c 64 46 69 6c proc getBuildFil
1ac0: 65 4e 61 6d 65 20 7b 20 66 69 6c 65 4e 61 6d 65 eName { fileName
1ad0: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 75 } {.. retu
1ae0: 72 6e 20 5b 66 69 6c 65 20 6e 61 74 69 76 65 6e rn [file nativen
1af0: 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 ame \..
1b00: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 [file join [get
1b10: 42 75 69 6c 64 44 69 72 65 63 74 6f 72 79 5d 20 BuildDirectory]
1b20: 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 [file tail $file
1b30: 4e 61 6d 65 5d 5d 5d 0d 0a 20 20 20 20 7d 0d 0a Name]]].. }..
1b40: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 67 65 74 42 ... proc getB
1b50: 69 6e 61 72 79 44 69 72 65 63 74 6f 72 79 20 7b inaryDirectory {
1b60: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #..
1b70: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 # NOTE: This
1b80: 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 72 procedure retur
1b90: 6e 73 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 ns the directory
1ba0: 20 77 68 65 72 65 20 74 68 65 20 74 65 73 74 20 where the test
1bb0: 61 70 70 6c 69 63 61 74 69 6f 6e 0d 0a 20 20 20 application..
1bc0: 20 20 20 23 20 20 20 20 20 20 20 69 74 73 65 6c # itsel
1bd0: 66 20 28 69 2e 65 2e 20 74 68 65 20 45 61 67 6c f (i.e. the Eagl
1be0: 65 20 73 68 65 6c 6c 29 20 69 73 20 6c 6f 63 61 e shell) is loca
1bf0: 74 65 64 2e 20 20 54 68 69 73 20 77 69 6c 6c 20 ted. This will
1c00: 62 65 20 75 73 65 64 20 61 73 0d 0a 20 20 20 20 be used as..
1c10: 20 20 23 20 20 20 20 20 20 20 74 68 65 20 64 65 # the de
1c20: 73 74 69 6e 61 74 69 6f 6e 20 66 6f 72 20 74 68 stination for th
1c30: 65 20 63 6f 70 69 65 64 20 53 79 73 74 65 6d 2e e copied System.
1c40: 44 61 74 61 2e 53 51 4c 69 74 65 20 6e 61 74 69 Data.SQLite nati
1c50: 76 65 20 61 6e 64 0d 0a 20 20 20 20 20 20 23 20 ve and.. #
1c60: 20 20 20 20 20 20 6d 61 6e 61 67 65 64 20 61 73 managed as
1c70: 73 65 6d 62 6c 69 65 73 20 28 69 2e 65 2e 20 62 semblies (i.e. b
1c80: 65 63 61 75 73 65 20 74 68 69 73 20 69 73 20 6f ecause this is o
1c90: 6e 65 20 6f 66 20 74 68 65 20 66 65 77 20 70 6c ne of the few pl
1ca0: 61 63 65 73 0d 0a 20 20 20 20 20 20 23 20 20 20 aces.. #
1cb0: 20 20 20 20 77 68 65 72 65 20 74 68 65 20 43 4c where the CL
1cc0: 52 20 77 69 6c 6c 20 61 63 74 75 61 6c 6c 79 20 R will actually
1cd0: 66 69 6e 64 20 61 6e 64 20 6c 6f 61 64 20 74 68 find and load th
1ce0: 65 6d 20 70 72 6f 70 65 72 6c 79 29 2e 0d 0a 20 em properly)...
1cf0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
1d00: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {[info exists :
1d10: 3a 62 69 6e 61 72 79 5f 64 69 72 65 63 74 6f 72 :binary_director
1d20: 79 5d 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 y] && \..
1d30: 20 20 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 [string lengt
1d40: 68 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69 72 65 h $::binary_dire
1d50: 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e ctory] > 0} then
1d60: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
1d70: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 # NOTE: T
1d80: 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 he location of t
1d90: 68 65 20 62 69 6e 61 72 79 20 64 69 72 65 63 74 he binary direct
1da0: 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f 76 65 ory has been ove
1db0: 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20 20 20 rridden;..
1dc0: 20 20 23 20 20 20 20 20 20 20 74 68 65 72 65 66 # theref
1dd0: 6f 72 65 2c 20 75 73 65 20 69 74 20 76 65 72 62 ore, use it verb
1de0: 61 74 69 6d 2e 0d 0a 20 20 20 20 20 20 20 20 23 atim... #
1df0: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
1e00: 20 24 3a 3a 62 69 6e 61 72 79 5f 64 69 72 65 63 $::binary_direc
1e10: 74 6f 72 79 0d 0a 20 20 20 20 20 20 7d 20 65 6c tory.. } el
1e20: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 se {.. re
1e30: 74 75 72 6e 20 5b 69 6e 66 6f 20 62 69 6e 61 72 turn [info binar
1e40: 79 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 y].. }..
1e50: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
1e60: 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d getBinaryFileNam
1e70: 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b e { fileName } {
1e80: 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 5b .. return [
1e90: 66 69 6c 65 20 6e 61 74 69 76 65 6e 61 6d 65 20 file nativename
1ea0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 66 69 \.. [fi
1eb0: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 42 69 6e 61 le join [getBina
1ec0: 72 79 44 69 72 65 63 74 6f 72 79 5d 20 5b 66 69 ryDirectory] [fi
1ed0: 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d le tail $fileNam
1ee0: 65 5d 5d 5d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a e]]].. }.....
1ef0: 20 20 20 20 70 72 6f 63 20 67 65 74 44 61 74 61 proc getData
1f00: 62 61 73 65 44 69 72 65 63 74 6f 72 79 20 7b 7d baseDirectory {}
1f10: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
1f20: 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 # NOTE: This
1f30: 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 72 6e procedure return
1f40: 73 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 s the directory
1f50: 77 68 65 72 65 20 74 68 65 20 74 65 73 74 20 64 where the test d
1f60: 61 74 61 62 61 73 65 73 0d 0a 20 20 20 20 20 20 atabases..
1f70: 23 20 20 20 20 20 20 20 73 68 6f 75 6c 64 20 62 # should b
1f80: 65 20 6c 6f 63 61 74 65 64 2e 20 20 42 79 20 64 e located. By d
1f90: 65 66 61 75 6c 74 2c 20 74 68 69 73 20 6a 75 73 efault, this jus
1fa0: 74 20 75 73 65 73 20 74 68 65 20 74 65 6d 70 6f t uses the tempo
1fb0: 72 61 72 79 0d 0a 20 20 20 20 20 20 23 20 20 20 rary.. #
1fc0: 20 20 20 20 64 69 72 65 63 74 6f 72 79 20 63 6f directory co
1fd0: 6e 66 69 67 75 72 65 64 20 66 6f 72 20 74 68 69 nfigured for thi
1fe0: 73 20 73 79 73 74 65 6d 2e 0d 0a 20 20 20 20 20 s system...
1ff0: 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 69 #.. if {[i
2000: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 64 61 74 nfo exists ::dat
2010: 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 5d abase_directory]
2020: 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 && \..
2030: 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 [string length
2040: 24 3a 3a 64 61 74 61 62 61 73 65 5f 64 69 72 65 $::database_dire
2050: 63 74 6f 72 79 5d 20 3e 20 30 7d 20 74 68 65 6e ctory] > 0} then
2060: 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 {.. #..
2070: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 # NOTE: T
2080: 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 74 he location of t
2090: 68 65 20 64 61 74 61 62 61 73 65 20 64 69 72 65 he database dire
20a0: 63 74 6f 72 79 20 68 61 73 20 62 65 65 6e 20 6f ctory has been o
20b0: 76 65 72 72 69 64 64 65 6e 3b 0d 0a 20 20 20 20 verridden;..
20c0: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 72 # ther
20d0: 65 66 6f 72 65 2c 20 75 73 65 20 69 74 2e 0d 0a efore, use it...
20e0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
20f0: 20 20 20 72 65 74 75 72 6e 20 5b 66 69 6c 65 20 return [file
2100: 6e 6f 72 6d 61 6c 69 7a 65 20 24 3a 3a 64 61 74 normalize $::dat
2110: 61 62 61 73 65 5f 64 69 72 65 63 74 6f 72 79 5d abase_directory]
2120: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b .. } else {
2130: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
2140: 20 5b 67 65 74 54 65 6d 70 6f 72 61 72 79 50 61 [getTemporaryPa
2150: 74 68 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 th].. }..
2160: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
2170: 20 67 65 74 41 70 70 44 6f 6d 61 69 6e 50 72 65 getAppDomainPre
2180: 61 6d 62 6c 65 20 7b 20 7b 70 72 65 66 69 78 20 amble { {prefix
2190: 22 22 7d 20 7b 73 75 66 66 69 78 20 22 22 7d 20 ""} {suffix ""}
21a0: 7d 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 } {.. #..
21b0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 # NOTE: This
21c0: 20 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 72 procedure retur
21d0: 6e 73 20 61 20 74 65 73 74 20 73 65 74 75 70 20 ns a test setup
21e0: 73 63 72 69 70 74 20 73 75 69 74 61 62 6c 65 20 script suitable
21f0: 66 6f 72 20 65 76 61 6c 75 61 74 69 6f 6e 0d 0a for evaluation..
2200: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 62 79 # by
2210: 20 61 20 74 65 73 74 20 69 6e 74 65 72 70 72 65 a test interpre
2220: 74 65 72 20 63 72 65 61 74 65 64 20 69 6e 20 61 ter created in a
2230: 6e 20 69 73 6f 6c 61 74 65 64 20 61 70 70 6c 69 n isolated appli
2240: 63 61 74 69 6f 6e 20 64 6f 6d 61 69 6e 2e 0d 0a cation domain...
2250: 20 20 20 20 20 20 23 20 20 20 20 20 20 20 54 68 # Th
2260: 65 20 73 63 72 69 70 74 20 62 65 69 6e 67 20 72 e script being r
2270: 65 74 75 72 6e 65 64 20 77 69 6c 6c 20 62 65 20 eturned will be
2280: 73 75 72 72 6f 75 6e 64 65 64 20 62 79 20 74 68 surrounded by th
2290: 65 20 70 72 65 66 69 78 20 61 6e 64 0d 0a 20 20 e prefix and..
22a0: 20 20 20 20 23 20 20 20 20 20 20 20 73 75 66 66 # suff
22b0: 69 78 20 22 73 63 72 69 70 74 20 66 72 61 67 6d ix "script fragm
22c0: 65 6e 74 73 22 20 73 70 65 63 69 66 69 65 64 20 ents" specified
22d0: 62 79 20 74 68 65 20 63 61 6c 6c 65 72 2c 20 69 by the caller, i
22e0: 66 20 61 6e 79 2e 20 20 54 68 65 0d 0a 20 20 20 f any. The..
22f0: 20 20 20 23 20 20 20 20 20 20 20 65 6e 74 69 72 # entir
2300: 65 20 73 63 72 69 70 74 20 62 65 69 6e 67 20 72 e script being r
2310: 65 74 75 72 6e 65 64 20 77 69 6c 6c 20 62 65 20 eturned will be
2320: 73 75 62 73 74 69 74 75 74 65 64 20 76 69 61 20 substituted via
2330: 5b 73 75 62 73 74 5d 2c 20 69 6e 0d 0a 20 20 20 [subst], in..
2340: 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 63 # the c
2350: 6f 6e 74 65 78 74 20 6f 66 20 74 68 65 20 63 61 ontext of the ca
2360: 6c 6c 65 72 2e 20 20 54 68 69 73 20 73 74 65 70 ller. This step
2370: 20 69 73 20 6e 65 63 65 73 73 61 72 79 20 73 6f is necessary so
2380: 20 74 68 61 74 20 73 6f 6d 65 0d 0a 20 20 20 20 that some..
2390: 20 20 23 20 20 20 20 20 20 20 6c 69 6d 69 74 65 # limite
23a0: 64 20 63 6f 6e 74 65 78 74 20 69 6e 66 6f 72 6d d context inform
23b0: 61 74 69 6f 6e 2c 20 70 72 69 6d 61 72 69 6c 79 ation, primarily
23c0: 20 72 65 6c 61 74 65 64 20 74 6f 20 74 68 65 20 related to the
23d0: 74 65 73 74 20 62 75 69 6c 64 0d 0a 20 20 20 20 test build..
23e0: 20 20 23 20 20 20 20 20 20 20 64 69 72 65 63 74 # direct
23f0: 6f 72 79 2c 20 63 61 6e 20 62 65 20 74 72 61 6e ory, can be tran
2400: 73 66 65 72 72 65 64 20 74 6f 20 74 68 65 20 69 sferred to the i
2410: 6e 74 65 72 70 72 65 74 65 72 20 69 6e 20 74 68 nterpreter in th
2420: 65 20 69 73 6f 6c 61 74 65 64 0d 0a 20 20 20 20 e isolated..
2430: 20 20 23 20 20 20 20 20 20 20 61 70 70 6c 69 63 # applic
2440: 61 74 69 6f 6e 20 64 6f 6d 61 69 6e 2c 20 6d 61 ation domain, ma
2450: 6b 69 6e 67 20 69 74 20 61 62 6c 65 20 74 6f 20 king it able to
2460: 73 75 63 63 65 73 73 66 75 6c 6c 79 20 72 75 6e successfully run
2470: 20 74 65 73 74 73 20 74 68 61 74 0d 0a 20 20 20 tests that..
2480: 20 20 20 23 20 20 20 20 20 20 20 72 65 71 75 69 # requi
2490: 72 65 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f re one or more o
24a0: 66 20 74 68 65 20 66 69 6c 65 73 20 69 6e 20 74 f the files in t
24b0: 68 65 20 62 75 69 6c 64 20 64 69 72 65 63 74 6f he build directo
24c0: 72 79 2e 20 20 43 61 6c 6c 65 72 73 0d 0a 20 20 ry. Callers..
24d0: 20 20 20 20 23 20 20 20 20 20 20 20 74 6f 20 74 # to t
24e0: 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73 68 his procedure sh
24f0: 6f 75 6c 64 20 6b 65 65 70 20 69 6e 20 6d 69 6e ould keep in min
2500: 64 20 74 68 61 74 20 74 68 65 20 74 65 73 74 20 d that the test
2510: 73 63 72 69 70 74 20 62 65 69 6e 67 0d 0a 20 20 script being..
2520: 20 20 20 20 23 20 20 20 20 20 20 20 72 65 74 75 # retu
2530: 72 6e 65 64 20 63 61 6e 6e 6f 74 20 6f 6e 6c 79 rned cannot only
2540: 20 72 65 6c 79 20 6f 6e 20 61 6e 79 20 73 63 72 rely on any scr
2550: 69 70 74 20 6c 69 62 72 61 72 79 20 70 72 6f 63 ipt library proc
2560: 65 64 75 72 65 73 20 6e 6f 74 0d 0a 20 20 20 20 edures not..
2570: 20 20 23 20 20 20 20 20 20 20 69 6e 63 6c 75 64 # includ
2580: 65 64 20 69 6e 20 74 68 65 20 45 61 67 6c 65 4c ed in the EagleL
2590: 69 62 72 61 72 79 20 70 61 63 6b 61 67 65 20 28 ibrary package (
25a0: 69 2e 65 2e 20 22 69 6e 69 74 2e 65 61 67 6c 65 i.e. "init.eagle
25b0: 22 29 2e 20 20 41 6c 73 6f 2c 0d 0a 20 20 20 20 "). Also,..
25c0: 20 20 23 20 20 20 20 20 20 20 61 6c 6c 20 76 61 # all va
25d0: 72 69 61 62 6c 65 20 72 65 66 65 72 65 6e 63 65 riable reference
25e0: 73 20 61 6e 64 20 61 6c 6c 20 22 6e 65 73 74 65 s and all "neste
25f0: 64 22 20 63 6f 6d 6d 61 6e 64 73 20 28 69 2e 65 d" commands (i.e
2600: 2e 20 74 68 6f 73 65 20 69 6e 0d 0a 20 20 20 20 . those in..
2610: 20 20 23 20 20 20 20 20 20 20 73 71 75 61 72 65 # square
2620: 20 62 72 61 63 6b 65 74 73 29 2c 20 75 6e 6c 65 brackets), unle
2630: 73 73 20 74 68 65 79 20 61 72 65 20 73 70 65 63 ss they are spec
2640: 69 61 6c 6c 79 20 71 75 6f 74 65 64 2c 20 77 69 ially quoted, wi
2650: 6c 6c 20 65 6e 64 20 75 70 0d 0a 20 20 20 20 20 ll end up..
2660: 20 23 20 20 20 20 20 20 20 62 65 69 6e 67 20 65 # being e
2670: 76 61 6c 75 61 74 65 64 20 69 6e 20 74 68 65 20 valuated in the
2680: 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 65 20 63 context of the c
2690: 61 6c 6c 69 6e 67 20 69 6e 74 65 72 70 72 65 74 alling interpret
26a0: 65 72 20 61 6e 64 20 6e 6f 74 0d 0a 20 20 20 20 er and not..
26b0: 20 20 23 20 20 20 20 20 20 20 74 68 65 20 74 65 # the te
26c0: 73 74 20 69 6e 74 65 72 70 72 65 74 65 72 20 63 st interpreter c
26d0: 72 65 61 74 65 64 20 69 6e 20 74 68 65 20 69 73 reated in the is
26e0: 6f 6c 61 74 65 64 20 61 70 70 6c 69 63 61 74 69 olated applicati
26f0: 6f 6e 20 64 6f 6d 61 69 6e 2e 0d 0a 20 20 20 20 on domain...
2700: 20 20 23 0d 0a 20 20 20 20 20 20 72 65 74 75 72 #.. retur
2710: 6e 20 5b 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 n [uplevel 1 [li
2720: 73 74 20 73 75 62 73 74 20 5b 61 70 70 65 6e 64 st subst [append
2730: 41 72 67 73 20 24 70 72 65 66 69 78 20 7b 0d 0a Args $prefix {..
2740: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 68 61 73 if {[has
2750: 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 RuntimeOption na
2760: 74 69 76 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 tive]} then {..
2770: 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 object
2780: 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 invoke Interpret
2790: 65 72 2e 47 65 74 41 63 74 69 76 65 20 41 64 64 er.GetActive Add
27a0: 52 75 6e 74 69 6d 65 4f 70 74 69 6f 6e 20 6e 61 RuntimeOption na
27b0: 74 69 76 65 0d 0a 20 20 20 20 20 20 20 20 7d 0d tive.. }.
27c0: 0a 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a ... set :
27d0: 3a 70 61 74 68 20 7b 24 3a 3a 70 61 74 68 7d 0d :path {$::path}.
27e0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 74 . set ::t
27f0: 65 73 74 5f 79 65 61 72 20 7b 5b 67 65 74 42 75 est_year {[getBu
2800: 69 6c 64 59 65 61 72 5d 7d 0d 0a 20 20 20 20 20 ildYear]}..
2810: 20 20 20 73 65 74 20 3a 3a 74 65 73 74 5f 63 6f set ::test_co
2820: 6e 66 69 67 75 72 61 74 69 6f 6e 20 7b 5b 67 65 nfiguration {[ge
2830: 74 42 75 69 6c 64 43 6f 6e 66 69 67 75 72 61 74 tBuildConfigurat
2840: 69 6f 6e 5d 7d 0d 0a 20 20 20 20 20 20 7d 20 24 ion]}.. } $
2850: 73 75 66 66 69 78 5d 5d 5d 0d 0a 20 20 20 20 7d suffix]]].. }
2860: 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 74 72 ..... proc tr
2870: 79 43 6f 70 79 42 75 69 6c 64 46 69 6c 65 20 7b yCopyBuildFile {
2880: 20 66 69 6c 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20 fileName } {..
2890: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
28a0: 4e 4f 54 45 3a 20 49 66 20 77 65 20 63 61 6e 6e NOTE: If we cann
28b0: 6f 74 20 63 6f 70 79 20 74 68 65 20 61 73 73 65 ot copy the asse
28c0: 6d 62 6c 79 20 74 68 65 6e 20 69 74 20 69 73 20 mbly then it is
28d0: 70 72 6f 62 61 62 6c 79 20 61 6c 72 65 61 64 79 probably already
28e0: 20 6c 6f 61 64 65 64 2e 0d 0a 20 20 20 20 20 20 loaded...
28f0: 23 0d 0a 20 20 20 20 20 20 73 65 74 20 73 6f 75 #.. set sou
2900: 72 63 65 46 69 6c 65 4e 61 6d 65 20 5b 67 65 74 rceFileName [get
2910: 42 75 69 6c 64 46 69 6c 65 4e 61 6d 65 20 24 66 BuildFileName $f
2920: 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 ileName]....
2930: 20 20 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 if {![file exi
2940: 73 74 73 20 24 73 6f 75 72 63 65 46 69 6c 65 4e sts $sourceFileN
2950: 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 ame]} then {..
2960: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
2970: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
2980: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
2990: 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73 6b 69 "---- ski
29a0: 70 70 65 64 20 63 6f 70 79 69 6e 67 20 62 75 69 pped copying bui
29b0: 6c 64 20 66 69 6c 65 20 5c 22 22 20 24 73 6f 75 ld file \"" $sou
29c0: 72 63 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 rceFileName \..
29d0: 20 20 20 20 20 20 20 20 20 20 20 22 5c 22 2c 20 "\",
29e0: 69 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 it does not exis
29f0: 74 5c 6e 22 5d 0d 0a 0d 0a 20 20 20 20 20 20 20 t\n"]....
2a00: 20 72 65 74 75 72 6e 0d 0a 20 20 20 20 20 20 7d return.. }
2a10: 0d 0a 0d 0a 20 20 20 20 20 20 73 65 74 20 74 61 .... set ta
2a20: 72 67 65 74 46 69 6c 65 4e 61 6d 65 20 5b 67 65 rgetFileName [ge
2a30: 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 20 tBinaryFileName
2a40: 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 $fileName]....
2a50: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
2a60: 0d 0a 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 .. file
2a70: 20 63 6f 70 79 20 2d 66 6f 72 63 65 20 24 73 6f copy -force $so
2a80: 75 72 63 65 46 69 6c 65 4e 61 6d 65 20 24 74 61 urceFileName $ta
2a90: 72 67 65 74 46 69 6c 65 4e 61 6d 65 7d 5d 20 3d rgetFileName}] =
2aa0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {..
2ab0: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
2ac0: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
2ad0: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
2ae0: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 63 6f 70 69 "---- copi
2af0: 65 64 20 62 75 69 6c 64 20 66 69 6c 65 20 66 72 ed build file fr
2b00: 6f 6d 20 5c 22 22 20 24 73 6f 75 72 63 65 46 69 om \"" $sourceFi
2b10: 6c 65 4e 61 6d 65 20 22 5c 22 20 74 6f 20 5c 22 leName "\" to \"
2b20: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \..
2b30: 20 24 74 61 72 67 65 74 46 69 6c 65 4e 61 6d 65 $targetFileName
2b40: 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 20 7d 20 \"\n].. }
2b50: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
2b60: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs $::test_ch
2b70: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
2b80: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
2b90: 20 22 2d 2d 2d 2d 20 66 61 69 6c 65 64 20 74 6f "---- failed to
2ba0: 20 63 6f 70 79 20 62 75 69 6c 64 20 66 69 6c 65 copy build file
2bb0: 20 66 72 6f 6d 20 5c 22 22 20 24 73 6f 75 72 63 from \"" $sourc
2bc0: 65 46 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 eFileName \..
2bd0: 20 20 20 20 20 20 20 20 20 22 5c 22 20 74 6f 20 "\" to
2be0: 5c 22 22 20 24 74 61 72 67 65 74 46 69 6c 65 4e \"" $targetFileN
2bf0: 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 20 20 20 ame \"\n]..
2c00: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 }.. }.....
2c10: 20 20 70 72 6f 63 20 74 72 79 44 65 6c 65 74 65 proc tryDelete
2c20: 42 69 6e 61 72 79 46 69 6c 65 20 7b 20 66 69 6c BinaryFile { fil
2c30: 65 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 20 eName } {..
2c40: 20 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 5b 67 set fileName [g
2c50: 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 etBinaryFileName
2c60: 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 $fileName]....
2c70: 20 20 20 20 20 69 66 20 7b 21 5b 66 69 6c 65 20 if {![file
2c80: 65 78 69 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 exists $fileName
2c90: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 ]} then {..
2ca0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 tputs $::test
2cb0: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 _channel [append
2cc0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 Args \..
2cd0: 20 20 20 20 22 2d 2d 2d 2d 20 73 6b 69 70 70 65 "---- skippe
2ce0: 64 20 64 65 6c 65 74 69 6e 67 20 62 69 6e 61 72 d deleting binar
2cf0: 79 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 y file \"" $file
2d00: 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 Name \..
2d10: 20 20 20 20 22 5c 22 2c 20 69 74 20 64 6f 65 73 "\", it does
2d20: 20 6e 6f 74 20 65 78 69 73 74 5c 6e 22 5d 0d 0a not exist\n"]..
2d30: 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e .. return
2d40: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
2d50: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 66 if {[catch {f
2d60: 69 6c 65 20 64 65 6c 65 74 65 20 24 66 69 6c 65 ile delete $file
2d70: 4e 61 6d 65 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 Name}] == 0} the
2d80: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 74 70 75 n {.. tpu
2d90: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e ts $::test_chann
2da0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c el [appendArgs \
2db0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 2d .. "-
2dc0: 2d 2d 2d 20 64 65 6c 65 74 65 64 20 62 69 6e 61 --- deleted bina
2dd0: 72 79 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c ry file \"" $fil
2de0: 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 20 eName \"\n]..
2df0: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 } else {..
2e00: 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 tputs $::te
2e10: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 st_channel [appe
2e20: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 ndArgs \..
2e30: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 66 61 69 6c "---- fail
2e40: 65 64 20 74 6f 20 64 65 6c 65 74 65 20 62 69 6e ed to delete bin
2e50: 61 72 79 20 66 69 6c 65 20 5c 22 22 20 24 66 69 ary file \"" $fi
2e60: 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 leName \"\n]..
2e70: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d }.. }....
2e80: 0a 20 20 20 20 70 72 6f 63 20 74 72 79 43 6f 70 . proc tryCop
2e90: 79 41 73 73 65 6d 62 6c 79 20 7b 20 66 69 6c 65 yAssembly { file
2ea0: 4e 61 6d 65 20 7b 70 64 62 20 74 72 75 65 7d 20 Name {pdb true}
2eb0: 7d 20 7b 0d 0a 20 20 20 20 20 20 74 72 79 43 6f } {.. tryCo
2ec0: 70 79 42 75 69 6c 64 46 69 6c 65 20 24 66 69 6c pyBuildFile $fil
2ed0: 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 20 20 20 69 eName.... i
2ee0: 66 20 7b 24 70 64 62 7d 20 74 68 65 6e 20 7b 0d f {$pdb} then {.
2ef0: 0a 20 20 20 20 20 20 20 20 74 72 79 43 6f 70 79 . tryCopy
2f00: 42 75 69 6c 64 46 69 6c 65 20 5b 61 70 70 65 6e BuildFile [appen
2f10: 64 41 72 67 73 20 5b 66 69 6c 65 20 72 6f 6f 74 dArgs [file root
2f20: 6e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d 20 name $fileName]
2f30: 2e 70 64 62 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a .pdb].. }..
2f40: 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 }..... pr
2f50: 6f 63 20 74 72 79 44 65 6c 65 74 65 41 73 73 65 oc tryDeleteAsse
2f60: 6d 62 6c 79 20 7b 20 66 69 6c 65 4e 61 6d 65 20 mbly { fileName
2f70: 7b 70 64 62 20 74 72 75 65 7d 20 7d 20 7b 0d 0a {pdb true} } {..
2f80: 20 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 42 tryDeleteB
2f90: 69 6e 61 72 79 46 69 6c 65 20 24 66 69 6c 65 4e inaryFile $fileN
2fa0: 61 6d 65 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 ame.... if
2fb0: 7b 24 70 64 62 7d 20 74 68 65 6e 20 7b 0d 0a 20 {$pdb} then {..
2fc0: 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 tryDelete
2fd0: 42 69 6e 61 72 79 46 69 6c 65 20 5b 61 70 70 65 BinaryFile [appe
2fe0: 6e 64 41 72 67 73 20 5b 66 69 6c 65 20 72 6f 6f ndArgs [file roo
2ff0: 74 6e 61 6d 65 20 24 66 69 6c 65 4e 61 6d 65 5d tname $fileName]
3000: 20 2e 70 64 62 5d 0d 0a 20 20 20 20 20 20 7d 0d .pdb].. }.
3010: 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 . }..... p
3020: 72 6f 63 20 74 72 79 4c 6f 61 64 41 73 73 65 6d roc tryLoadAssem
3030: 62 6c 79 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7d bly { fileName }
3040: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 66 69 {.. set fi
3050: 6c 65 4e 61 6d 65 20 5b 67 65 74 42 69 6e 61 72 leName [getBinar
3060: 79 46 69 6c 65 4e 61 6d 65 20 24 66 69 6c 65 4e yFileName $fileN
3070: 61 6d 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 ame].... if
3080: 20 7b 5b 63 61 74 63 68 20 7b 73 65 74 20 61 73 {[catch {set as
3090: 73 65 6d 62 6c 79 20 5c 0d 0a 20 20 20 20 20 20 sembly \..
30a0: 20 20 20 20 5b 6f 62 6a 65 63 74 20 6c 6f 61 64 [object load
30b0: 20 2d 6c 6f 61 64 74 79 70 65 20 46 69 6c 65 20 -loadtype File
30c0: 2d 61 6c 69 61 73 20 24 66 69 6c 65 4e 61 6d 65 -alias $fileName
30d0: 5d 7d 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20 7b ]}] == 0} then {
30e0: 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 .. #..
30f0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 # NOTE: Now
3100: 2c 20 61 64 64 20 74 68 65 20 6e 65 63 65 73 73 , add the necess
3110: 61 72 79 20 74 65 73 74 20 63 6f 6e 73 74 72 61 ary test constra
3120: 69 6e 74 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d int... #.
3130: 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e 73 . addCons
3140: 74 72 61 69 6e 74 20 5b 66 69 6c 65 20 72 6f 6f traint [file roo
3150: 74 6e 61 6d 65 20 5b 66 69 6c 65 20 74 61 69 6c tname [file tail
3160: 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 0d 0a $fileName]]....
3170: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
3180: 20 20 20 23 20 4e 4f 54 45 3a 20 47 72 61 62 20 # NOTE: Grab
3190: 74 68 65 20 69 6d 61 67 65 20 72 75 6e 74 69 6d the image runtim
31a0: 65 20 76 65 72 73 69 6f 6e 20 66 72 6f 6d 20 74 e version from t
31b0: 68 65 20 61 73 73 65 6d 62 6c 79 20 62 65 63 61 he assembly beca
31c0: 75 73 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 use.. #
31d0: 20 20 20 20 20 73 65 76 65 72 61 6c 20 74 65 73 several tes
31e0: 74 73 20 72 65 6c 79 20 6f 6e 20 69 74 20 68 61 ts rely on it ha
31f0: 76 69 6e 67 20 61 20 63 65 72 74 61 69 6e 20 76 ving a certain v
3200: 61 6c 75 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 alue... #
3210: 0d 0a 20 20 20 20 20 20 20 20 61 64 64 43 6f 6e .. addCon
3220: 73 74 72 61 69 6e 74 20 5b 61 70 70 65 6e 64 41 straint [appendA
3230: 72 67 73 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 rgs [file tail $
3240: 66 69 6c 65 4e 61 6d 65 5d 20 5f 20 5c 0d 0a 20 fileName] _ \..
3250: 20 20 20 20 20 20 20 20 20 20 20 5b 24 61 73 73 [$ass
3260: 65 6d 62 6c 79 20 49 6d 61 67 65 52 75 6e 74 69 embly ImageRunti
3270: 6d 65 56 65 72 73 69 6f 6e 5d 5d 0d 0a 0d 0a 20 meVersion]]....
3280: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
3290: 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e # NOTE: Return
32a0: 20 74 68 65 20 66 75 6c 6c 20 70 61 74 68 20 6f the full path o
32b0: 66 20 74 68 65 20 6c 6f 61 64 65 64 20 66 69 6c f the loaded fil
32c0: 65 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 e... #..
32d0: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 66 return $f
32e0: 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 20 7d ileName.. }
32f0: 0d 0a 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e .... return
3300: 20 22 22 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 "".. }.....
3310: 20 20 20 70 72 6f 63 20 63 68 65 63 6b 46 6f 72 proc checkFor
3320: 53 51 4c 69 74 65 20 7b 20 63 68 61 6e 6e 65 6c SQLite { channel
3330: 20 7d 20 7b 0d 0a 20 20 20 20 20 20 74 70 75 74 } {.. tput
3340: 73 20 24 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d s $channel "----
3350: 20 63 68 65 63 6b 69 6e 67 20 66 6f 72 20 63 6f checking for co
3360: 72 65 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 re SQLite librar
3370: 79 2e 2e 2e 20 22 0d 0a 0d 0a 20 20 20 20 20 20 y... "....
3380: 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 62 6a 65 if {[catch {obje
3390: 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 ct invoke -flags
33a0: 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 53 79 73 74 +NonPublic Syst
33b0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 em.Data.SQLite.S
33c0: 51 4c 69 74 65 33 20 5c 0d 0a 20 20 20 20 20 20 QLite3 \..
33d0: 20 20 20 20 20 20 20 20 53 51 4c 69 74 65 56 65 SQLiteVe
33e0: 72 73 69 6f 6e 7d 20 76 65 72 73 69 6f 6e 5d 20 rsion} version]
33f0: 3d 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 == 0} then {..
3400: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
3410: 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 # NOTE: Attempt
3420: 20 74 6f 20 71 75 65 72 79 20 74 68 65 20 46 6f to query the Fo
3430: 73 73 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e ssil source iden
3440: 74 69 66 69 65 72 20 66 6f 72 20 74 68 65 20 53 tifier for the S
3450: 51 4c 69 74 65 0d 0a 20 20 20 20 20 20 20 20 23 QLite.. #
3460: 20 20 20 20 20 20 20 63 6f 72 65 20 6c 69 62 72 core libr
3470: 61 72 79 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d ary... #.
3480: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 . if {[ca
3490: 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 6e 76 6f tch {object invo
34a0: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 ke -flags +NonPu
34b0: 62 6c 69 63 20 53 79 73 74 65 6d 2e 44 61 74 61 blic System.Data
34c0: 2e 53 51 4c 69 74 65 2e 53 51 4c 69 74 65 33 20 .SQLite.SQLite3
34d0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
34e0: 20 20 20 53 51 4c 69 74 65 53 6f 75 72 63 65 49 SQLiteSourceI
34f0: 64 7d 20 73 6f 75 72 63 65 49 64 5d 7d 20 74 68 d} sourceId]} th
3500: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
3510: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e #.. # N
3520: 4f 54 45 3a 20 57 65 20 66 61 69 6c 65 64 20 74 OTE: We failed t
3530: 6f 20 71 75 65 72 79 20 74 68 65 20 46 6f 73 73 o query the Foss
3540: 69 6c 20 73 6f 75 72 63 65 20 69 64 65 6e 74 69 il source identi
3550: 66 69 65 72 2e 0d 0a 20 20 20 20 20 20 20 20 20 fier...
3560: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 #.. se
3570: 74 20 73 6f 75 72 63 65 49 64 20 75 6e 6b 6e 6f t sourceId unkno
3580: 77 6e 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d wn.. }...
3590: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
35a0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 59 65 73 2c # NOTE: Yes,
35b0: 20 74 68 65 20 53 51 4c 69 74 65 20 63 6f 72 65 the SQLite core
35c0: 20 6c 69 62 72 61 72 79 20 61 70 70 65 61 72 73 library appears
35d0: 20 74 6f 20 62 65 20 61 76 61 69 6c 61 62 6c 65 to be available
35e0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
35f0: 20 20 20 20 20 20 61 64 64 43 6f 6e 73 74 72 61 addConstra
3600: 69 6e 74 20 53 51 4c 69 74 65 0d 0a 0d 0a 20 20 int SQLite....
3610: 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 61 tputs $cha
3620: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 nnel [appendArgs
3630: 20 22 79 65 73 20 28 22 20 24 76 65 72 73 69 6f "yes (" $versio
3640: 6e 20 22 20 22 20 24 73 6f 75 72 63 65 49 64 20 n " " $sourceId
3650: 22 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d 20 ")\n"].. }
3660: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 else {..
3670: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 6e tputs $channel n
3680: 6f 5c 6e 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 o\n.. }..
3690: 20 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 }..... proc
36a0: 20 67 65 74 44 61 74 65 54 69 6d 65 46 6f 72 6d getDateTimeForm
36b0: 61 74 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 23 at {} {.. #
36c0: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
36d0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 73 This procedure s
36e0: 69 6d 70 6c 79 20 72 65 74 75 72 6e 73 20 74 68 imply returns th
36f0: 65 20 22 64 65 66 61 75 6c 74 22 20 44 61 74 65 e "default" Date
3700: 54 69 6d 65 20 66 6f 72 6d 61 74 20 75 73 65 64 Time format used
3710: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
3720: 62 79 20 74 68 65 20 74 65 73 74 20 73 75 69 74 by the test suit
3730: 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 e... #..
3740: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 if {[info exi
3750: 73 74 73 20 3a 3a 64 61 74 65 74 69 6d 65 5f 66 sts ::datetime_f
3760: 6f 72 6d 61 74 5d 20 26 26 20 5c 0d 0a 20 20 20 ormat] && \..
3770: 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 20 6c [string l
3780: 65 6e 67 74 68 20 24 3a 3a 64 61 74 65 74 69 6d ength $::datetim
3790: 65 5f 66 6f 72 6d 61 74 5d 20 3e 20 30 7d 20 74 e_format] > 0} t
37a0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 hen {.. #
37b0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
37c0: 3a 20 52 65 74 75 72 6e 20 74 68 65 20 6d 61 6e : Return the man
37d0: 75 61 6c 6c 79 20 6f 76 65 72 72 69 64 64 65 6e ually overridden
37e0: 20 76 61 6c 75 65 20 66 6f 72 20 74 68 65 20 44 value for the D
37f0: 61 74 65 54 69 6d 65 20 66 6f 72 6d 61 74 2e 0d ateTime format..
3800: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
3810: 20 20 20 20 72 65 74 75 72 6e 20 24 3a 3a 64 61 return $::da
3820: 74 65 74 69 6d 65 5f 66 6f 72 6d 61 74 0d 0a 20 tetime_format..
3830: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
3840: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
3850: 20 20 23 20 4e 4f 54 45 3a 20 52 65 74 75 72 6e # NOTE: Return
3860: 20 61 6e 20 49 53 4f 38 36 30 31 20 44 61 74 65 an ISO8601 Date
3870: 54 69 6d 65 20 66 6f 72 6d 61 74 20 63 6f 6d 70 Time format comp
3880: 61 74 69 62 6c 65 20 77 69 74 68 20 53 51 4c 69 atible with SQLi
3890: 74 65 2c 0d 0a 20 20 20 20 20 20 20 20 23 20 20 te,.. #
38a0: 20 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 System.Data
38b0: 2e 53 51 4c 69 74 65 2c 20 61 6e 64 20 73 75 69 .SQLite, and sui
38c0: 74 61 62 6c 65 20 66 6f 72 20 72 6f 75 6e 64 2d table for round-
38d0: 74 72 69 70 70 69 6e 67 20 77 69 74 68 20 74 68 tripping with th
38e0: 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 e.. #
38f0: 20 20 20 44 61 74 65 54 69 6d 65 20 63 6c 61 73 DateTime clas
3900: 73 20 6f 66 20 74 68 65 20 66 72 61 6d 65 77 6f s of the framewo
3910: 72 6b 2e 20 20 49 66 20 74 68 69 73 20 76 61 6c rk. If this val
3920: 75 65 20 69 73 20 63 68 61 6e 67 65 64 2c 0d 0a ue is changed,..
3930: 20 20 20 20 20 20 20 20 23 20 20 20 20 20 20 20 #
3940: 76 61 72 69 6f 75 73 20 74 65 73 74 73 20 6d 61 various tests ma
3950: 79 20 66 61 69 6c 2e 0d 0a 20 20 20 20 20 20 20 y fail...
3960: 20 23 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 #.. retu
3970: 72 6e 20 22 79 79 79 79 2d 4d 4d 2d 64 64 20 48 rn "yyyy-MM-dd H
3980: 48 3a 6d 6d 3a 73 73 2e 46 46 46 46 46 46 46 4b H:mm:ss.FFFFFFFK
3990: 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 ".. }..
39a0: 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 65 }..... proc e
39b0: 6e 75 6d 65 72 61 62 6c 65 54 6f 4c 69 73 74 20 numerableToList
39c0: 7b 20 65 6e 75 6d 65 72 61 62 6c 65 20 7d 20 7b { enumerable } {
39d0: 0d 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 75 .. set resu
39e0: 6c 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a 20 20 20 lt [list]....
39f0: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c if {[string l
3a00: 65 6e 67 74 68 20 24 65 6e 75 6d 65 72 61 62 6c ength $enumerabl
3a10: 65 5d 20 3d 3d 20 30 20 7c 7c 20 24 65 6e 75 6d e] == 0 || $enum
3a20: 65 72 61 62 6c 65 20 65 71 20 22 6e 75 6c 6c 22 erable eq "null"
3a30: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
3a40: 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c 74 return $result
3a50: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
3a60: 20 20 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 63 object foreac
3a70: 68 20 2d 61 6c 69 61 73 20 69 74 65 6d 20 24 65 h -alias item $e
3a80: 6e 75 6d 65 72 61 62 6c 65 20 7b 0d 0a 20 20 20 numerable {..
3a90: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 if {[string
3aa0: 20 6c 65 6e 67 74 68 20 24 69 74 65 6d 5d 20 3e length $item] >
3ab0: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {..
3ac0: 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65 lappend re
3ad0: 73 75 6c 74 20 5b 24 69 74 65 6d 20 54 6f 53 74 sult [$item ToSt
3ae0: 72 69 6e 67 5d 0d 0a 20 20 20 20 20 20 20 20 7d ring].. }
3af0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 .. }....
3b00: 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 6c return $resul
3b10: 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 20 t.. }.....
3b20: 20 70 72 6f 63 20 63 6f 6d 70 69 6c 65 43 53 68 proc compileCSh
3b30: 61 72 70 57 69 74 68 20 7b 0d 0a 20 20 20 20 20 arpWith {..
3b40: 20 20 20 20 20 20 20 74 65 78 74 20 6d 65 6d 6f text memo
3b50: 72 79 20 73 79 6d 62 6f 6c 73 20 73 74 72 69 63 ry symbols stric
3b60: 74 20 72 65 73 75 6c 74 73 56 61 72 4e 61 6d 65 t resultsVarName
3b70: 20 65 72 72 6f 72 73 56 61 72 4e 61 6d 65 20 66 errorsVarName f
3b80: 69 6c 65 4e 61 6d 65 73 0d 0a 20 20 20 20 20 20 ileNames..
3b90: 20 20 20 20 20 20 61 72 67 73 20 7d 20 7b 0d 0a args } {..
3ba0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 #.. #
3bb0: 20 4e 4f 54 45 3a 20 43 72 65 61 74 65 20 74 68 NOTE: Create th
3bc0: 65 20 62 61 73 65 20 63 6f 6d 6d 61 6e 64 20 74 e base command t
3bd0: 6f 20 65 76 61 6c 75 61 74 65 20 61 6e 64 20 61 o evaluate and a
3be0: 64 64 20 74 68 65 20 70 72 6f 70 65 72 74 79 20 dd the property
3bf0: 73 65 74 74 69 6e 67 73 0d 0a 20 20 20 20 20 20 settings..
3c00: 23 20 20 20 20 20 20 20 74 68 61 74 20 61 72 65 # that are
3c10: 20 61 6c 6d 6f 73 74 20 61 6c 77 61 79 73 20 6e almost always n
3c20: 65 65 64 65 64 20 62 79 20 6f 75 72 20 75 6e 69 eeded by our uni
3c30: 74 20 74 65 73 74 73 20 28 69 2e 65 2e 20 74 68 t tests (i.e. th
3c40: 65 20 53 79 73 74 65 6d 0d 0a 20 20 20 20 20 20 e System..
3c50: 23 20 20 20 20 20 20 20 61 6e 64 20 53 79 73 74 # and Syst
3c60: 65 6d 2e 44 61 74 61 20 61 73 73 65 6d 62 6c 79 em.Data assembly
3c70: 20 72 65 66 65 72 65 6e 63 65 73 29 2e 0d 0a 20 references)...
3c80: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 #.. se
3c90: 74 20 63 6f 6d 6d 61 6e 64 20 5b 6c 69 73 74 20 t command [list
3ca0: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 20 24 74 compileCSharp $t
3cb0: 65 78 74 20 24 6d 65 6d 6f 72 79 20 24 73 79 6d ext $memory $sym
3cc0: 62 6f 6c 73 20 24 73 74 72 69 63 74 20 72 65 73 bols $strict res
3cd0: 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 ults \..
3ce0: 20 20 65 72 72 6f 72 73 20 52 65 66 65 72 65 6e errors Referen
3cf0: 63 65 64 41 73 73 65 6d 62 6c 69 65 73 2e 41 64 cedAssemblies.Ad
3d00: 64 20 53 79 73 74 65 6d 2e 64 6c 6c 20 52 65 66 d System.dll Ref
3d10: 65 72 65 6e 63 65 64 41 73 73 65 6d 62 6c 69 65 erencedAssemblie
3d20: 73 2e 41 64 64 20 5c 0d 0a 20 20 20 20 20 20 20 s.Add \..
3d30: 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 64 System.Data.d
3d40: 6c 6c 20 52 65 66 65 72 65 6e 63 65 64 41 73 73 ll ReferencedAss
3d50: 65 6d 62 6c 69 65 73 2e 41 64 64 20 53 79 73 74 emblies.Add Syst
3d60: 65 6d 2e 58 6d 6c 2e 64 6c 6c 5d 0d 0a 0d 0a 20 em.Xml.dll]....
3d70: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
3d80: 4e 4f 54 45 3a 20 41 64 64 20 61 6c 6c 20 74 68 NOTE: Add all th
3d90: 65 20 70 72 6f 76 69 64 65 64 20 66 69 6c 65 20 e provided file
3da0: 6e 61 6d 65 73 20 61 73 20 61 73 73 65 6d 62 6c names as assembl
3db0: 79 20 72 65 66 65 72 65 6e 63 65 73 2e 0d 0a 20 y references...
3dc0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 66 6f #.. fo
3dd0: 72 65 61 63 68 20 66 69 6c 65 4e 61 6d 65 20 24 reach fileName $
3de0: 66 69 6c 65 4e 61 6d 65 73 20 7b 0d 0a 20 20 20 fileNames {..
3df0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 63 6f 6d lappend com
3e00: 6d 61 6e 64 20 52 65 66 65 72 65 6e 63 65 64 41 mand ReferencedA
3e10: 73 73 65 6d 62 6c 69 65 73 2e 41 64 64 20 5b 67 ssemblies.Add [g
3e20: 65 74 42 69 6e 61 72 79 46 69 6c 65 4e 61 6d 65 etBinaryFileName
3e30: 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 $fileName]..
3e40: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #.
3e50: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 . # NOTE: A
3e60: 64 64 20 74 68 65 20 65 78 74 72 61 20 61 72 67 dd the extra arg
3e70: 75 6d 65 6e 74 73 2c 20 69 66 20 61 6e 79 2c 20 uments, if any,
3e80: 74 6f 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 74 to the command t
3e90: 6f 20 65 76 61 6c 75 61 74 65 2e 0d 0a 20 20 20 o evaluate...
3ea0: 20 20 20 23 0d 0a 20 20 20 20 20 20 65 76 61 6c #.. eval
3eb0: 20 6c 61 70 70 65 6e 64 20 63 6f 6d 6d 61 6e 64 lappend command
3ec0: 20 24 61 72 67 73 0d 0a 0d 0a 20 20 20 20 20 20 $args....
3ed0: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
3ee0: 20 41 6c 69 61 73 20 74 68 65 20 63 6f 6d 70 69 Alias the compi
3ef0: 6c 65 72 20 6c 6f 63 61 6c 20 72 65 73 75 6c 74 ler local result
3f00: 73 20 61 6e 64 20 65 72 72 6f 72 73 20 76 61 72 s and errors var
3f10: 69 61 62 6c 65 73 20 74 6f 20 74 68 65 0d 0a 20 iables to the..
3f20: 20 20 20 20 20 23 20 20 20 20 20 20 20 76 61 72 # var
3f30: 69 61 62 6c 65 20 6e 61 6d 65 73 20 70 72 6f 76 iable names prov
3f40: 69 64 65 64 20 62 79 20 6f 75 72 20 63 61 6c 6c ided by our call
3f50: 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 er... #..
3f60: 20 20 20 20 75 70 76 61 72 20 31 20 24 72 65 73 upvar 1 $res
3f70: 75 6c 74 73 56 61 72 4e 61 6d 65 20 72 65 73 75 ultsVarName resu
3f80: 6c 74 73 0d 0a 20 20 20 20 20 20 75 70 76 61 72 lts.. upvar
3f90: 20 31 20 24 65 72 72 6f 72 73 56 61 72 4e 61 6d 1 $errorsVarNam
3fa0: 65 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 20 20 e errors....
3fb0: 20 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
3fc0: 45 3a 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 E: Evaluate the
3fd0: 63 6f 6e 73 74 72 75 63 74 65 64 20 5b 63 6f 6d constructed [com
3fe0: 70 69 6c 65 43 53 68 61 72 70 5d 20 63 6f 6d 6d pileCSharp] comm
3ff0: 61 6e 64 20 61 6e 64 20 72 65 74 75 72 6e 20 74 and and return t
4000: 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 he.. #
4010: 20 20 72 65 73 75 6c 74 2e 0d 0a 20 20 20 20 20 result...
4020: 20 23 0d 0a 20 20 20 20 20 20 65 76 61 6c 20 24 #.. eval $
4030: 63 6f 6d 6d 61 6e 64 0d 0a 20 20 20 20 7d 0d 0a command.. }..
4040: 0c 0d 0a 20 20 20 20 70 72 6f 63 20 73 65 74 75 ... proc setu
4050: 70 44 62 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 pDb {..
4060: 20 20 20 66 69 6c 65 4e 61 6d 65 20 7b 6d 6f 64 fileName {mod
4070: 65 20 22 22 7d 20 7b 64 61 74 65 54 69 6d 65 46 e ""} {dateTimeF
4080: 6f 72 6d 61 74 20 22 22 7d 20 7b 64 61 74 65 54 ormat ""} {dateT
4090: 69 6d 65 4b 69 6e 64 20 22 22 7d 20 7b 65 78 74 imeKind ""} {ext
40a0: 72 61 20 22 22 7d 0d 0a 20 20 20 20 20 20 20 20 ra ""}..
40b0: 20 20 20 20 7b 64 65 6c 65 74 65 20 74 72 75 65 {delete true
40c0: 7d 20 7b 76 61 72 4e 61 6d 65 20 64 62 7d 7d 20 } {varName db}}
40d0: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
40e0: 20 20 23 20 4e 4f 54 45 3a 20 46 6f 72 20 6e 6f # NOTE: For no
40f0: 77 2c 20 61 6c 6c 20 74 65 73 74 20 64 61 74 61 w, all test data
4100: 62 61 73 65 73 20 75 73 65 64 20 62 79 20 74 68 bases used by th
4110: 65 20 74 65 73 74 20 73 75 69 74 65 20 61 72 65 e test suite are
4120: 20 70 6c 61 63 65 64 20 69 6e 74 6f 0d 0a 20 20 placed into..
4130: 20 20 20 20 23 20 20 20 20 20 20 20 74 68 65 20 # the
4140: 74 65 6d 70 6f 72 61 72 79 20 64 69 72 65 63 74 temporary direct
4150: 6f 72 79 2e 20 20 45 61 63 68 20 64 61 74 61 62 ory. Each datab
4160: 61 73 65 20 75 73 65 64 20 62 79 20 61 20 74 65 ase used by a te
4170: 73 74 20 73 68 6f 75 6c 64 20 62 65 0d 0a 20 20 st should be..
4180: 20 20 20 20 23 20 20 20 20 20 20 20 63 6c 65 61 # clea
4190: 6e 65 64 20 75 70 20 62 79 20 74 68 61 74 20 74 ned up by that t
41a0: 65 73 74 20 75 73 69 6e 67 20 74 68 65 20 22 63 est using the "c
41b0: 6c 65 61 6e 75 70 44 62 22 20 70 72 6f 63 65 64 leanupDb" proced
41c0: 75 72 65 2c 20 62 65 6c 6f 77 2e 0d 0a 20 20 20 ure, below...
41d0: 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 20 #.. set
41e0: 66 69 6c 65 4e 61 6d 65 20 5b 66 69 6c 65 20 6a fileName [file j
41f0: 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 oin [getDatabase
4200: 44 69 72 65 63 74 6f 72 79 5d 20 5b 66 69 6c 65 Directory] [file
4210: 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65 5d tail $fileName]
4220: 5d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 ].... #..
4230: 20 20 20 20 23 20 4e 4f 54 45 3a 20 42 79 20 64 # NOTE: By d
4240: 65 66 61 75 6c 74 2c 20 64 65 6c 65 74 65 20 61 efault, delete a
4250: 6e 79 20 70 72 65 2d 65 78 69 73 74 69 6e 67 20 ny pre-existing
4260: 64 61 74 61 62 61 73 65 20 77 69 74 68 20 74 68 database with th
4270: 65 20 73 61 6d 65 20 66 69 6c 65 0d 0a 20 20 20 e same file..
4280: 20 20 20 23 20 20 20 20 20 20 20 6e 61 6d 65 20 # name
4290: 69 66 20 69 74 20 63 75 72 72 65 6e 74 6c 79 20 if it currently
42a0: 65 78 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 exists... #
42b0: 0d 0a 20 20 20 20 20 20 69 66 20 7b 24 64 65 6c .. if {$del
42c0: 65 74 65 20 26 26 20 5b 66 69 6c 65 20 65 78 69 ete && [file exi
42d0: 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 20 sts $fileName]}
42e0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
42f0: 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 #.. # NOT
4300: 45 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65 E: Attempt to de
4310: 6c 65 74 65 20 61 6e 79 20 70 72 65 2d 65 78 69 lete any pre-exi
4320: 73 74 69 6e 67 20 64 61 74 61 62 61 73 65 20 77 sting database w
4330: 69 74 68 20 74 68 65 20 73 61 6d 65 20 66 69 6c ith the same fil
4340: 65 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 e.. #
4350: 20 20 20 6e 61 6d 65 2e 0d 0a 20 20 20 20 20 20 name...
4360: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 #.. if
4370: 7b 5b 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 {[catch {file de
4380: 6c 65 74 65 20 24 66 69 6c 65 4e 61 6d 65 7d 20 lete $fileName}
4390: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a error]} then {..
43a0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
43b0: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 # NOTE: W
43c0: 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 e somehow failed
43d0: 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 66 to delete the f
43e0: 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 79 2e ile, report why.
43f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 .. #..
4400: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
4410: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
4420: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
4430: 20 20 20 20 20 20 20 20 20 20 20 20 22 3d 3d 3d "===
4440: 3d 20 57 41 52 4e 49 4e 47 3a 20 66 61 69 6c 65 = WARNING: faile
4450: 64 20 74 6f 20 64 65 6c 65 74 65 20 64 61 74 61 d to delete data
4460: 62 61 73 65 20 66 69 6c 65 20 5c 22 22 20 24 66 base file \"" $f
4470: 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 ileName \..
4480: 20 20 20 20 20 20 20 20 20 22 5c 22 20 64 75 72 "\" dur
4490: 69 6e 67 20 73 65 74 75 70 2c 20 65 72 72 6f 72 ing setup, error
44a0: 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72 6f 72 20 : " \n\t $error
44b0: 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a \n].. }..
44c0: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 }....
44d0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
44e0: 3a 20 52 65 66 65 72 20 74 6f 20 74 68 65 20 73 : Refer to the s
44f0: 70 65 63 69 66 69 65 64 20 76 61 72 69 61 62 6c pecified variabl
4500: 65 20 28 65 2e 67 2e 20 22 64 62 22 29 20 69 6e e (e.g. "db") in
4510: 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 the context of
4520: 74 68 65 0d 0a 20 20 20 20 20 20 23 20 20 20 20 the.. #
4530: 20 20 20 63 61 6c 6c 65 72 2e 20 20 54 68 65 20 caller. The
4540: 68 61 6e 64 6c 65 20 74 6f 20 74 68 65 20 6f 70 handle to the op
4550: 65 6e 65 64 20 64 61 74 61 62 61 73 65 20 77 69 ened database wi
4560: 6c 6c 20 62 65 20 73 74 6f 72 65 64 20 74 68 65 ll be stored the
4570: 72 65 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 re... #..
4580: 20 20 20 20 75 70 76 61 72 20 31 20 24 76 61 72 upvar 1 $var
4590: 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 20 20 20 20 Name db....
45a0: 20 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 #.. # NOTE
45b0: 3a 20 53 74 61 72 74 20 62 75 69 6c 64 69 6e 67 : Start building
45c0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 the connection
45d0: 73 74 72 69 6e 67 2e 20 20 54 68 65 20 6f 6e 6c string. The onl
45e0: 79 20 72 65 71 75 69 72 65 64 20 70 6f 72 74 69 y required porti
45f0: 6f 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 on.. #
4600: 20 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 of the connect
4610: 69 6f 6e 20 73 74 72 69 6e 67 20 69 73 20 74 68 ion string is th
4620: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 e database file
4630: 6e 61 6d 65 20 69 74 73 65 6c 66 2e 0d 0a 20 20 name itself...
4640: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 73 65 74 #.. set
4650: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 7b 44 61 74 connection {Dat
4660: 61 20 53 6f 75 72 63 65 3d 24 7b 66 69 6c 65 4e a Source=${fileN
4670: 61 6d 65 7d 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 ame}}.... #
4680: 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 .. # NOTE:
4690: 49 66 20 74 68 65 20 63 61 6c 6c 65 72 20 73 70 If the caller sp
46a0: 65 63 69 66 69 65 64 20 61 20 6a 6f 75 72 6e 61 ecified a journa
46b0: 6c 20 6d 6f 64 65 2c 20 61 64 64 20 74 68 65 20 l mode, add the
46c0: 6e 65 63 65 73 73 61 72 79 20 70 6f 72 74 69 6f necessary portio
46d0: 6e 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 n.. #
46e0: 20 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 of the connecti
46f0: 6f 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a on string now...
4700: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 #.. i
4710: 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 f {[string lengt
4720: 68 20 24 6d 6f 64 65 5d 20 3e 20 30 7d 20 74 68 h $mode] > 0} th
4730: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 en {.. ap
4740: 70 65 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 pend connection
4750: 7b 3b 4a 6f 75 72 6e 61 6c 20 4d 6f 64 65 3d 24 {;Journal Mode=$
4760: 7b 6d 6f 64 65 7d 7d 0d 0a 20 20 20 20 20 20 7d {mode}}.. }
4770: 0d 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 .... #..
4780: 20 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 # NOTE: If th
4790: 65 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 e caller specifi
47a0: 65 64 20 61 20 44 61 74 65 54 69 6d 65 20 66 6f ed a DateTime fo
47b0: 72 6d 61 74 2c 20 61 64 64 20 74 68 65 20 6e 65 rmat, add the ne
47c0: 63 65 73 73 61 72 79 0d 0a 20 20 20 20 20 20 23 cessary.. #
47d0: 20 20 20 20 20 20 20 70 6f 72 74 69 6f 6e 20 6f portion o
47e0: 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e f the connection
47f0: 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 20 string now...
4800: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
4810: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 {[string length
4820: 24 64 61 74 65 54 69 6d 65 46 6f 72 6d 61 74 5d $dateTimeFormat]
4830: 20 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 > 0} then {..
4840: 20 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e append con
4850: 6e 65 63 74 69 6f 6e 20 7b 3b 44 61 74 65 54 69 nection {;DateTi
4860: 6d 65 46 6f 72 6d 61 74 3d 24 7b 64 61 74 65 54 meFormat=${dateT
4870: 69 6d 65 46 6f 72 6d 61 74 7d 7d 0d 0a 20 20 20 imeFormat}}..
4880: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 23 0d }.... #.
4890: 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 49 . # NOTE: I
48a0: 66 20 74 68 65 20 63 61 6c 6c 65 72 20 73 70 65 f the caller spe
48b0: 63 69 66 69 65 64 20 61 20 44 61 74 65 54 69 6d cified a DateTim
48c0: 65 4b 69 6e 64 2c 20 61 64 64 20 74 68 65 20 6e eKind, add the n
48d0: 65 63 65 73 73 61 72 79 20 70 6f 72 74 69 6f 6e ecessary portion
48e0: 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 20 20 .. #
48f0: 6f 66 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f of the connectio
4900: 6e 20 73 74 72 69 6e 67 20 6e 6f 77 2e 0d 0a 20 n string now...
4910: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
4920: 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 {[string length
4930: 20 24 64 61 74 65 54 69 6d 65 4b 69 6e 64 5d 20 $dateTimeKind]
4940: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 > 0} then {..
4950: 20 20 20 20 20 61 70 70 65 6e 64 20 63 6f 6e 6e append conn
4960: 65 63 74 69 6f 6e 20 7b 3b 44 61 74 65 54 69 6d ection {;DateTim
4970: 65 4b 69 6e 64 3d 24 7b 64 61 74 65 54 69 6d 65 eKind=${dateTime
4980: 4b 69 6e 64 7d 7d 0d 0a 20 20 20 20 20 20 7d 0d Kind}}.. }.
4990: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
49a0: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 74 68 65 # NOTE: If the
49b0: 20 63 61 6c 6c 65 72 20 73 70 65 63 69 66 69 65 caller specifie
49c0: 64 20 61 6e 20 65 78 74 72 61 20 70 61 79 6c 6f d an extra paylo
49d0: 61 64 20 74 6f 20 74 68 65 20 63 6f 6e 6e 65 63 ad to the connec
49e0: 74 69 6f 6e 20 73 74 72 69 6e 67 2c 0d 0a 20 20 tion string,..
49f0: 20 20 20 20 23 20 20 20 20 20 20 20 61 70 70 65 # appe
4a00: 6e 64 20 69 74 20 6e 6f 77 2e 0d 0a 20 20 20 20 nd it now...
4a10: 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b #.. if {[
4a20: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 65 string length $e
4a30: 78 74 72 61 5d 20 3e 20 30 7d 20 74 68 65 6e 20 xtra] > 0} then
4a40: 7b 0d 0a 20 20 20 20 20 20 20 20 61 70 70 65 6e {.. appen
4a50: 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 3b 20 d connection \;
4a60: 24 65 78 74 72 61 0d 0a 20 20 20 20 20 20 7d 0d $extra.. }.
4a70: 0a 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 ... #..
4a80: 20 20 23 20 4e 4f 54 45 3a 20 4f 70 65 6e 20 74 # NOTE: Open t
4a90: 68 65 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e he database conn
4aa0: 65 63 74 69 6f 6e 20 6e 6f 77 2c 20 70 6c 61 63 ection now, plac
4ab0: 69 6e 67 20 74 68 65 20 6f 70 61 71 75 65 20 68 ing the opaque h
4ac0: 61 6e 64 6c 65 20 76 61 6c 75 65 0d 0a 20 20 20 andle value..
4ad0: 20 20 20 23 20 20 20 20 20 20 20 69 6e 74 6f 20 # into
4ae0: 74 68 65 20 76 61 72 69 61 62 6c 65 20 73 70 65 the variable spe
4af0: 63 69 66 69 65 64 20 62 79 20 74 68 65 20 63 61 cified by the ca
4b00: 6c 6c 65 72 2e 0d 0a 20 20 20 20 20 20 23 0d 0a ller... #..
4b10: 20 20 20 20 20 20 73 65 74 20 64 62 20 5b 73 71 set db [sq
4b20: 6c 20 6f 70 65 6e 20 2d 74 79 70 65 20 53 51 4c l open -type SQL
4b30: 69 74 65 20 5b 73 75 62 73 74 20 24 63 6f 6e 6e ite [subst $conn
4b40: 65 63 74 69 6f 6e 5d 5d 0d 0a 20 20 20 20 7d 0d ection]].. }.
4b50: 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 63 6c 65 .... proc cle
4b60: 61 6e 75 70 44 62 20 7b 20 66 69 6c 65 4e 61 6d anupDb { fileNam
4b70: 65 20 7b 76 61 72 4e 61 6d 65 20 64 62 7d 20 7d e {varName db} }
4b80: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
4b90: 20 20 20 23 20 4e 4f 54 45 3a 20 52 65 66 65 72 # NOTE: Refer
4ba0: 20 74 6f 20 74 68 65 20 73 70 65 63 69 66 69 65 to the specifie
4bb0: 64 20 76 61 72 69 61 62 6c 65 20 28 65 2e 67 2e d variable (e.g.
4bc0: 20 22 64 62 22 29 20 69 6e 20 74 68 65 20 63 6f "db") in the co
4bd0: 6e 74 65 78 74 20 6f 66 20 74 68 65 0d 0a 20 20 ntext of the..
4be0: 20 20 20 20 23 20 20 20 20 20 20 20 63 61 6c 6c # call
4bf0: 65 72 2e 20 20 54 68 65 20 68 61 6e 64 6c 65 20 er. The handle
4c00: 74 6f 20 74 68 65 20 6f 70 65 6e 65 64 20 64 61 to the opened da
4c10: 74 61 62 61 73 65 20 69 73 20 73 74 6f 72 65 64 tabase is stored
4c20: 20 74 68 65 72 65 2e 0d 0a 20 20 20 20 20 20 23 there... #
4c30: 0d 0a 20 20 20 20 20 20 75 70 76 61 72 20 31 20 .. upvar 1
4c40: 24 76 61 72 4e 61 6d 65 20 64 62 0d 0a 0d 0a 20 $varName db....
4c50: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 23 20 #.. #
4c60: 4e 4f 54 45 3a 20 43 6c 6f 73 65 20 74 68 65 20 NOTE: Close the
4c70: 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 74 68 connection to th
4c80: 65 20 64 61 74 61 62 61 73 65 20 6e 6f 77 2e 20 e database now.
4c90: 20 54 68 69 73 20 73 68 6f 75 6c 64 20 61 6c 6c This should all
4ca0: 6f 77 20 75 73 20 74 6f 0d 0a 20 20 20 20 20 20 ow us to..
4cb0: 23 20 20 20 20 20 20 20 64 65 6c 65 74 65 20 74 # delete t
4cc0: 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 he underlying da
4cd0: 74 61 62 61 73 65 20 66 69 6c 65 2e 0d 0a 20 20 tabase file...
4ce0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
4cf0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 64 62 {[info exists db
4d00: 5d 20 26 26 20 5b 63 61 74 63 68 20 7b 73 71 6c ] && [catch {sql
4d10: 20 63 6c 6f 73 65 20 24 64 62 7d 20 65 72 72 6f close $db} erro
4d20: 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 r]} then {..
4d30: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
4d40: 20 4e 4f 54 45 3a 20 57 65 20 73 6f 6d 65 68 6f NOTE: We someho
4d50: 77 20 66 61 69 6c 65 64 20 74 6f 20 63 6c 6f 73 w failed to clos
4d60: 65 20 74 68 65 20 64 61 74 61 62 61 73 65 2c 20 e the database,
4d70: 72 65 70 6f 72 74 20 77 68 79 2e 0d 0a 20 20 20 report why...
4d80: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
4d90: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs $::test_ch
4da0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
4db0: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
4dc0: 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 "==== WARNING:
4dd0: 66 61 69 6c 65 64 20 74 6f 20 63 6c 6f 73 65 20 failed to close
4de0: 64 61 74 61 62 61 73 65 20 5c 22 22 20 24 64 62 database \"" $db
4df0: 20 22 5c 22 2c 20 65 72 72 6f 72 3a 20 22 20 5c "\", error: " \
4e00: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e .. \n
4e10: 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 \t $error \n]..
4e20: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
4e30: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
4e40: 20 42 75 69 6c 64 20 74 68 65 20 66 75 6c 6c 20 Build the full
4e50: 70 61 74 68 20 74 6f 20 74 68 65 20 64 61 74 61 path to the data
4e60: 62 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 2e 20 base file name.
4e70: 20 46 6f 72 20 6e 6f 77 2c 20 61 6c 6c 20 74 65 For now, all te
4e80: 73 74 0d 0a 20 20 20 20 20 20 23 20 20 20 20 20 st.. #
4e90: 20 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 73 database files
4ea0: 20 61 72 65 20 73 74 6f 72 65 64 20 69 6e 20 74 are stored in t
4eb0: 68 65 20 74 65 6d 70 6f 72 61 72 79 20 64 69 72 he temporary dir
4ec0: 65 63 74 6f 72 79 2e 0d 0a 20 20 20 20 20 20 23 ectory... #
4ed0: 0d 0a 20 20 20 20 20 20 73 65 74 20 66 69 6c 65 .. set file
4ee0: 4e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 Name [file join
4ef0: 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65 [getDatabaseDire
4f00: 63 74 6f 72 79 5d 20 5b 66 69 6c 65 20 74 61 69 ctory] [file tai
4f10: 6c 20 24 66 69 6c 65 4e 61 6d 65 5d 5d 0d 0a 0d l $fileName]]...
4f20: 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 . #..
4f30: 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 66 # NOTE: Check if
4f40: 20 74 68 65 20 66 69 6c 65 20 73 74 69 6c 6c 20 the file still
4f50: 65 78 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 23 exists... #
4f60: 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 66 69 6c .. if {[fil
4f70: 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 4e 61 e exists $fileNa
4f80: 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 me]} then {..
4f90: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
4fa0: 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 64 65 6c # NOTE: Skip del
4fb0: 65 74 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 eting database f
4fc0: 69 6c 65 73 20 69 66 20 73 6f 6d 65 62 6f 64 79 iles if somebody
4fd0: 20 73 65 74 73 20 74 68 65 20 67 6c 6f 62 61 6c sets the global
4fe0: 0d 0a 20 20 20 20 20 20 20 20 23 20 20 20 20 20 .. #
4ff0: 20 20 76 61 72 69 61 62 6c 65 20 74 6f 20 70 72 variable to pr
5000: 65 76 65 6e 74 20 69 74 2e 0d 0a 20 20 20 20 20 event it...
5010: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 69 66 #.. if
5020: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 {![info exists
5030: 3a 3a 6e 6f 28 63 6c 65 61 6e 75 70 44 62 29 5d ::no(cleanupDb)]
5040: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 } then {..
5050: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 #..
5060: 20 23 20 4e 4f 54 45 3a 20 41 74 74 65 6d 70 74 # NOTE: Attempt
5070: 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 74 to delete the t
5080: 65 73 74 20 64 61 74 61 62 61 73 65 20 66 69 6c est database fil
5090: 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 e now...
50a0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 #.. i
50b0: 66 20 7b 5b 73 65 74 20 63 6f 64 65 20 5b 63 61 f {[set code [ca
50c0: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 tch {file delete
50d0: 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f $fileName} erro
50e0: 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 r]]} then {..
50f0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
5100: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
5110: 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 We somehow faile
5120: 64 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 d to delete the
5130: 66 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 79 file, report why
5140: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 ... #
5150: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 .. tp
5160: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
5170: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
5180: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
5190: 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 "==== WARNING
51a0: 3a 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 : failed to dele
51b0: 74 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 te database file
51c0: 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c \"" $fileName \
51d0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
51e0: 20 20 22 5c 22 20 64 75 72 69 6e 67 20 63 6c 65 "\" during cle
51f0: 61 6e 75 70 2c 20 65 72 72 6f 72 3a 20 22 20 5c anup, error: " \
5200: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a n\t $error \n]..
5210: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
5220: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 } else {..
5230: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
5240: 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 68 # NOTE: Sh
5250: 6f 77 20 74 68 61 74 20 77 65 20 73 6b 69 70 70 ow that we skipp
5260: 65 64 20 64 65 6c 65 74 69 6e 67 20 74 68 65 20 ed deleting the
5270: 66 69 6c 65 2e 0d 0a 20 20 20 20 20 20 20 20 20 file...
5280: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65 #.. se
5290: 74 20 63 6f 64 65 20 30 0d 0a 0d 0a 20 20 20 20 t code 0....
52a0: 20 20 20 20 20 20 74 70 75 74 73 20 24 3a 3a 74 tputs $::t
52b0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 est_channel [app
52c0: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 endArgs \..
52d0: 20 20 20 20 20 20 20 20 20 22 3d 3d 3d 3d 20 57 "==== W
52e0: 41 52 4e 49 4e 47 3a 20 73 6b 69 70 70 65 64 20 ARNING: skipped
52f0: 64 65 6c 65 74 69 6e 67 20 64 61 74 61 62 61 73 deleting databas
5300: 65 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 e file \"" $file
5310: 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 Name \..
5320: 20 20 20 20 20 20 22 5c 22 20 64 75 72 69 6e 67 "\" during
5330: 20 63 6c 65 61 6e 75 70 5c 6e 22 5d 0d 0a 20 20 cleanup\n"]..
5340: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. }
5350: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 else {..
5360: 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f #.. # NO
5370: 54 45 3a 20 54 68 65 20 66 69 6c 65 20 64 6f 65 TE: The file doe
5380: 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 73 75 63 s not exist, suc
5390: 63 65 73 73 21 0d 0a 20 20 20 20 20 20 20 20 23 cess!.. #
53a0: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 6f .. set co
53b0: 64 65 20 30 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d de 0.. }...
53c0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 24 63 . return $c
53d0: 6f 64 65 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 ode.. }.....
53e0: 20 20 20 70 72 6f 63 20 63 6c 65 61 6e 75 70 46 proc cleanupF
53f0: 69 6c 65 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b ile { fileName {
5400: 66 6f 72 63 65 20 66 61 6c 73 65 7d 20 7d 20 7b force false} } {
5410: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
5420: 20 23 20 4e 4f 54 45 3a 20 43 68 65 63 6b 20 69 # NOTE: Check i
5430: 66 20 74 68 65 20 66 69 6c 65 20 73 74 69 6c 6c f the file still
5440: 20 65 78 69 73 74 73 2e 0d 0a 20 20 20 20 20 20 exists...
5450: 23 0d 0a 20 20 20 20 20 20 69 66 20 7b 5b 66 69 #.. if {[fi
5460: 6c 65 20 65 78 69 73 74 73 20 24 66 69 6c 65 4e le exists $fileN
5470: 61 6d 65 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 ame]} then {..
5480: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
5490: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 64 65 # NOTE: Skip de
54a0: 6c 65 74 69 6e 67 20 74 65 73 74 20 66 69 6c 65 leting test file
54b0: 73 20 69 66 20 73 6f 6d 65 62 6f 64 79 20 73 65 s if somebody se
54c0: 74 73 20 74 68 65 20 67 6c 6f 62 61 6c 20 76 61 ts the global va
54d0: 72 69 61 62 6c 65 0d 0a 20 20 20 20 20 20 20 20 riable..
54e0: 23 20 20 20 20 20 20 20 74 6f 20 70 72 65 76 65 # to preve
54f0: 6e 74 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 nt it...
5500: 23 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 #.. if {$
5510: 66 6f 72 63 65 20 7c 7c 20 21 5b 69 6e 66 6f 20 force || ![info
5520: 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63 6c 65 61 exists ::no(clea
5530: 6e 75 70 46 69 6c 65 29 5d 7d 20 74 68 65 6e 20 nupFile)]} then
5540: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a {.. #..
5550: 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 # NOTE
5560: 3a 20 41 74 74 65 6d 70 74 20 74 6f 20 64 65 6c : Attempt to del
5570: 65 74 65 20 74 68 65 20 74 65 73 74 20 66 69 6c ete the test fil
5580: 65 20 6e 6f 77 2e 0d 0a 20 20 20 20 20 20 20 20 e now...
5590: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 69 #.. i
55a0: 66 20 7b 5b 73 65 74 20 63 6f 64 65 20 5b 63 61 f {[set code [ca
55b0: 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 tch {file delete
55c0: 20 24 66 69 6c 65 4e 61 6d 65 7d 20 65 72 72 6f $fileName} erro
55d0: 72 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 r]]} then {..
55e0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 #..
55f0: 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 # NOTE:
5600: 57 65 20 73 6f 6d 65 68 6f 77 20 66 61 69 6c 65 We somehow faile
5610: 64 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65 20 d to delete the
5620: 66 69 6c 65 2c 20 72 65 70 6f 72 74 20 77 68 79 file, report why
5630: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 ... #
5640: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 70 .. tp
5650: 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e uts $::test_chan
5660: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 nel [appendArgs
5670: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 \..
5680: 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e 47 "==== WARNING
5690: 3a 20 66 61 69 6c 65 64 20 74 6f 20 64 65 6c 65 : failed to dele
56a0: 74 65 20 74 65 73 74 20 66 69 6c 65 20 5c 22 22 te test file \""
56b0: 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 $fileName \..
56c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c "\
56d0: 22 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 " during cleanup
56e0: 2c 20 65 72 72 6f 72 3a 20 22 20 5c 6e 5c 74 20 , error: " \n\t
56f0: 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 20 20 $error \n]..
5700: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
5710: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
5720: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 #..
5730: 20 20 23 20 4e 4f 54 45 3a 20 53 68 6f 77 20 74 # NOTE: Show t
5740: 68 61 74 20 77 65 20 73 6b 69 70 70 65 64 20 64 hat we skipped d
5750: 65 6c 65 74 69 6e 67 20 74 68 65 20 66 69 6c 65 eleting the file
5760: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a ... #..
5770: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 63 6f set co
5780: 64 65 20 30 0d 0a 0d 0a 20 20 20 20 20 20 20 20 de 0....
5790: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f tputs $::test_
57a0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 channel [appendA
57b0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 rgs \..
57c0: 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 "==== WARNI
57d0: 4e 47 3a 20 73 6b 69 70 70 65 64 20 64 65 6c 65 NG: skipped dele
57e0: 74 69 6e 67 20 74 65 73 74 20 66 69 6c 65 20 5c ting test file \
57f0: 22 22 20 24 66 69 6c 65 4e 61 6d 65 20 5c 0d 0a "" $fileName \..
5800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c "\
5810: 22 20 64 75 72 69 6e 67 20 63 6c 65 61 6e 75 70 " during cleanup
5820: 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d \n"].. }.
5830: 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d . } else {.
5840: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
5850: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 # NOTE: The
5860: 66 69 6c 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 file does not ex
5870: 69 73 74 2c 20 73 75 63 63 65 73 73 21 0d 0a 20 ist, success!..
5880: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
5890: 20 20 73 65 74 20 63 6f 64 65 20 30 0d 0a 20 20 set code 0..
58a0: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 72 }.... r
58b0: 65 74 75 72 6e 20 24 63 6f 64 65 0d 0a 20 20 20 eturn $code..
58c0: 20 7d 0d 0a 0c 0d 0a 20 20 20 20 70 72 6f 63 20 }..... proc
58d0: 72 65 70 6f 72 74 53 51 4c 69 74 65 52 65 73 6f reportSQLiteReso
58e0: 75 72 63 65 73 20 7b 20 63 68 61 6e 6e 65 6c 20 urces { channel
58f0: 7b 71 75 69 65 74 20 66 61 6c 73 65 7d 20 7b 63 {quiet false} {c
5900: 6f 6c 6c 65 63 74 20 74 72 75 65 7d 20 7d 20 7b ollect true} } {
5910: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 .. #..
5920: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c # NOTE: Skip al
5930: 6c 20 6f 75 74 70 75 74 20 69 66 20 77 65 20 61 l output if we a
5940: 72 65 20 72 75 6e 6e 69 6e 67 20 69 6e 20 22 71 re running in "q
5950: 75 69 65 74 22 20 6d 6f 64 65 2e 0d 0a 20 20 20 uiet" mode...
5960: 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 7b #.. if {
5970: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d !$quiet} then {.
5980: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
5990: 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75 channel "---- cu
59a0: 72 72 65 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20 rrent memory in
59b0: 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e 2e 2e use by SQLite...
59c0: 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 ".. }....
59d0: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch
59e0: 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d {object invoke -
59f0: 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 flags +NonPublic
5a00: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
5a10: 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 System.Data.SQ
5a20: 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 Lite.UnsafeNativ
5a30: 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 eMethods \..
5a40: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 sqlite
5a50: 33 5f 6d 65 6d 6f 72 79 5f 75 73 65 64 7d 20 6d 3_memory_used} m
5a60: 65 6d 6f 72 79 5d 20 3d 3d 20 30 7d 20 74 68 65 emory] == 0} the
5a70: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 n {.. if
5a80: 7b 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b {!$quiet} then {
5a90: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 70 75 74 .. tput
5aa0: 73 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 s $channel [appe
5ab0: 6e 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 22 ndArgs $memory "
5ac0: 20 62 79 74 65 73 5c 6e 22 5d 0d 0a 20 20 20 20 bytes\n"]..
5ad0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 20 65 }.. } e
5ae0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 23 lse {.. #
5af0: 0d 0a 20 20 20 20 20 20 20 20 23 20 4e 4f 54 45 .. # NOTE
5b00: 3a 20 4d 61 79 62 65 20 74 68 65 20 53 51 4c 69 : Maybe the SQLi
5b10: 74 65 20 6e 61 74 69 76 65 20 6c 69 62 72 61 72 te native librar
5b20: 79 20 69 73 20 75 6e 61 76 61 69 6c 61 62 6c 65 y is unavailable
5b30: 3f 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ?.. #..
5b40: 20 20 20 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 set memory
5b50: 20 75 6e 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 unknown....
5b60: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d if {!$quiet}
5b70: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
5b80: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 tputs $channe
5b90: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d l [appendArgs $m
5ba0: 65 6d 6f 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 emory \n]..
5bb0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d }.. }...
5bc0: 0a 20 20 20 20 20 20 73 65 74 20 72 65 73 75 6c . set resul
5bd0: 74 20 24 6d 65 6d 6f 72 79 3b 20 23 20 4e 4f 54 t $memory; # NOT
5be0: 45 3a 20 52 65 74 75 72 6e 20 6d 65 6d 6f 72 79 E: Return memory
5bf0: 20 69 6e 2d 75 73 65 20 74 6f 20 63 61 6c 6c 65 in-use to calle
5c00: 72 2e 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b r..... if {
5c10: 21 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d !$quiet} then {.
5c20: 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 . tputs $
5c30: 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 6d 61 channel "---- ma
5c40: 78 69 6d 75 6d 20 6d 65 6d 6f 72 79 20 69 6e 20 ximum memory in
5c50: 75 73 65 20 62 79 20 53 51 4c 69 74 65 2e 2e 2e use by SQLite...
5c60: 20 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 ".. }....
5c70: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 if {[catch
5c80: 7b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d {object invoke -
5c90: 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 flags +NonPublic
5ca0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 \..
5cb0: 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 System.Data.SQ
5cc0: 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76 Lite.UnsafeNativ
5cd0: 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20 eMethods \..
5ce0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 sqlite
5cf0: 33 5f 6d 65 6d 6f 72 79 5f 68 69 67 68 77 61 74 3_memory_highwat
5d00: 65 72 20 30 7d 20 6d 65 6d 6f 72 79 5d 20 3d 3d er 0} memory] ==
5d10: 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 0} then {..
5d20: 20 20 20 20 69 66 20 7b 21 24 71 75 69 65 74 7d if {!$quiet}
5d30: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
5d40: 20 20 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 tputs $channe
5d50: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d l [appendArgs $m
5d60: 65 6d 6f 72 79 20 22 20 62 79 74 65 73 5c 6e 22 emory " bytes\n"
5d70: 5d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 ].. }..
5d80: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 } else {..
5d90: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
5da0: 20 23 20 4e 4f 54 45 3a 20 4d 61 79 62 65 20 74 # NOTE: Maybe t
5db0: 68 65 20 53 51 4c 69 74 65 20 6e 61 74 69 76 65 he SQLite native
5dc0: 20 6c 69 62 72 61 72 79 20 69 73 20 75 6e 61 76 library is unav
5dd0: 61 69 6c 61 62 6c 65 3f 0d 0a 20 20 20 20 20 20 ailable?..
5de0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 73 65 74 #.. set
5df0: 20 6d 65 6d 6f 72 79 20 75 6e 6b 6e 6f 77 6e 0d memory unknown.
5e00: 0a 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 ... if {!
5e10: 24 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a $quiet} then {..
5e20: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
5e30: 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 $channel [append
5e40: 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e 5d Args $memory \n]
5e50: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 .. }..
5e60: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 }.... if
5e70: 20 7b 24 63 6f 6c 6c 65 63 74 7d 20 74 68 65 6e {$collect} then
5e80: 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b {.. if {
5e90: 5b 63 61 74 63 68 20 7b 6f 62 6a 65 63 74 20 69 [catch {object i
5ea0: 6e 76 6f 6b 65 20 47 43 20 47 65 74 54 6f 74 61 nvoke GC GetTota
5eb0: 6c 4d 65 6d 6f 72 79 20 74 72 75 65 7d 20 65 72 lMemory true} er
5ec0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 ror]} then {..
5ed0: 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 tputs $c
5ee0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 hannel [appendAr
5ef0: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 gs \..
5f00: 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49 4e "==== WARNIN
5f10: 47 3a 20 66 61 69 6c 65 64 20 66 75 6c 6c 20 67 G: failed full g
5f20: 61 72 62 61 67 65 20 63 6f 6c 6c 65 63 74 69 6f arbage collectio
5f30: 6e 2c 20 65 72 72 6f 72 3a 20 22 20 5c 0d 0a 20 n, error: " \..
5f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 6e 5c \n\
5f50: 74 20 24 65 72 72 6f 72 20 5c 6e 5d 0d 0a 20 20 t $error \n]..
5f60: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d }.. }
5f70: 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b 21 24 .... if {!$
5f80: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
5f90: 20 20 20 20 20 20 20 74 70 75 74 73 20 24 63 68 tputs $ch
5fa0: 61 6e 6e 65 6c 20 22 2d 2d 2d 2d 20 63 75 72 72 annel "---- curr
5fb0: 65 6e 74 20 6d 65 6d 6f 72 79 20 69 6e 20 75 73 ent memory in us
5fc0: 65 20 62 79 20 74 68 65 20 43 4c 52 2e 2e 2e 20 e by the CLR...
5fd0: 22 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 ".. }....
5fe0: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
5ff0: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 47 43 object invoke GC
6000: 20 47 65 74 54 6f 74 61 6c 4d 65 6d 6f 72 79 20 GetTotalMemory
6010: 66 61 6c 73 65 7d 20 6d 65 6d 6f 72 79 5d 20 3d false} memory] =
6020: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 = 0} then {..
6030: 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 if {[string
6040: 20 69 73 20 69 6e 74 65 67 65 72 20 2d 73 74 72 is integer -str
6050: 69 63 74 20 24 6d 65 6d 6f 72 79 5d 7d 20 74 68 ict $memory]} th
6060: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
6070: 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 65 if {!$quiet} the
6080: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 n {..
6090: 20 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 tputs $channel
60a0: 5b 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d [appendArgs $mem
60b0: 6f 72 79 20 22 20 62 79 74 65 73 5c 6e 22 5d 0d ory " bytes\n"].
60c0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 . }..
60d0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a } else {..
60e0: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6d 65 set me
60f0: 6d 6f 72 79 20 69 6e 76 61 6c 69 64 0d 0a 0d 0a mory invalid....
6100: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 21 24 if {!$
6110: 71 75 69 65 74 7d 20 74 68 65 6e 20 7b 0d 0a 20 quiet} then {..
6120: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
6130: 20 24 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e $channel [appen
6140: 64 41 72 67 73 20 24 6d 65 6d 6f 72 79 20 5c 6e dArgs $memory \n
6150: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a ].. }..
6160: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
6170: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 } else {..
6180: 20 20 20 73 65 74 20 6d 65 6d 6f 72 79 20 75 6e set memory un
6190: 6b 6e 6f 77 6e 0d 0a 0d 0a 20 20 20 20 20 20 20 known....
61a0: 20 69 66 20 7b 21 24 71 75 69 65 74 7d 20 74 68 if {!$quiet} th
61b0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 en {..
61c0: 74 70 75 74 73 20 24 63 68 61 6e 6e 65 6c 20 5b tputs $channel [
61d0: 61 70 70 65 6e 64 41 72 67 73 20 24 6d 65 6d 6f appendArgs $memo
61e0: 72 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 ry \n]..
61f0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }.. }....
6200: 20 20 20 20 72 65 74 75 72 6e 20 24 72 65 73 75 return $resu
6210: 6c 74 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 20 lt.. }.....
6220: 20 20 70 72 6f 63 20 72 75 6e 53 51 4c 69 74 65 proc runSQLite
6230: 54 65 73 74 50 72 6f 6c 6f 67 75 65 20 7b 7d 20 TestPrologue {}
6240: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 {.. #..
6250: 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 72 # NOTE: Skip r
6260: 75 6e 6e 69 6e 67 20 6f 75 72 20 63 75 73 74 6f unning our custo
6270: 6d 20 70 72 6f 6c 6f 67 75 65 20 69 66 20 74 68 m prologue if th
6280: 65 20 6d 61 69 6e 20 6f 6e 65 20 68 61 73 20 62 e main one has b
6290: 65 65 6e 20 73 6b 69 70 70 65 64 2e 0d 0a 20 20 een skipped...
62a0: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 20 #.. if
62b0: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a {![info exists :
62c0: 3a 6e 6f 28 70 72 6f 6c 6f 67 75 65 2e 65 61 67 :no(prologue.eag
62d0: 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 le)]} then {..
62e0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
62f0: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 6c # NOTE: Skip al
6300: 6c 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 l System.Data.SQ
6310: 4c 69 74 65 20 72 65 6c 61 74 65 64 20 66 69 6c Lite related fil
6320: 65 20 68 61 6e 64 6c 69 6e 67 20 28 64 65 6c 65 e handling (dele
6330: 74 69 6e 67 2c 0d 0a 20 20 20 20 20 20 20 20 23 ting,.. #
6340: 20 20 20 20 20 20 20 63 6f 70 79 69 6e 67 2c 20 copying,
6350: 61 6e 64 20 6c 6f 61 64 69 6e 67 29 20 69 66 20 and loading) if
6360: 77 65 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75 we are so instru
6370: 63 74 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 cted... #
6380: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b .. if {![
6390: 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f info exists ::no
63a0: 28 73 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d 20 (sqliteFiles)]}
63b0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 then {..
63c0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 #.. #
63d0: 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72 79 69 NOTE: Skip tryi
63e0: 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 61 6e 79 ng to delete any
63f0: 20 66 69 6c 65 73 20 69 66 20 77 65 20 61 72 65 files if we are
6400: 20 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e 0d so instructed..
6410: 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 . #..
6420: 20 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e if {![in
6430: 66 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 64 fo exists ::no(d
6440: 65 6c 65 74 65 53 71 6c 69 74 65 46 69 6c 65 73 eleteSqliteFiles
6450: 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 )]} then {..
6460: 20 20 20 20 20 20 20 20 74 72 79 44 65 6c 65 74 tryDelet
6470: 65 41 73 73 65 6d 62 6c 79 20 73 71 6c 69 74 65 eAssembly sqlite
6480: 33 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 3.dll..
6490: 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 73 65 tryDeleteAsse
64a0: 6d 62 6c 79 20 53 51 4c 69 74 65 2e 49 6e 74 65 mbly SQLite.Inte
64b0: 72 6f 70 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 rop.dll..
64c0: 20 20 20 20 20 74 72 79 44 65 6c 65 74 65 41 73 tryDeleteAs
64d0: 73 65 6d 62 6c 79 20 53 79 73 74 65 6d 2e 44 61 sembly System.Da
64e0: 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 0d 0a 20 ta.SQLite.dll..
64f0: 20 20 20 20 20 20 20 20 20 20 20 74 72 79 44 65 tryDe
6500: 6c 65 74 65 41 73 73 65 6d 62 6c 79 20 53 79 73 leteAssembly Sys
6510: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e tem.Data.SQLite.
6520: 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 Linq.dll..
6530: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 }....
6540: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 #..
6550: 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 74 72 79 # NOTE: Skip try
6560: 69 6e 67 20 74 6f 20 63 6f 70 79 20 61 6e 79 20 ing to copy any
6570: 66 69 6c 65 73 20 69 66 20 77 65 20 61 72 65 20 files if we are
6580: 73 6f 20 69 6e 73 74 72 75 63 74 65 64 2e 0d 0a so instructed...
6590: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 #..
65a0: 20 20 20 20 20 20 20 69 66 20 7b 21 5b 69 6e 66 if {![inf
65b0: 6f 20 65 78 69 73 74 73 20 3a 3a 6e 6f 28 63 6f o exists ::no(co
65c0: 70 79 53 71 6c 69 74 65 46 69 6c 65 73 29 5d 7d pySqliteFiles)]}
65d0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 then {..
65e0: 20 20 20 20 20 74 72 79 43 6f 70 79 41 73 73 65 tryCopyAsse
65f0: 6d 62 6c 79 20 73 71 6c 69 74 65 33 2e 64 6c 6c mbly sqlite3.dll
6600: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 .. tr
6610: 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 53 51 yCopyAssembly SQ
6620: 4c 69 74 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c Lite.Interop.dll
6630: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 .. tr
6640: 79 43 6f 70 79 41 73 73 65 6d 62 6c 79 20 53 79 yCopyAssembly Sy
6650: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite
6660: 2e 64 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 .dll..
6670: 20 20 74 72 79 43 6f 70 79 41 73 73 65 6d 62 6c tryCopyAssembl
6680: 79 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 y System.Data.SQ
6690: 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 Lite.Linq.dll..
66a0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 }....
66b0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 #..
66c0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 # NOTE: Ski
66d0: 70 20 74 72 79 69 6e 67 20 74 6f 20 6c 6f 61 64 p trying to load
66e0: 20 61 6e 79 20 66 69 6c 65 73 20 69 66 20 77 65 any files if we
66f0: 20 61 72 65 20 73 6f 20 69 6e 73 74 72 75 63 74 are so instruct
6700: 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 ed... #
6710: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b .. if {
6720: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a ![info exists ::
6730: 6e 6f 28 6c 6f 61 64 53 71 6c 69 74 65 46 69 6c no(loadSqliteFil
6740: 65 73 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 es)]} then {..
6750: 20 20 20 20 20 20 20 20 20 20 74 72 79 4c 6f 61 tryLoa
6760: 64 41 73 73 65 6d 62 6c 79 20 53 79 73 74 65 6d dAssembly System
6770: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c .Data.SQLite.dll
6780: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 74 72 .. tr
6790: 79 4c 6f 61 64 41 73 73 65 6d 62 6c 79 20 53 79 yLoadAssembly Sy
67a0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 stem.Data.SQLite
67b0: 2e 4c 69 6e 71 2e 64 6c 6c 0d 0a 20 20 20 20 20 .Linq.dll..
67c0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
67d0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 63 61 74 }.... cat
67e0: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 ch {..
67f0: 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 tputs $::test_ch
6800: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 annel [appendArg
6810: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 s \..
6820: 20 20 20 22 2d 2d 2d 2d 20 66 69 6c 65 20 76 65 "---- file ve
6830: 72 73 69 6f 6e 20 6f 66 20 5c 22 53 51 4c 69 74 rsion of \"SQLit
6840: 65 2e 49 6e 74 65 72 6f 70 2e 64 6c 6c 5c 22 2e e.Interop.dll\".
6850: 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 .. " \..
6860: 20 20 20 20 20 20 5b 66 69 6c 65 20 76 65 72 73 [file vers
6870: 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 79 46 69 ion [getBinaryFi
6880: 6c 65 4e 61 6d 65 20 53 51 4c 69 74 65 2e 49 6e leName SQLite.In
6890: 74 65 72 6f 70 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d terop.dll]] \n].
68a0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 . }....
68b0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a 20 catch {..
68c0: 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 24 tputs $
68d0: 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b ::test_channel [
68e0: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 appendArgs \..
68f0: 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 2d "---
6900: 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 6f - file version o
6910: 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 2e f \"System.Data.
6920: 53 51 4c 69 74 65 2e 64 6c 6c 5c 22 2e 2e 2e 20 SQLite.dll\"...
6930: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \..
6940: 20 20 20 5b 66 69 6c 65 20 76 65 72 73 69 6f 6e [file version
6950: 20 5b 67 65 74 42 69 6e 61 72 79 46 69 6c 65 4e [getBinaryFileN
6960: 61 6d 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ame System.Data.
6970: 53 51 4c 69 74 65 2e 64 6c 6c 5d 5d 20 5c 6e 5d SQLite.dll]] \n]
6980: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 .. }....
6990: 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 0d 0a catch {..
69a0: 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 20 tputs
69b0: 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 $::test_channel
69c0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 [appendArgs \..
69d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d "--
69e0: 2d 2d 20 66 69 6c 65 20 76 65 72 73 69 6f 6e 20 -- file version
69f0: 6f 66 20 5c 22 53 79 73 74 65 6d 2e 44 61 74 61 of \"System.Data
6a00: 2e 53 51 4c 69 74 65 2e 4c 69 6e 71 2e 64 6c 6c .SQLite.Linq.dll
6a10: 5c 22 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 \"... " \..
6a20: 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20 76 [file v
6a30: 65 72 73 69 6f 6e 20 5b 67 65 74 42 69 6e 61 72 ersion [getBinar
6a40: 79 46 69 6c 65 4e 61 6d 65 20 53 79 73 74 65 6d yFileName System
6a50: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 4c 69 6e .Data.SQLite.Lin
6a60: 71 2e 64 6c 6c 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 q.dll]] \n]..
6a70: 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 }....
6a80: 20 20 73 65 74 20 61 73 73 65 6d 62 6c 69 65 73 set assemblies
6a90: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 [object invoke
6aa0: 41 70 70 44 6f 6d 61 69 6e 2e 43 75 72 72 65 6e AppDomain.Curren
6ab0: 74 44 6f 6d 61 69 6e 20 47 65 74 41 73 73 65 6d tDomain GetAssem
6ac0: 62 6c 69 65 73 5d 0d 0a 0d 0a 20 20 20 20 20 20 blies]....
6ad0: 20 20 6f 62 6a 65 63 74 20 66 6f 72 65 61 63 68 object foreach
6ae0: 20 61 73 73 65 6d 62 6c 79 20 24 61 73 73 65 6d assembly $assem
6af0: 62 6c 69 65 73 20 7b 0d 0a 20 20 20 20 20 20 20 blies {..
6b00: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d if {[string m
6b10: 61 74 63 68 20 5c 7b 53 79 73 74 65 6d 2e 44 61 atch \{System.Da
6b20: 74 61 2e 53 51 4c 69 74 65 2a 20 24 61 73 73 65 ta.SQLite* $asse
6b30: 6d 62 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 mbly]} then {..
6b40: 20 20 20 20 20 20 20 20 20 20 20 74 70 75 74 73 tputs
6b50: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
6b60: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a [appendArgs \..
6b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
6b80: 22 2d 2d 2d 2d 20 66 6f 75 6e 64 20 61 73 73 65 "---- found asse
6b90: 6d 62 6c 79 3a 20 22 20 24 61 73 73 65 6d 62 6c mbly: " $assembl
6ba0: 79 20 5c 6e 5d 0d 0a 20 20 20 20 20 20 20 20 20 y \n]..
6bb0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d }.. }...
6bc0: 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 . #..
6bd0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 4e 6f 77 2c # NOTE: Now,
6be0: 20 77 65 20 6e 65 65 64 20 74 6f 20 6b 6e 6f 77 we need to know
6bf0: 20 69 66 20 74 68 65 20 53 51 4c 69 74 65 20 63 if the SQLite c
6c00: 6f 72 65 20 6c 69 62 72 61 72 79 20 69 73 20 61 ore library is a
6c10: 76 61 69 6c 61 62 6c 65 0d 0a 20 20 20 20 20 20 vailable..
6c20: 20 20 23 20 20 20 20 20 20 20 28 69 2e 65 2e 20 # (i.e.
6c30: 62 65 63 61 75 73 65 20 74 68 65 20 6d 61 6e 61 because the mana
6c40: 67 65 64 2d 6f 6e 6c 79 20 53 79 73 74 65 6d 2e ged-only System.
6c50: 44 61 74 61 2e 53 51 4c 69 74 65 20 61 73 73 65 Data.SQLite asse
6c60: 6d 62 6c 79 20 63 61 6e 0d 0a 20 20 20 20 20 20 mbly can..
6c70: 20 20 23 20 20 20 20 20 20 20 6c 6f 61 64 20 77 # load w
6c80: 69 74 68 6f 75 74 20 69 74 3b 20 68 6f 77 65 76 ithout it; howev
6c90: 65 72 2c 20 69 74 20 63 61 6e 6e 6f 74 20 64 6f er, it cannot do
6ca0: 20 61 6e 79 74 68 69 6e 67 20 75 73 65 66 75 6c anything useful
6cb0: 20 77 69 74 68 6f 75 74 0d 0a 20 20 20 20 20 20 without..
6cc0: 20 20 23 20 20 20 20 20 20 20 69 74 29 2e 20 20 # it).
6cd0: 49 66 20 77 65 20 61 72 65 20 75 73 69 6e 67 20 If we are using
6ce0: 74 68 65 20 6d 69 78 65 64 2d 6d 6f 64 65 20 61 the mixed-mode a
6cf0: 73 73 65 6d 62 6c 79 20 61 6e 64 20 77 65 20 61 ssembly and we a
6d00: 6c 72 65 61 64 79 0d 0a 20 20 20 20 20 20 20 20 lready..
6d10: 23 20 20 20 20 20 20 20 66 6f 75 6e 64 20 69 74 # found it
6d20: 20 28 61 62 6f 76 65 29 2c 20 74 68 69 73 20 73 (above), this s
6d30: 68 6f 75 6c 64 20 61 6c 77 61 79 73 20 73 75 63 hould always suc
6d40: 63 65 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 23 ceed... #
6d50: 0d 0a 20 20 20 20 20 20 20 20 63 68 65 63 6b 46 .. checkF
6d60: 6f 72 53 51 4c 69 74 65 20 24 3a 3a 74 65 73 74 orSQLite $::test
6d70: 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 _channel....
6d80: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 #.. #
6d90: 20 4e 4f 54 45 3a 20 52 65 70 6f 72 74 20 74 68 NOTE: Report th
6da0: 65 20 72 65 73 6f 75 72 63 65 20 75 73 61 67 65 e resource usage
6db0: 20 70 72 69 6f 72 20 74 6f 20 72 75 6e 6e 69 6e prior to runnin
6dc0: 67 20 61 6e 79 20 74 65 73 74 73 2e 0d 0a 20 20 g any tests...
6dd0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 #..
6de0: 20 72 65 70 6f 72 74 53 51 4c 69 74 65 52 65 73 reportSQLiteRes
6df0: 6f 75 72 63 65 73 20 24 3a 3a 74 65 73 74 5f 63 ources $::test_c
6e00: 68 61 6e 6e 65 6c 0d 0a 0d 0a 20 20 20 20 20 20 hannel....
6e10: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 23 20 4e #.. # N
6e20: 4f 54 45 3a 20 53 68 6f 77 20 74 68 65 20 61 63 OTE: Show the ac
6e30: 74 69 76 65 20 74 65 73 74 20 63 6f 6e 73 74 72 tive test constr
6e40: 61 69 6e 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 aints...
6e50: 23 0d 0a 20 20 20 20 20 20 20 20 74 70 75 74 73 #.. tputs
6e60: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c $::test_channel
6e70: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 2d 2d [appendArgs "--
6e80: 2d 2d 20 63 6f 6e 73 74 72 61 69 6e 74 73 3a 20 -- constraints:
6e90: 22 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 " \..
6ea0: 20 5b 66 6f 72 6d 61 74 4c 69 73 74 20 5b 6c 73 [formatList [ls
6eb0: 6f 72 74 20 5b 67 65 74 43 6f 6e 73 74 72 61 69 ort [getConstrai
6ec0: 6e 74 73 5d 5d 5d 20 5c 6e 5d 0d 0a 20 20 20 20 nts]]] \n]..
6ed0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a 20 }.. }.....
6ee0: 20 20 20 70 72 6f 63 20 72 75 6e 53 51 4c 69 74 proc runSQLit
6ef0: 65 54 65 73 74 45 70 69 6c 6f 67 75 65 20 7b 7d eTestEpilogue {}
6f00: 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 {.. #..
6f10: 20 20 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 # NOTE: Skip
6f20: 72 75 6e 6e 69 6e 67 20 6f 75 72 20 63 75 73 74 running our cust
6f30: 6f 6d 20 65 70 69 6c 6f 67 75 65 20 69 66 20 74 om epilogue if t
6f40: 68 65 20 6d 61 69 6e 20 6f 6e 65 20 68 61 73 20 he main one has
6f50: 62 65 65 6e 20 73 6b 69 70 70 65 64 2e 0d 0a 20 been skipped...
6f60: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 69 66 #.. if
6f70: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 {![info exists
6f80: 3a 3a 6e 6f 28 65 70 69 6c 6f 67 75 65 2e 65 61 ::no(epilogue.ea
6f90: 67 6c 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 gle)]} then {..
6fa0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 #..
6fb0: 20 20 23 20 4e 4f 54 45 3a 20 41 6c 73 6f 20 72 # NOTE: Also r
6fc0: 65 70 6f 72 74 20 74 68 65 20 72 65 73 6f 75 72 eport the resour
6fd0: 63 65 20 75 73 61 67 65 20 61 66 74 65 72 20 72 ce usage after r
6fe0: 75 6e 6e 69 6e 67 20 74 68 65 20 74 65 73 74 73 unning the tests
6ff0: 2e 0d 0a 20 20 20 20 20 20 20 20 23 0d 0a 20 20 ... #..
7000: 20 20 20 20 20 20 72 65 70 6f 72 74 53 51 4c 69 reportSQLi
7010: 74 65 52 65 73 6f 75 72 63 65 73 20 24 3a 3a 74 teResources $::t
7020: 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20 20 est_channel..
7030: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0c 0d 0a }.. }.....
7040: 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 ############
7050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7060: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7070: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7080: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
7090: 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 . ###########
70a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
70b0: 23 23 20 45 4e 44 20 45 61 67 6c 65 20 4f 4e 4c ## END Eagle ONL
70c0: 59 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 Y ##############
70d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
70e0: 0d 0a 20 20 20 20 23 23 23 23 23 23 23 23 23 23 .. ##########
70f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7120: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
7130: 23 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20 #.. }.... #..
7140: 20 23 20 4e 4f 54 45 3a 20 53 61 76 65 20 74 68 # NOTE: Save th
7150: 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 69 e name of the di
7160: 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 rectory containi
7170: 6e 67 20 74 68 69 73 20 66 69 6c 65 2e 0d 0a 20 ng this file...
7180: 20 23 0d 0a 20 20 73 65 74 20 3a 3a 63 6f 6d 6d #.. set ::comm
7190: 6f 6e 5f 64 69 72 65 63 74 6f 72 79 20 5b 66 69 on_directory [fi
71a0: 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 6e 66 6f le dirname [info
71b0: 20 73 63 72 69 70 74 5d 5d 0d 0a 0d 0a 20 20 23 script]].... #
71c0: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 50 72 6f 76 .. # NOTE: Prov
71d0: 69 64 65 20 74 68 65 20 53 79 73 74 65 6d 2e 44 ide the System.D
71e0: 61 74 61 2e 53 51 4c 69 74 65 20 74 65 73 74 20 ata.SQLite test
71f0: 70 61 63 6b 61 67 65 20 74 6f 20 74 68 65 20 69 package to the i
7200: 6e 74 65 72 70 72 65 74 65 72 2e 0d 0a 20 20 23 nterpreter... #
7210: 0d 0a 20 20 70 61 63 6b 61 67 65 20 70 72 6f 76 .. package prov
7220: 69 64 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ide System.Data.
7230: 53 51 4c 69 74 65 2e 54 65 73 74 20 31 2e 30 0d SQLite.Test 1.0.
7240: 0a 7d 0d 0a .}..