System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 59c92fb75f70cab6955acd1753629792e7021339:


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 36 62 34 32 64  .#..# tkt-56b42d
0060: 39 39 63 31 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23  99c1.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 35  Test {test tkt-5
0280: 36 62 34 32 64 39 39 63 31 2d 31 2e 31 20 7b 65  6b42d99c1-1.1 {e
0290: 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63 74  nlisted transact
02a0: 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d  ion isolation} -
02b0: 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70  setup {..  setup
02c0: 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65  Db [set fileName
02d0: 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d   tkt-56b42d99c1-
02e0: 31 2e 31 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79  1.1.db]..} -body
02f0: 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f 62   {..  set id [ob
0300: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65  ject invoke Inte
0310: 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76  rpreter.GetActiv
0320: 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65 74  e NextId]..  set
0330: 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69 6c   dataSource [fil
0340: 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62  e join [getDatab
0350: 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66  aseDirectory] $f
0360: 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e  ileName]....  un
0370: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
0380: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a  results errors..
0390: 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f  ..  set code [co
03a0: 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20  mpileCSharpWith 
03b0: 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 73  [subst {..    us
03c0: 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  ing System.Data.
03d0: 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 69  SQLite;..    usi
03e0: 6e 67 20 53 79 73 74 65 6d 2e 52 65 66 6c 65 63  ng System.Reflec
03f0: 74 69 6f 6e 3b 0d 0a 20 20 20 20 75 73 69 6e 67  tion;..    using
0400: 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63 74   System.Transact
0410: 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d  ions;....    nam
0420: 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24  espace _Dynamic$
0430: 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20  {id}..    {..   
0440: 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63     public static
0450: 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d   class Test${id}
0460: 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20  ..      {..     
0470: 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63     public static
0480: 20 62 6f 6f 6c 20 54 72 79 45 6e 6c 69 73 74 49   bool TryEnlistI
0490: 6e 54 72 61 6e 73 61 63 74 69 6f 6e 28 29 0d 0a  nTransaction()..
04a0: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
04b0: 20 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e       Transaction
04c0: 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74  Options transact
04d0: 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77  ionOptions = new
04e0: 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69   TransactionOpti
04f0: 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20  ons();..        
0500: 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74    transactionOpt
0510: 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65  ions.IsolationLe
0520: 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c  vel = IsolationL
0530: 65 76 65 6c 2e 52 65 61 64 43 6f 6d 6d 69 74 74  evel.ReadCommitt
0540: 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ed;....         
0550: 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74   using (Transact
0560: 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63  ionScope transac
0570: 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20  tionScope = new 
0580: 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65  TransactionScope
0590: 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  (..             
05a0: 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70   TransactionScop
05b0: 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64  eOption.Required
05c0: 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74  , transactionOpt
05d0: 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20  ions))..        
05e0: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
05f0: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
0600: 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74  nnection connect
0610: 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74  ion1 = new SQLit
0620: 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20  eConnection(..  
0630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44                "D
0640: 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74  ata Source=${dat
0650: 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 54 65 73  aSource};[getTes
0660: 74 50 72 6f 70 65 72 74 69 65 73 5d 22 29 29 0d  tProperties]")).
0670: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a  .            {..
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f                co
0690: 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29  nnection1.Open()
06a0: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ;....           
06b0: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
06c0: 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65  Connection conne
06d0: 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c  ction2 = new SQL
06e0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a  iteConnection(..
06f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0700: 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24    "Data Source=$
0710: 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65  {dataSource};[ge
0720: 74 54 65 73 74 50 72 6f 70 65 72 74 69 65 73 5d  tTestProperties]
0730: 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20  "))..           
0740: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
0750: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e        connection
0760: 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20  2.Open();....   
0770: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 69 6e               Bin
0780: 64 69 6e 67 46 6c 61 67 73 20 62 69 6e 64 69 6e  dingFlags bindin
0790: 67 46 6c 61 67 73 20 3d 20 42 69 6e 64 69 6e 67  gFlags = Binding
07a0: 46 6c 61 67 73 2e 49 6e 73 74 61 6e 63 65 20 7c  Flags.Instance |
07b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
07c0: 20 20 20 20 42 69 6e 64 69 6e 67 46 6c 61 67 73      BindingFlags
07d0: 2e 4e 6f 6e 50 75 62 6c 69 63 20 7c 20 42 69 6e  .NonPublic | Bin
07e0: 64 69 6e 67 46 6c 61 67 73 2e 47 65 74 46 69 65  dingFlags.GetFie
07f0: 6c 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ld;....         
0800: 20 20 20 20 20 20 20 46 69 65 6c 64 49 6e 66 6f         FieldInfo
0810: 20 66 69 65 6c 64 49 6e 66 6f 31 20 3d 20 63 6f   fieldInfo1 = co
0820: 6e 6e 65 63 74 69 6f 6e 31 2e 47 65 74 54 79 70  nnection1.GetTyp
0830: 65 28 29 2e 47 65 74 46 69 65 6c 64 28 0d 0a 20  e().GetField(.. 
0840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0850: 20 22 5f 65 6e 6c 69 73 74 6d 65 6e 74 22 2c 20   "_enlistment", 
0860: 62 69 6e 64 69 6e 67 46 6c 61 67 73 29 3b 0d 0a  bindingFlags);..
0870: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0880: 20 20 6f 62 6a 65 63 74 20 65 6e 6c 69 73 74 6d    object enlistm
0890: 65 6e 74 31 20 3d 20 66 69 65 6c 64 49 6e 66 6f  ent1 = fieldInfo
08a0: 31 2e 47 65 74 56 61 6c 75 65 28 63 6f 6e 6e 65  1.GetValue(conne
08b0: 63 74 69 6f 6e 31 29 3b 0d 0a 20 20 20 20 20 20  ction1);..      
08c0: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74            object
08d0: 20 65 6e 6c 69 73 74 6d 65 6e 74 32 20 3d 20 66   enlistment2 = f
08e0: 69 65 6c 64 49 6e 66 6f 31 2e 47 65 74 56 61 6c  ieldInfo1.GetVal
08f0: 75 65 28 63 6f 6e 6e 65 63 74 69 6f 6e 32 29 3b  ue(connection2);
0900: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
0910: 20 20 20 20 46 69 65 6c 64 49 6e 66 6f 20 66 69      FieldInfo fi
0920: 65 6c 64 49 6e 66 6f 32 20 3d 20 65 6e 6c 69 73  eldInfo2 = enlis
0930: 74 6d 65 6e 74 31 2e 47 65 74 54 79 70 65 28 29  tment1.GetType()
0940: 2e 47 65 74 46 69 65 6c 64 28 0d 0a 20 20 20 20  .GetField(..    
0950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5f                "_
0960: 74 72 61 6e 73 61 63 74 69 6f 6e 22 2c 20 62 69  transaction", bi
0970: 6e 64 69 6e 67 46 6c 61 67 73 29 3b 0d 0a 0d 0a  ndingFlags);....
0980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0990: 53 51 4c 69 74 65 54 72 61 6e 73 61 63 74 69 6f  SQLiteTransactio
09a0: 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 31 20 3d  n transaction1 =
09b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
09c0: 20 20 20 20 28 53 51 4c 69 74 65 54 72 61 6e 73      (SQLiteTrans
09d0: 61 63 74 69 6f 6e 29 66 69 65 6c 64 49 6e 66 6f  action)fieldInfo
09e0: 32 2e 47 65 74 56 61 6c 75 65 28 65 6e 6c 69 73  2.GetValue(enlis
09f0: 74 6d 65 6e 74 31 29 3b 0d 0a 0d 0a 20 20 20 20  tment1);....    
0a00: 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 69              SQLi
0a10: 74 65 54 72 61 6e 73 61 63 74 69 6f 6e 20 74 72  teTransaction tr
0a20: 61 6e 73 61 63 74 69 6f 6e 32 20 3d 0d 0a 20 20  ansaction2 =..  
0a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a40: 28 53 51 4c 69 74 65 54 72 61 6e 73 61 63 74 69  (SQLiteTransacti
0a50: 6f 6e 29 66 69 65 6c 64 49 6e 66 6f 32 2e 47 65  on)fieldInfo2.Ge
0a60: 74 56 61 6c 75 65 28 65 6e 6c 69 73 74 6d 65 6e  tValue(enlistmen
0a70: 74 32 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  t2);....        
0a80: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28          return (
0a90: 74 72 61 6e 73 61 63 74 69 6f 6e 31 2e 49 73 6f  transaction1.Iso
0aa0: 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 3d 0d 0a  lationLevel ==..
0ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ac0: 20 20 20 20 20 20 20 20 74 72 61 6e 73 61 63 74          transact
0ad0: 69 6f 6e 32 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65  ion2.IsolationLe
0ae0: 76 65 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20  vel);..         
0af0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
0b00: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
0b10: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d   }..        }...
0b20: 0a 20 20 20 20 20 20 20 20 2f 2f 2f 2f 2f 2f 2f  .        ///////
0b30: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0b40: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0b50: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0b60: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
0b70: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c  ....        publ
0b80: 69 63 20 73 74 61 74 69 63 20 76 6f 69 64 20 4d  ic static void M
0b90: 61 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b  ain()..        {
0ba0: 0d 0a 20 20 20 20 20 20 20 20 20 20 2f 2f 20 64  ..          // d
0bb0: 6f 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20  o nothing...    
0bc0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
0bd0: 20 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65      }..  }] true
0be0: 20 66 61 6c 73 65 20 74 72 75 65 20 72 65 73 75   false true resu
0bf0: 6c 74 73 20 65 72 72 6f 72 73 20 53 79 73 74 65  lts errors Syste
0c00: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c  m.Data.SQLite.dl
0c10: 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f  l]....  list $co
0c20: 64 65 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20  de $results \.. 
0c30: 20 20 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66       [expr {[inf
0c40: 6f 20 65 78 69 73 74 73 20 65 72 72 6f 72 73 5d  o exists errors]
0c50: 20 3f 20 24 65 72 72 6f 72 73 20 3a 20 22 22 7d   ? $errors : ""}
0c60: 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72  ] \..      [expr
0c70: 20 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 20   {$code eq "Ok" 
0c80: 3f 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20  ? [catch {..    
0c90: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b      object invok
0ca0: 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e  e _Dynamic${id}.
0cb0: 54 65 73 74 24 7b 69 64 7d 20 54 72 79 45 6e 6c  Test${id} TryEnl
0cc0: 69 73 74 49 6e 54 72 61 6e 73 61 63 74 69 6f 6e  istInTransaction
0cd0: 0d 0a 20 20 20 20 20 20 7d 20 72 65 73 75 6c 74  ..      } result
0ce0: 5d 20 3a 20 5b 73 65 74 20 72 65 73 75 6c 74 20  ] : [set result 
0cf0: 22 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d 0a 7d  ""]}] $result..}
0d00: 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63   -cleanup {..  c
0d10: 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61  leanupDb $fileNa
0d20: 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  me....  unset -n
0d30: 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74  ocomplain result
0d40: 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20   results errors 
0d50: 63 6f 64 65 20 64 61 74 61 53 6f 75 72 63 65 20  code dataSource 
0d60: 69 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a  id db fileName..
0d70: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b  } -constraints {
0d80: 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62  eagle command.ob
0d90: 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32 31 31 20  ject monoBug211 
0da0: 6d 6f 6e 6f 42 75 67 35 31 38 20 63 6f 6d 6d 61  monoBug518 comma
0db0: 6e 64 2e 73 71 6c 5c 0d 0a 63 6f 6d 70 69 6c 65  nd.sql\..compile
0dc0: 2e 44 41 54 41 20 53 51 4c 69 74 65 20 53 79 73  .DATA SQLite Sys
0dd0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20  tem.Data.SQLite 
0de0: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d  compileCSharp} -
0df0: 6d 61 74 63 68 20 72 65 67 65 78 70 20 2d 72 65  match regexp -re
0e00: 73 75 6c 74 20 5c 0d 0a 7b 5e 4f 6b 20 53 79 73  sult \..{^Ok Sys
0e10: 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70  tem#CodeDom#Comp
0e20: 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73  iler#CompilerRes
0e30: 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20  ults#\d+ \{\} 0 
0e40: 54 72 75 65 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23  True$}}....#####
0e50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e90: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75  ##########....ru
0ea0: 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d  nTest {test tkt-
0eb0: 35 36 62 34 32 64 39 39 63 31 2d 31 2e 32 20 7b  56b42d99c1-1.2 {
0ec0: 65 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63  enlisted transac
0ed0: 74 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20  tion isolation} 
0ee0: 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75  -setup {..  setu
0ef0: 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d  pDb [set fileNam
0f00: 65 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31  e tkt-56b42d99c1
0f10: 2d 31 2e 32 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64  -1.2.db]..} -bod
0f20: 79 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f  y {..  set id [o
0f30: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74  bject invoke Int
0f40: 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69  erpreter.GetActi
0f50: 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65  ve NextId]..  se
0f60: 74 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69  t dataSource [fi
0f70: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61  le join [getData
0f80: 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24  baseDirectory] $
0f90: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75  fileName]....  u
0fa0: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
0fb0: 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d   results errors.
0fc0: 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 31 29 20  ...  set sql(1) 
0fd0: 7b 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 20  { \..    CREATE 
0fe0: 54 41 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a  TABLE t1(x); \..
0ff0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1000: 74 31 20 28 78 29 20 56 41 4c 55 45 53 28 31 29  t1 (x) VALUES(1)
1010: 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65  ; \..  }....  se
1020: 74 20 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20  t sql(2) { \..  
1030: 20 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a    SELECT COUNT(*
1040: 29 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61  ) FROM sqlite_ma
1050: 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20  ster WHERE type 
1060: 3d 20 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20  = 'table'; \..  
1070: 7d 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20  }....  set code 
1080: 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69  [compileCSharpWi
1090: 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20  th [subst {..   
10a0: 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61   using System.Da
10b0: 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20  ta.SQLite;..    
10c0: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61  using System.Tra
10d0: 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20  nsactions;....  
10e0: 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e    namespace _Dyn
10f0: 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b  amic${id}..    {
1100: 0d 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 73  ..      public s
1110: 74 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 74  tatic class Test
1120: 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a  ${id}..      {..
1130: 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 73          public s
1140: 74 61 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 29  tatic int Main()
1150: 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20  ..        {..   
1160: 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69         Transacti
1170: 6f 6e 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61  onOptions transa
1180: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e  ctionOptions = n
1190: 65 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70  ew TransactionOp
11a0: 74 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20  tions();..      
11b0: 20 20 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f      transactionO
11c0: 70 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e  ptions.Isolation
11d0: 4c 65 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f  Level = Isolatio
11e0: 6e 4c 65 76 65 6c 2e 52 65 61 64 43 6f 6d 6d 69  nLevel.ReadCommi
11f0: 74 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20  tted;....       
1200: 20 20 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61     using (Transa
1210: 63 74 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73  ctionScope trans
1220: 61 63 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65  actionScope = ne
1230: 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f  w TransactionSco
1240: 70 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  pe(..           
1250: 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63     TransactionSc
1260: 6f 70 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72  opeOption.Requir
1270: 65 64 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f  ed, transactionO
1280: 70 74 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20  ptions))..      
1290: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
12a0: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
12b0: 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65  Connection conne
12c0: 63 74 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c  ction1 = new SQL
12d0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a  iteConnection(..
12e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
12f0: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64  "Data Source=${d
1300: 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 54  ataSource};[getT
1310: 65 73 74 50 72 6f 70 65 72 74 69 65 73 5d 22 29  estProperties]")
1320: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b  )..            {
1330: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1340: 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e  connection1.Open
1350: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ();....         
1360: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
1370: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e  teConnection con
1380: 6e 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53  nection2 = new S
1390: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28  QLiteConnection(
13a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
13b0: 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65      "Data Source
13c0: 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b  =${dataSource};[
13d0: 67 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 65  getTestPropertie
13e0: 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20  s]"))..         
13f0: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
1400: 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69          connecti
1410: 6f 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20  on2.Open();.... 
1420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75                 u
1430: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d  sing (SQLiteComm
1440: 61 6e 64 20 63 6f 6d 6d 61 6e 64 31 20 3d 20 63  and command1 = c
1450: 6f 6e 6e 65 63 74 69 6f 6e 31 2e 43 72 65 61 74  onnection1.Creat
1460: 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20  eCommand())..   
1470: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a               {..
1480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1490: 20 20 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61    command1.Comma
14a0: 6e 64 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28  ndText = "${sql(
14b0: 31 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20  1)}";..         
14c0: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64           command
14d0: 31 2e 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72  1.ExecuteNonQuer
14e0: 79 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  y();....        
14f0: 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20            using 
1500: 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63  (SQLiteCommand c
1510: 6f 6d 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e 65 63  ommand2 = connec
1520: 74 69 6f 6e 32 2e 43 72 65 61 74 65 43 6f 6d 6d  tion2.CreateComm
1530: 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20  and())..        
1540: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
1550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1560: 20 63 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e   command2.Comman
1570: 64 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 32  dText = "${sql(2
1580: 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  )}";..          
1590: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
15a0: 20 28 69 6e 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d   (int)(long)comm
15b0: 61 6e 64 32 2e 45 78 65 63 75 74 65 53 63 61 6c  and2.ExecuteScal
15c0: 61 72 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20  ar();..         
15d0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
15e0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
15f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a               }..
1600: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
1610: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
1620: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
1630: 20 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65      }..  }] true
1640: 20 66 61 6c 73 65 20 74 72 75 65 20 72 65 73 75   false true resu
1650: 6c 74 73 20 65 72 72 6f 72 73 20 53 79 73 74 65  lts errors Syste
1660: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c  m.Data.SQLite.dl
1670: 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f  l]....  list $co
1680: 64 65 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20  de $results \.. 
1690: 20 20 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66       [expr {[inf
16a0: 6f 20 65 78 69 73 74 73 20 65 72 72 6f 72 73 5d  o exists errors]
16b0: 20 3f 20 24 65 72 72 6f 72 73 20 3a 20 22 22 7d   ? $errors : ""}
16c0: 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72  ] \..      [expr
16d0: 20 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 20   {$code eq "Ok" 
16e0: 3f 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20  ? [catch {..    
16f0: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b      object invok
1700: 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e  e _Dynamic${id}.
1710: 54 65 73 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a  Test${id} Main..
1720: 20 20 20 20 20 20 7d 20 72 65 73 75 6c 74 5d 20        } result] 
1730: 3a 20 5b 73 65 74 20 72 65 73 75 6c 74 20 22 22  : [set result ""
1740: 5d 7d 5d 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d  ]}] $result..} -
1750: 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65  cleanup {..  cle
1760: 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65  anupDb $fileName
1770: 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63  ....  unset -noc
1780: 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 72  omplain result r
1790: 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 63 6f  esults errors co
17a0: 64 65 20 73 71 6c 20 64 61 74 61 53 6f 75 72 63  de sql dataSourc
17b0: 65 20 69 64 20 64 62 20 66 69 6c 65 4e 61 6d 65  e id db fileName
17c0: 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73  ..} -constraints
17d0: 20 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e   {eagle command.
17e0: 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32 31  object monoBug21
17f0: 31 20 6d 6f 6e 6f 42 75 67 35 31 38 20 63 6f 6d  1 monoBug518 com
1800: 6d 61 6e 64 2e 73 71 6c 5c 0d 0a 63 6f 6d 70 69  mand.sql\..compi
1810: 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 20 53  le.DATA SQLite S
1820: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
1830: 65 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d  e compileCSharp}
1840: 20 2d 6d 61 74 63 68 20 72 65 67 65 78 70 20 2d   -match regexp -
1850: 72 65 73 75 6c 74 20 5c 0d 0a 7b 5e 4f 6b 20 53  result \..{^Ok S
1860: 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f  ystem#CodeDom#Co
1870: 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52  mpiler#CompilerR
1880: 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20  esults#\d+ \{\} 
1890: 30 20 30 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23  0 0$}}....######
18a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18e0: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e  #########....run
18f0: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 35  Test {test tkt-5
1900: 36 62 34 32 64 39 39 63 31 2d 31 2e 33 20 7b 65  6b42d99c1-1.3 {e
1910: 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63 74  nlisted transact
1920: 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d  ion isolation} -
1930: 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70  setup {..  setup
1940: 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65  Db [set fileName
1950: 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d   tkt-56b42d99c1-
1960: 31 2e 33 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79  1.3.db]..} -body
1970: 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f 62   {..  set id [ob
1980: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65  ject invoke Inte
1990: 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76  rpreter.GetActiv
19a0: 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65 74  e NextId]..  set
19b0: 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69 6c   dataSource [fil
19c0: 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62  e join [getDatab
19d0: 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66  aseDirectory] $f
19e0: 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e  ileName]....  un
19f0: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
1a00: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a  results errors..
1a10: 0d 0a 20 20 73 65 74 20 73 71 6c 28 31 29 20 7b  ..  set sql(1) {
1a20: 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 20 54   \..    CREATE T
1a30: 41 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20  ABLE t1(x); \.. 
1a40: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1a50: 31 20 28 78 29 20 56 41 4c 55 45 53 28 31 29 3b  1 (x) VALUES(1);
1a60: 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74   \..  }....  set
1a70: 20 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20   sql(2) { \..   
1a80: 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29   SELECT COUNT(*)
1a90: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
1aa0: 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d  ter WHERE type =
1ab0: 20 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d   'table'; \..  }
1ac0: 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b  ....  set code [
1ad0: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74  compileCSharpWit
1ae0: 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20  h [subst {..    
1af0: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74  using System.Dat
1b00: 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75  a.SQLite;..    u
1b10: 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61 6e  sing System.Tran
1b20: 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20  sactions;....   
1b30: 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e 61   namespace _Dyna
1b40: 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d  mic${id}..    {.
1b50: 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74  .      public st
1b60: 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 74 24  atic class Test$
1b70: 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20  {id}..      {.. 
1b80: 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74         public st
1b90: 61 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d  atic int Main().
1ba0: 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20  .        {..    
1bb0: 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f        Transactio
1bc0: 6e 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61 63  nOptions transac
1bd0: 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65  tionOptions = ne
1be0: 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74  w TransactionOpt
1bf0: 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20 20  ions();..       
1c00: 20 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70     transactionOp
1c10: 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c  tions.IsolationL
1c20: 65 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e  evel = Isolation
1c30: 4c 65 76 65 6c 2e 52 65 61 64 43 6f 6d 6d 69 74  Level.ReadCommit
1c40: 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  ted;....        
1c50: 20 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61 63    using (Transac
1c60: 74 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 61  tionScope transa
1c70: 63 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77  ctionScope = new
1c80: 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70   TransactionScop
1c90: 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  e(..            
1ca0: 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f    TransactionSco
1cb0: 70 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 65  peOption.Require
1cc0: 64 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70  d, transactionOp
1cd0: 74 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 20  tions))..       
1ce0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
1cf0: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43    using (SQLiteC
1d00: 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63  onnection connec
1d10: 74 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69  tion1 = new SQLi
1d20: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20  teConnection(.. 
1d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
1d40: 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61  Data Source=${da
1d50: 74 61 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74  taSource};Enlist
1d60: 3d 46 61 6c 73 65 3b 5b 67 65 74 54 65 73 74 50  =False;[getTestP
1d70: 72 6f 70 65 72 74 69 65 73 5d 22 29 29 0d 0a 20  roperties]")).. 
1d80: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20             {..  
1d90: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e              conn
1da0: 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d  ection1.Open();.
1db0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
1dc0: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
1dd0: 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74  nnection connect
1de0: 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74  ion2 = new SQLit
1df0: 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20  eConnection(..  
1e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1e10: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64  "Data Source=${d
1e20: 61 74 61 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73  ataSource};Enlis
1e30: 74 3d 46 61 6c 73 65 3b 5b 67 65 74 54 65 73 74  t=False;[getTest
1e40: 50 72 6f 70 65 72 74 69 65 73 5d 22 29 29 0d 0a  Properties]"))..
1e50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d                {.
1e60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1e70: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65   connection2.Ope
1e80: 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  n();....        
1e90: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53          using (S
1ea0: 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d  QLiteCommand com
1eb0: 6d 61 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69  mand1 = connecti
1ec0: 6f 6e 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e  on1.CreateComman
1ed0: 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  d())..          
1ee0: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
1ef0: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61             comma
1f00: 6e 64 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20  nd1.CommandText 
1f10: 3d 20 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a  = "${sql(1)}";..
1f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f30: 20 20 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75    command1.Execu
1f40: 74 65 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d  teNonQuery();...
1f50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1f60: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
1f70: 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32  Command command2
1f80: 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43   = connection2.C
1f90: 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d  reateCommand()).
1fa0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1fb0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
1fc0: 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e            comman
1fd0: 64 32 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d  d2.CommandText =
1fe0: 20 22 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20   "${sql(2)}";.. 
1ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2000: 20 20 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28     return (int)(
2010: 6c 6f 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78  long)command2.Ex
2020: 65 63 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a  ecuteScalar();..
2030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2040: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
2050: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
2060: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
2070: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
2080: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a    }..        }..
2090: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
20a0: 20 20 7d 5d 20 74 72 75 65 20 66 61 6c 73 65 20    }] true false 
20b0: 74 72 75 65 20 72 65 73 75 6c 74 73 20 65 72 72  true results err
20c0: 6f 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  ors System.Data.
20d0: 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20  SQLite.dll].... 
20e0: 20 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65 73   list $code $res
20f0: 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65  ults \..      [e
2100: 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  xpr {[info exist
2110: 73 20 65 72 72 6f 72 73 5d 20 3f 20 24 65 72 72  s errors] ? $err
2120: 6f 72 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20  ors : ""}] \..  
2130: 20 20 20 20 5b 65 78 70 72 20 7b 24 63 6f 64 65      [expr {$code
2140: 20 65 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63   eq "Ok" ? [catc
2150: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a  h {..        obj
2160: 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61  ect invoke _Dyna
2170: 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69  mic${id}.Test${i
2180: 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d  d} Main..      }
2190: 20 72 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20   result] : [set 
21a0: 72 65 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65  result ""]}] $re
21b0: 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70  sult..} -cleanup
21c0: 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20   {..  cleanupDb 
21d0: 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75  $fileName....  u
21e0: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
21f0: 20 72 65 73 75 6c 74 20 72 65 73 75 6c 74 73 20   result results 
2200: 65 72 72 6f 72 73 20 63 6f 64 65 20 73 71 6c 20  errors code sql 
2210: 64 61 74 61 53 6f 75 72 63 65 20 69 64 20 64 62  dataSource id db
2220: 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f   fileName..} -co
2230: 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65  nstraints {eagle
2240: 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20   command.object 
2250: 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e  monoBug28 comman
2260: 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41  d.sql compile.DA
2270: 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74  TA SQLite\..Syst
2280: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 63  em.Data.SQLite c
2290: 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d  ompileCSharp} -m
22a0: 61 74 63 68 20 72 65 67 65 78 70 20 2d 72 65 73  atch regexp -res
22b0: 75 6c 74 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74 65  ult {^Ok\..Syste
22c0: 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c  m#CodeDom#Compil
22d0: 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c  er#CompilerResul
22e0: 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 31 24  ts#\d+ \{\} 0 1$
22f0: 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23  }}....##########
2300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2320: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2340: 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74  #####....runTest
2350: 20 7b 74 65 73 74 20 74 6b 74 2d 35 36 62 34 32   {test tkt-56b42
2360: 64 39 39 63 31 2d 31 2e 34 20 7b 65 6e 6c 69 73  d99c1-1.4 {enlis
2370: 74 65 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 20  ted transaction 
2380: 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74 75  isolation} -setu
2390: 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b  p {..  setupDb [
23a0: 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74  set fileName tkt
23b0: 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e 34 2e  -56b42d99c1-1.4.
23c0: 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a  db]..} -body {..
23d0: 20 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63 74    set id [object
23e0: 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65   invoke Interpre
23f0: 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e 65  ter.GetActive Ne
2400: 78 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 61 74  xtId]..  set dat
2410: 61 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f  aSource [file jo
2420: 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44  in [getDatabaseD
2430: 69 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e  irectory] $fileN
2440: 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74 20  ame]....  unset 
2450: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75  -nocomplain resu
2460: 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20  lts errors....  
2470: 73 65 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d 0a  set sql(1) { \..
2480: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
2490: 20 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20 49   t1(x); \..    I
24a0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28 78  NSERT INTO t1 (x
24b0: 29 20 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d 0a  ) VALUES(1); \..
24c0: 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c    }....  set sql
24d0: 28 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45 4c  (2) { \..    SEL
24e0: 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f  ECT COUNT(*) FRO
24f0: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20  M sqlite_master 
2500: 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61  WHERE type = 'ta
2510: 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a  ble'; \..  }....
2520: 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70    set code [comp
2530: 69 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b 73  ileCSharpWith [s
2540: 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69 6e  ubst {..    usin
2550: 67 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  g System.Data.SQ
2560: 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e 67  Lite;..    using
2570: 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63 74   System.Transact
2580: 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d  ions;....    nam
2590: 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24  espace _Dynamic$
25a0: 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20  {id}..    {..   
25b0: 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63     public static
25c0: 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d   class Test${id}
25d0: 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20  ..      {..     
25e0: 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63     public static
25f0: 20 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20 20   int Main()..   
2600: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
2610: 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74    TransactionOpt
2620: 69 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 6f 6e  ions transaction
2630: 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54 72  Options = new Tr
2640: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
2650: 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 74  ();..          t
2660: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e  ransactionOption
2670: 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c  s.IsolationLevel
2680: 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65   = IsolationLeve
2690: 6c 2e 52 65 61 64 43 6f 6d 6d 69 74 74 65 64 3b  l.ReadCommitted;
26a0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 75 73  ....          us
26b0: 69 6e 67 20 28 54 72 61 6e 73 61 63 74 69 6f 6e  ing (Transaction
26c0: 53 63 6f 70 65 20 74 72 61 6e 73 61 63 74 69 6f  Scope transactio
26d0: 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 72 61  nScope = new Tra
26e0: 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 0d 0a  nsactionScope(..
26f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 72                Tr
2700: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 4f 70  ansactionScopeOp
2710: 74 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c 20 74  tion.Required, t
2720: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e  ransactionOption
2730: 73 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 7b  s))..          {
2740: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 73  ..            us
2750: 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65  ing (SQLiteConne
2760: 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e  ction connection
2770: 31 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f  1 = new SQLiteCo
2780: 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20  nnection(..     
2790: 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74 61             "Data
27a0: 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 6f   Source=${dataSo
27b0: 75 72 63 65 7d 3b 5b 67 65 74 54 65 73 74 50 72  urce};[getTestPr
27c0: 6f 70 65 72 74 69 65 73 5d 22 29 29 0d 0a 20 20  operties]"))..  
27d0: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
27e0: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65             conne
27f0: 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a  ction1.Open();..
2800: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
2810: 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e  using (SQLiteCon
2820: 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69  nection connecti
2830: 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74 65  on2 = new SQLite
2840: 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20  Connection(..   
2850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
2860: 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61  Data Source=${da
2870: 74 61 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74  taSource};Enlist
2880: 3d 46 61 6c 73 65 3b 5b 67 65 74 54 65 73 74 50  =False;[getTestP
2890: 72 6f 70 65 72 74 69 65 73 5d 22 29 29 0d 0a 20  roperties]")).. 
28a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a               {..
28b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
28c0: 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e  connection2.Open
28d0: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ();....         
28e0: 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51         using (SQ
28f0: 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d  LiteCommand comm
2900: 61 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f  and1 = connectio
2910: 6e 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64  n1.CreateCommand
2920: 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ())..           
2930: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
2940: 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e            comman
2950: 64 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d  d1.CommandText =
2960: 20 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20   "${sql(1)}";.. 
2970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2980: 20 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74   command1.Execut
2990: 65 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a  eNonQuery();....
29a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29b0: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43    using (SQLiteC
29c0: 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20  ommand command2 
29d0: 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72  = connection2.Cr
29e0: 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a  eateCommand())..
29f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2a00: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
2a10: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64           command
2a20: 32 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20  2.CommandText = 
2a30: 22 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20  "${sql(2)}";..  
2a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2a50: 20 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c    return (int)(l
2a60: 6f 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65  ong)command2.Exe
2a70: 63 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20  cuteScalar();.. 
2a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2a90: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   }..            
2aa0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
2ab0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
2ac0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
2ad0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20   }..        }.. 
2ae0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20       }..    }.. 
2af0: 20 7d 5d 20 74 72 75 65 20 66 61 6c 73 65 20 74   }] true false t
2b00: 72 75 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f  rue results erro
2b10: 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  rs System.Data.S
2b20: 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20  QLite.dll]....  
2b30: 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 75  list $code $resu
2b40: 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78  lts \..      [ex
2b50: 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73  pr {[info exists
2b60: 20 65 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f   errors] ? $erro
2b70: 72 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20  rs : ""}] \..   
2b80: 20 20 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20     [expr {$code 
2b90: 65 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68  eq "Ok" ? [catch
2ba0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65   {..        obje
2bb0: 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d  ct invoke _Dynam
2bc0: 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64  ic${id}.Test${id
2bd0: 7d 20 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20  } Main..      } 
2be0: 72 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72  result] : [set r
2bf0: 65 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73  esult ""]}] $res
2c00: 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20  ult..} -cleanup 
2c10: 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24  {..  cleanupDb $
2c20: 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e  fileName....  un
2c30: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
2c40: 72 65 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65  result results e
2c50: 72 72 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64  rrors code sql d
2c60: 61 74 61 53 6f 75 72 63 65 20 69 64 20 64 62 20  ataSource id db 
2c70: 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e  fileName..} -con
2c80: 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20  straints {eagle 
2c90: 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d  command.object m
2ca0: 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64  onoBug28 command
2cb0: 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54  .sql compile.DAT
2cc0: 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65  A SQLite\..Syste
2cd0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f  m.Data.SQLite co
2ce0: 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61  mpileCSharp} -ma
2cf0: 74 63 68 20 72 65 67 65 78 70 20 2d 72 65 73 75  tch regexp -resu
2d00: 6c 74 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d  lt {^Ok\..System
2d10: 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65  #CodeDom#Compile
2d20: 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74  r#CompilerResult
2d30: 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 30 24 7d  s#\d+ \{\} 0 0$}
2d40: 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23  }....###########
2d50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2d60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2d70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2d80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2d90: 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20  ####....runTest 
2da0: 7b 74 65 73 74 20 74 6b 74 2d 35 36 62 34 32 64  {test tkt-56b42d
2db0: 39 39 63 31 2d 31 2e 35 20 7b 65 6e 6c 69 73 74  99c1-1.5 {enlist
2dc0: 65 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69  ed transaction i
2dd0: 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70  solation} -setup
2de0: 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73   {..  setupDb [s
2df0: 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d  et fileName tkt-
2e00: 35 36 62 34 32 64 39 39 63 31 2d 31 2e 35 2e 64  56b42d99c1-1.5.d
2e10: 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20  b]..} -body {.. 
2e20: 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20   set id [object 
2e30: 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74  invoke Interpret
2e40: 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78  er.GetActive Nex
2e50: 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 61 74 61  tId]..  set data
2e60: 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69  Source [file joi
2e70: 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69  n [getDatabaseDi
2e80: 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61  rectory] $fileNa
2e90: 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d  me]....  unset -
2ea0: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c  nocomplain resul
2eb0: 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73  ts errors....  s
2ec0: 65 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d 0a 20  et sql(1) { \.. 
2ed0: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
2ee0: 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20 49 4e  t1(x); \..    IN
2ef0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29  SERT INTO t1 (x)
2f00: 20 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d 0a 20   VALUES(1); \.. 
2f10: 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28   }....  set sql(
2f20: 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45 4c 45  2) { \..    SELE
2f30: 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d  CT COUNT(*) FROM
2f40: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57   sqlite_master W
2f50: 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62  HERE type = 'tab
2f60: 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20  le'; \..  }.... 
2f70: 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69   set code [compi
2f80: 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b 73 75  leCSharpWith [su
2f90: 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67  bst {..    using
2fa0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
2fb0: 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e 67 20  ite;..    using 
2fc0: 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63 74 69  System.Transacti
2fd0: 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65  ons;....    name
2fe0: 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b  space _Dynamic${
2ff0: 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20  id}..    {..    
3000: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
3010: 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d 0d  class Test${id}.
3020: 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20  .      {..      
3030: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
3040: 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20  int Main()..    
3050: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
3060: 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69   TransactionOpti
3070: 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f  ons transactionO
3080: 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54 72 61  ptions = new Tra
3090: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 28  nsactionOptions(
30a0: 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72  );..          tr
30b0: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
30c0: 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20  .IsolationLevel 
30d0: 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c  = IsolationLevel
30e0: 2e 52 65 61 64 43 6f 6d 6d 69 74 74 65 64 3b 0d  .ReadCommitted;.
30f0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 75 73 69  ...          usi
3100: 6e 67 20 28 54 72 61 6e 73 61 63 74 69 6f 6e 53  ng (TransactionS
3110: 63 6f 70 65 20 74 72 61 6e 73 61 63 74 69 6f 6e  cope transaction
3120: 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 72 61 6e  Scope = new Tran
3130: 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 0d 0a 20  sactionScope(.. 
3140: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 72 61               Tra
3150: 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 4f 70 74  nsactionScopeOpt
3160: 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c 20 74 72  ion.Required, tr
3170: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
3180: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 0d  ))..          {.
3190: 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69  .            usi
31a0: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63  ng (SQLiteConnec
31b0: 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 31  tion connection1
31c0: 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e   = new SQLiteCon
31d0: 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20  nection(..      
31e0: 20 20 20 20 20 20 20 20 20 20 22 44 61 74 61 20            "Data 
31f0: 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 6f 75  Source=${dataSou
3200: 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 61 6c 73  rce};Enlist=Fals
3210: 65 3b 5b 67 65 74 54 65 73 74 50 72 6f 70 65 72  e;[getTestProper
3220: 74 69 65 73 5d 22 29 29 0d 0a 20 20 20 20 20 20  ties]"))..      
3230: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
3240: 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f         connectio
3250: 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20  n1.Open();....  
3260: 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e              usin
3270: 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  g (SQLiteConnect
3280: 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 20  ion connection2 
3290: 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e  = new SQLiteConn
32a0: 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20  ection(..       
32b0: 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74 61             "Data
32c0: 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 6f   Source=${dataSo
32d0: 75 72 63 65 7d 3b 5b 67 65 74 54 65 73 74 50 72  urce};[getTestPr
32e0: 6f 70 65 72 74 69 65 73 5d 22 29 29 0d 0a 20 20  operties]"))..  
32f0: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
3300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
3310: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28  onnection2.Open(
3320: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
3330: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
3340: 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61  iteCommand comma
3350: 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e  nd1 = connection
3360: 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  1.CreateCommand(
3370: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
3380: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
3390: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64           command
33a0: 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20  1.CommandText = 
33b0: 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20  "${sql(1)}";..  
33c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
33d0: 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65  command1.Execute
33e0: 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20  NonQuery();.... 
33f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3400: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
3410: 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d  mmand command2 =
3420: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65   connection2.Cre
3430: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20  ateCommand()).. 
3440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3450: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
3460: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32          command2
3470: 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22  .CommandText = "
3480: 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20  ${sql(2)}";..   
3490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
34a0: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f   return (int)(lo
34b0: 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63  ng)command2.Exec
34c0: 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20  uteScalar();..  
34d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
34e0: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
34f0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
3500: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
3510: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
3520: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
3530: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20      }..    }..  
3540: 7d 5d 20 74 72 75 65 20 66 61 6c 73 65 20 74 72  }] true false tr
3550: 75 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72  ue results error
3560: 73 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  s System.Data.SQ
3570: 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c  Lite.dll]....  l
3580: 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c  ist $code $resul
3590: 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70  ts \..      [exp
35a0: 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  r {[info exists 
35b0: 65 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72  errors] ? $error
35c0: 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20  s : ""}] \..    
35d0: 20 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65    [expr {$code e
35e0: 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20  q "Ok" ? [catch 
35f0: 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63  {..        objec
3600: 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69  t invoke _Dynami
3610: 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d  c${id}.Test${id}
3620: 20 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72   Main..      } r
3630: 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65  esult] : [set re
3640: 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75  sult ""]}] $resu
3650: 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  lt..} -cleanup {
3660: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
3670: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
3680: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
3690: 65 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72  esult results er
36a0: 72 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64 61  rors code sql da
36b0: 74 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66  taSource id db f
36c0: 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73  ileName..} -cons
36d0: 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63  traints {eagle c
36e0: 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f  ommand.object mo
36f0: 6e 6f 42 75 67 32 31 31 20 6d 6f 6e 6f 42 75 67  noBug211 monoBug
3700: 35 31 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 5c  518 command.sql\
3710: 0d 0a 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53  ..compile.DATA S
3720: 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74  QLite System.Dat
3730: 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c 65  a.SQLite compile
3740: 43 53 68 61 72 70 7d 20 2d 6d 61 74 63 68 20 72  CSharp} -match r
3750: 65 67 65 78 70 20 2d 72 65 73 75 6c 74 20 5c 0d  egexp -result \.
3760: 0a 7b 5e 4f 6b 20 53 79 73 74 65 6d 23 43 6f 64  .{^Ok System#Cod
3770: 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f  eDom#Compiler#Co
3780: 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23 5c 64  mpilerResults#\d
3790: 2b 20 5c 7b 5c 7d 20 30 20 31 24 7d 7d 0d 0a 0d  + \{\} 0 1$}}...
37a0: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
37b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
37c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
37d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
37e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
37f0: 0d 0a 0d 0a 73 65 74 20 66 6c 61 67 73 20 4d 61  ....set flags Ma
3800: 70 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 73  pIsolationLevels
3810: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
3820: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3830: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3840: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3850: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3860: 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b  ###....runTest {
3870: 74 65 73 74 20 74 6b 74 2d 35 36 62 34 32 64 39  test tkt-56b42d9
3880: 39 63 31 2d 31 2e 36 20 7b 65 6e 6c 69 73 74 65  9c1-1.6 {enliste
3890: 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73  d transaction is
38a0: 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20  olation} -setup 
38b0: 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65  {..  setupDb [se
38c0: 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35  t fileName tkt-5
38d0: 36 62 34 32 64 39 39 63 31 2d 31 2e 36 2e 64 62  6b42d99c1-1.6.db
38e0: 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20  ]..} -body {..  
38f0: 73 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69  set id [object i
3900: 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65  nvoke Interprete
3910: 72 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78 74  r.GetActive Next
3920: 49 64 5d 0d 0a 20 20 73 65 74 20 64 61 74 61 53  Id]..  set dataS
3930: 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  ource [file join
3940: 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72   [getDatabaseDir
3950: 65 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d  ectory] $fileNam
3960: 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  e]....  unset -n
3970: 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74  ocomplain result
3980: 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73 65  s errors....  se
3990: 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43  t code [compileC
39a0: 53 68 61 72 70 57 69 74 68 20 5b 73 75 62 73 74  SharpWith [subst
39b0: 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79   {..    using Sy
39c0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
39d0: 3b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73  ;..    using Sys
39e0: 74 65 6d 2e 52 65 66 6c 65 63 74 69 6f 6e 3b 0d  tem.Reflection;.
39f0: 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65  .    using Syste
3a00: 6d 2e 54 72 61 6e 73 61 63 74 69 6f 6e 73 3b 0d  m.Transactions;.
3a10: 0a 0d 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65  ...    namespace
3a20: 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a   _Dynamic${id}..
3a30: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 70 75 62      {..      pub
3a40: 6c 69 63 20 73 74 61 74 69 63 20 63 6c 61 73 73  lic static class
3a50: 20 54 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 20   Test${id}..    
3a60: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 62    {..        pub
3a70: 6c 69 63 20 73 74 61 74 69 63 20 62 6f 6f 6c 20  lic static bool 
3a80: 54 72 79 45 6e 6c 69 73 74 49 6e 54 72 61 6e 73  TryEnlistInTrans
3a90: 61 63 74 69 6f 6e 28 29 0d 0a 20 20 20 20 20 20  action()..      
3aa0: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 54    {..          T
3ab0: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e  ransactionOption
3ac0: 73 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74  s transactionOpt
3ad0: 69 6f 6e 73 20 3d 20 6e 65 77 20 54 72 61 6e 73  ions = new Trans
3ae0: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b  actionOptions();
3af0: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e  ..          tran
3b00: 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49  sactionOptions.I
3b10: 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 20  solationLevel = 
3b20: 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 2e 52  IsolationLevel.R
3b30: 65 61 64 55 6e 63 6f 6d 6d 69 74 74 65 64 3b 0d  eadUncommitted;.
3b40: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 75 73 69  ...          usi
3b50: 6e 67 20 28 54 72 61 6e 73 61 63 74 69 6f 6e 53  ng (TransactionS
3b60: 63 6f 70 65 20 74 72 61 6e 73 61 63 74 69 6f 6e  cope transaction
3b70: 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 72 61 6e  Scope = new Tran
3b80: 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 0d 0a 20  sactionScope(.. 
3b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 54 72 61               Tra
3ba0: 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 4f 70 74  nsactionScopeOpt
3bb0: 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c 20 74 72  ion.Required, tr
3bc0: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
3bd0: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 0d  ))..          {.
3be0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69  .            usi
3bf0: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63  ng (SQLiteConnec
3c00: 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 31  tion connection1
3c10: 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e   = new SQLiteCon
3c20: 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20  nection(..      
3c30: 20 20 20 20 20 20 20 20 20 20 22 44 61 74 61 20            "Data 
3c40: 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 6f 75  Source=${dataSou
3c50: 72 63 65 7d 3b 5b 67 65 74 54 65 73 74 50 72 6f  rce};[getTestPro
3c60: 70 65 72 74 69 65 73 20 24 66 6c 61 67 73 5d 22  perties $flags]"
3c70: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
3c80: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
3c90: 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65   connection1.Ope
3ca0: 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  n();....        
3cb0: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
3cc0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f  iteConnection co
3cd0: 6e 6e 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20  nnection2 = new 
3ce0: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e  SQLiteConnection
3cf0: 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  (..             
3d00: 20 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63       "Data Sourc
3d10: 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b  e=${dataSource};
3d20: 5b 67 65 74 54 65 73 74 50 72 6f 70 65 72 74 69  [getTestProperti
3d30: 65 73 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20  es $flags]")).. 
3d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a               {..
3d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3d60: 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e  connection2.Open
3d70: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ();....         
3d80: 20 20 20 20 20 20 20 42 69 6e 64 69 6e 67 46 6c         BindingFl
3d90: 61 67 73 20 62 69 6e 64 69 6e 67 46 6c 61 67 73  ags bindingFlags
3da0: 20 3d 20 42 69 6e 64 69 6e 67 46 6c 61 67 73 2e   = BindingFlags.
3db0: 49 6e 73 74 61 6e 63 65 20 7c 0d 0a 20 20 20 20  Instance |..    
3dc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 69                Bi
3dd0: 6e 64 69 6e 67 46 6c 61 67 73 2e 4e 6f 6e 50 75  ndingFlags.NonPu
3de0: 62 6c 69 63 20 7c 20 42 69 6e 64 69 6e 67 46 6c  blic | BindingFl
3df0: 61 67 73 2e 47 65 74 46 69 65 6c 64 3b 0d 0a 0d  ags.GetField;...
3e00: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
3e10: 20 46 69 65 6c 64 49 6e 66 6f 20 66 69 65 6c 64   FieldInfo field
3e20: 49 6e 66 6f 31 20 3d 20 63 6f 6e 6e 65 63 74 69  Info1 = connecti
3e30: 6f 6e 31 2e 47 65 74 54 79 70 65 28 29 2e 47 65  on1.GetType().Ge
3e40: 74 46 69 65 6c 64 28 0d 0a 20 20 20 20 20 20 20  tField(..       
3e50: 20 20 20 20 20 20 20 20 20 20 20 22 5f 65 6e 6c             "_enl
3e60: 69 73 74 6d 65 6e 74 22 2c 20 62 69 6e 64 69 6e  istment", bindin
3e70: 67 46 6c 61 67 73 29 3b 0d 0a 0d 0a 20 20 20 20  gFlags);....    
3e80: 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65              obje
3e90: 63 74 20 65 6e 6c 69 73 74 6d 65 6e 74 31 20 3d  ct enlistment1 =
3ea0: 20 66 69 65 6c 64 49 6e 66 6f 31 2e 47 65 74 56   fieldInfo1.GetV
3eb0: 61 6c 75 65 28 63 6f 6e 6e 65 63 74 69 6f 6e 31  alue(connection1
3ec0: 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  );..            
3ed0: 20 20 20 20 6f 62 6a 65 63 74 20 65 6e 6c 69 73      object enlis
3ee0: 74 6d 65 6e 74 32 20 3d 20 66 69 65 6c 64 49 6e  tment2 = fieldIn
3ef0: 66 6f 31 2e 47 65 74 56 61 6c 75 65 28 63 6f 6e  fo1.GetValue(con
3f00: 6e 65 63 74 69 6f 6e 32 29 3b 0d 0a 0d 0a 20 20  nection2);....  
3f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 69                Fi
3f20: 65 6c 64 49 6e 66 6f 20 66 69 65 6c 64 49 6e 66  eldInfo fieldInf
3f30: 6f 32 20 3d 20 65 6e 6c 69 73 74 6d 65 6e 74 31  o2 = enlistment1
3f40: 2e 47 65 74 54 79 70 65 28 29 2e 47 65 74 46 69  .GetType().GetFi
3f50: 65 6c 64 28 0d 0a 20 20 20 20 20 20 20 20 20 20  eld(..          
3f60: 20 20 20 20 20 20 20 20 22 5f 74 72 61 6e 73 61          "_transa
3f70: 63 74 69 6f 6e 22 2c 20 62 69 6e 64 69 6e 67 46  ction", bindingF
3f80: 6c 61 67 73 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  lags);....      
3f90: 20 20 20 20 20 20 20 20 20 20 53 51 4c 69 74 65            SQLite
3fa0: 54 72 61 6e 73 61 63 74 69 6f 6e 20 74 72 61 6e  Transaction tran
3fb0: 73 61 63 74 69 6f 6e 31 20 3d 0d 0a 20 20 20 20  saction1 =..    
3fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 53                (S
3fd0: 51 4c 69 74 65 54 72 61 6e 73 61 63 74 69 6f 6e  QLiteTransaction
3fe0: 29 66 69 65 6c 64 49 6e 66 6f 32 2e 47 65 74 56  )fieldInfo2.GetV
3ff0: 61 6c 75 65 28 65 6e 6c 69 73 74 6d 65 6e 74 31  alue(enlistment1
4000: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
4010: 20 20 20 20 20 20 53 51 4c 69 74 65 54 72 61 6e        SQLiteTran
4020: 73 61 63 74 69 6f 6e 20 74 72 61 6e 73 61 63 74  saction transact
4030: 69 6f 6e 32 20 3d 0d 0a 20 20 20 20 20 20 20 20  ion2 =..        
4040: 20 20 20 20 20 20 20 20 20 20 28 53 51 4c 69 74            (SQLit
4050: 65 54 72 61 6e 73 61 63 74 69 6f 6e 29 66 69 65  eTransaction)fie
4060: 6c 64 49 6e 66 6f 32 2e 47 65 74 56 61 6c 75 65  ldInfo2.GetValue
4070: 28 65 6e 6c 69 73 74 6d 65 6e 74 32 29 3b 0d 0a  (enlistment2);..
4080: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
4090: 20 20 72 65 74 75 72 6e 20 28 74 72 61 6e 73 61    return (transa
40a0: 63 74 69 6f 6e 31 2e 49 73 6f 6c 61 74 69 6f 6e  ction1.Isolation
40b0: 4c 65 76 65 6c 20 3d 3d 0d 0a 20 20 20 20 20 20  Level ==..      
40c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
40d0: 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 32 2e 49    transaction2.I
40e0: 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 29 3b 0d  solationLevel);.
40f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d  .              }
4100: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d  ..            }.
4110: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  .          }..  
4120: 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20        }....     
4130: 20 20 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f     /////////////
4140: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
4150: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
4160: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
4170: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 20 20  //////////....  
4180: 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61        public sta
4190: 74 69 63 20 76 6f 69 64 20 4d 61 69 6e 28 29 0d  tic void Main().
41a0: 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20  .        {..    
41b0: 20 20 20 20 20 20 2f 2f 20 64 6f 20 6e 6f 74 68        // do noth
41c0: 69 6e 67 2e 0d 0a 20 20 20 20 20 20 20 20 7d 0d  ing...        }.
41d0: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d  .      }..    }.
41e0: 0a 20 20 7d 5d 20 74 72 75 65 20 66 61 6c 73 65  .  }] true false
41f0: 20 74 72 75 65 20 72 65 73 75 6c 74 73 20 65 72   true results er
4200: 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61  rors System.Data
4210: 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a  .SQLite.dll]....
4220: 20 20 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65    list $code $re
4230: 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b  sults \..      [
4240: 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73  expr {[info exis
4250: 74 73 20 65 72 72 6f 72 73 5d 20 3f 20 24 65 72  ts errors] ? $er
4260: 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20  rors : ""}] \.. 
4270: 20 20 20 20 20 5b 65 78 70 72 20 7b 24 63 6f 64       [expr {$cod
4280: 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74  e eq "Ok" ? [cat
4290: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62  ch {..        ob
42a0: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e  ject invoke _Dyn
42b0: 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b  amic${id}.Test${
42c0: 69 64 7d 20 54 72 79 45 6e 6c 69 73 74 49 6e 54  id} TryEnlistInT
42d0: 72 61 6e 73 61 63 74 69 6f 6e 0d 0a 20 20 20 20  ransaction..    
42e0: 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b 73    } result] : [s
42f0: 65 74 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d 20  et result ""]}] 
4300: 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61  $result..} -clea
4310: 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70  nup {..  cleanup
4320: 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a  Db $fileName....
4330: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
4340: 61 69 6e 20 72 65 73 75 6c 74 20 72 65 73 75 6c  ain result resul
4350: 74 73 20 65 72 72 6f 72 73 20 63 6f 64 65 20 64  ts errors code d
4360: 61 74 61 53 6f 75 72 63 65 20 69 64 20 64 62 20  ataSource id db 
4370: 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e  fileName..} -con
4380: 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20  straints {eagle 
4390: 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d  command.object m
43a0: 6f 6e 6f 42 75 67 32 38 20 6d 6f 6e 6f 42 75 67  onoBug28 monoBug
43b0: 32 31 31 20 6d 6f 6e 6f 42 75 67 35 31 38 20 63  211 monoBug518 c
43c0: 6f 6d 6d 61 6e 64 2e 73 71 6c 5c 0d 0a 63 6f 6d  ommand.sql\..com
43d0: 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65  pile.DATA SQLite
43e0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
43f0: 69 74 65 20 63 6f 6d 70 69 6c 65 43 53 68 61 72  ite compileCShar
4400: 70 7d 20 2d 6d 61 74 63 68 20 72 65 67 65 78 70  p} -match regexp
4410: 20 2d 72 65 73 75 6c 74 20 5c 0d 0a 7b 5e 4f 6b   -result \..{^Ok
4420: 20 53 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23   System#CodeDom#
4430: 43 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65  Compiler#Compile
4440: 72 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c  rResults#\d+ \{\
4450: 7d 20 30 20 54 72 75 65 24 7d 7d 0d 0a 0d 0a 23  } 0 True$}}....#
4460: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4470: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
44a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
44b0: 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20  ..runTest {test 
44c0: 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31  tkt-56b42d99c1-1
44d0: 2e 37 20 7b 65 6e 6c 69 73 74 65 64 20 74 72 61  .7 {enlisted tra
44e0: 6e 73 61 63 74 69 6f 6e 20 69 73 6f 6c 61 74 69  nsaction isolati
44f0: 6f 6e 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20  on} -setup {..  
4500: 73 65 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c  setupDb [set fil
4510: 65 4e 61 6d 65 20 74 6b 74 2d 35 36 62 34 32 64  eName tkt-56b42d
4520: 39 39 63 31 2d 31 2e 37 2e 64 62 5d 0d 0a 7d 20  99c1-1.7.db]..} 
4530: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 69  -body {..  set i
4540: 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65  d [object invoke
4550: 20 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74   Interpreter.Get
4560: 41 63 74 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a  Active NextId]..
4570: 20 20 73 65 74 20 64 61 74 61 53 6f 75 72 63 65    set dataSource
4580: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74   [file join [get
4590: 44 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72  DatabaseDirector
45a0: 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d  y] $fileName]...
45b0: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  .  unset -nocomp
45c0: 6c 61 69 6e 20 72 65 73 75 6c 74 73 20 65 72 72  lain results err
45d0: 6f 72 73 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c  ors....  set sql
45e0: 28 31 29 20 7b 20 5c 0d 0a 20 20 20 20 43 52 45  (1) { \..    CRE
45f0: 41 54 45 20 54 41 42 4c 45 20 74 31 28 78 29 3b  ATE TABLE t1(x);
4600: 20 5c 0d 0a 20 20 20 20 49 4e 53 45 52 54 20 49   \..    INSERT I
4610: 4e 54 4f 20 74 31 20 28 78 29 20 56 41 4c 55 45  NTO t1 (x) VALUE
4620: 53 28 31 29 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a  S(1); \..  }....
4630: 20 20 73 65 74 20 73 71 6c 28 32 29 20 7b 20 5c    set sql(2) { \
4640: 0d 0a 20 20 20 20 53 45 4c 45 43 54 20 43 4f 55  ..    SELECT COU
4650: 4e 54 28 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74  NT(*) FROM sqlit
4660: 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74  e_master WHERE t
4670: 79 70 65 20 3d 20 27 74 61 62 6c 65 27 3b 20 5c  ype = 'table'; \
4680: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 63  ..  }....  set c
4690: 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61  ode [compileCSha
46a0: 72 70 57 69 74 68 20 5b 73 75 62 73 74 20 7b 0d  rpWith [subst {.
46b0: 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65  .    using Syste
46c0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a  m.Data.SQLite;..
46d0: 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d      using System
46e0: 2e 54 72 61 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a  .Transactions;..
46f0: 0d 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20  ..    namespace 
4700: 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20  _Dynamic${id}.. 
4710: 20 20 20 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c     {..      publ
4720: 69 63 20 73 74 61 74 69 63 20 63 6c 61 73 73 20  ic static class 
4730: 54 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 20 20  Test${id}..     
4740: 20 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c   {..        publ
4750: 69 63 20 73 74 61 74 69 63 20 69 6e 74 20 4d 61  ic static int Ma
4760: 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d  in()..        {.
4770: 0a 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73  .          Trans
4780: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 74 72  actionOptions tr
4790: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
47a0: 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69   = new Transacti
47b0: 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a 20 20  onOptions();..  
47c0: 20 20 20 20 20 20 20 20 74 72 61 6e 73 61 63 74          transact
47d0: 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f 6c 61  ionOptions.Isola
47e0: 74 69 6f 6e 4c 65 76 65 6c 20 3d 20 49 73 6f 6c  tionLevel = Isol
47f0: 61 74 69 6f 6e 4c 65 76 65 6c 2e 52 65 61 64 55  ationLevel.ReadU
4800: 6e 63 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20  ncommitted;.... 
4810: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28           using (
4820: 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65  TransactionScope
4830: 20 74 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70   transactionScop
4840: 65 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74  e = new Transact
4850: 69 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20 20 20  ionScope(..     
4860: 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 63           Transac
4870: 74 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e  tionScopeOption.
4880: 52 65 71 75 69 72 65 64 2c 20 74 72 61 6e 73 61  Required, transa
4890: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a  ctionOptions))..
48a0: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
48b0: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28           using (
48c0: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e  SQLiteConnection
48d0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e   connection1 = n
48e0: 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  ew SQLiteConnect
48f0: 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20  ion(..          
4900: 20 20 20 20 20 20 22 44 61 74 61 20 53 6f 75 72        "Data Sour
4910: 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d  ce=${dataSource}
4920: 3b 5b 67 65 74 54 65 73 74 50 72 6f 70 65 72 74  ;[getTestPropert
4930: 69 65 73 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a  ies $flags]"))..
4940: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
4950: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e               con
4960: 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b  nection1.Open();
4970: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
4980: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43    using (SQLiteC
4990: 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63  onnection connec
49a0: 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69  tion2 = new SQLi
49b0: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20  teConnection(.. 
49c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
49d0: 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b   "Data Source=${
49e0: 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74  dataSource};[get
49f0: 54 65 73 74 50 72 6f 70 65 72 74 69 65 73 20 24  TestProperties $
4a00: 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 20 20  flags]"))..     
4a10: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
4a20: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e              conn
4a30: 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 29 3b 0d  ection2.Open();.
4a40: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
4a50: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
4a60: 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 31  Command command1
4a70: 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 43   = connection1.C
4a80: 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d  reateCommand()).
4a90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4aa0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
4ab0: 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e 43        command1.C
4ac0: 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b  ommandText = "${
4ad0: 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20 20 20 20  sql(1)}";..     
4ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d               com
4af0: 6d 61 6e 64 31 2e 45 78 65 63 75 74 65 4e 6f 6e  mand1.ExecuteNon
4b00: 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20 20 20 20  Query();....    
4b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73                us
4b20: 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61  ing (SQLiteComma
4b30: 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d 20 63 6f  nd command2 = co
4b40: 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65 61 74 65  nnection2.Create
4b50: 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20  Command())..    
4b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d                {.
4b70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4b80: 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32 2e 43 6f       command2.Co
4b90: 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b 73  mmandText = "${s
4ba0: 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20 20 20 20  ql(2)}";..      
4bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
4bc0: 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f 6e 67 29  turn (int)(long)
4bd0: 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63 75 74 65  command2.Execute
4be0: 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20 20 20 20  Scalar();..     
4bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a               }..
4c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4c10: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
4c20: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   }..            
4c30: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  }..          }..
4c40: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
4c50: 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 5d 20   }..    }..  }] 
4c60: 74 72 75 65 20 66 61 6c 73 65 20 74 72 75 65 20  true false true 
4c70: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 53  results errors S
4c80: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
4c90: 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74  e.dll]....  list
4ca0: 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 73 20   $code $results 
4cb0: 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b  \..      [expr {
4cc0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65 72 72  [info exists err
4cd0: 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73 20 3a  ors] ? $errors :
4ce0: 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 5b   ""}] \..      [
4cf0: 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71 20 22  expr {$code eq "
4d00: 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a  Ok" ? [catch {..
4d10: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69          object i
4d20: 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b  nvoke _Dynamic${
4d30: 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20 4d 61  id}.Test${id} Ma
4d40: 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65 73 75  in..      } resu
4d50: 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73 75 6c  lt] : [set resul
4d60: 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d  t ""]}] $result.
4d70: 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20  .} -cleanup {.. 
4d80: 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65   cleanupDb $file
4d90: 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20  Name....  unset 
4da0: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75  -nocomplain resu
4db0: 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72  lt results error
4dc0: 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74 61 53  s code sql dataS
4dd0: 6f 75 72 63 65 20 69 64 20 64 62 20 66 69 6c 65  ource id db file
4de0: 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61  Name..} -constra
4df0: 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d  ints {eagle comm
4e00: 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42  and.object monoB
4e10: 75 67 32 38 20 6d 6f 6e 6f 42 75 67 32 31 31 20  ug28 monoBug211 
4e20: 6d 6f 6e 6f 42 75 67 35 31 38 5c 0d 0a 63 6f 6d  monoBug518\..com
4e30: 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65  mand.sql compile
4e40: 2e 44 41 54 41 20 53 51 4c 69 74 65 20 53 79 73  .DATA SQLite Sys
4e50: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20  tem.Data.SQLite 
4e60: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d  compileCSharp} -
4e70: 6d 61 74 63 68 20 5c 0d 0a 72 65 67 65 78 70 20  match \..regexp 
4e80: 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b 20 53 79 73  -result {^Ok Sys
4e90: 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70  tem#CodeDom#Comp
4ea0: 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73  iler#CompilerRes
4eb0: 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20  ults#\d+ \{\} 0 
4ec0: 30 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23  0$}}....########
4ed0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ef0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4f00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4f10: 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65  #######....runTe
4f20: 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 36 62  st {test tkt-56b
4f30: 34 32 64 39 39 63 31 2d 31 2e 38 20 7b 65 6e 6c  42d99c1-1.8 {enl
4f40: 69 73 74 65 64 20 74 72 61 6e 73 61 63 74 69 6f  isted transactio
4f50: 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65  n isolation} -se
4f60: 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 62  tup {..  setupDb
4f70: 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74   [set fileName t
4f80: 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e  kt-56b42d99c1-1.
4f90: 38 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b  8.db]..} -body {
4fa0: 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 6a 65  ..  set id [obje
4fb0: 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70  ct invoke Interp
4fc0: 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20  reter.GetActive 
4fd0: 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 20 64  NextId]..  set d
4fe0: 61 74 61 53 6f 75 72 63 65 20 5b 66 69 6c 65 20  ataSource [file 
4ff0: 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73  join [getDatabas
5000: 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66 69 6c  eDirectory] $fil
5010: 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65  eName]....  unse
5020: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
5030: 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a  sults errors....
5040: 20 20 73 65 74 20 73 71 6c 28 31 29 20 7b 20 5c    set sql(1) { \
5050: 0d 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ..    CREATE TAB
5060: 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20  LE t1(x); \..   
5070: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
5080: 28 78 29 20 56 41 4c 55 45 53 28 31 29 3b 20 5c  (x) VALUES(1); \
5090: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73  ..  }....  set s
50a0: 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53  ql(2) { \..    S
50b0: 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46  ELECT COUNT(*) F
50c0: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
50d0: 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27  r WHERE type = '
50e0: 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a  table'; \..  }..
50f0: 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f  ..  set code [co
5100: 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20  mpileCSharpWith 
5110: 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 73  [subst {..    us
5120: 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  ing System.Data.
5130: 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 69  SQLite;..    usi
5140: 6e 67 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 61  ng System.Transa
5150: 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e  ctions;....    n
5160: 61 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69  amespace _Dynami
5170: 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20  c${id}..    {.. 
5180: 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74       public stat
5190: 69 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69  ic class Test${i
51a0: 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20  d}..      {..   
51b0: 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74       public stat
51c0: 69 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20  ic int Main().. 
51d0: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
51e0: 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f      TransactionO
51f0: 70 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74 69  ptions transacti
5200: 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20  onOptions = new 
5210: 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  TransactionOptio
5220: 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20  ns();..         
5230: 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69   transactionOpti
5240: 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76  ons.IsolationLev
5250: 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65  el = IsolationLe
5260: 76 65 6c 2e 52 65 61 64 55 6e 63 6f 6d 6d 69 74  vel.ReadUncommit
5270: 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  ted;....        
5280: 20 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61 63    using (Transac
5290: 74 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 61  tionScope transa
52a0: 63 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77  ctionScope = new
52b0: 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70   TransactionScop
52c0: 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  e(..            
52d0: 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f    TransactionSco
52e0: 70 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 65  peOption.Require
52f0: 64 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70  d, transactionOp
5300: 74 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 20  tions))..       
5310: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
5320: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43    using (SQLiteC
5330: 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63  onnection connec
5340: 74 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69  tion1 = new SQLi
5350: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20  teConnection(.. 
5360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
5370: 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61  Data Source=${da
5380: 74 61 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74  taSource};Enlist
5390: 3d 46 61 6c 73 65 3b 5b 67 65 74 54 65 73 74 50  =False;[getTestP
53a0: 72 6f 70 65 72 74 69 65 73 20 24 66 6c 61 67 73  roperties $flags
53b0: 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  ]"))..          
53c0: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
53d0: 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f     connection1.O
53e0: 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  pen();....      
53f0: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53          using (S
5400: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20  QLiteConnection 
5410: 63 6f 6e 6e 65 63 74 69 6f 6e 32 20 3d 20 6e 65  connection2 = ne
5420: 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69  w SQLiteConnecti
5430: 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  on(..           
5440: 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f 75         "Data Sou
5450: 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65  rce=${dataSource
5460: 7d 3b 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b 5b  };Enlist=False;[
5470: 67 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 65  getTestPropertie
5480: 73 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20  s $flags]"))..  
5490: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
54a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
54b0: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28  onnection2.Open(
54c0: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
54d0: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
54e0: 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61  iteCommand comma
54f0: 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e  nd1 = connection
5500: 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  1.CreateCommand(
5510: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
5520: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
5530: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64           command
5540: 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20  1.CommandText = 
5550: 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20  "${sql(1)}";..  
5560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5570: 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65  command1.Execute
5580: 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20  NonQuery();.... 
5590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
55a0: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
55b0: 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d  mmand command2 =
55c0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65   connection2.Cre
55d0: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20  ateCommand()).. 
55e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
55f0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
5600: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32          command2
5610: 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22  .CommandText = "
5620: 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20  ${sql(2)}";..   
5630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5640: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f   return (int)(lo
5650: 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63  ng)command2.Exec
5660: 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20  uteScalar();..  
5670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5680: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
5690: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
56a0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
56b0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
56c0: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
56d0: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20      }..    }..  
56e0: 7d 5d 20 74 72 75 65 20 66 61 6c 73 65 20 74 72  }] true false tr
56f0: 75 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72  ue results error
5700: 73 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  s System.Data.SQ
5710: 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c  Lite.dll]....  l
5720: 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c  ist $code $resul
5730: 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70  ts \..      [exp
5740: 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  r {[info exists 
5750: 65 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72  errors] ? $error
5760: 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20  s : ""}] \..    
5770: 20 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65    [expr {$code e
5780: 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20  q "Ok" ? [catch 
5790: 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63  {..        objec
57a0: 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69  t invoke _Dynami
57b0: 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d  c${id}.Test${id}
57c0: 20 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72   Main..      } r
57d0: 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65  esult] : [set re
57e0: 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75  sult ""]}] $resu
57f0: 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  lt..} -cleanup {
5800: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
5810: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
5820: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
5830: 65 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72  esult results er
5840: 72 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64 61  rors code sql da
5850: 74 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66  taSource id db f
5860: 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73  ileName..} -cons
5870: 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63  traints {eagle c
5880: 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f  ommand.object mo
5890: 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e  noBug28 command.
58a0: 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41  sql compile.DATA
58b0: 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d   SQLite\..System
58c0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d  .Data.SQLite com
58d0: 70 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61 74  pileCSharp} -mat
58e0: 63 68 20 72 65 67 65 78 70 20 2d 72 65 73 75 6c  ch regexp -resul
58f0: 74 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d 23  t {^Ok\..System#
5900: 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72  CodeDom#Compiler
5910: 23 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74 73  #CompilerResults
5920: 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 31 24 7d 7d  #\d+ \{\} 0 1$}}
5930: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
5940: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5950: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5960: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5970: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5980: 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b  ###....runTest {
5990: 74 65 73 74 20 74 6b 74 2d 35 36 62 34 32 64 39  test tkt-56b42d9
59a0: 39 63 31 2d 31 2e 39 20 7b 65 6e 6c 69 73 74 65  9c1-1.9 {enliste
59b0: 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73  d transaction is
59c0: 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20  olation} -setup 
59d0: 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65  {..  setupDb [se
59e0: 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35  t fileName tkt-5
59f0: 36 62 34 32 64 39 39 63 31 2d 31 2e 39 2e 64 62  6b42d99c1-1.9.db
5a00: 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20  ]..} -body {..  
5a10: 73 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69  set id [object i
5a20: 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65  nvoke Interprete
5a30: 72 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78 74  r.GetActive Next
5a40: 49 64 5d 0d 0a 20 20 73 65 74 20 64 61 74 61 53  Id]..  set dataS
5a50: 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  ource [file join
5a60: 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72   [getDatabaseDir
5a70: 65 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d  ectory] $fileNam
5a80: 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  e]....  unset -n
5a90: 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74  ocomplain result
5aa0: 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73 65  s errors....  se
5ab0: 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d 0a 20 20  t sql(1) { \..  
5ac0: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74    CREATE TABLE t
5ad0: 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20 49 4e 53  1(x); \..    INS
5ae0: 45 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29 20  ERT INTO t1 (x) 
5af0: 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d 0a 20 20  VALUES(1); \..  
5b00: 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 32  }....  set sql(2
5b10: 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45 4c 45 43  ) { \..    SELEC
5b20: 54 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20  T COUNT(*) FROM 
5b30: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48  sqlite_master WH
5b40: 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c  ERE type = 'tabl
5b50: 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20  e'; \..  }....  
5b60: 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c  set code [compil
5b70: 65 43 53 68 61 72 70 57 69 74 68 20 5b 73 75 62  eCSharpWith [sub
5b80: 73 74 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67 20  st {..    using 
5b90: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
5ba0: 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53  te;..    using S
5bb0: 79 73 74 65 6d 2e 54 72 61 6e 73 61 63 74 69 6f  ystem.Transactio
5bc0: 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65 73  ns;....    names
5bd0: 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69  pace _Dynamic${i
5be0: 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20  d}..    {..     
5bf0: 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 63   public static c
5c00: 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d 0d 0a  lass Test${id}..
5c10: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
5c20: 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 69   public static i
5c30: 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20 20  nt Main()..     
5c40: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
5c50: 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  TransactionOptio
5c60: 6e 73 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70  ns transactionOp
5c70: 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54 72 61 6e  tions = new Tran
5c80: 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 28 29  sactionOptions()
5c90: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72 61  ;..          tra
5ca0: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 2e  nsactionOptions.
5cb0: 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d  IsolationLevel =
5cc0: 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 2e   IsolationLevel.
5cd0: 52 65 61 64 55 6e 63 6f 6d 6d 69 74 74 65 64 3b  ReadUncommitted;
5ce0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 75 73  ....          us
5cf0: 69 6e 67 20 28 54 72 61 6e 73 61 63 74 69 6f 6e  ing (Transaction
5d00: 53 63 6f 70 65 20 74 72 61 6e 73 61 63 74 69 6f  Scope transactio
5d10: 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 72 61  nScope = new Tra
5d20: 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 0d 0a  nsactionScope(..
5d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 72                Tr
5d40: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 4f 70  ansactionScopeOp
5d50: 74 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c 20 74  tion.Required, t
5d60: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e  ransactionOption
5d70: 73 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 7b  s))..          {
5d80: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 75 73  ..            us
5d90: 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65  ing (SQLiteConne
5da0: 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e  ction connection
5db0: 31 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f  1 = new SQLiteCo
5dc0: 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20  nnection(..     
5dd0: 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74 61             "Data
5de0: 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 6f   Source=${dataSo
5df0: 75 72 63 65 7d 3b 5b 67 65 74 54 65 73 74 50 72  urce};[getTestPr
5e00: 6f 70 65 72 74 69 65 73 20 24 66 6c 61 67 73 5d  operties $flags]
5e10: 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20  "))..           
5e20: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
5e30: 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70    connection1.Op
5e40: 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20  en();....       
5e50: 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51         using (SQ
5e60: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63  LiteConnection c
5e70: 6f 6e 6e 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77  onnection2 = new
5e80: 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f   SQLiteConnectio
5e90: 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  n(..            
5ea0: 20 20 20 20 20 20 22 44 61 74 61 20 53 6f 75 72        "Data Sour
5eb0: 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d  ce=${dataSource}
5ec0: 3b 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b 5b 67  ;Enlist=False;[g
5ed0: 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 65 73  etTestProperties
5ee0: 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20   $flags]"))..   
5ef0: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20             {..  
5f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f                co
5f10: 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 29  nnection2.Open()
5f20: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ;....           
5f30: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
5f40: 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e  teCommand comman
5f50: 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 31  d1 = connection1
5f60: 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29  .CreateCommand()
5f70: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
5f80: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
5f90: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31          command1
5fa0: 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22  .CommandText = "
5fb0: 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20 20  ${sql(1)}";..   
5fc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
5fd0: 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65 4e  ommand1.ExecuteN
5fe0: 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20 20  onQuery();....  
5ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6000: 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d  using (SQLiteCom
6010: 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d 20  mand command2 = 
6020: 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65 61  connection2.Crea
6030: 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20  teCommand())..  
6040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6050: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
6060: 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32 2e         command2.
6070: 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24  CommandText = "$
6080: 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20 20  {sql(2)}";..    
6090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
60a0: 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f 6e  return (int)(lon
60b0: 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63 75  g)command2.Execu
60c0: 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20 20  teScalar();..   
60d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d                 }
60e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
60f0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
6100: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
6110: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d    }..          }
6120: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20  ..        }..   
6130: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d     }..    }..  }
6140: 5d 20 74 72 75 65 20 66 61 6c 73 65 20 74 72 75  ] true false tru
6150: 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73  e results errors
6160: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
6170: 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69  ite.dll]....  li
6180: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74  st $code $result
6190: 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72  s \..      [expr
61a0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65   {[info exists e
61b0: 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73  rrors] ? $errors
61c0: 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20   : ""}] \..     
61d0: 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71   [expr {$code eq
61e0: 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b   "Ok" ? [catch {
61f0: 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74  ..        object
6200: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63   invoke _Dynamic
6210: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20  ${id}.Test${id} 
6220: 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65  Main..      } re
6230: 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73  sult] : [set res
6240: 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c  ult ""]}] $resul
6250: 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d  t..} -cleanup {.
6260: 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69  .  cleanupDb $fi
6270: 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65  leName....  unse
6280: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
6290: 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72  sult results err
62a0: 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74  ors code sql dat
62b0: 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66 69  aSource id db fi
62c0: 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74  leName..} -const
62d0: 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f  raints {eagle co
62e0: 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e  mmand.object mon
62f0: 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73  oBug28 command.s
6300: 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20  ql compile.DATA 
6310: 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e  SQLite\..System.
6320: 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70  Data.SQLite comp
6330: 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61 74 63  ileCSharp} -matc
6340: 68 20 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74  h regexp -result
6350: 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d 23 43   {^Ok\..System#C
6360: 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23  odeDom#Compiler#
6370: 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23  CompilerResults#
6380: 5c 64 2b 20 5c 7b 5c 7d 20 30 20 30 24 7d 7d 0d  \d+ \{\} 0 0$}}.
6390: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
63a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
63b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
63c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
63d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
63e0: 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74  ##....runTest {t
63f0: 65 73 74 20 74 6b 74 2d 35 36 62 34 32 64 39 39  est tkt-56b42d99
6400: 63 31 2d 31 2e 31 30 20 7b 65 6e 6c 69 73 74 65  c1-1.10 {enliste
6410: 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73  d transaction is
6420: 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20  olation} -setup 
6430: 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65  {..  setupDb [se
6440: 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35  t fileName tkt-5
6450: 36 62 34 32 64 39 39 63 31 2d 31 2e 31 30 2e 64  6b42d99c1-1.10.d
6460: 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20  b]..} -body {.. 
6470: 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20   set id [object 
6480: 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74  invoke Interpret
6490: 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78  er.GetActive Nex
64a0: 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 61 74 61  tId]..  set data
64b0: 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69  Source [file joi
64c0: 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69  n [getDatabaseDi
64d0: 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61  rectory] $fileNa
64e0: 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d  me]....  unset -
64f0: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c  nocomplain resul
6500: 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73  ts errors....  s
6510: 65 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d 0a 20  et sql(1) { \.. 
6520: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
6530: 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20 49 4e  t1(x); \..    IN
6540: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29  SERT INTO t1 (x)
6550: 20 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d 0a 20   VALUES(1); \.. 
6560: 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28   }....  set sql(
6570: 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45 4c 45  2) { \..    SELE
6580: 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d  CT COUNT(*) FROM
6590: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57   sqlite_master W
65a0: 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62  HERE type = 'tab
65b0: 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20  le'; \..  }.... 
65c0: 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69   set code [compi
65d0: 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b 73 75  leCSharpWith [su
65e0: 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67  bst {..    using
65f0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
6600: 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e 67 20  ite;..    using 
6610: 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63 74 69  System.Transacti
6620: 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65  ons;....    name
6630: 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b  space _Dynamic${
6640: 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20  id}..    {..    
6650: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
6660: 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d 0d  class Test${id}.
6670: 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20  .      {..      
6680: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
6690: 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20  int Main()..    
66a0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
66b0: 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69   TransactionOpti
66c0: 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f  ons transactionO
66d0: 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54 72 61  ptions = new Tra
66e0: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 28  nsactionOptions(
66f0: 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72  );..          tr
6700: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
6710: 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20  .IsolationLevel 
6720: 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c  = IsolationLevel
6730: 2e 52 65 61 64 55 6e 63 6f 6d 6d 69 74 74 65 64  .ReadUncommitted
6740: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 75  ;....          u
6750: 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74 69 6f  sing (Transactio
6760: 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63 74 69  nScope transacti
6770: 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 72  onScope = new Tr
6780: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 0d  ansactionScope(.
6790: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54  .              T
67a0: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 4f  ransactionScopeO
67b0: 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c 20  ption.Required, 
67c0: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
67d0: 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  ns))..          
67e0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 75  {..            u
67f0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e  sing (SQLiteConn
6800: 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f  ection connectio
6810: 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43  n1 = new SQLiteC
6820: 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20  onnection(..    
6830: 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74              "Dat
6840: 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53  a Source=${dataS
6850: 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 61  ource};Enlist=Fa
6860: 6c 73 65 3b 5b 67 65 74 54 65 73 74 50 72 6f 70  lse;[getTestProp
6870: 65 72 74 69 65 73 20 24 66 6c 61 67 73 5d 22 29  erties $flags]")
6880: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b  )..            {
6890: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
68a0: 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e  connection1.Open
68b0: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ();....         
68c0: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
68d0: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e  teConnection con
68e0: 6e 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53  nection2 = new S
68f0: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28  QLiteConnection(
6900: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
6910: 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65      "Data Source
6920: 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b  =${dataSource};[
6930: 67 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 65  getTestPropertie
6940: 73 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20  s $flags]"))..  
6950: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
6960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
6970: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28  onnection2.Open(
6980: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
6990: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
69a0: 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61  iteCommand comma
69b0: 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e  nd1 = connection
69c0: 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  1.CreateCommand(
69d0: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
69e0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
69f0: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64           command
6a00: 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20  1.CommandText = 
6a10: 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20  "${sql(1)}";..  
6a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6a30: 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65  command1.Execute
6a40: 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20  NonQuery();.... 
6a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6a60: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
6a70: 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d  mmand command2 =
6a80: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65   connection2.Cre
6a90: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20  ateCommand()).. 
6aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6ab0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
6ac0: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32          command2
6ad0: 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22  .CommandText = "
6ae0: 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20  ${sql(2)}";..   
6af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6b00: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f   return (int)(lo
6b10: 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63  ng)command2.Exec
6b20: 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20  uteScalar();..  
6b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6b40: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
6b50: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
6b60: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
6b70: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
6b80: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
6b90: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20      }..    }..  
6ba0: 7d 5d 20 74 72 75 65 20 66 61 6c 73 65 20 74 72  }] true false tr
6bb0: 75 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72  ue results error
6bc0: 73 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  s System.Data.SQ
6bd0: 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c  Lite.dll]....  l
6be0: 69 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c  ist $code $resul
6bf0: 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70  ts \..      [exp
6c00: 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  r {[info exists 
6c10: 65 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72  errors] ? $error
6c20: 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20  s : ""}] \..    
6c30: 20 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65    [expr {$code e
6c40: 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20  q "Ok" ? [catch 
6c50: 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63  {..        objec
6c60: 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69  t invoke _Dynami
6c70: 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d  c${id}.Test${id}
6c80: 20 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72   Main..      } r
6c90: 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65  esult] : [set re
6ca0: 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75  sult ""]}] $resu
6cb0: 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  lt..} -cleanup {
6cc0: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
6cd0: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
6ce0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
6cf0: 65 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72  esult results er
6d00: 72 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64 61  rors code sql da
6d10: 74 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66  taSource id db f
6d20: 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73  ileName..} -cons
6d30: 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63  traints {eagle c
6d40: 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f  ommand.object mo
6d50: 6e 6f 42 75 67 32 38 20 6d 6f 6e 6f 42 75 67 32  noBug28 monoBug2
6d60: 31 31 20 6d 6f 6e 6f 42 75 67 35 31 38 5c 0d 0a  11 monoBug518\..
6d70: 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70  command.sql comp
6d80: 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 20  ile.DATA SQLite 
6d90: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
6da0: 74 65 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 70  te compileCSharp
6db0: 7d 20 2d 6d 61 74 63 68 20 5c 0d 0a 72 65 67 65  } -match \..rege
6dc0: 78 70 20 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b 20  xp -result {^Ok 
6dd0: 53 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43  System#CodeDom#C
6de0: 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72  ompiler#Compiler
6df0: 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d  Results#\d+ \{\}
6e00: 20 30 20 31 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23   0 1$}}....#####
6e10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e50: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 75 6e  ##########....un
6e60: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
6e70: 66 6c 61 67 73 0d 0a 0d 0a 23 23 23 23 23 23 23  flags....#######
6e80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6ea0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6eb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6ec0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 53  ########....runS
6ed0: 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67 75  QLiteTestEpilogu
6ee0: 65 0d 0a 72 75 6e 54 65 73 74 45 70 69 6c 6f 67  e..runTestEpilog
6ef0: 75 65 0d 0a                                      ue..