System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact d8531fc8bed55312e998f5ae8ad14c522314c500:


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 65 31 62 32 65 30  .#..# tkt-e1b2e0
0060: 66 37 36 39 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  f769.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 72 75 6e  #########....run
0270: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 65  Test {test tkt-e
0280: 31 62 32 65 30 66 37 36 39 2d 31 2e 31 20 7b 64  1b2e0f769-1.1 {d
0290: 61 74 61 20 72 65 61 64 65 72 20 63 6c 65 61 6e  ata reader clean
02a0: 75 70 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20  up} -setup {..  
02b0: 73 65 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c  setupDb [set fil
02c0: 65 4e 61 6d 65 20 74 6b 74 2d 65 31 62 32 65 30  eName tkt-e1b2e0
02d0: 66 37 36 39 2d 31 2e 31 2e 64 62 5d 0d 0a 7d 20  f769-1.1.db]..} 
02e0: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 71 6c 20 65  -body {..  sql e
02f0: 78 65 63 75 74 65 20 24 64 62 20 22 43 52 45 41  xecute $db "CREA
0300: 54 45 20 54 41 42 4c 45 20 74 31 28 78 20 49 4e  TE TABLE t1(x IN
0310: 54 45 47 45 52 29 3b 22 0d 0a 20 20 73 71 6c 20  TEGER);"..  sql 
0320: 65 78 65 63 75 74 65 20 24 64 62 20 22 43 52 45  execute $db "CRE
0330: 41 54 45 20 54 41 42 4c 45 20 74 32 28 78 20 49  ATE TABLE t2(x I
0340: 4e 54 45 47 45 52 29 3b 22 0d 0a 0d 0a 20 20 66  NTEGER);"....  f
0350: 6f 72 65 61 63 68 20 78 20 5b 6c 69 73 74 20 31  oreach x [list 1
0360: 20 32 20 33 5d 20 7b 0d 0a 20 20 20 20 73 71 6c   2 3] {..    sql
0370: 20 65 78 65 63 75 74 65 20 24 64 62 20 22 49 4e   execute $db "IN
0380: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29  SERT INTO t1 (x)
0390: 20 56 41 4c 55 45 53 28 24 78 29 3b 22 0d 0a 20   VALUES($x);".. 
03a0: 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 72 65 73 75   }....  set resu
03b0: 6c 74 31 20 5b 6c 69 73 74 5d 0d 0a 20 20 73 65  lt1 [list]..  se
03c0: 74 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69  t dataSource [fi
03d0: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61  le join [getData
03e0: 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24  baseDirectory] $
03f0: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 66  fileName]....  f
0400: 6f 72 65 61 63 68 20 74 61 62 6c 65 20 5b 6c 69  oreach table [li
0410: 73 74 20 74 31 20 74 32 5d 20 7b 0d 0a 20 20 20  st t1 t2] {..   
0420: 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20   set id [object 
0430: 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74  invoke Interpret
0440: 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78  er.GetActive Nex
0450: 74 49 64 5d 0d 0a 20 20 20 20 73 65 74 20 73 71  tId]..    set sq
0460: 6c 20 22 53 45 4c 45 43 54 20 78 20 46 52 4f 4d  l "SELECT x FROM
0470: 20 24 74 61 62 6c 65 20 4f 52 44 45 52 20 42 59   $table ORDER BY
0480: 20 78 3b 22 0d 0a 0d 0a 20 20 20 20 75 6e 73 65   x;"....    unse
0490: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
04a0: 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a  sults errors....
04b0: 20 20 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f      set code [co
04c0: 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20  mpileCSharpWith 
04d0: 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 20 20  [subst {..      
04e0: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 43 6f 6c  using System.Col
04f0: 6c 65 63 74 69 6f 6e 73 2e 47 65 6e 65 72 69 63  lections.Generic
0500: 3b 0d 0a 20 20 20 20 20 20 75 73 69 6e 67 20 53  ;..      using S
0510: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
0520: 65 3b 0d 0a 0d 0a 20 20 20 20 20 20 6e 61 6d 65  e;....      name
0530: 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b  space _Dynamic${
0540: 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20  id}..      {..  
0550: 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61        public sta
0560: 74 69 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b  tic class Test${
0570: 69 64 7d 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a  id}..        {..
0580: 20 20 20 20 20 20 20 20 20 20 70 75 62 6c 69 63            public
0590: 20 73 74 61 74 69 63 20 4c 69 73 74 3c 6c 6f 6e   static List<lon
05a0: 67 3f 3e 20 54 6b 74 5f 65 31 62 32 65 30 66 37  g?> Tkt_e1b2e0f7
05b0: 36 39 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  69(..           
05c0: 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f   SQLiteConnectio
05d0: 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 20 20  n connection..  
05e0: 20 20 20 20 20 20 20 20 20 20 29 0d 0a 20 20 20            )..   
05f0: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
0600: 20 20 20 20 20 20 4c 69 73 74 3c 6c 6f 6e 67 3f        List<long?
0610: 3e 20 72 65 73 75 6c 74 20 3d 20 6e 65 77 20 4c  > result = new L
0620: 69 73 74 3c 6c 6f 6e 67 3f 3e 28 29 3b 0d 0a 0d  ist<long?>();...
0630: 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69  .            usi
0640: 6e 67 20 28 53 51 4c 69 74 65 54 72 61 6e 73 61  ng (SQLiteTransa
0650: 63 74 69 6f 6e 20 74 72 61 6e 73 61 63 74 69 6f  ction transactio
0660: 6e 20 3d 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n =..           
0670: 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e       connection.
0680: 42 65 67 69 6e 54 72 61 6e 73 61 63 74 69 6f 6e  BeginTransaction
0690: 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ())..           
06a0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
06b0: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43    using (SQLiteC
06c0: 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 20 3d  ommand command =
06d0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 43 72 65 61   connection.Crea
06e0: 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20  teCommand())..  
06f0: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
0700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
0710: 6f 6d 6d 61 6e 64 2e 43 6f 6d 6d 61 6e 64 54 65  ommand.CommandTe
0720: 78 74 20 3d 20 22 24 7b 73 71 6c 7d 22 3b 0d 0a  xt = "${sql}";..
0730: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0740: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 44    using (SQLiteD
0750: 61 74 61 52 65 61 64 65 72 20 64 61 74 61 52 65  ataReader dataRe
0760: 61 64 65 72 20 3d 20 63 6f 6d 6d 61 6e 64 2e 45  ader = command.E
0770: 78 65 63 75 74 65 52 65 61 64 65 72 28 29 29 0d  xecuteReader()).
0780: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0790: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
07a0: 20 20 20 20 20 20 2f 2f 0d 0a 20 20 20 20 20 20        //..      
07b0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 4e              // N
07c0: 4f 54 45 3a 20 49 66 20 74 68 65 72 65 20 61 72  OTE: If there ar
07d0: 65 20 6e 6f 20 72 6f 77 73 2c 20 63 6c 6f 73 65  e no rows, close
07e0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20   the connection 
07f0: 61 6e 64 0d 0a 20 20 20 20 20 20 20 20 20 20 20  and..           
0800: 20 20 20 20 20 20 20 2f 2f 20 20 20 20 20 20 20         //       
0810: 72 65 74 75 72 6e 20 74 68 65 20 65 6d 70 74 79  return the empty
0820: 20 6c 69 73 74 2e 20 20 49 6e 20 74 68 69 73 20   list.  In this 
0830: 63 61 73 65 2c 20 20 61 6e 20 65 78 63 65 70 74  case,  an except
0840: 69 6f 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ion..           
0850: 20 20 20 20 20 20 20 2f 2f 20 20 20 20 20 20 20         //       
0860: 77 69 6c 6c 20 62 65 20 72 61 69 73 65 64 20 77  will be raised w
0870: 68 65 6e 20 65 78 69 74 69 6e 67 20 74 68 65 20  hen exiting the 
0880: 75 73 69 6e 67 20 62 6c 6f 63 6b 20 66 6f 72 20  using block for 
0890: 74 68 65 0d 0a 20 20 20 20 20 20 20 20 20 20 20  the..           
08a0: 20 20 20 20 20 20 20 2f 2f 20 20 20 20 20 20 20         //       
08b0: 64 61 74 61 20 72 65 61 64 65 72 20 62 65 63 61  data reader beca
08c0: 75 73 65 20 77 65 20 61 72 65 20 63 6c 6f 73 69  use we are closi
08d0: 6e 67 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f  ng the connectio
08e0: 6e 20 6f 75 74 0d 0a 20 20 20 20 20 20 20 20 20  n out..         
08f0: 20 20 20 20 20 20 20 20 20 2f 2f 20 20 20 20 20           //     
0900: 20 20 66 72 6f 6d 20 75 6e 64 65 72 6e 65 61 74    from underneat
0910: 68 20 69 74 2e 0d 0a 20 20 20 20 20 20 20 20 20  h it...         
0920: 20 20 20 20 20 20 20 20 20 2f 2f 0d 0a 20 20 20           //..   
0930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69                 i
0940: 66 20 28 21 64 61 74 61 52 65 61 64 65 72 2e 48  f (!dataReader.H
0950: 61 73 52 6f 77 73 29 0d 0a 20 20 20 20 20 20 20  asRows)..       
0960: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20             {..  
0970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0980: 20 20 2f 2f 0d 0a 20 20 20 20 20 20 20 20 20 20    //..          
0990: 20 20 20 20 20 20 20 20 20 20 2f 2f 20 4e 4f 54            // NOT
09a0: 45 3a 20 43 6c 6f 73 69 6e 67 20 74 68 65 20 63  E: Closing the c
09b0: 6f 6e 6e 65 63 74 69 6f 6e 20 68 65 72 65 20 63  onnection here c
09c0: 61 75 73 65 64 20 61 6e 20 65 78 63 65 70 74 69  aused an excepti
09d0: 6f 6e 20 74 6f 0d 0a 20 20 20 20 20 20 20 20 20  on to..         
09e0: 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 20 20             //   
09f0: 20 20 20 20 62 65 20 72 61 69 73 65 64 20 77 68      be raised wh
0a00: 65 6e 20 65 78 69 74 69 6e 67 20 74 68 65 20 75  en exiting the u
0a10: 73 69 6e 67 20 62 6c 6f 63 6b 20 66 6f 72 20 74  sing block for t
0a20: 68 65 20 64 61 74 61 0d 0a 20 20 20 20 20 20 20  he data..       
0a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20               // 
0a40: 20 20 20 20 20 20 72 65 61 64 65 72 20 28 62 65        reader (be
0a50: 6c 6f 77 29 20 62 65 63 61 75 73 65 20 74 68 65  low) because the
0a60: 20 44 69 73 70 6f 73 65 20 6d 65 74 68 6f 64 20   Dispose method 
0a70: 66 6f 72 20 74 68 65 0d 0a 20 20 20 20 20 20 20  for the..       
0a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20               // 
0a90: 20 20 20 20 20 20 64 61 74 61 20 72 65 61 64 65        data reade
0aa0: 72 20 63 61 6c 6c 73 20 74 68 65 20 43 6c 6f 73  r calls the Clos
0ab0: 65 20 6d 65 74 68 6f 64 2c 20 77 68 69 63 68 20  e method, which 
0ac0: 61 6c 77 61 79 73 0d 0a 20 20 20 20 20 20 20 20  always..        
0ad0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 20              //  
0ae0: 20 20 20 20 20 61 73 73 75 6d 65 64 20 74 68 65       assumed the
0af0: 20 75 6e 64 65 72 6c 79 69 6e 67 20 63 6f 6e 6e   underlying conn
0b00: 65 63 74 69 6f 6e 20 77 61 73 20 73 74 69 6c 6c  ection was still
0b10: 20 6f 70 65 6e 2e 0d 0a 20 20 20 20 20 20 20 20   open...        
0b20: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 0d 0a              //..
0b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0b40: 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 43      connection.C
0b50: 6c 6f 73 65 28 29 3b 0d 0a 20 20 20 20 20 20 20  lose();..       
0b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74               ret
0b70: 75 72 6e 20 72 65 73 75 6c 74 3b 0d 0a 20 20 20  urn result;..   
0b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d                 }
0b90: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
0ba0: 20 20 20 20 20 20 77 68 69 6c 65 20 28 64 61 74        while (dat
0bb0: 61 52 65 61 64 65 72 2e 52 65 61 64 28 29 29 0d  aReader.Read()).
0bc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0bd0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
0be0: 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74            result
0bf0: 2e 41 64 64 28 28 6c 6f 6e 67 3f 29 20 64 61 74  .Add((long?) dat
0c00: 61 52 65 61 64 65 72 5c 5b 30 5c 5d 29 3b 0d 0a  aReader\[0\]);..
0c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0c20: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
0c30: 20 20 20 20 20 7d 20 2f 2f 20 4e 4f 54 45 3a 20       } // NOTE: 
0c40: 45 78 63 65 70 74 69 6f 6e 20 68 65 72 65 20 77  Exception here w
0c50: 68 65 6e 20 6e 6f 20 64 61 74 61 20 72 6f 77 73  hen no data rows
0c60: 20 28 73 65 65 20 63 6f 6d 6d 65 6e 74 20 61 62   (see comment ab
0c70: 6f 76 65 29 2e 0d 0a 20 20 20 20 20 20 20 20 20  ove)...         
0c80: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
0c90: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20      }....       
0ca0: 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e       connection.
0cb0: 43 6c 6f 73 65 28 29 3b 0d 0a 20 20 20 20 20 20  Close();..      
0cc0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 72 65 73        return res
0cd0: 75 6c 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  ult;..          
0ce0: 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 2f  }....          /
0cf0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0d00: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0d10: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0d20: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0d30: 2f 2f 2f 2f 0d 0a 0d 0a 20 20 20 20 20 20 20 20  ////....        
0d40: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
0d50: 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20  int Main()..    
0d60: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
0d70: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
0d80: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e  teConnection con
0d90: 6e 65 63 74 69 6f 6e 20 3d 20 6e 65 77 20 53 51  nection = new SQ
0da0: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d  LiteConnection(.
0db0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0dc0: 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b   "Data Source=${
0dd0: 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74  dataSource};[get
0de0: 54 65 73 74 50 72 6f 70 65 72 74 69 65 73 5d 22  TestProperties]"
0df0: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
0e00: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
0e10: 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 4f 70 65 6e   connection.Open
0e20: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ();....         
0e30: 20 20 20 20 20 72 65 74 75 72 6e 20 54 6b 74 5f       return Tkt_
0e40: 65 31 62 32 65 30 66 37 36 39 28 63 6f 6e 6e 65  e1b2e0f769(conne
0e50: 63 74 69 6f 6e 29 2e 43 6f 75 6e 74 3b 0d 0a 20  ction).Count;.. 
0e60: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
0e70: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
0e80: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20     }..      }.. 
0e90: 20 20 20 7d 5d 20 74 72 75 65 20 66 61 6c 73 65     }] true false
0ea0: 20 74 72 75 65 20 72 65 73 75 6c 74 73 20 65 72   true results er
0eb0: 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61  rors System.Data
0ec0: 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a  .SQLite.dll]....
0ed0: 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65 73 75      lappend resu
0ee0: 6c 74 31 20 24 63 6f 64 65 20 24 72 65 73 75 6c  lt1 $code $resul
0ef0: 74 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 65  ts \..        [e
0f00: 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  xpr {[info exist
0f10: 73 20 65 72 72 6f 72 73 5d 20 3f 20 24 65 72 72  s errors] ? $err
0f20: 6f 72 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20  ors : ""}] \..  
0f30: 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24 63 6f        [expr {$co
0f40: 64 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b 63 61  de eq "Ok" ? [ca
0f50: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  tch {..         
0f60: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f   object invoke _
0f70: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73  Dynamic${id}.Tes
0f80: 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20  t${id} Main..   
0f90: 20 20 20 20 20 7d 20 72 65 73 75 6c 74 32 5d 20       } result2] 
0fa0: 3a 20 5b 73 65 74 20 72 65 73 75 6c 74 32 20 22  : [set result2 "
0fb0: 22 5d 7d 5d 20 24 72 65 73 75 6c 74 32 0d 0a 20  "]}] $result2.. 
0fc0: 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 72 65 73 75   }....  set resu
0fd0: 6c 74 31 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20  lt1..} -cleanup 
0fe0: 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24  {..  cleanupDb $
0ff0: 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e  fileName....  un
1000: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
1010: 72 65 73 75 6c 74 32 20 72 65 73 75 6c 74 31 20  result2 result1 
1020: 63 6f 64 65 20 72 65 73 75 6c 74 73 20 65 72 72  code results err
1030: 6f 72 73 20 73 71 6c 20 74 61 62 6c 65 20 64 61  ors sql table da
1040: 74 61 53 6f 75 72 63 65 20 5c 0d 0a 20 20 20 20  taSource \..    
1050: 20 20 69 64 20 78 20 64 62 20 66 69 6c 65 4e 61    id x db fileNa
1060: 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e  me..} -constrain
1070: 74 73 20 5b 66 69 78 43 6f 6e 73 74 72 61 69 6e  ts [fixConstrain
1080: 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e  ts {eagle comman
1090: 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67  d.object monoBug
10a0: 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 5c 0d  28 command.sql\.
10b0: 0a 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51  .compile.DATA SQ
10c0: 4c 69 74 65 20 21 64 65 66 69 6e 65 43 6f 6e 73  Lite !defineCons
10d0: 74 61 6e 74 2e 53 79 73 74 65 6d 2e 44 61 74 61  tant.System.Data
10e0: 2e 53 51 4c 69 74 65 2e 43 48 45 43 4b 5f 53 54  .SQLite.CHECK_ST
10f0: 41 54 45 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 74  ATE\..System.Dat
1100: 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c 65  a.SQLite compile
1110: 43 53 68 61 72 70 7d 5d 20 2d 6d 61 74 63 68 20  CSharp}] -match 
1120: 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74 20 7b  regexp -result {
1130: 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d 23 43 6f 64  ^Ok\..System#Cod
1140: 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f  eDom#Compiler#Co
1150: 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23 5c 64  mpilerResults#\d
1160: 2b 20 5c 7b 5c 7d 20 30 20 33 20 4f 6b 5c 0d 0a  + \{\} 0 3 Ok\..
1170: 53 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43  System#CodeDom#C
1180: 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72  ompiler#Compiler
1190: 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d  Results#\d+ \{\}
11a0: 20 30 20 30 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23   0 0$}}....#####
11b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11f0: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75  ##########....ru
1200: 6e 53 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f  nSQLiteTestEpilo
1210: 67 75 65 0d 0a 72 75 6e 54 65 73 74 45 70 69 6c  gue..runTestEpil
1220: 6f 67 75 65 0d 0a                                ogue..