System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 540339f370714393966025889798ffc69ee49cc4:


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 30 30 66 38 36 66  .#..# tkt-00f86f
0060: 39 37 33 39 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  9739.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 73 6f 75 72 63 65 20 5b 66 69  ##....source [fi
01e0: 6c 65 20 6a 6f 69 6e 20 24 70 61 74 68 20 63 6f  le join $path co
01f0: 6d 6d 6f 6e 2e 65 61 67 6c 65 5d 0d 0a 72 75 6e  mmon.eagle]..run
0200: 53 51 4c 69 74 65 54 65 73 74 50 72 6f 6c 6f 67  SQLiteTestProlog
0210: 75 65 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23  ue....##########
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 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f  #####....#..# NO
0270: 54 45 3a 20 53 65 74 75 70 20 74 68 65 20 76 61  TE: Setup the va
0280: 72 69 61 62 6c 65 73 20 74 68 61 74 20 72 65 66  riables that ref
0290: 65 72 20 74 6f 20 74 68 65 20 76 61 72 69 6f 75  er to the variou
02a0: 73 20 66 69 6c 65 73 20 72 65 71 75 69 72 65 64  s files required
02b0: 20 62 79 20 74 68 65 0d 0a 23 20 20 20 20 20 20   by the..#      
02c0: 20 74 65 73 74 73 20 69 6e 20 74 68 69 73 20 66   tests in this f
02d0: 69 6c 65 2e 0d 0a 23 0d 0a 73 65 74 20 74 65 73  ile...#..set tes
02e0: 74 4c 69 6e 71 45 78 65 46 69 6c 65 20 5b 67 65  tLinqExeFile [ge
02f0: 74 42 75 69 6c 64 46 69 6c 65 4e 61 6d 65 20 74  tBuildFileName t
0300: 65 73 74 6c 69 6e 71 2e 65 78 65 5d 0d 0a 73 65  estlinq.exe]..se
0310: 74 20 6e 6f 72 74 68 77 69 6e 64 45 66 44 62 46  t northwindEfDbF
0320: 69 6c 65 20 5b 66 69 6c 65 20 6e 61 74 69 76 65  ile [file native
0330: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  name [file join 
0340: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 70  [file dirname $p
0350: 61 74 68 5d 20 5c 0d 0a 20 20 20 20 74 65 73 74  ath] \..    test
0360: 6c 69 6e 71 20 6e 6f 72 74 68 77 69 6e 64 45 46  linq northwindEF
0370: 2e 64 62 5d 5d 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f  .db]]....#..# NO
0380: 54 45 3a 20 53 65 74 75 70 20 74 68 65 20 74 65  TE: Setup the te
0390: 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 73 20 73  st constraints s
03a0: 70 65 63 69 66 69 63 20 74 6f 20 74 68 65 20 74  pecific to the t
03b0: 65 73 74 73 20 69 6e 20 74 68 69 73 20 66 69 6c  ests in this fil
03c0: 65 2e 0d 0a 23 0d 0a 69 66 20 7b 21 5b 68 61 76  e...#..if {![hav
03d0: 65 43 6f 6e 73 74 72 61 69 6e 74 20 66 69 6c 65  eConstraint file
03e0: 5f 5b 66 69 6c 65 20 74 61 69 6c 20 24 74 65 73  _[file tail $tes
03f0: 74 4c 69 6e 71 45 78 65 46 69 6c 65 5d 5d 7d 20  tLinqExeFile]]} 
0400: 74 68 65 6e 20 7b 0d 0a 20 20 63 68 65 63 6b 46  then {..  checkF
0410: 6f 72 46 69 6c 65 20 24 74 65 73 74 5f 63 68 61  orFile $test_cha
0420: 6e 6e 65 6c 20 24 74 65 73 74 4c 69 6e 71 45 78  nnel $testLinqEx
0430: 65 46 69 6c 65 0d 0a 7d 0d 0a 0d 0a 69 66 20 7b  eFile..}....if {
0440: 21 5b 68 61 76 65 43 6f 6e 73 74 72 61 69 6e 74  ![haveConstraint
0450: 20 66 69 6c 65 5f 5b 66 69 6c 65 20 74 61 69 6c   file_[file tail
0460: 20 24 6e 6f 72 74 68 77 69 6e 64 45 66 44 62 46   $northwindEfDbF
0470: 69 6c 65 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  ile]]} then {.. 
0480: 20 63 68 65 63 6b 46 6f 72 46 69 6c 65 20 24 74   checkForFile $t
0490: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24 6e 6f 72  est_channel $nor
04a0: 74 68 77 69 6e 64 45 66 44 62 46 69 6c 65 0d 0a  thwindEfDbFile..
04b0: 7d 0d 0a 0d 0a 23 23 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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20  ####....runTest 
0510: 7b 74 65 73 74 20 74 6b 74 2d 30 30 66 38 36 66  {test tkt-00f86f
0520: 39 37 33 39 2d 31 2e 31 20 7b 4c 49 4e 51 20 77  9739-1.1 {LINQ w
0530: 69 74 68 20 53 74 61 72 74 73 57 69 74 68 7d 20  ith StartsWith} 
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 73 74   -success 0] -st
0650: 61 72 74 73 57 69 74 68 20 24 76 61 6c 75 65 0d  artsWith $value.
0660: 0a 20 20 20 20 7d 20 65 72 72 6f 72 5d 0d 0a 0d  .    } error]...
0670: 0a 20 20 20 20 74 6c 6f 67 20 22 2d 2d 2d 2d 20  .    tlog "---- 
0680: 42 45 47 49 4e 20 53 54 44 4f 55 54 20 4f 55 54  BEGIN STDOUT OUT
0690: 50 55 54 5c 6e 22 0d 0a 20 20 20 20 74 6c 6f 67  PUT\n"..    tlog
06a0: 20 24 6f 75 74 70 75 74 0d 0a 20 20 20 20 74 6c   $output..    tl
06b0: 6f 67 20 22 5c 6e 2d 2d 2d 2d 20 45 4e 44 20 53  og "\n---- END S
06c0: 54 44 4f 55 54 20 4f 55 54 50 55 54 5c 6e 22 0d  TDOUT OUTPUT\n".
06d0: 0a 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 72  ...    lappend r
06e0: 65 73 75 6c 74 20 24 63 6f 64 65 0d 0a 0d 0a 20  esult $code.... 
06f0: 20 20 20 69 66 20 7b 24 63 6f 64 65 20 3d 3d 20     if {$code == 
0700: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
0710: 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20   lappend result 
0720: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6f 75  [string trim $ou
0730: 74 70 75 74 5d 0d 0a 20 20 20 20 7d 20 65 6c 73  tput]..    } els
0740: 65 20 7b 0d 0a 20 20 20 20 20 20 6c 61 70 70 65  e {..      lappe
0750: 6e 64 20 72 65 73 75 6c 74 20 5b 73 74 72 69 6e  nd result [strin
0760: 67 20 74 72 69 6d 20 24 65 72 72 6f 72 5d 0d 0a  g trim $error]..
0770: 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20      }..  }....  
0780: 73 65 74 20 72 65 73 75 6c 74 0d 0a 7d 20 2d 63  set result..} -c
0790: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 75 6e 73 65  leanup {..  unse
07a0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 63 6f  t -nocomplain co
07b0: 64 65 20 6f 75 74 70 75 74 20 65 72 72 6f 72 20  de output error 
07c0: 72 65 73 75 6c 74 20 76 61 6c 75 65 0d 0a 7d 20  result value..} 
07d0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61  -constraints {ea
07e0: 67 6c 65 20 66 69 6c 65 5f 74 65 73 74 6c 69 6e  gle file_testlin
07f0: 71 2e 65 78 65 20 66 69 6c 65 5f 6e 6f 72 74 68  q.exe file_north
0800: 77 69 6e 64 45 46 2e 64 62 7d 20 2d 72 65 73 75  windEF.db} -resu
0810: 6c 74 20 5c 0d 0a 7b 30 20 7b 7d 20 30 20 7b 44  lt \..{0 {} 0 {D
0820: 52 41 43 44 20 4f 4c 44 57 4f 20 52 41 54 54 43  RACD OLDWO RATTC
0830: 7d 20 30 20 7b 41 4c 46 4b 49 20 43 41 43 54 55  } 0 {ALFKI CACTU
0840: 20 43 48 4f 50 53 20 46 4f 4c 4b 4f 20 47 41 4c   CHOPS FOLKO GAL
0850: 45 44 20 4b 4f 45 4e 45 20 4c 49 4c 41 53 20 4d  ED KOENE LILAS M
0860: 41 47 41 41 5c 0d 0a 4d 41 49 53 44 20 4f 43 45  AGAA\..MAISD OCE
0870: 41 4e 20 52 41 4e 43 48 20 53 41 56 45 41 20 54  AN RANCH SAVEA T
0880: 48 45 43 52 7d 20 30 20 7b 7d 20 30 20 7b 7d 20  HECR} 0 {} 0 {} 
0890: 30 20 7b 7d 20 30 20 7b 7d 7d 7d 0d 0a 0d 0a 23  0 {} 0 {}}}....#
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 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
08f0: 0d 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c  ..unset -nocompl
0900: 61 69 6e 20 74 65 73 74 4c 69 6e 71 45 78 65 46  ain testLinqExeF
0910: 69 6c 65 20 6e 6f 72 74 68 77 69 6e 64 45 66 44  ile northwindEfD
0920: 62 46 69 6c 65 0d 0a 0d 0a 23 23 23 23 23 23 23  bFile....#######
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 23 23 23  ################
0970: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 53  ########....runS
0980: 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67 75  QLiteTestEpilogu
0990: 65 0d 0a 72 75 6e 54 65 73 74 45 70 69 6c 6f 67  e..runTestEpilog
09a0: 75 65 0d 0a                                      ue..