System.Data.SQLite: Hex Artifact Content

Artifact 81a74b4fa1a2ddf19792b82e13100a885946c984:

File Tests/tkt-00f86f9739.eagle — part of check-in [fd6a7e09b8] at 2012-04-07 22:18:32 on branch trunk — Update all versions to 1.0.81.0. Add DefineConstants property to the SQLiteConnection class to return the list of define constants used when compiling the core managed assembly. Support compiling the interop assembly without support for the custom extension functions and the CryptoAPI based codec. (user: mistachkin size: 2607)
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 2e 4c 69 62 72 61  uire Eagle.Libra
0150: 72 79 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 75  ry..package requ
0160: 69 72 65 20 45 61 67 6c 65 2e 54 65 73 74 0d 0a  ire Eagle.Test..
0170: 0d 0a 72 75 6e 54 65 73 74 50 72 6f 6c 6f 67 75  ..runTestPrologu
0180: 65 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23  e....###########
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 23 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20  ####....package 
01e0: 72 65 71 75 69 72 65 20 53 79 73 74 65 6d 2e 44  require System.D
01f0: 61 74 61 2e 53 51 4c 69 74 65 2e 54 65 73 74 0d  ata.SQLite.Test.
0200: 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74 50 72  .runSQLiteTestPr
0210: 6f 6c 6f 67 75 65 0d 0a 0d 0a 23 23 23 23 23 23  ologue....######
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 23 23 0d 0a 0d 0a 23 0d 0a  #########....#..
0270: 23 20 4e 4f 54 45 3a 20 53 65 74 75 70 20 74 68  # NOTE: Setup th
0280: 65 20 76 61 72 69 61 62 6c 65 73 20 74 68 61 74  e variables that
0290: 20 72 65 66 65 72 20 74 6f 20 74 68 65 20 76 61   refer to the va
02a0: 72 69 6f 75 73 20 66 69 6c 65 73 20 72 65 71 75  rious files requ
02b0: 69 72 65 64 20 62 79 20 74 68 65 0d 0a 23 20 20  ired by the..#  
02c0: 20 20 20 20 20 74 65 73 74 73 20 69 6e 20 74 68       tests in th
02d0: 69 73 20 66 69 6c 65 2e 0d 0a 23 0d 0a 73 65 74  is file...#..set
02e0: 20 74 65 73 74 4c 69 6e 71 45 78 65 46 69 6c 65   testLinqExeFile
02f0: 20 5b 67 65 74 42 75 69 6c 64 46 69 6c 65 4e 61   [getBuildFileNa
0300: 6d 65 20 74 65 73 74 6c 69 6e 71 2e 65 78 65 5d  me testlinq.exe]
0310: 0d 0a 73 65 74 20 6e 6f 72 74 68 77 69 6e 64 45  ..set northwindE
0320: 66 44 62 46 69 6c 65 20 5b 66 69 6c 65 20 6e 61  fDbFile [file na
0330: 74 69 76 65 6e 61 6d 65 20 5b 66 69 6c 65 20 6a  tivename [file j
0340: 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d  oin [file dirnam
0350: 65 20 24 70 61 74 68 5d 20 5c 0d 0a 20 20 20 20  e $path] \..    
0360: 74 65 73 74 6c 69 6e 71 20 6e 6f 72 74 68 77 69  testlinq northwi
0370: 6e 64 45 46 2e 64 62 5d 5d 0d 0a 0d 0a 23 0d 0a  ndEF.db]]....#..
0380: 23 20 4e 4f 54 45 3a 20 53 65 74 75 70 20 74 68  # NOTE: Setup th
0390: 65 20 74 65 73 74 20 63 6f 6e 73 74 72 61 69 6e  e test constrain
03a0: 74 73 20 73 70 65 63 69 66 69 63 20 74 6f 20 74  ts specific to t
03b0: 68 65 20 74 65 73 74 73 20 69 6e 20 74 68 69 73  he tests in this
03c0: 20 66 69 6c 65 2e 0d 0a 23 0d 0a 69 66 20 7b 21   file...#..if {!
03d0: 5b 68 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 20  [haveConstraint 
03e0: 5b 61 70 70 65 6e 64 41 72 67 73 20 66 69 6c 65  [appendArgs file
03f0: 5f 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 74 65  _ [file tail $te
0400: 73 74 4c 69 6e 71 45 78 65 46 69 6c 65 5d 5d 5d  stLinqExeFile]]]
0410: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 63 68 65 63  } then {..  chec
0420: 6b 46 6f 72 46 69 6c 65 20 24 74 65 73 74 5f 63  kForFile $test_c
0430: 68 61 6e 6e 65 6c 20 24 74 65 73 74 4c 69 6e 71  hannel $testLinq
0440: 45 78 65 46 69 6c 65 0d 0a 7d 0d 0a 0d 0a 69 66  ExeFile..}....if
0450: 20 7b 21 5b 68 61 76 65 43 6f 6e 73 74 72 61 69   {![haveConstrai
0460: 6e 74 20 5b 61 70 70 65 6e 64 41 72 67 73 20 66  nt [appendArgs f
0470: 69 6c 65 5f 20 5b 66 69 6c 65 20 74 61 69 6c 20  ile_ [file tail 
0480: 24 6e 6f 72 74 68 77 69 6e 64 45 66 44 62 46 69  $northwindEfDbFi
0490: 6c 65 5d 5d 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  le]]]} then {.. 
04a0: 20 63 68 65 63 6b 46 6f 72 46 69 6c 65 20 24 74   checkForFile $t
04b0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24 6e 6f 72  est_channel $nor
04c0: 74 68 77 69 6e 64 45 66 44 62 46 69 6c 65 0d 0a  thwindEfDbFile..
04d0: 7d 0d 0a 0d 0a 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 23 23 23 23 23 23 23 23 23 23  ################
0510: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0520: 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20  ####....runTest 
0530: 7b 74 65 73 74 20 74 6b 74 2d 30 30 66 38 36 66  {test tkt-00f86f
0540: 39 37 33 39 2d 31 2e 31 20 7b 4c 49 4e 51 20 77  9739-1.1 {LINQ w
0550: 69 74 68 20 53 74 61 72 74 73 57 69 74 68 7d 20  ith StartsWith} 
0560: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 72  -body {..  set r
0570: 65 73 75 6c 74 20 5b 6c 69 73 74 5d 0d 0a 0d 0a  esult [list]....
0580: 20 20 66 6f 72 65 61 63 68 20 76 61 6c 75 65 20    foreach value 
0590: 5b 6c 69 73 74 20 22 22 20 61 20 62 20 7a 20 31  [list "" a b z 1
05a0: 2b 31 20 64 6f 6e 20 6e 6f 74 74 68 65 72 65 5d  +1 don notthere]
05b0: 20 7b 0d 0a 20 20 20 20 73 65 74 20 6f 75 74 70   {..    set outp
05c0: 75 74 20 22 22 0d 0a 0d 0a 20 20 20 20 73 65 74  ut ""....    set
05d0: 20 63 6f 64 65 20 5b 63 61 74 63 68 20 7b 0d 0a   code [catch {..
05e0: 20 20 20 20 20 20 74 65 73 74 43 6c 72 45 78 65        testClrExe
05f0: 63 20 24 74 65 73 74 4c 69 6e 71 45 78 65 46 69  c $testLinqExeFi
0600: 6c 65 20 5b 6c 69 73 74 20 2d 65 76 65 6e 74 66  le [list -eventf
0610: 6c 61 67 73 20 57 61 69 74 20 2d 64 69 72 65 63  lags Wait -direc
0620: 74 6f 72 79 20 5c 0d 0a 20 20 20 20 20 20 20 20  tory \..        
0630: 20 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20    [file dirname 
0640: 24 74 65 73 74 4c 69 6e 71 45 78 65 46 69 6c 65  $testLinqExeFile
0650: 5d 20 2d 6e 6f 63 61 72 72 69 61 67 65 72 65 74  ] -nocarriageret
0660: 75 72 6e 73 20 2d 73 74 64 6f 75 74 20 6f 75 74  urns -stdout out
0670: 70 75 74 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  put \..         
0680: 20 2d 73 75 63 63 65 73 73 20 30 5d 20 2d 73 74   -success 0] -st
0690: 61 72 74 73 57 69 74 68 20 24 76 61 6c 75 65 0d  artsWith $value.
06a0: 0a 20 20 20 20 7d 20 65 72 72 6f 72 5d 0d 0a 0d  .    } error]...
06b0: 0a 20 20 20 20 74 6c 6f 67 20 22 2d 2d 2d 2d 20  .    tlog "---- 
06c0: 42 45 47 49 4e 20 53 54 44 4f 55 54 20 4f 55 54  BEGIN STDOUT OUT
06d0: 50 55 54 5c 6e 22 0d 0a 20 20 20 20 74 6c 6f 67  PUT\n"..    tlog
06e0: 20 24 6f 75 74 70 75 74 0d 0a 20 20 20 20 74 6c   $output..    tl
06f0: 6f 67 20 22 5c 6e 2d 2d 2d 2d 20 45 4e 44 20 53  og "\n---- END S
0700: 54 44 4f 55 54 20 4f 55 54 50 55 54 5c 6e 22 0d  TDOUT OUTPUT\n".
0710: 0a 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 72  ...    lappend r
0720: 65 73 75 6c 74 20 24 63 6f 64 65 0d 0a 0d 0a 20  esult $code.... 
0730: 20 20 20 69 66 20 7b 24 63 6f 64 65 20 3d 3d 20     if {$code == 
0740: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
0750: 20 6c 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20   lappend result 
0760: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6f 75  [string trim $ou
0770: 74 70 75 74 5d 0d 0a 20 20 20 20 7d 20 65 6c 73  tput]..    } els
0780: 65 20 7b 0d 0a 20 20 20 20 20 20 6c 61 70 70 65  e {..      lappe
0790: 6e 64 20 72 65 73 75 6c 74 20 5b 73 74 72 69 6e  nd result [strin
07a0: 67 20 74 72 69 6d 20 24 65 72 72 6f 72 5d 0d 0a  g trim $error]..
07b0: 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20      }..  }....  
07c0: 73 65 74 20 72 65 73 75 6c 74 0d 0a 7d 20 2d 63  set result..} -c
07d0: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 75 6e 73 65  leanup {..  unse
07e0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 63 6f  t -nocomplain co
07f0: 64 65 20 6f 75 74 70 75 74 20 65 72 72 6f 72 20  de output error 
0800: 72 65 73 75 6c 74 20 76 61 6c 75 65 0d 0a 7d 20  result value..} 
0810: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 5c 0d 0a  -constraints \..
0820: 7b 65 61 67 6c 65 20 6d 6f 6e 6f 54 6f 44 6f 20  {eagle monoToDo 
0830: 64 65 66 69 6e 65 43 6f 6e 73 74 61 6e 74 2e 53  defineConstant.S
0840: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
0850: 65 2e 49 4e 54 45 52 4f 50 5f 45 58 54 45 4e 53  e.INTEROP_EXTENS
0860: 49 4f 4e 5f 46 55 4e 43 54 49 4f 4e 53 5c 0d 0a  ION_FUNCTIONS\..
0870: 66 69 6c 65 5f 74 65 73 74 6c 69 6e 71 2e 65 78  file_testlinq.ex
0880: 65 20 66 69 6c 65 5f 6e 6f 72 74 68 77 69 6e 64  e file_northwind
0890: 45 46 2e 64 62 7d 20 2d 72 65 73 75 6c 74 20 7b  EF.db} -result {
08a0: 30 20 7b 7d 20 30 20 7b 44 52 41 43 44 20 4f 4c  0 {} 0 {DRACD OL
08b0: 44 57 4f 20 52 41 54 54 43 7d 20 30 5c 0d 0a 7b  DWO RATTC} 0\..{
08c0: 41 4c 46 4b 49 20 43 41 43 54 55 20 43 48 4f 50  ALFKI CACTU CHOP
08d0: 53 20 46 4f 4c 4b 4f 20 47 41 4c 45 44 20 4b 4f  S FOLKO GALED KO
08e0: 45 4e 45 20 4c 49 4c 41 53 20 4d 41 47 41 41 20  ENE LILAS MAGAA 
08f0: 4d 41 49 53 44 20 4f 43 45 41 4e 20 52 41 4e 43  MAISD OCEAN RANC
0900: 48 20 53 41 56 45 41 20 54 48 45 43 52 7d 5c 0d  H SAVEA THECR}\.
0910: 0a 30 20 7b 7d 20 30 20 7b 7d 20 30 20 7b 7d 20  .0 {} 0 {} 0 {} 
0920: 30 20 7b 7d 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23  0 {}}}....######
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 23 0d 0a 0d 0a 75 6e 73  #########....uns
0980: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74  et -nocomplain t
0990: 65 73 74 4c 69 6e 71 45 78 65 46 69 6c 65 20 6e  estLinqExeFile n
09a0: 6f 72 74 68 77 69 6e 64 45 66 44 62 46 69 6c 65  orthwindEfDbFile
09b0: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
09c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
09d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
09e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
09f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0a00: 23 23 23 0d 0a 0d 0a 72 75 6e 53 51 4c 69 74 65  ###....runSQLite
0a10: 54 65 73 74 45 70 69 6c 6f 67 75 65 0d 0a 72 75  TestEpilogue..ru
0a20: 6e 54 65 73 74 45 70 69 6c 6f 67 75 65 0d 0a     nTestEpilogue..