System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 2ebefad5a36b029c716d40030e4f553a02f8c993:


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 74 6b 74 2d 35 39 65 64 63 31  .#..# tkt-59edc1
0060: 30 31 38 62 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  018b.eagle --..#
0070: 0d 0a 23 20 57 72 69 74 74 65 6e 20 62 79 20 4a  ..# Written by J
0080: 6f 65 20 4d 69 73 74 61 63 68 6b 69 6e 2e 0d 0a  oe Mistachkin...
0090: 23 20 52 65 6c 65 61 73 65 64 20 74 6f 20 74 68  # Released to th
00a0: 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2c  e public domain,
00b0: 20 75 73 65 20 61 74 20 79 6f 75 72 20 6f 77 6e   use at your own
00c0: 20 72 69 73 6b 21 0d 0a 23 0d 0a 23 23 23 23 23   risk!..#..#####
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 23 23 23 23 23 23 23 23 0d 0a 0d 0a 70 61  ##########....pa
0120: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 45 61  ckage require Ea
0130: 67 6c 65 0d 0a 70 61 63 6b 61 67 65 20 72 65 71  gle..package req
0140: 75 69 72 65 20 45 61 67 6c 65 4c 69 62 72 61 72  uire EagleLibrar
0150: 79 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69  y..package requi
0160: 72 65 20 45 61 67 6c 65 54 65 73 74 0d 0a 0d 0a  re EagleTest....
0170: 72 75 6e 54 65 73 74 50 72 6f 6c 6f 67 75 65 0d  runTestPrologue.
0180: 0a 0d 0a 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 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 72 65  ##....package re
01e0: 71 75 69 72 65 20 53 79 73 74 65 6d 2e 44 61 74  quire System.Dat
01f0: 61 2e 53 51 4c 69 74 65 2e 54 65 73 74 0d 0a 72  a.SQLite.Test..r
0200: 75 6e 53 51 4c 69 74 65 54 65 73 74 50 72 6f 6c  unSQLiteTestProl
0210: 6f 67 75 65 0d 0a 0d 0a 23 23 23 23 23 23 23 23  ogue....########
0220: 23 23 23 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 0d 0a 0d 0a 23 0d 0a 23 20  #######....#..# 
0270: 4e 4f 54 45 3a 20 53 65 74 75 70 20 74 68 65 20  NOTE: Setup the 
0280: 76 61 72 69 61 62 6c 65 73 20 74 68 61 74 20 72  variables that r
0290: 65 66 65 72 20 74 6f 20 74 68 65 20 76 61 72 69  efer to the vari
02a0: 6f 75 73 20 66 69 6c 65 73 20 72 65 71 75 69 72  ous files requir
02b0: 65 64 20 62 79 20 74 68 65 0d 0a 23 20 20 20 20  ed by the..#    
02c0: 20 20 20 74 65 73 74 73 20 69 6e 20 74 68 69 73     tests in this
02d0: 20 66 69 6c 65 2e 0d 0a 23 0d 0a 73 65 74 20 74   file...#..set t
02e0: 65 73 74 4c 69 6e 71 45 78 65 46 69 6c 65 20 5b  estLinqExeFile [
02f0: 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d 65  getBuildFileName
0300: 20 74 65 73 74 6c 69 6e 71 2e 65 78 65 5d 0d 0a   testlinq.exe]..
0310: 73 65 74 20 6e 6f 72 74 68 77 69 6e 64 45 66 44  set northwindEfD
0320: 62 46 69 6c 65 20 5b 66 69 6c 65 20 6e 61 74 69  bFile [file nati
0330: 76 65 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69  vename [file joi
0340: 6e 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20  n [file dirname 
0350: 24 70 61 74 68 5d 20 5c 0d 0a 20 20 20 20 74 65  $path] \..    te
0360: 73 74 6c 69 6e 71 20 6e 6f 72 74 68 77 69 6e 64  stlinq northwind
0370: 45 46 2e 64 62 5d 5d 0d 0a 0d 0a 23 0d 0a 23 20  EF.db]]....#..# 
0380: 4e 4f 54 45 3a 20 53 65 74 75 70 20 74 68 65 20  NOTE: Setup the 
0390: 74 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 73  test constraints
03a0: 20 73 70 65 63 69 66 69 63 20 74 6f 20 74 68 65   specific to the
03b0: 20 74 65 73 74 73 20 69 6e 20 74 68 69 73 20 66   tests in this f
03c0: 69 6c 65 2e 0d 0a 23 0d 0a 69 66 20 7b 21 5b 68  ile...#..if {![h
03d0: 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 69  aveConstraint fi
03e0: 6c 65 5f 5b 66 69 6c 65 20 74 61 69 6c 20 24 74  le_[file tail $t
03f0: 65 73 74 4c 69 6e 71 45 78 65 46 69 6c 65 5d 5d  estLinqExeFile]]
0400: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 63 68 65 63  } then {..  chec
0410: 6b 46 6f 72 46 69 6c 65 20 24 74 65 73 74 5f 63  kForFile $test_c
0420: 68 61 6e 6e 65 6c 20 24 74 65 73 74 4c 69 6e 71  hannel $testLinq
0430: 45 78 65 46 69 6c 65 0d 0a 7d 0d 0a 0d 0a 69 66  ExeFile..}....if
0440: 20 7b 21 5b 68 61 76 65 43 6f 6e 73 74 72 61 69   {![haveConstrai
0450: 6e 74 20 66 69 6c 65 5f 5b 66 69 6c 65 20 74 61  nt file_[file ta
0460: 69 6c 20 24 6e 6f 72 74 68 77 69 6e 64 45 66 44  il $northwindEfD
0470: 62 46 69 6c 65 5d 5d 7d 20 74 68 65 6e 20 7b 0d  bFile]]} then {.
0480: 0a 20 20 63 68 65 63 6b 46 6f 72 46 69 6c 65 20  .  checkForFile 
0490: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24 6e  $test_channel $n
04a0: 6f 72 74 68 77 69 6e 64 45 66 44 62 46 69 6c 65  orthwindEfDbFile
04b0: 0d 0a 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23  ..}....#########
04c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
04d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
04e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
04f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0500: 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73  ######....runTes
0510: 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 39 65 64  t {test tkt-59ed
0520: 63 31 30 31 38 62 2d 31 2e 31 20 7b 4c 49 4e 51  c1018b-1.1 {LINQ
0530: 20 77 69 74 68 20 45 6e 64 73 57 69 74 68 7d 20   with EndsWith} 
0540: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 72  -body {..  set r
0550: 65 73 75 6c 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a  esult [list]....
0560: 20 20 66 6f 72 65 61 63 68 20 76 61 6c 75 65 20    foreach value 
0570: 5b 6c 69 73 74 20 22 22 20 61 20 62 20 7a 20 31  [list "" a b z 1
0580: 2b 31 20 64 6f 6e 20 6e 6f 74 74 68 65 72 65 5d  +1 don notthere]
0590: 20 7b 0d 0a 20 20 20 20 73 65 74 20 63 6f 64 65   {..    set code
05a0: 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20   [catch {..     
05b0: 20 74 65 73 74 45 78 65 63 20 24 74 65 73 74 4c   testExec $testL
05c0: 69 6e 71 45 78 65 46 69 6c 65 20 5b 6c 69 73 74  inqExeFile [list
05d0: 20 2d 65 76 65 6e 74 66 6c 61 67 73 20 57 61 69   -eventflags Wai
05e0: 74 20 2d 64 69 72 65 63 74 6f 72 79 20 5c 0d 0a  t -directory \..
05f0: 20 20 20 20 20 20 5b 66 69 6c 65 20 64 69 72 6e        [file dirn
0600: 61 6d 65 20 24 74 65 73 74 4c 69 6e 71 45 78 65  ame $testLinqExe
0610: 46 69 6c 65 5d 20 2d 6e 6f 63 61 72 72 69 61 67  File] -nocarriag
0620: 65 72 65 74 75 72 6e 73 20 2d 73 74 64 6f 75 74  ereturns -stdout
0630: 20 6f 75 74 70 75 74 20 5c 0d 0a 20 20 20 20 20   output \..     
0640: 20 2d 73 75 63 63 65 73 73 20 30 5d 20 2d 65 6e   -success 0] -en
0650: 64 73 57 69 74 68 20 24 76 61 6c 75 65 0d 0a 20  dsWith $value.. 
0660: 20 20 20 7d 20 65 72 72 6f 72 5d 0d 0a 0d 0a 20     } error].... 
0670: 20 20 20 74 6c 6f 67 20 22 2d 2d 2d 2d 20 42 45     tlog "---- BE
0680: 47 49 4e 20 53 54 44 4f 55 54 20 4f 55 54 50 55  GIN STDOUT OUTPU
0690: 54 5c 6e 22 0d 0a 20 20 20 20 74 6c 6f 67 20 24  T\n"..    tlog $
06a0: 6f 75 74 70 75 74 0d 0a 20 20 20 20 74 6c 6f 67  output..    tlog
06b0: 20 22 5c 6e 2d 2d 2d 2d 20 45 4e 44 20 53 54 44   "\n---- END STD
06c0: 4f 55 54 20 4f 55 54 50 55 54 5c 6e 22 0d 0a 0d  OUT OUTPUT\n"...
06d0: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73  .    lappend res
06e0: 75 6c 74 20 24 63 6f 64 65 0d 0a 0d 0a 20 20 20  ult $code....   
06f0: 20 69 66 20 7b 24 63 6f 64 65 20 3d 3d 20 30 7d   if {$code == 0}
0700: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 6c   then {..      l
0710: 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 73  append result [s
0720: 74 72 69 6e 67 20 74 72 69 6d 20 24 6f 75 74 70  tring trim $outp
0730: 75 74 5d 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20  ut]..    } else 
0740: 7b 0d 0a 20 20 20 20 20 20 6c 61 70 70 65 6e 64  {..      lappend
0750: 20 72 65 73 75 6c 74 20 5b 73 74 72 69 6e 67 20   result [string 
0760: 74 72 69 6d 20 24 65 72 72 6f 72 5d 0d 0a 20 20  trim $error]..  
0770: 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65    }..  }....  se
0780: 74 20 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65  t result..} -cle
0790: 61 6e 75 70 20 7b 0d 0a 20 20 75 6e 73 65 74 20  anup {..  unset 
07a0: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 63 6f 64 65  -nocomplain code
07b0: 20 6f 75 74 70 75 74 20 65 72 72 6f 72 20 72 65   output error re
07c0: 73 75 6c 74 20 76 61 6c 75 65 0d 0a 7d 20 2d 63  sult value..} -c
07d0: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c  onstraints {eagl
07e0: 65 20 66 69 6c 65 5f 74 65 73 74 6c 69 6e 71 2e  e file_testlinq.
07f0: 65 78 65 20 66 69 6c 65 5f 6e 6f 72 74 68 77 69  exe file_northwi
0800: 6e 64 45 46 2e 64 62 7d 20 2d 72 65 73 75 6c 74  ndEF.db} -result
0810: 20 5c 0d 0a 7b 30 20 7b 7d 20 30 20 7b 46 55 52   \..{0 {} 0 {FUR
0820: 49 42 20 47 41 4c 45 44 20 47 4f 44 4f 53 20 4c  IB GALED GODOS L
0830: 41 5a 59 4b 20 4c 49 4e 4f 44 20 50 52 49 4e 49  AZYK LINOD PRINI
0840: 20 52 45 47 47 43 20 57 4f 4c 5a 41 7d 20 30 20   REGGC WOLZA} 0 
0850: 7b 7d 20 30 20 45 52 4e 53 48 20 30 20 7b 7d 20  {} 0 ERNSH 0 {} 
0860: 30 5c 0d 0a 7b 41 52 4f 55 54 20 42 53 42 45 56  0\..{AROUT BSBEV
0870: 20 43 4f 4e 53 48 20 45 41 53 54 43 20 4e 4f 52   CONSH EASTC NOR
0880: 54 53 20 53 45 56 45 53 7d 20 30 20 7b 7d 7d 7d  TS SEVES} 0 {}}}
0890: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
08a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08e0: 23 23 23 0d 0a 0d 0a 75 6e 73 65 74 20 2d 6e 6f  ###....unset -no
08f0: 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 4c 69 6e  complain testLin
0900: 71 45 78 65 46 69 6c 65 20 6e 6f 72 74 68 77 69  qExeFile northwi
0910: 6e 64 45 66 44 62 46 69 6c 65 0d 0a 0d 0a 23 23  ndEfDbFile....##
0920: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0930: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0940: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0950: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0960: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
0970: 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74 45 70  .runSQLiteTestEp
0980: 69 6c 6f 67 75 65 0d 0a 72 75 6e 54 65 73 74 45  ilogue..runTestE
0990: 70 69 6c 6f 67 75 65 0d 0a                       pilogue..