System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact ca8dbecbbbb836ee368d5043a3fc405407aa2ae3:


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 61 6c 6c 2e 65 61 67 6c 65 20  .#..# all.eagle 
0060: 2d 2d 0d 0a 23 0d 0a 23 20 54 68 69 73 20 66 69  --..#..# This fi
0070: 6c 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 74 6f  le contains a to
0080: 70 2d 6c 65 76 65 6c 20 73 63 72 69 70 74 20 74  p-level script t
0090: 6f 20 72 75 6e 20 61 6c 6c 20 6f 66 20 74 68 65  o run all of the
00a0: 20 74 65 73 74 73 2e 0d 0a 23 20 45 78 65 63 75   tests...# Execu
00b0: 74 65 20 69 74 20 62 79 20 69 6e 76 6f 6b 69 6e  te it by invokin
00c0: 67 20 22 73 6f 75 72 63 65 20 61 6c 6c 2e 65 61  g "source all.ea
00d0: 67 6c 65 22 2e 0d 0a 23 0d 0a 23 20 45 78 74 65  gle"...#..# Exte
00e0: 6e 73 69 62 6c 65 20 41 64 61 70 74 61 62 6c 65  nsible Adaptable
00f0: 20 47 65 6e 65 72 61 6c 69 7a 65 64 20 4c 6f 67   Generalized Log
0100: 69 63 20 45 6e 67 69 6e 65 20 28 45 61 67 6c 65  ic Engine (Eagle
0110: 29 0d 0a 23 20 54 65 73 74 20 53 75 69 74 65 20  )..# Test Suite 
0120: 46 69 6c 65 0d 0a 23 0d 0a 23 20 57 72 69 74 74  File..#..# Writt
0130: 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61 63  en by Joe Mistac
0140: 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73 65  hkin...# Release
0150: 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63 20  d to the public 
0160: 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20 79  domain, use at y
0170: 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a 23  our own risk!..#
0180: 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ..##############
0190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01d0: 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 72 65 71  #....package req
01e0: 75 69 72 65 20 45 61 67 6c 65 4c 69 62 72 61 72  uire EagleLibrar
01f0: 79 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69  y..package requi
0200: 72 65 20 45 61 67 6c 65 54 65 73 74 0d 0a 0d 0a  re EagleTest....
0210: 72 75 6e 54 65 73 74 50 72 6f 6c 6f 67 75 65 0d  runTestPrologue.
0220: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
0230: 23 23 23 23 23 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 0d 0a 0d 0a 73 65 74 20 6e 6f 28 70 72 6f  ##....set no(pro
0280: 6c 6f 67 75 65 2e 65 61 67 6c 65 29 20 74 72 75  logue.eagle) tru
0290: 65 0d 0a 73 65 74 20 6e 6f 28 65 70 69 6c 6f 67  e..set no(epilog
02a0: 75 65 2e 65 61 67 6c 65 29 20 74 72 75 65 0d 0a  ue.eagle) true..
02b0: 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 52 75 6e  ..#..# NOTE: Run
02c0: 20 74 68 65 20 6c 6f 63 61 6c 20 74 65 73 74 20   the local test 
02d0: 70 72 6f 6c 6f 67 75 65 2c 20 69 66 20 61 6e 79  prologue, if any
02e0: 2e 0d 0a 23 0d 0a 69 66 20 7b 5b 66 69 6c 65 20  ...#..if {[file 
02f0: 65 78 69 73 74 73 20 5b 66 69 6c 65 20 6a 6f 69  exists [file joi
0300: 6e 20 24 70 61 74 68 20 70 72 6f 6c 6f 67 75 65  n $path prologue
0310: 2e 65 61 67 6c 65 5d 5d 7d 20 74 68 65 6e 20 7b  .eagle]]} then {
0320: 0d 0a 20 20 73 6f 75 72 63 65 20 5b 66 69 6c 65  ..  source [file
0330: 20 6a 6f 69 6e 20 24 70 61 74 68 20 70 72 6f 6c   join $path prol
0340: 6f 67 75 65 2e 65 61 67 6c 65 5d 0d 0a 7d 0d 0a  ogue.eagle]..}..
0350: 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 52 75 6e  ..#..# NOTE: Run
0360: 20 61 6c 6c 20 74 68 65 20 75 6e 69 74 20 74 65   all the unit te
0370: 73 74 73 2e 0d 0a 23 0d 0a 73 65 74 20 74 65 73  sts...#..set tes
0380: 74 5f 74 69 6d 65 20 5b 74 69 6d 65 20 7b 0d 0a  t_time [time {..
0390: 20 20 72 75 6e 41 6c 6c 54 65 73 74 73 20 24 74    runAllTests $t
03a0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24 70 61 74  est_channel $pat
03b0: 68 20 5c 0d 0a 20 20 20 20 5b 67 65 74 54 65 73  h \..    [getTes
03c0: 74 46 69 6c 65 73 20 5b 6c 69 73 74 20 24 70 61  tFiles [list $pa
03d0: 74 68 5d 20 24 74 65 73 74 5f 66 6c 61 67 73 28  th] $test_flags(
03e0: 2d 66 69 6c 65 29 20 24 74 65 73 74 5f 66 6c 61  -file) $test_fla
03f0: 67 73 28 2d 6e 6f 74 46 69 6c 65 29 5d 20 5c 0d  gs(-notFile)] \.
0400: 0a 20 20 20 20 5b 6c 69 73 74 20 5b 66 69 6c 65  .    [list [file
0410: 20 74 61 69 6c 20 5b 69 6e 66 6f 20 73 63 72 69   tail [info scri
0420: 70 74 5d 5d 20 5c 0d 0a 20 20 20 20 2a 2e 74 63  pt]] \..    *.tc
0430: 6c 20 70 6b 67 49 6e 64 65 78 2e 65 61 67 6c 65  l pkgIndex.eagle
0440: 20 63 6f 6e 73 74 72 61 69 6e 74 73 2e 65 61 67   constraints.eag
0450: 6c 65 20 65 70 69 6c 6f 67 75 65 2e 65 61 67 6c  le epilogue.eagl
0460: 65 20 70 72 6f 6c 6f 67 75 65 2e 65 61 67 6c 65  e prologue.eagle
0470: 5d 0d 0a 7d 5d 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f  ]..}]....#..# NO
0480: 54 45 3a 20 52 75 6e 20 74 68 65 20 6c 6f 63 61  TE: Run the loca
0490: 6c 20 74 65 73 74 20 65 70 69 6c 6f 67 75 65 2c  l test epilogue,
04a0: 20 69 66 20 61 6e 79 2e 0d 0a 23 0d 0a 69 66 20   if any...#..if 
04b0: 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20 5b 66  {[file exists [f
04c0: 69 6c 65 20 6a 6f 69 6e 20 24 70 61 74 68 20 65  ile join $path e
04d0: 70 69 6c 6f 67 75 65 2e 65 61 67 6c 65 5d 5d 7d  pilogue.eagle]]}
04e0: 20 74 68 65 6e 20 7b 0d 0a 20 20 73 6f 75 72 63   then {..  sourc
04f0: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 70 61  e [file join $pa
0500: 74 68 20 65 70 69 6c 6f 67 75 65 2e 65 61 67 6c  th epilogue.eagl
0510: 65 5d 0d 0a 7d 0d 0a 0d 0a 74 70 75 74 73 20 24  e]..}....tputs $
0520: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70  test_channel [ap
0530: 70 65 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 61  pendArgs "---- a
0540: 6c 6c 20 74 65 73 74 73 20 63 6f 6d 70 6c 65 74  ll tests complet
0550: 65 64 20 69 6e 20 22 20 24 74 65 73 74 5f 74 69  ed in " $test_ti
0560: 6d 65 20 5c 6e 5d 0d 0a 75 6e 73 65 74 20 74 65  me \n]..unset te
0570: 73 74 5f 74 69 6d 65 0d 0a 0d 0a 75 6e 73 65 74  st_time....unset
0580: 20 6e 6f 28 65 70 69 6c 6f 67 75 65 2e 65 61 67   no(epilogue.eag
0590: 6c 65 29 0d 0a 75 6e 73 65 74 20 6e 6f 28 70 72  le)..unset no(pr
05a0: 6f 6c 6f 67 75 65 2e 65 61 67 6c 65 29 0d 0a 0d  ologue.eagle)...
05b0: 0a 69 66 20 7b 5b 61 72 72 61 79 20 73 69 7a 65  .if {[array size
05c0: 20 6e 6f 5d 20 3d 3d 20 30 7d 20 74 68 65 6e 20   no] == 0} then 
05d0: 7b 75 6e 73 65 74 20 6e 6f 7d 0d 0a 0d 0a 23 23  {unset no}....##
05e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
05f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0600: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0610: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0620: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
0630: 0a 72 75 6e 54 65 73 74 45 70 69 6c 6f 67 75 65  .runTestEpilogue
0640: 0d 0a                                            ..