System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact f8bc9d43bc1b7990198aa935c45f38f2a45918d1:


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 46 6c 61  aSource};[getFla
0660: 67 73 50 72 6f 70 65 72 74 79 5d 22 29 29 0d 0a  gsProperty]"))..
0670: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e               con
0690: 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b  nection1.Open();
06a0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
06b0: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43    using (SQLiteC
06c0: 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63  onnection connec
06d0: 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69  tion2 = new SQLi
06e0: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20  teConnection(.. 
06f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0700: 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b   "Data Source=${
0710: 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74  dataSource};[get
0720: 46 6c 61 67 73 50 72 6f 70 65 72 74 79 5d 22 29  FlagsProperty]")
0730: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
0740: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
0750: 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e      connection2.
0760: 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20  Open();....     
0770: 20 20 20 20 20 20 20 20 20 20 20 42 69 6e 64 69             Bindi
0780: 6e 67 46 6c 61 67 73 20 62 69 6e 64 69 6e 67 46  ngFlags bindingF
0790: 6c 61 67 73 20 3d 20 42 69 6e 64 69 6e 67 46 6c  lags = BindingFl
07a0: 61 67 73 2e 49 6e 73 74 61 6e 63 65 20 7c 0d 0a  ags.Instance |..
07b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
07c0: 20 20 42 69 6e 64 69 6e 67 46 6c 61 67 73 2e 4e    BindingFlags.N
07d0: 6f 6e 50 75 62 6c 69 63 20 7c 20 42 69 6e 64 69  onPublic | Bindi
07e0: 6e 67 46 6c 61 67 73 2e 47 65 74 46 69 65 6c 64  ngFlags.GetField
07f0: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ;....           
0800: 20 20 20 20 20 46 69 65 6c 64 49 6e 66 6f 20 66       FieldInfo f
0810: 69 65 6c 64 49 6e 66 6f 31 20 3d 20 63 6f 6e 6e  ieldInfo1 = conn
0820: 65 63 74 69 6f 6e 31 2e 47 65 74 54 79 70 65 28  ection1.GetType(
0830: 29 2e 47 65 74 46 69 65 6c 64 28 0d 0a 20 20 20  ).GetField(..   
0840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
0850: 5f 65 6e 6c 69 73 74 6d 65 6e 74 22 2c 20 62 69  _enlistment", bi
0860: 6e 64 69 6e 67 46 6c 61 67 73 29 3b 0d 0a 0d 0a  ndingFlags);....
0870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0880: 6f 62 6a 65 63 74 20 65 6e 6c 69 73 74 6d 65 6e  object enlistmen
0890: 74 31 20 3d 20 66 69 65 6c 64 49 6e 66 6f 31 2e  t1 = fieldInfo1.
08a0: 47 65 74 56 61 6c 75 65 28 63 6f 6e 6e 65 63 74  GetValue(connect
08b0: 69 6f 6e 31 29 3b 0d 0a 20 20 20 20 20 20 20 20  ion1);..        
08c0: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 65          object e
08d0: 6e 6c 69 73 74 6d 65 6e 74 32 20 3d 20 66 69 65  nlistment2 = fie
08e0: 6c 64 49 6e 66 6f 31 2e 47 65 74 56 61 6c 75 65  ldInfo1.GetValue
08f0: 28 63 6f 6e 6e 65 63 74 69 6f 6e 32 29 3b 0d 0a  (connection2);..
0900: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
0910: 20 20 46 69 65 6c 64 49 6e 66 6f 20 66 69 65 6c    FieldInfo fiel
0920: 64 49 6e 66 6f 32 20 3d 20 65 6e 6c 69 73 74 6d  dInfo2 = enlistm
0930: 65 6e 74 31 2e 47 65 74 54 79 70 65 28 29 2e 47  ent1.GetType().G
0940: 65 74 46 69 65 6c 64 28 0d 0a 20 20 20 20 20 20  etField(..      
0950: 20 20 20 20 20 20 20 20 20 20 20 20 22 5f 74 72              "_tr
0960: 61 6e 73 61 63 74 69 6f 6e 22 2c 20 62 69 6e 64  ansaction", bind
0970: 69 6e 67 46 6c 61 67 73 29 3b 0d 0a 0d 0a 20 20  ingFlags);....  
0980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51                SQ
0990: 4c 69 74 65 54 72 61 6e 73 61 63 74 69 6f 6e 20  LiteTransaction 
09a0: 74 72 61 6e 73 61 63 74 69 6f 6e 31 20 3d 0d 0a  transaction1 =..
09b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09c0: 20 20 28 53 51 4c 69 74 65 54 72 61 6e 73 61 63    (SQLiteTransac
09d0: 74 69 6f 6e 29 66 69 65 6c 64 49 6e 66 6f 32 2e  tion)fieldInfo2.
09e0: 47 65 74 56 61 6c 75 65 28 65 6e 6c 69 73 74 6d  GetValue(enlistm
09f0: 65 6e 74 31 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  ent1);....      
0a00: 20 20 20 20 20 20 20 20 20 20 53 51 4c 69 74 65            SQLite
0a10: 54 72 61 6e 73 61 63 74 69 6f 6e 20 74 72 61 6e  Transaction tran
0a20: 73 61 63 74 69 6f 6e 32 20 3d 0d 0a 20 20 20 20  saction2 =..    
0a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 53                (S
0a40: 51 4c 69 74 65 54 72 61 6e 73 61 63 74 69 6f 6e  QLiteTransaction
0a50: 29 66 69 65 6c 64 49 6e 66 6f 32 2e 47 65 74 56  )fieldInfo2.GetV
0a60: 61 6c 75 65 28 65 6e 6c 69 73 74 6d 65 6e 74 32  alue(enlistment2
0a70: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
0a80: 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 74 72        return (tr
0a90: 61 6e 73 61 63 74 69 6f 6e 31 2e 49 73 6f 6c 61  ansaction1.Isola
0aa0: 74 69 6f 6e 4c 65 76 65 6c 20 3d 3d 0d 0a 20 20  tionLevel ==..  
0ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ac0: 20 20 20 20 20 20 74 72 61 6e 73 61 63 74 69 6f        transactio
0ad0: 6e 32 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65  n2.IsolationLeve
0ae0: 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  l);..           
0af0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
0b00: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d    }..          }
0b10: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20  ..        }.... 
0b20: 20 20 20 20 20 20 20 2f 2f 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 0d 0a  //////////////..
0b70: 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c 69 63  ..        public
0b80: 20 73 74 61 74 69 63 20 76 6f 69 64 20 4d 61 69   static void Mai
0b90: 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a  n()..        {..
0ba0: 20 20 20 20 20 20 20 20 20 20 2f 2f 20 64 6f 20            // do 
0bb0: 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20 20 20  nothing...      
0bc0: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20    }..      }..  
0bd0: 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 20 74    }..  }] true t
0be0: 72 75 65 20 74 72 75 65 20 72 65 73 75 6c 74 73  rue true results
0bf0: 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d 2e 44   errors System.D
0c00: 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d  ata.SQLite.dll].
0c10: 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 65 20  ...  list $code 
0c20: 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20  $results \..    
0c30: 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65    [expr {[info e
0c40: 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 3f 20  xists errors] ? 
0c50: 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c  $errors : ""}] \
0c60: 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24  ..      [expr {$
0c70: 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b  code eq "Ok" ? [
0c80: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20  catch {..       
0c90: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f   object invoke _
0ca0: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73  Dynamic${id}.Tes
0cb0: 74 24 7b 69 64 7d 20 54 72 79 45 6e 6c 69 73 74  t${id} TryEnlist
0cc0: 49 6e 54 72 61 6e 73 61 63 74 69 6f 6e 0d 0a 20  InTransaction.. 
0cd0: 20 20 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a       } result] :
0ce0: 20 5b 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d   [set result ""]
0cf0: 7d 5d 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63  }] $result..} -c
0d00: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61  leanup {..  clea
0d10: 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d  nupDb $fileName.
0d20: 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f  ...  unset -noco
0d30: 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65  mplain result re
0d40: 73 75 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64  sults errors cod
0d50: 65 20 64 61 74 61 53 6f 75 72 63 65 20 69 64 20  e dataSource id 
0d60: 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d  db fileName..} -
0d70: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67  constraints {eag
0d80: 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63  le command.objec
0d90: 74 20 6d 6f 6e 6f 42 75 67 32 31 31 20 6d 6f 6e  t monoBug211 mon
0da0: 6f 42 75 67 35 34 20 63 6f 6d 6d 61 6e 64 2e 73  oBug54 command.s
0db0: 71 6c 5c 0d 0a 63 6f 6d 70 69 6c 65 2e 44 41 54  ql\..compile.DAT
0dc0: 41 20 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e  A SQLite System.
0dd0: 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70  Data.SQLite comp
0de0: 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61 74 63  ileCSharp} -matc
0df0: 68 20 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74  h regexp -result
0e00: 20 5c 0d 0a 7b 5e 4f 6b 20 53 79 73 74 65 6d 23   \..{^Ok System#
0e10: 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72  CodeDom#Compiler
0e20: 23 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74 73  #CompilerResults
0e30: 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 54 72 75 65  #\d+ \{\} 0 True
0e40: 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23  $}}....#########
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 0d 0a 0d 0a 72 75 6e 54 65 73  ######....runTes
0ea0: 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 36 62 34  t {test tkt-56b4
0eb0: 32 64 39 39 63 31 2d 31 2e 32 20 7b 65 6e 6c 69  2d99c1-1.2 {enli
0ec0: 73 74 65 64 20 74 72 61 6e 73 61 63 74 69 6f 6e  sted transaction
0ed0: 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74   isolation} -set
0ee0: 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 20  up {..  setupDb 
0ef0: 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b  [set fileName tk
0f00: 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e 32  t-56b42d99c1-1.2
0f10: 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d  .db]..} -body {.
0f20: 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63  .  set id [objec
0f30: 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72  t invoke Interpr
0f40: 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e  eter.GetActive N
0f50: 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 61  extId]..  set da
0f60: 74 61 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a  taSource [file j
0f70: 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65  oin [getDatabase
0f80: 44 69 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65  Directory] $file
0f90: 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74  Name]....  unset
0fa0: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73   -nocomplain res
0fb0: 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20  ults errors.... 
0fc0: 20 73 65 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d   set sql(1) { \.
0fd0: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
0fe0: 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20  E t1(x); \..    
0ff0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28  INSERT INTO t1 (
1000: 78 29 20 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d  x) VALUES(1); \.
1010: 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71  .  }....  set sq
1020: 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45  l(2) { \..    SE
1030: 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52  LECT COUNT(*) FR
1040: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
1050: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74   WHERE type = 't
1060: 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d  able'; \..  }...
1070: 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d  .  set code [com
1080: 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b  pileCSharpWith [
1090: 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69  subst {..    usi
10a0: 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ng System.Data.S
10b0: 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e  QLite;..    usin
10c0: 67 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63  g System.Transac
10d0: 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61  tions;....    na
10e0: 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63  mespace _Dynamic
10f0: 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20  ${id}..    {..  
1100: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69      public stati
1110: 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64  c class Test${id
1120: 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20  }..      {..    
1130: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69      public stati
1140: 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20  c int Main()..  
1150: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
1160: 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70     TransactionOp
1170: 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 6f  tions transactio
1180: 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54  nOptions = new T
1190: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e  ransactionOption
11a0: 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  s();..          
11b0: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
11c0: 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65  ns.IsolationLeve
11d0: 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76  l = IsolationLev
11e0: 65 6c 2e 52 65 61 64 43 6f 6d 6d 69 74 74 65 64  el.ReadCommitted
11f0: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 75  ;....          u
1200: 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74 69 6f  sing (Transactio
1210: 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63 74 69  nScope transacti
1220: 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 72  onScope = new Tr
1230: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 0d  ansactionScope(.
1240: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54  .              T
1250: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 4f  ransactionScopeO
1260: 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c 20  ption.Required, 
1270: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
1280: 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  ns))..          
1290: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 75  {..            u
12a0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e  sing (SQLiteConn
12b0: 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f  ection connectio
12c0: 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43  n1 = new SQLiteC
12d0: 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20  onnection(..    
12e0: 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74              "Dat
12f0: 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53  a Source=${dataS
1300: 6f 75 72 63 65 7d 3b 5b 67 65 74 46 6c 61 67 73  ource};[getFlags
1310: 50 72 6f 70 65 72 74 79 5d 22 29 29 0d 0a 20 20  Property]"))..  
1320: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
1330: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65             conne
1340: 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a  ction1.Open();..
1350: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1360: 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e  using (SQLiteCon
1370: 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69  nection connecti
1380: 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74 65  on2 = new SQLite
1390: 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20  Connection(..   
13a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
13b0: 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61  Data Source=${da
13c0: 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 46 6c  taSource};[getFl
13d0: 61 67 73 50 72 6f 70 65 72 74 79 5d 22 29 29 0d  agsProperty]")).
13e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b  .              {
13f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1400: 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70    connection2.Op
1410: 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20  en();....       
1420: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28           using (
1430: 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f  SQLiteCommand co
1440: 6d 6d 61 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74  mmand1 = connect
1450: 69 6f 6e 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61  ion1.CreateComma
1460: 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20  nd())..         
1470: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
1480: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d              comm
1490: 61 6e 64 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74  and1.CommandText
14a0: 20 3d 20 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d   = "${sql(1)}";.
14b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
14c0: 20 20 20 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63     command1.Exec
14d0: 75 74 65 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a  uteNonQuery();..
14e0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
14f0: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74      using (SQLit
1500: 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64  eCommand command
1510: 32 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e  2 = connection2.
1520: 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29  CreateCommand())
1530: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1540: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
1550: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61             comma
1560: 6e 64 32 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20  nd2.CommandText 
1570: 3d 20 22 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a  = "${sql(2)}";..
1580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1590: 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e 74 29      return (int)
15a0: 28 6c 6f 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45  (long)command2.E
15b0: 78 65 63 75 74 65 53 63 61 6c 61 72 28 29 3b 0d  xecuteScalar();.
15c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
15d0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
15e0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
15f0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
1600: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
1610: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d     }..        }.
1620: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d  .      }..    }.
1630: 0a 20 20 7d 5d 20 74 72 75 65 20 74 72 75 65 20  .  }] true true 
1640: 74 72 75 65 20 72 65 73 75 6c 74 73 20 65 72 72  true results err
1650: 6f 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  ors System.Data.
1660: 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20  SQLite.dll].... 
1670: 20 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65 73   list $code $res
1680: 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65  ults \..      [e
1690: 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74  xpr {[info exist
16a0: 73 20 65 72 72 6f 72 73 5d 20 3f 20 24 65 72 72  s errors] ? $err
16b0: 6f 72 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20  ors : ""}] \..  
16c0: 20 20 20 20 5b 65 78 70 72 20 7b 24 63 6f 64 65      [expr {$code
16d0: 20 65 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63   eq "Ok" ? [catc
16e0: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a  h {..        obj
16f0: 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61  ect invoke _Dyna
1700: 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69  mic${id}.Test${i
1710: 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d  d} Main..      }
1720: 20 72 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20   result] : [set 
1730: 72 65 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65  result ""]}] $re
1740: 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70  sult..} -cleanup
1750: 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20   {..  cleanupDb 
1760: 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75  $fileName....  u
1770: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
1780: 20 72 65 73 75 6c 74 20 72 65 73 75 6c 74 73 20   result results 
1790: 65 72 72 6f 72 73 20 63 6f 64 65 20 73 71 6c 20  errors code sql 
17a0: 64 61 74 61 53 6f 75 72 63 65 20 69 64 20 64 62  dataSource id db
17b0: 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f   fileName..} -co
17c0: 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c 65  nstraints {eagle
17d0: 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20   command.object 
17e0: 6d 6f 6e 6f 42 75 67 32 31 31 20 6d 6f 6e 6f 42  monoBug211 monoB
17f0: 75 67 35 34 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c  ug54 command.sql
1800: 5c 0d 0a 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20  \..compile.DATA 
1810: 53 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61  SQLite System.Da
1820: 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c  ta.SQLite compil
1830: 65 43 53 68 61 72 70 7d 20 2d 6d 61 74 63 68 20  eCSharp} -match 
1840: 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74 20 5c  regexp -result \
1850: 0d 0a 7b 5e 4f 6b 20 53 79 73 74 65 6d 23 43 6f  ..{^Ok System#Co
1860: 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 43  deDom#Compiler#C
1870: 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23 5c  ompilerResults#\
1880: 64 2b 20 5c 7b 5c 7d 20 30 20 30 24 7d 7d 0d 0a  d+ \{\} 0 0$}}..
1890: 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ..##############
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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65  #....runTest {te
18f0: 73 74 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63  st tkt-56b42d99c
1900: 31 2d 31 2e 33 20 7b 65 6e 6c 69 73 74 65 64 20  1-1.3 {enlisted 
1910: 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73 6f 6c  transaction isol
1920: 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20 7b 0d  ation} -setup {.
1930: 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65 74 20  .  setupDb [set 
1940: 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35 36 62  fileName tkt-56b
1950: 34 32 64 39 39 63 31 2d 31 2e 33 2e 64 62 5d 0d  42d99c1-1.3.db].
1960: 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65  .} -body {..  se
1970: 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76  t id [object inv
1980: 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e  oke Interpreter.
1990: 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 64  GetActive NextId
19a0: 5d 0d 0a 20 20 73 65 74 20 64 61 74 61 53 6f 75  ]..  set dataSou
19b0: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b  rce [file join [
19c0: 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63  getDatabaseDirec
19d0: 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d  tory] $fileName]
19e0: 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63  ....  unset -noc
19f0: 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 73 20  omplain results 
1a00: 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73 65 74 20  errors....  set 
1a10: 73 71 6c 28 31 29 20 7b 20 5c 0d 0a 20 20 20 20  sql(1) { \..    
1a20: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28  CREATE TABLE t1(
1a30: 78 29 3b 20 5c 0d 0a 20 20 20 20 49 4e 53 45 52  x); \..    INSER
1a40: 54 20 49 4e 54 4f 20 74 31 20 28 78 29 20 56 41  T INTO t1 (x) VA
1a50: 4c 55 45 53 28 31 29 3b 20 5c 0d 0a 20 20 7d 0d  LUES(1); \..  }.
1a60: 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 32 29 20  ...  set sql(2) 
1a70: 7b 20 5c 0d 0a 20 20 20 20 53 45 4c 45 43 54 20  { \..    SELECT 
1a80: 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20 73 71  COUNT(*) FROM sq
1a90: 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52  lite_master WHER
1aa0: 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65 27  E type = 'table'
1ab0: 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65  ; \..  }....  se
1ac0: 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43  t code [compileC
1ad0: 53 68 61 72 70 57 69 74 68 20 5b 73 75 62 73 74  SharpWith [subst
1ae0: 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79   {..    using Sy
1af0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
1b00: 3b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73  ;..    using Sys
1b10: 74 65 6d 2e 54 72 61 6e 73 61 63 74 69 6f 6e 73  tem.Transactions
1b20: 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65 73 70 61  ;....    namespa
1b30: 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d  ce _Dynamic${id}
1b40: 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 70  ..    {..      p
1b50: 75 62 6c 69 63 20 73 74 61 74 69 63 20 63 6c 61  ublic static cla
1b60: 73 73 20 54 65 73 74 24 7b 69 64 7d 0d 0a 20 20  ss Test${id}..  
1b70: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 70      {..        p
1b80: 75 62 6c 69 63 20 73 74 61 74 69 63 20 69 6e 74  ublic static int
1b90: 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20 20 20 20   Main()..       
1ba0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 54 72   {..          Tr
1bb0: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
1bc0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69   transactionOpti
1bd0: 6f 6e 73 20 3d 20 6e 65 77 20 54 72 61 6e 73 61  ons = new Transa
1be0: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d  ctionOptions();.
1bf0: 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73  .          trans
1c00: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73  actionOptions.Is
1c10: 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 20 49  olationLevel = I
1c20: 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 2e 52 65  solationLevel.Re
1c30: 61 64 43 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a  adCommitted;....
1c40: 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20            using 
1c50: 28 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70  (TransactionScop
1c60: 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f  e transactionSco
1c70: 70 65 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63  pe = new Transac
1c80: 74 69 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20 20  tionScope(..    
1c90: 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 61            Transa
1ca0: 63 74 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f 6e  ctionScopeOption
1cb0: 2e 52 65 71 75 69 72 65 64 2c 20 74 72 61 6e 73  .Required, trans
1cc0: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d  actionOptions)).
1cd0: 0a 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20  .          {..  
1ce0: 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20            using 
1cf0: 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f  (SQLiteConnectio
1d00: 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d 20  n connection1 = 
1d10: 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63  new SQLiteConnec
1d20: 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20  tion(..         
1d30: 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f 75         "Data Sou
1d40: 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65  rce=${dataSource
1d50: 7d 3b 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b 5b  };Enlist=False;[
1d60: 67 65 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79  getFlagsProperty
1d70: 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  ]"))..          
1d80: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
1d90: 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f     connection1.O
1da0: 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  pen();....      
1db0: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53          using (S
1dc0: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20  QLiteConnection 
1dd0: 63 6f 6e 6e 65 63 74 69 6f 6e 32 20 3d 20 6e 65  connection2 = ne
1de0: 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69  w SQLiteConnecti
1df0: 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  on(..           
1e00: 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f 75         "Data Sou
1e10: 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65  rce=${dataSource
1e20: 7d 3b 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b 5b  };Enlist=False;[
1e30: 67 65 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79  getFlagsProperty
1e40: 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  ]"))..          
1e50: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
1e60: 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f         connectio
1e70: 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20  n2.Open();....  
1e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73                us
1e90: 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61  ing (SQLiteComma
1ea0: 6e 64 20 63 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f  nd command1 = co
1eb0: 6e 6e 65 63 74 69 6f 6e 31 2e 43 72 65 61 74 65  nnection1.Create
1ec0: 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20  Command())..    
1ed0: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
1ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1ef0: 20 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e   command1.Comman
1f00: 64 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 31  dText = "${sql(1
1f10: 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  )}";..          
1f20: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31          command1
1f30: 2e 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72 79  .ExecuteNonQuery
1f40: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ();....         
1f50: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28           using (
1f60: 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f  SQLiteCommand co
1f70: 6d 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e 65 63 74  mmand2 = connect
1f80: 69 6f 6e 32 2e 43 72 65 61 74 65 43 6f 6d 6d 61  ion2.CreateComma
1f90: 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20  nd())..         
1fa0: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
1fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1fc0: 63 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64  command2.Command
1fd0: 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 32 29  Text = "${sql(2)
1fe0: 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  }";..           
1ff0: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
2000: 28 69 6e 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61  (int)(long)comma
2010: 6e 64 32 2e 45 78 65 63 75 74 65 53 63 61 6c 61  nd2.ExecuteScala
2020: 72 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  r();..          
2030: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
2040: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
2050: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
2060: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
2070: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
2080: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20     }..      }.. 
2090: 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 20     }..  }] true 
20a0: 74 72 75 65 20 74 72 75 65 20 72 65 73 75 6c 74  true true result
20b0: 73 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d 2e  s errors System.
20c0: 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d  Data.SQLite.dll]
20d0: 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 65  ....  list $code
20e0: 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20   $results \..   
20f0: 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20     [expr {[info 
2100: 65 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 3f  exists errors] ?
2110: 20 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20   $errors : ""}] 
2120: 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b  \..      [expr {
2130: 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f 20  $code eq "Ok" ? 
2140: 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20  [catch {..      
2150: 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20    object invoke 
2160: 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65  _Dynamic${id}.Te
2170: 73 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20  st${id} Main..  
2180: 20 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20      } result] : 
2190: 5b 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d 7d  [set result ""]}
21a0: 5d 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c  ] $result..} -cl
21b0: 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e  eanup {..  clean
21c0: 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a  upDb $fileName..
21d0: 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ..  unset -nocom
21e0: 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65 73  plain result res
21f0: 75 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64 65  ults errors code
2200: 20 73 71 6c 20 64 61 74 61 53 6f 75 72 63 65 20   sql dataSource 
2210: 69 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a  id db fileName..
2220: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b  } -constraints {
2230: 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62  eagle command.ob
2240: 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20 63  ject monoBug28 c
2250: 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69  ommand.sql compi
2260: 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c 0d  le.DATA SQLite\.
2270: 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c  .System.Data.SQL
2280: 69 74 65 20 63 6f 6d 70 69 6c 65 43 53 68 61 72  ite compileCShar
2290: 70 7d 20 2d 6d 61 74 63 68 20 72 65 67 65 78 70  p} -match regexp
22a0: 20 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b 5c 0d 0a   -result {^Ok\..
22b0: 53 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43  System#CodeDom#C
22c0: 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72  ompiler#Compiler
22d0: 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d  Results#\d+ \{\}
22e0: 20 30 20 31 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23   0 1$}}....#####
22f0: 23 23 23 23 23 23 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 0d 0a 0d 0a 72 75  ##########....ru
2340: 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d  nTest {test tkt-
2350: 35 36 62 34 32 64 39 39 63 31 2d 31 2e 34 20 7b  56b42d99c1-1.4 {
2360: 65 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63  enlisted transac
2370: 74 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20  tion isolation} 
2380: 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75  -setup {..  setu
2390: 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d  pDb [set fileNam
23a0: 65 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31  e tkt-56b42d99c1
23b0: 2d 31 2e 34 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64  -1.4.db]..} -bod
23c0: 79 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f  y {..  set id [o
23d0: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74  bject invoke Int
23e0: 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69  erpreter.GetActi
23f0: 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65  ve NextId]..  se
2400: 74 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69  t dataSource [fi
2410: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61  le join [getData
2420: 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24  baseDirectory] $
2430: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75  fileName]....  u
2440: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
2450: 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d   results errors.
2460: 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 31 29 20  ...  set sql(1) 
2470: 7b 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 20  { \..    CREATE 
2480: 54 41 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a  TABLE t1(x); \..
2490: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
24a0: 74 31 20 28 78 29 20 56 41 4c 55 45 53 28 31 29  t1 (x) VALUES(1)
24b0: 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65  ; \..  }....  se
24c0: 74 20 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20  t sql(2) { \..  
24d0: 20 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a    SELECT COUNT(*
24e0: 29 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61  ) FROM sqlite_ma
24f0: 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20  ster WHERE type 
2500: 3d 20 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20  = 'table'; \..  
2510: 7d 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20  }....  set code 
2520: 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69  [compileCSharpWi
2530: 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20  th [subst {..   
2540: 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61   using System.Da
2550: 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20  ta.SQLite;..    
2560: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61  using System.Tra
2570: 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20  nsactions;....  
2580: 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e    namespace _Dyn
2590: 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b  amic${id}..    {
25a0: 0d 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 73  ..      public s
25b0: 74 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 74  tatic class Test
25c0: 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a  ${id}..      {..
25d0: 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 73          public s
25e0: 74 61 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 29  tatic int Main()
25f0: 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20  ..        {..   
2600: 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69         Transacti
2610: 6f 6e 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61  onOptions transa
2620: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e  ctionOptions = n
2630: 65 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70  ew TransactionOp
2640: 74 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20  tions();..      
2650: 20 20 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f      transactionO
2660: 70 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e  ptions.Isolation
2670: 4c 65 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f  Level = Isolatio
2680: 6e 4c 65 76 65 6c 2e 52 65 61 64 43 6f 6d 6d 69  nLevel.ReadCommi
2690: 74 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20  tted;....       
26a0: 20 20 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61     using (Transa
26b0: 63 74 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73  ctionScope trans
26c0: 61 63 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65  actionScope = ne
26d0: 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f  w TransactionSco
26e0: 70 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  pe(..           
26f0: 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63     TransactionSc
2700: 6f 70 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72  opeOption.Requir
2710: 65 64 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f  ed, transactionO
2720: 70 74 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20  ptions))..      
2730: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
2740: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
2750: 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65  Connection conne
2760: 63 74 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c  ction1 = new SQL
2770: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a  iteConnection(..
2780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2790: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64  "Data Source=${d
27a0: 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 46  ataSource};[getF
27b0: 6c 61 67 73 50 72 6f 70 65 72 74 79 5d 22 29 29  lagsProperty]"))
27c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d  ..            {.
27d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63  .              c
27e0: 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28  onnection1.Open(
27f0: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
2800: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74      using (SQLit
2810: 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e  eConnection conn
2820: 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51  ection2 = new SQ
2830: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d  LiteConnection(.
2840: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2850: 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d     "Data Source=
2860: 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 45 6e  ${dataSource};En
2870: 6c 69 73 74 3d 46 61 6c 73 65 3b 5b 67 65 74 46  list=False;[getF
2880: 6c 61 67 73 50 72 6f 70 65 72 74 79 5d 22 29 29  lagsProperty]"))
2890: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
28a0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
28b0: 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f     connection2.O
28c0: 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  pen();....      
28d0: 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20            using 
28e0: 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63  (SQLiteCommand c
28f0: 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f 6e 6e 65 63  ommand1 = connec
2900: 74 69 6f 6e 31 2e 43 72 65 61 74 65 43 6f 6d 6d  tion1.CreateComm
2910: 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20  and())..        
2920: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
2930: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d               com
2940: 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e 64 54 65 78  mand1.CommandTex
2950: 74 20 3d 20 22 24 7b 73 71 6c 28 31 29 7d 22 3b  t = "${sql(1)}";
2960: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
2970: 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e 45 78 65      command1.Exe
2980: 63 75 74 65 4e 6f 6e 51 75 65 72 79 28 29 3b 0d  cuteNonQuery();.
2990: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
29a0: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
29b0: 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e  teCommand comman
29c0: 64 32 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 32  d2 = connection2
29d0: 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29  .CreateCommand()
29e0: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
29f0: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
2a00: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d              comm
2a10: 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64 54 65 78 74  and2.CommandText
2a20: 20 3d 20 22 24 7b 73 71 6c 28 32 29 7d 22 3b 0d   = "${sql(2)}";.
2a30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
2a40: 20 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e 74       return (int
2a50: 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e  )(long)command2.
2a60: 45 78 65 63 75 74 65 53 63 61 6c 61 72 28 29 3b  ExecuteScalar();
2a70: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
2a80: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
2a90: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
2aa0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
2ab0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
2ac0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d      }..        }
2ad0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d  ..      }..    }
2ae0: 0d 0a 20 20 7d 5d 20 74 72 75 65 20 74 72 75 65  ..  }] true true
2af0: 20 74 72 75 65 20 72 65 73 75 6c 74 73 20 65 72   true results er
2b00: 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61  rors System.Data
2b10: 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a  .SQLite.dll]....
2b20: 20 20 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65    list $code $re
2b30: 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b  sults \..      [
2b40: 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73  expr {[info exis
2b50: 74 73 20 65 72 72 6f 72 73 5d 20 3f 20 24 65 72  ts errors] ? $er
2b60: 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20  rors : ""}] \.. 
2b70: 20 20 20 20 20 5b 65 78 70 72 20 7b 24 63 6f 64       [expr {$cod
2b80: 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74  e eq "Ok" ? [cat
2b90: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62  ch {..        ob
2ba0: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e  ject invoke _Dyn
2bb0: 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b  amic${id}.Test${
2bc0: 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 20 20 20  id} Main..      
2bd0: 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74  } result] : [set
2be0: 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72   result ""]}] $r
2bf0: 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75  esult..} -cleanu
2c00: 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62  p {..  cleanupDb
2c10: 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20   $fileName....  
2c20: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
2c30: 6e 20 72 65 73 75 6c 74 20 72 65 73 75 6c 74 73  n result results
2c40: 20 65 72 72 6f 72 73 20 63 6f 64 65 20 73 71 6c   errors code sql
2c50: 20 64 61 74 61 53 6f 75 72 63 65 20 69 64 20 64   dataSource id d
2c60: 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63  b fileName..} -c
2c70: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c  onstraints {eagl
2c80: 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74  e command.object
2c90: 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61   monoBug28 comma
2ca0: 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44  nd.sql compile.D
2cb0: 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73  ATA SQLite\..Sys
2cc0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20  tem.Data.SQLite 
2cd0: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d  compileCSharp} -
2ce0: 6d 61 74 63 68 20 72 65 67 65 78 70 20 2d 72 65  match regexp -re
2cf0: 73 75 6c 74 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74  sult {^Ok\..Syst
2d00: 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69  em#CodeDom#Compi
2d10: 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75  ler#CompilerResu
2d20: 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 30  lts#\d+ \{\} 0 0
2d30: 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23  $}}....#########
2d40: 23 23 23 23 23 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 0d 0a 0d 0a 72 75 6e 54 65 73  ######....runTes
2d90: 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 36 62 34  t {test tkt-56b4
2da0: 32 64 39 39 63 31 2d 31 2e 35 20 7b 65 6e 6c 69  2d99c1-1.5 {enli
2db0: 73 74 65 64 20 74 72 61 6e 73 61 63 74 69 6f 6e  sted transaction
2dc0: 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74   isolation} -set
2dd0: 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 20  up {..  setupDb 
2de0: 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b  [set fileName tk
2df0: 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e 35  t-56b42d99c1-1.5
2e00: 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d  .db]..} -body {.
2e10: 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63  .  set id [objec
2e20: 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72  t invoke Interpr
2e30: 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e  eter.GetActive N
2e40: 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 61  extId]..  set da
2e50: 74 61 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a  taSource [file j
2e60: 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65  oin [getDatabase
2e70: 44 69 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65  Directory] $file
2e80: 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74  Name]....  unset
2e90: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73   -nocomplain res
2ea0: 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20  ults errors.... 
2eb0: 20 73 65 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d   set sql(1) { \.
2ec0: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
2ed0: 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20  E t1(x); \..    
2ee0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28  INSERT INTO t1 (
2ef0: 78 29 20 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d  x) VALUES(1); \.
2f00: 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71  .  }....  set sq
2f10: 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45  l(2) { \..    SE
2f20: 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52  LECT COUNT(*) FR
2f30: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
2f40: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74   WHERE type = 't
2f50: 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d  able'; \..  }...
2f60: 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d  .  set code [com
2f70: 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b  pileCSharpWith [
2f80: 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69  subst {..    usi
2f90: 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ng System.Data.S
2fa0: 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e  QLite;..    usin
2fb0: 67 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63  g System.Transac
2fc0: 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61  tions;....    na
2fd0: 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63  mespace _Dynamic
2fe0: 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20  ${id}..    {..  
2ff0: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69      public stati
3000: 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64  c class Test${id
3010: 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20  }..      {..    
3020: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69      public stati
3030: 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20  c int Main()..  
3040: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
3050: 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70     TransactionOp
3060: 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 6f  tions transactio
3070: 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54  nOptions = new T
3080: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e  ransactionOption
3090: 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  s();..          
30a0: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
30b0: 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65  ns.IsolationLeve
30c0: 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76  l = IsolationLev
30d0: 65 6c 2e 52 65 61 64 43 6f 6d 6d 69 74 74 65 64  el.ReadCommitted
30e0: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 75  ;....          u
30f0: 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74 69 6f  sing (Transactio
3100: 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63 74 69  nScope transacti
3110: 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 72  onScope = new Tr
3120: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 0d  ansactionScope(.
3130: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54  .              T
3140: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 4f  ransactionScopeO
3150: 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c 20  ption.Required, 
3160: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
3170: 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  ns))..          
3180: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 75  {..            u
3190: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e  sing (SQLiteConn
31a0: 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f  ection connectio
31b0: 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43  n1 = new SQLiteC
31c0: 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20  onnection(..    
31d0: 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74              "Dat
31e0: 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53  a Source=${dataS
31f0: 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 61  ource};Enlist=Fa
3200: 6c 73 65 3b 5b 67 65 74 46 6c 61 67 73 50 72 6f  lse;[getFlagsPro
3210: 70 65 72 74 79 5d 22 29 29 0d 0a 20 20 20 20 20  perty]"))..     
3220: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
3230: 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69          connecti
3240: 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20  on1.Open();.... 
3250: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69               usi
3260: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63  ng (SQLiteConnec
3270: 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 32  tion connection2
3280: 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e   = new SQLiteCon
3290: 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20  nection(..      
32a0: 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74              "Dat
32b0: 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53  a Source=${dataS
32c0: 6f 75 72 63 65 7d 3b 5b 67 65 74 46 6c 61 67 73  ource};[getFlags
32d0: 50 72 6f 70 65 72 74 79 5d 22 29 29 0d 0a 20 20  Property]"))..  
32e0: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
32f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
3300: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28  onnection2.Open(
3310: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
3320: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
3330: 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61  iteCommand comma
3340: 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e  nd1 = connection
3350: 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  1.CreateCommand(
3360: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
3370: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
3380: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64           command
3390: 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20  1.CommandText = 
33a0: 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20  "${sql(1)}";..  
33b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
33c0: 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65  command1.Execute
33d0: 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20  NonQuery();.... 
33e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
33f0: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
3400: 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d  mmand command2 =
3410: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65   connection2.Cre
3420: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20  ateCommand()).. 
3430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3440: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
3450: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32          command2
3460: 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22  .CommandText = "
3470: 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20  ${sql(2)}";..   
3480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3490: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f   return (int)(lo
34a0: 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63  ng)command2.Exec
34b0: 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20  uteScalar();..  
34c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
34d0: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
34e0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
34f0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
3500: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
3510: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
3520: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20      }..    }..  
3530: 7d 5d 20 74 72 75 65 20 74 72 75 65 20 74 72 75  }] true true tru
3540: 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73  e results errors
3550: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
3560: 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69  ite.dll]....  li
3570: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74  st $code $result
3580: 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72  s \..      [expr
3590: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65   {[info exists e
35a0: 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73  rrors] ? $errors
35b0: 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20   : ""}] \..     
35c0: 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71   [expr {$code eq
35d0: 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b   "Ok" ? [catch {
35e0: 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74  ..        object
35f0: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63   invoke _Dynamic
3600: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20  ${id}.Test${id} 
3610: 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65  Main..      } re
3620: 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73  sult] : [set res
3630: 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c  ult ""]}] $resul
3640: 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d  t..} -cleanup {.
3650: 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69  .  cleanupDb $fi
3660: 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65  leName....  unse
3670: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
3680: 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72  sult results err
3690: 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74  ors code sql dat
36a0: 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66 69  aSource id db fi
36b0: 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74  leName..} -const
36c0: 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f  raints {eagle co
36d0: 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e  mmand.object mon
36e0: 6f 42 75 67 32 31 31 20 6d 6f 6e 6f 42 75 67 35  oBug211 monoBug5
36f0: 34 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 5c 0d 0a  4 command.sql\..
3700: 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c  compile.DATA SQL
3710: 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e  ite System.Data.
3720: 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c 65 43 53  SQLite compileCS
3730: 68 61 72 70 7d 20 2d 6d 61 74 63 68 20 72 65 67  harp} -match reg
3740: 65 78 70 20 2d 72 65 73 75 6c 74 20 5c 0d 0a 7b  exp -result \..{
3750: 5e 4f 6b 20 53 79 73 74 65 6d 23 43 6f 64 65 44  ^Ok System#CodeD
3760: 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f 6d 70  om#Compiler#Comp
3770: 69 6c 65 72 52 65 73 75 6c 74 73 23 5c 64 2b 20  ilerResults#\d+ 
3780: 5c 7b 5c 7d 20 30 20 31 24 7d 7d 0d 0a 0d 0a 23  \{\} 0 1$}}....#
3790: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
37a0: 23 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 0d 0a  ##############..
37e0: 0d 0a 73 65 74 20 66 6c 61 67 73 20 4d 61 70 49  ..set flags MapI
37f0: 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 73 0d 0a  solationLevels..
3800: 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ..##############
3810: 23 23 23 23 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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65  #....runTest {te
3860: 73 74 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63  st tkt-56b42d99c
3870: 31 2d 31 2e 36 20 7b 65 6e 6c 69 73 74 65 64 20  1-1.6 {enlisted 
3880: 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73 6f 6c  transaction isol
3890: 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20 7b 0d  ation} -setup {.
38a0: 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65 74 20  .  setupDb [set 
38b0: 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35 36 62  fileName tkt-56b
38c0: 34 32 64 39 39 63 31 2d 31 2e 36 2e 64 62 5d 0d  42d99c1-1.6.db].
38d0: 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65  .} -body {..  se
38e0: 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76  t id [object inv
38f0: 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e  oke Interpreter.
3900: 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 64  GetActive NextId
3910: 5d 0d 0a 20 20 73 65 74 20 64 61 74 61 53 6f 75  ]..  set dataSou
3920: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b  rce [file join [
3930: 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63  getDatabaseDirec
3940: 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d  tory] $fileName]
3950: 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63  ....  unset -noc
3960: 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 73 20  omplain results 
3970: 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73 65 74 20  errors....  set 
3980: 63 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43 53 68  code [compileCSh
3990: 61 72 70 57 69 74 68 20 5b 73 75 62 73 74 20 7b  arpWith [subst {
39a0: 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 74  ..    using Syst
39b0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d  em.Data.SQLite;.
39c0: 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65  .    using Syste
39d0: 6d 2e 52 65 66 6c 65 63 74 69 6f 6e 3b 0d 0a 20  m.Reflection;.. 
39e0: 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e     using System.
39f0: 54 72 61 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d  Transactions;...
3a00: 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 5f  .    namespace _
3a10: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20  Dynamic${id}..  
3a20: 20 20 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c 69    {..      publi
3a30: 63 20 73 74 61 74 69 63 20 63 6c 61 73 73 20 54  c static class T
3a40: 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20  est${id}..      
3a50: 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c 69  {..        publi
3a60: 63 20 73 74 61 74 69 63 20 62 6f 6f 6c 20 54 72  c static bool Tr
3a70: 79 45 6e 6c 69 73 74 49 6e 54 72 61 6e 73 61 63  yEnlistInTransac
3a80: 74 69 6f 6e 28 29 0d 0a 20 20 20 20 20 20 20 20  tion()..        
3a90: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 54 72 61  {..          Tra
3aa0: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20  nsactionOptions 
3ab0: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
3ac0: 6e 73 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63  ns = new Transac
3ad0: 74 69 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a  tionOptions();..
3ae0: 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 61            transa
3af0: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f  ctionOptions.Iso
3b00: 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 20 49 73  lationLevel = Is
3b10: 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 2e 52 65 61  olationLevel.Rea
3b20: 64 55 6e 63 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d  dUncommitted;...
3b30: 0a 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67  .          using
3b40: 20 28 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f   (TransactionSco
3b50: 70 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 53 63  pe transactionSc
3b60: 6f 70 65 20 3d 20 6e 65 77 20 54 72 61 6e 73 61  ope = new Transa
3b70: 63 74 69 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20  ctionScope(..   
3b80: 20 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73             Trans
3b90: 61 63 74 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f  actionScopeOptio
3ba0: 6e 2e 52 65 71 75 69 72 65 64 2c 20 74 72 61 6e  n.Required, tran
3bb0: 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29  sactionOptions))
3bc0: 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20  ..          {.. 
3bd0: 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67             using
3be0: 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69   (SQLiteConnecti
3bf0: 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d  on connection1 =
3c00: 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65   new SQLiteConne
3c10: 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20  ction(..        
3c20: 20 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f          "Data So
3c30: 75 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63  urce=${dataSourc
3c40: 65 7d 3b 5b 67 65 74 46 6c 61 67 73 50 72 6f 70  e};[getFlagsProp
3c50: 65 72 74 79 20 24 66 6c 61 67 73 5d 22 29 29 0d  erty $flags]")).
3c60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a  .            {..
3c70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f                co
3c80: 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29  nnection1.Open()
3c90: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ;....           
3ca0: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
3cb0: 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65  Connection conne
3cc0: 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c  ction2 = new SQL
3cd0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a  iteConnection(..
3ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3cf0: 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24    "Data Source=$
3d00: 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65  {dataSource};[ge
3d10: 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79 20 24  tFlagsProperty $
3d20: 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 20 20  flags]"))..     
3d30: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
3d40: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e              conn
3d50: 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 29 3b 0d  ection2.Open();.
3d60: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
3d70: 20 20 20 42 69 6e 64 69 6e 67 46 6c 61 67 73 20     BindingFlags 
3d80: 62 69 6e 64 69 6e 67 46 6c 61 67 73 20 3d 20 42  bindingFlags = B
3d90: 69 6e 64 69 6e 67 46 6c 61 67 73 2e 49 6e 73 74  indingFlags.Inst
3da0: 61 6e 63 65 20 7c 0d 0a 20 20 20 20 20 20 20 20  ance |..        
3db0: 20 20 20 20 20 20 20 20 20 20 42 69 6e 64 69 6e            Bindin
3dc0: 67 46 6c 61 67 73 2e 4e 6f 6e 50 75 62 6c 69 63  gFlags.NonPublic
3dd0: 20 7c 20 42 69 6e 64 69 6e 67 46 6c 61 67 73 2e   | BindingFlags.
3de0: 47 65 74 46 69 65 6c 64 3b 0d 0a 0d 0a 20 20 20  GetField;....   
3df0: 20 20 20 20 20 20 20 20 20 20 20 20 20 46 69 65               Fie
3e00: 6c 64 49 6e 66 6f 20 66 69 65 6c 64 49 6e 66 6f  ldInfo fieldInfo
3e10: 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e  1 = connection1.
3e20: 47 65 74 54 79 70 65 28 29 2e 47 65 74 46 69 65  GetType().GetFie
3e30: 6c 64 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ld(..           
3e40: 20 20 20 20 20 20 20 22 5f 65 6e 6c 69 73 74 6d         "_enlistm
3e50: 65 6e 74 22 2c 20 62 69 6e 64 69 6e 67 46 6c 61  ent", bindingFla
3e60: 67 73 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  gs);....        
3e70: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 65          object e
3e80: 6e 6c 69 73 74 6d 65 6e 74 31 20 3d 20 66 69 65  nlistment1 = fie
3e90: 6c 64 49 6e 66 6f 31 2e 47 65 74 56 61 6c 75 65  ldInfo1.GetValue
3ea0: 28 63 6f 6e 6e 65 63 74 69 6f 6e 31 29 3b 0d 0a  (connection1);..
3eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3ec0: 6f 62 6a 65 63 74 20 65 6e 6c 69 73 74 6d 65 6e  object enlistmen
3ed0: 74 32 20 3d 20 66 69 65 6c 64 49 6e 66 6f 31 2e  t2 = fieldInfo1.
3ee0: 47 65 74 56 61 6c 75 65 28 63 6f 6e 6e 65 63 74  GetValue(connect
3ef0: 69 6f 6e 32 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  ion2);....      
3f00: 20 20 20 20 20 20 20 20 20 20 46 69 65 6c 64 49            FieldI
3f10: 6e 66 6f 20 66 69 65 6c 64 49 6e 66 6f 32 20 3d  nfo fieldInfo2 =
3f20: 20 65 6e 6c 69 73 74 6d 65 6e 74 31 2e 47 65 74   enlistment1.Get
3f30: 54 79 70 65 28 29 2e 47 65 74 46 69 65 6c 64 28  Type().GetField(
3f40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
3f50: 20 20 20 20 22 5f 74 72 61 6e 73 61 63 74 69 6f      "_transactio
3f60: 6e 22 2c 20 62 69 6e 64 69 6e 67 46 6c 61 67 73  n", bindingFlags
3f70: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
3f80: 20 20 20 20 20 20 53 51 4c 69 74 65 54 72 61 6e        SQLiteTran
3f90: 73 61 63 74 69 6f 6e 20 74 72 61 6e 73 61 63 74  saction transact
3fa0: 69 6f 6e 31 20 3d 0d 0a 20 20 20 20 20 20 20 20  ion1 =..        
3fb0: 20 20 20 20 20 20 20 20 20 20 28 53 51 4c 69 74            (SQLit
3fc0: 65 54 72 61 6e 73 61 63 74 69 6f 6e 29 66 69 65  eTransaction)fie
3fd0: 6c 64 49 6e 66 6f 32 2e 47 65 74 56 61 6c 75 65  ldInfo2.GetValue
3fe0: 28 65 6e 6c 69 73 74 6d 65 6e 74 31 29 3b 0d 0a  (enlistment1);..
3ff0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
4000: 20 20 53 51 4c 69 74 65 54 72 61 6e 73 61 63 74    SQLiteTransact
4010: 69 6f 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 32  ion transaction2
4020: 20 3d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   =..            
4030: 20 20 20 20 20 20 28 53 51 4c 69 74 65 54 72 61        (SQLiteTra
4040: 6e 73 61 63 74 69 6f 6e 29 66 69 65 6c 64 49 6e  nsaction)fieldIn
4050: 66 6f 32 2e 47 65 74 56 61 6c 75 65 28 65 6e 6c  fo2.GetValue(enl
4060: 69 73 74 6d 65 6e 74 32 29 3b 0d 0a 0d 0a 20 20  istment2);....  
4070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65                re
4080: 74 75 72 6e 20 28 74 72 61 6e 73 61 63 74 69 6f  turn (transactio
4090: 6e 31 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65  n1.IsolationLeve
40a0: 6c 20 3d 3d 0d 0a 20 20 20 20 20 20 20 20 20 20  l ==..          
40b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72                tr
40c0: 61 6e 73 61 63 74 69 6f 6e 32 2e 49 73 6f 6c 61  ansaction2.Isola
40d0: 74 69 6f 6e 4c 65 76 65 6c 29 3b 0d 0a 20 20 20  tionLevel);..   
40e0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
40f0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
4100: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
4110: 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 2f    }....        /
4120: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
4130: 2f 2f 2f 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 0d 0a 0d 0a 20 20 20 20 20 20  //////....      
4170: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
4180: 76 6f 69 64 20 4d 61 69 6e 28 29 0d 0a 20 20 20  void Main()..   
4190: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
41a0: 20 20 2f 2f 20 64 6f 20 6e 6f 74 68 69 6e 67 2e    // do nothing.
41b0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20  ..        }..   
41c0: 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d     }..    }..  }
41d0: 5d 20 74 72 75 65 20 74 72 75 65 20 74 72 75 65  ] true true true
41e0: 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20   results errors 
41f0: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
4200: 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73  te.dll]....  lis
4210: 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 73  t $code $results
4220: 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20   \..      [expr 
4230: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65 72  {[info exists er
4240: 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73 20  rors] ? $errors 
4250: 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20  : ""}] \..      
4260: 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71 20  [expr {$code eq 
4270: 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b 0d  "Ok" ? [catch {.
4280: 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20  .        object 
4290: 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24  invoke _Dynamic$
42a0: 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20 54  {id}.Test${id} T
42b0: 72 79 45 6e 6c 69 73 74 49 6e 54 72 61 6e 73 61  ryEnlistInTransa
42c0: 63 74 69 6f 6e 0d 0a 20 20 20 20 20 20 7d 20 72  ction..      } r
42d0: 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65  esult] : [set re
42e0: 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75  sult ""]}] $resu
42f0: 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  lt..} -cleanup {
4300: 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66  ..  cleanupDb $f
4310: 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73  ileName....  uns
4320: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
4330: 65 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72  esult results er
4340: 72 6f 72 73 20 63 6f 64 65 20 64 61 74 61 53 6f  rors code dataSo
4350: 75 72 63 65 20 69 64 20 64 62 20 66 69 6c 65 4e  urce id db fileN
4360: 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69  ame..} -constrai
4370: 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d 61  nts {eagle comma
4380: 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42 75  nd.object monoBu
4390: 67 32 38 20 6d 6f 6e 6f 42 75 67 32 31 31 20 6d  g28 monoBug211 m
43a0: 6f 6e 6f 42 75 67 35 34 20 63 6f 6d 6d 61 6e 64  onoBug54 command
43b0: 2e 73 71 6c 5c 0d 0a 63 6f 6d 70 69 6c 65 2e 44  .sql\..compile.D
43c0: 41 54 41 20 53 51 4c 69 74 65 20 53 79 73 74 65  ATA SQLite Syste
43d0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f  m.Data.SQLite co
43e0: 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61  mpileCSharp} -ma
43f0: 74 63 68 20 72 65 67 65 78 70 20 2d 72 65 73 75  tch regexp -resu
4400: 6c 74 20 5c 0d 0a 7b 5e 4f 6b 20 53 79 73 74 65  lt \..{^Ok Syste
4410: 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c  m#CodeDom#Compil
4420: 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c  er#CompilerResul
4430: 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 54 72  ts#\d+ \{\} 0 Tr
4440: 75 65 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23  ue$}}....#######
4450: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d 0a 72 75 6e 54  ########....runT
44a0: 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 36  est {test tkt-56
44b0: 62 34 32 64 39 39 63 31 2d 31 2e 37 20 7b 65 6e  b42d99c1-1.7 {en
44c0: 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63 74 69  listed transacti
44d0: 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73  on isolation} -s
44e0: 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44  etup {..  setupD
44f0: 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20  b [set fileName 
4500: 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31  tkt-56b42d99c1-1
4510: 2e 37 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20  .7.db]..} -body 
4520: 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 6a  {..  set id [obj
4530: 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72  ect invoke Inter
4540: 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65  preter.GetActive
4550: 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 20   NextId]..  set 
4560: 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69 6c 65  dataSource [file
4570: 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61   join [getDataba
4580: 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66 69  seDirectory] $fi
4590: 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73  leName]....  uns
45a0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72  et -nocomplain r
45b0: 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d  esults errors...
45c0: 0a 20 20 73 65 74 20 73 71 6c 28 31 29 20 7b 20  .  set sql(1) { 
45d0: 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  \..    CREATE TA
45e0: 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20 20  BLE t1(x); \..  
45f0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
4600: 20 28 78 29 20 56 41 4c 55 45 53 28 31 29 3b 20   (x) VALUES(1); 
4610: 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20  \..  }....  set 
4620: 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20 20  sql(2) { \..    
4630: 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20  SELECT COUNT(*) 
4640: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
4650: 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20  er WHERE type = 
4660: 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d  'table'; \..  }.
4670: 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63  ...  set code [c
4680: 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 68  ompileCSharpWith
4690: 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75   [subst {..    u
46a0: 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61  sing System.Data
46b0: 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73  .SQLite;..    us
46c0: 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61 6e 73  ing System.Trans
46d0: 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20  actions;....    
46e0: 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d  namespace _Dynam
46f0: 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a  ic${id}..    {..
4700: 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61        public sta
4710: 74 69 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b  tic class Test${
4720: 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20  id}..      {..  
4730: 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61        public sta
4740: 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d 0a  tic int Main()..
4750: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
4760: 20 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e       Transaction
4770: 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74  Options transact
4780: 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77  ionOptions = new
4790: 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69   TransactionOpti
47a0: 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20  ons();..        
47b0: 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74    transactionOpt
47c0: 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65  ions.IsolationLe
47d0: 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c  vel = IsolationL
47e0: 65 76 65 6c 2e 52 65 61 64 55 6e 63 6f 6d 6d 69  evel.ReadUncommi
47f0: 74 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20  tted;....       
4800: 20 20 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61     using (Transa
4810: 63 74 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73  ctionScope trans
4820: 61 63 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65  actionScope = ne
4830: 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f  w TransactionSco
4840: 70 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  pe(..           
4850: 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63     TransactionSc
4860: 6f 70 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72  opeOption.Requir
4870: 65 64 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f  ed, transactionO
4880: 70 74 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20  ptions))..      
4890: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
48a0: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
48b0: 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65  Connection conne
48c0: 63 74 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c  ction1 = new SQL
48d0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a  iteConnection(..
48e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
48f0: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64  "Data Source=${d
4900: 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 46  ataSource};[getF
4910: 6c 61 67 73 50 72 6f 70 65 72 74 79 20 24 66 6c  lagsProperty $fl
4920: 61 67 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 20  ags]"))..       
4930: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
4940: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e        connection
4950: 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20  1.Open();....   
4960: 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67             using
4970: 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69   (SQLiteConnecti
4980: 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 20 3d  on connection2 =
4990: 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65   new SQLiteConne
49a0: 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20  ction(..        
49b0: 20 20 20 20 20 20 20 20 20 20 22 44 61 74 61 20            "Data 
49c0: 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 6f 75  Source=${dataSou
49d0: 72 63 65 7d 3b 5b 67 65 74 46 6c 61 67 73 50 72  rce};[getFlagsPr
49e0: 6f 70 65 72 74 79 20 24 66 6c 61 67 73 5d 22 29  operty $flags]")
49f0: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
4a00: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
4a10: 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e      connection2.
4a20: 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20  Open();....     
4a30: 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67             using
4a40: 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20   (SQLiteCommand 
4a50: 63 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f 6e 6e 65  command1 = conne
4a60: 63 74 69 6f 6e 31 2e 43 72 65 61 74 65 43 6f 6d  ction1.CreateCom
4a70: 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20  mand())..       
4a80: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
4a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f                co
4aa0: 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e 64 54 65  mmand1.CommandTe
4ab0: 78 74 20 3d 20 22 24 7b 73 71 6c 28 31 29 7d 22  xt = "${sql(1)}"
4ac0: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
4ad0: 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e 45 78       command1.Ex
4ae0: 65 63 75 74 65 4e 6f 6e 51 75 65 72 79 28 29 3b  ecuteNonQuery();
4af0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
4b00: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
4b10: 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61  iteCommand comma
4b20: 6e 64 32 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e  nd2 = connection
4b30: 32 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  2.CreateCommand(
4b40: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
4b50: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
4b60: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d               com
4b70: 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64 54 65 78  mand2.CommandTex
4b80: 74 20 3d 20 22 24 7b 73 71 6c 28 32 29 7d 22 3b  t = "${sql(2)}";
4b90: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
4ba0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e        return (in
4bb0: 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61 6e 64 32  t)(long)command2
4bc0: 2e 45 78 65 63 75 74 65 53 63 61 6c 61 72 28 29  .ExecuteScalar()
4bd0: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
4be0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
4bf0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
4c00: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
4c10: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
4c20: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
4c30: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  }..      }..    
4c40: 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 20 74 72 75  }..  }] true tru
4c50: 65 20 74 72 75 65 20 72 65 73 75 6c 74 73 20 65  e true results e
4c60: 72 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 61 74  rrors System.Dat
4c70: 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d  a.SQLite.dll]...
4c80: 0a 20 20 6c 69 73 74 20 24 63 6f 64 65 20 24 72  .  list $code $r
4c90: 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20  esults \..      
4ca0: 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69  [expr {[info exi
4cb0: 73 74 73 20 65 72 72 6f 72 73 5d 20 3f 20 24 65  sts errors] ? $e
4cc0: 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a  rrors : ""}] \..
4cd0: 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24 63 6f        [expr {$co
4ce0: 64 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b 63 61  de eq "Ok" ? [ca
4cf0: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 6f  tch {..        o
4d00: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79  bject invoke _Dy
4d10: 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24  namic${id}.Test$
4d20: 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 20 20  {id} Main..     
4d30: 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b 73 65   } result] : [se
4d40: 74 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d 20 24  t result ""]}] $
4d50: 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e  result..} -clean
4d60: 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44  up {..  cleanupD
4d70: 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20  b $fileName.... 
4d80: 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61   unset -nocompla
4d90: 69 6e 20 72 65 73 75 6c 74 20 72 65 73 75 6c 74  in result result
4da0: 73 20 65 72 72 6f 72 73 20 63 6f 64 65 20 73 71  s errors code sq
4db0: 6c 20 64 61 74 61 53 6f 75 72 63 65 20 69 64 20  l dataSource id 
4dc0: 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d  db fileName..} -
4dd0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67  constraints {eag
4de0: 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63  le command.objec
4df0: 74 20 6d 6f 6e 6f 42 75 67 32 38 20 6d 6f 6e 6f  t monoBug28 mono
4e00: 42 75 67 32 31 31 20 6d 6f 6e 6f 42 75 67 35 34  Bug211 monoBug54
4e10: 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 5c 0d 0a 63   command.sql\..c
4e20: 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69  ompile.DATA SQLi
4e30: 74 65 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  te System.Data.S
4e40: 51 4c 69 74 65 20 63 6f 6d 70 69 6c 65 43 53 68  QLite compileCSh
4e50: 61 72 70 7d 20 2d 6d 61 74 63 68 20 72 65 67 65  arp} -match rege
4e60: 78 70 20 2d 72 65 73 75 6c 74 20 5c 0d 0a 7b 5e  xp -result \..{^
4e70: 4f 6b 20 53 79 73 74 65 6d 23 43 6f 64 65 44 6f  Ok System#CodeDo
4e80: 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69  m#Compiler#Compi
4e90: 6c 65 72 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c  lerResults#\d+ \
4ea0: 7b 5c 7d 20 30 20 30 24 7d 7d 0d 0a 0d 0a 23 23  {\} 0 0$}}....##
4eb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ec0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d  #############...
4f00: 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74  .runTest {test t
4f10: 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e  kt-56b42d99c1-1.
4f20: 38 20 7b 65 6e 6c 69 73 74 65 64 20 74 72 61 6e  8 {enlisted tran
4f30: 73 61 63 74 69 6f 6e 20 69 73 6f 6c 61 74 69 6f  saction isolatio
4f40: 6e 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73  n} -setup {..  s
4f50: 65 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65  etupDb [set file
4f60: 4e 61 6d 65 20 74 6b 74 2d 35 36 62 34 32 64 39  Name tkt-56b42d9
4f70: 39 63 31 2d 31 2e 38 2e 64 62 5d 0d 0a 7d 20 2d  9c1-1.8.db]..} -
4f80: 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 69 64  body {..  set id
4f90: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   [object invoke 
4fa0: 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 41  Interpreter.GetA
4fb0: 63 74 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20  ctive NextId].. 
4fc0: 20 73 65 74 20 64 61 74 61 53 6f 75 72 63 65 20   set dataSource 
4fd0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44  [file join [getD
4fe0: 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79  atabaseDirectory
4ff0: 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a  ] $fileName]....
5000: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
5010: 61 69 6e 20 72 65 73 75 6c 74 73 20 65 72 72 6f  ain results erro
5020: 72 73 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28  rs....  set sql(
5030: 31 29 20 7b 20 5c 0d 0a 20 20 20 20 43 52 45 41  1) { \..    CREA
5040: 54 45 20 54 41 42 4c 45 20 74 31 28 78 29 3b 20  TE TABLE t1(x); 
5050: 5c 0d 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  \..    INSERT IN
5060: 54 4f 20 74 31 20 28 78 29 20 56 41 4c 55 45 53  TO t1 (x) VALUES
5070: 28 31 29 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20  (1); \..  }.... 
5080: 20 73 65 74 20 73 71 6c 28 32 29 20 7b 20 5c 0d   set sql(2) { \.
5090: 0a 20 20 20 20 53 45 4c 45 43 54 20 43 4f 55 4e  .    SELECT COUN
50a0: 54 28 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74 65  T(*) FROM sqlite
50b0: 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74 79  _master WHERE ty
50c0: 70 65 20 3d 20 27 74 61 62 6c 65 27 3b 20 5c 0d  pe = 'table'; \.
50d0: 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 63 6f  .  }....  set co
50e0: 64 65 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72  de [compileCShar
50f0: 70 57 69 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a  pWith [subst {..
5100: 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d      using System
5110: 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20  .Data.SQLite;.. 
5120: 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e     using System.
5130: 54 72 61 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d  Transactions;...
5140: 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 5f  .    namespace _
5150: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20  Dynamic${id}..  
5160: 20 20 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c 69    {..      publi
5170: 63 20 73 74 61 74 69 63 20 63 6c 61 73 73 20 54  c static class T
5180: 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20  est${id}..      
5190: 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c 69  {..        publi
51a0: 63 20 73 74 61 74 69 63 20 69 6e 74 20 4d 61 69  c static int Mai
51b0: 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a  n()..        {..
51c0: 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 61            Transa
51d0: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 74 72 61  ctionOptions tra
51e0: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20  nsactionOptions 
51f0: 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f  = new Transactio
5200: 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a 20 20 20  nOptions();..   
5210: 20 20 20 20 20 20 20 74 72 61 6e 73 61 63 74 69         transacti
5220: 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f 6c 61 74  onOptions.Isolat
5230: 69 6f 6e 4c 65 76 65 6c 20 3d 20 49 73 6f 6c 61  ionLevel = Isola
5240: 74 69 6f 6e 4c 65 76 65 6c 2e 52 65 61 64 55 6e  tionLevel.ReadUn
5250: 63 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20 20  committed;....  
5260: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 54          using (T
5270: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20  ransactionScope 
5280: 74 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65  transactionScope
5290: 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69   = new Transacti
52a0: 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20 20 20 20  onScope(..      
52b0: 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74          Transact
52c0: 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e 52  ionScopeOption.R
52d0: 65 71 75 69 72 65 64 2c 20 74 72 61 6e 73 61 63  equired, transac
52e0: 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a 20  tionOptions)).. 
52f0: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
5300: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53          using (S
5310: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20  QLiteConnection 
5320: 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e 65  connection1 = ne
5330: 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69  w SQLiteConnecti
5340: 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  on(..           
5350: 20 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63       "Data Sourc
5360: 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b  e=${dataSource};
5370: 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b 5b 67 65  Enlist=False;[ge
5380: 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79 20 24  tFlagsProperty $
5390: 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 20 20  flags]"))..     
53a0: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
53b0: 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69          connecti
53c0: 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20  on1.Open();.... 
53d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69               usi
53e0: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63  ng (SQLiteConnec
53f0: 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 32  tion connection2
5400: 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e   = new SQLiteCon
5410: 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20  nection(..      
5420: 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74              "Dat
5430: 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53  a Source=${dataS
5440: 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 61  ource};Enlist=Fa
5450: 6c 73 65 3b 5b 67 65 74 46 6c 61 67 73 50 72 6f  lse;[getFlagsPro
5460: 70 65 72 74 79 20 24 66 6c 61 67 73 5d 22 29 29  perty $flags]"))
5470: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
5480: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
5490: 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f     connection2.O
54a0: 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  pen();....      
54b0: 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20            using 
54c0: 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63  (SQLiteCommand c
54d0: 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f 6e 6e 65 63  ommand1 = connec
54e0: 74 69 6f 6e 31 2e 43 72 65 61 74 65 43 6f 6d 6d  tion1.CreateComm
54f0: 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20  and())..        
5500: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
5510: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d               com
5520: 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e 64 54 65 78  mand1.CommandTex
5530: 74 20 3d 20 22 24 7b 73 71 6c 28 31 29 7d 22 3b  t = "${sql(1)}";
5540: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
5550: 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e 45 78 65      command1.Exe
5560: 63 75 74 65 4e 6f 6e 51 75 65 72 79 28 29 3b 0d  cuteNonQuery();.
5570: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
5580: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
5590: 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e  teCommand comman
55a0: 64 32 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 32  d2 = connection2
55b0: 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29  .CreateCommand()
55c0: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
55d0: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
55e0: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d              comm
55f0: 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64 54 65 78 74  and2.CommandText
5600: 20 3d 20 22 24 7b 73 71 6c 28 32 29 7d 22 3b 0d   = "${sql(2)}";.
5610: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
5620: 20 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e 74       return (int
5630: 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e  )(long)command2.
5640: 45 78 65 63 75 74 65 53 63 61 6c 61 72 28 29 3b  ExecuteScalar();
5650: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
5660: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
5670: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
5680: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
5690: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
56a0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d      }..        }
56b0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d  ..      }..    }
56c0: 0d 0a 20 20 7d 5d 20 74 72 75 65 20 74 72 75 65  ..  }] true true
56d0: 20 74 72 75 65 20 72 65 73 75 6c 74 73 20 65 72   true results er
56e0: 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61  rors System.Data
56f0: 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a  .SQLite.dll]....
5700: 20 20 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65    list $code $re
5710: 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b  sults \..      [
5720: 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73  expr {[info exis
5730: 74 73 20 65 72 72 6f 72 73 5d 20 3f 20 24 65 72  ts errors] ? $er
5740: 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20  rors : ""}] \.. 
5750: 20 20 20 20 20 5b 65 78 70 72 20 7b 24 63 6f 64       [expr {$cod
5760: 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74  e eq "Ok" ? [cat
5770: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62  ch {..        ob
5780: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e  ject invoke _Dyn
5790: 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b  amic${id}.Test${
57a0: 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 20 20 20  id} Main..      
57b0: 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74  } result] : [set
57c0: 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72   result ""]}] $r
57d0: 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75  esult..} -cleanu
57e0: 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62  p {..  cleanupDb
57f0: 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20   $fileName....  
5800: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
5810: 6e 20 72 65 73 75 6c 74 20 72 65 73 75 6c 74 73  n result results
5820: 20 65 72 72 6f 72 73 20 63 6f 64 65 20 73 71 6c   errors code sql
5830: 20 64 61 74 61 53 6f 75 72 63 65 20 69 64 20 64   dataSource id d
5840: 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63  b fileName..} -c
5850: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c  onstraints {eagl
5860: 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74  e command.object
5870: 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61   monoBug28 comma
5880: 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44  nd.sql compile.D
5890: 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73  ATA SQLite\..Sys
58a0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20  tem.Data.SQLite 
58b0: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d  compileCSharp} -
58c0: 6d 61 74 63 68 20 72 65 67 65 78 70 20 2d 72 65  match regexp -re
58d0: 73 75 6c 74 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74  sult {^Ok\..Syst
58e0: 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69  em#CodeDom#Compi
58f0: 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75  ler#CompilerResu
5900: 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 31  lts#\d+ \{\} 0 1
5910: 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23  $}}....#########
5920: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5930: 23 23 23 23 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 0d 0a 0d 0a 72 75 6e 54 65 73  ######....runTes
5970: 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 36 62 34  t {test tkt-56b4
5980: 32 64 39 39 63 31 2d 31 2e 39 20 7b 65 6e 6c 69  2d99c1-1.9 {enli
5990: 73 74 65 64 20 74 72 61 6e 73 61 63 74 69 6f 6e  sted transaction
59a0: 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74   isolation} -set
59b0: 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 20  up {..  setupDb 
59c0: 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b  [set fileName tk
59d0: 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e 39  t-56b42d99c1-1.9
59e0: 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d  .db]..} -body {.
59f0: 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63  .  set id [objec
5a00: 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72  t invoke Interpr
5a10: 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e  eter.GetActive N
5a20: 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 61  extId]..  set da
5a30: 74 61 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a  taSource [file j
5a40: 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65  oin [getDatabase
5a50: 44 69 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65  Directory] $file
5a60: 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74  Name]....  unset
5a70: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73   -nocomplain res
5a80: 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20  ults errors.... 
5a90: 20 73 65 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d   set sql(1) { \.
5aa0: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
5ab0: 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20  E t1(x); \..    
5ac0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28  INSERT INTO t1 (
5ad0: 78 29 20 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d  x) VALUES(1); \.
5ae0: 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71  .  }....  set sq
5af0: 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45  l(2) { \..    SE
5b00: 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52  LECT COUNT(*) FR
5b10: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
5b20: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74   WHERE type = 't
5b30: 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d  able'; \..  }...
5b40: 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d  .  set code [com
5b50: 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b  pileCSharpWith [
5b60: 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69  subst {..    usi
5b70: 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ng System.Data.S
5b80: 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e  QLite;..    usin
5b90: 67 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63  g System.Transac
5ba0: 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61  tions;....    na
5bb0: 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63  mespace _Dynamic
5bc0: 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20  ${id}..    {..  
5bd0: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69      public stati
5be0: 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64  c class Test${id
5bf0: 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20  }..      {..    
5c00: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69      public stati
5c10: 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20  c int Main()..  
5c20: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
5c30: 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70     TransactionOp
5c40: 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 6f  tions transactio
5c50: 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54  nOptions = new T
5c60: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e  ransactionOption
5c70: 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  s();..          
5c80: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
5c90: 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65  ns.IsolationLeve
5ca0: 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76  l = IsolationLev
5cb0: 65 6c 2e 52 65 61 64 55 6e 63 6f 6d 6d 69 74 74  el.ReadUncommitt
5cc0: 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ed;....         
5cd0: 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74   using (Transact
5ce0: 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63  ionScope transac
5cf0: 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20  tionScope = new 
5d00: 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65  TransactionScope
5d10: 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  (..             
5d20: 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70   TransactionScop
5d30: 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64  eOption.Required
5d40: 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74  , transactionOpt
5d50: 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20  ions))..        
5d60: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
5d70: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
5d80: 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74  nnection connect
5d90: 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74  ion1 = new SQLit
5da0: 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20  eConnection(..  
5db0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44                "D
5dc0: 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74  ata Source=${dat
5dd0: 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 46 6c 61  aSource};[getFla
5de0: 67 73 50 72 6f 70 65 72 74 79 20 24 66 6c 61 67  gsProperty $flag
5df0: 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20  s]"))..         
5e00: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
5e10: 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e      connection1.
5e20: 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20  Open();....     
5e30: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28           using (
5e40: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e  SQLiteConnection
5e50: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 20 3d 20 6e   connection2 = n
5e60: 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  ew SQLiteConnect
5e70: 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20  ion(..          
5e80: 20 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f          "Data So
5e90: 75 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63  urce=${dataSourc
5ea0: 65 7d 3b 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b  e};Enlist=False;
5eb0: 5b 67 65 74 46 6c 61 67 73 50 72 6f 70 65 72 74  [getFlagsPropert
5ec0: 79 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20  y $flags]"))..  
5ed0: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
5ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
5ef0: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28  onnection2.Open(
5f00: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
5f10: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
5f20: 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61  iteCommand comma
5f30: 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e  nd1 = connection
5f40: 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  1.CreateCommand(
5f50: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
5f60: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
5f70: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64           command
5f80: 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20  1.CommandText = 
5f90: 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20  "${sql(1)}";..  
5fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5fb0: 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65  command1.Execute
5fc0: 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20  NonQuery();.... 
5fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5fe0: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
5ff0: 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d  mmand command2 =
6000: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65   connection2.Cre
6010: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20  ateCommand()).. 
6020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6030: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
6040: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32          command2
6050: 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22  .CommandText = "
6060: 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20  ${sql(2)}";..   
6070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6080: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f   return (int)(lo
6090: 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63  ng)command2.Exec
60a0: 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20  uteScalar();..  
60b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
60c0: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
60d0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
60e0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
60f0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
6100: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
6110: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20      }..    }..  
6120: 7d 5d 20 74 72 75 65 20 74 72 75 65 20 74 72 75  }] true true tru
6130: 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73  e results errors
6140: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
6150: 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69  ite.dll]....  li
6160: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74  st $code $result
6170: 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72  s \..      [expr
6180: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65   {[info exists e
6190: 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73  rrors] ? $errors
61a0: 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20   : ""}] \..     
61b0: 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71   [expr {$code eq
61c0: 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b   "Ok" ? [catch {
61d0: 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74  ..        object
61e0: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63   invoke _Dynamic
61f0: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20  ${id}.Test${id} 
6200: 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65  Main..      } re
6210: 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73  sult] : [set res
6220: 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c  ult ""]}] $resul
6230: 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d  t..} -cleanup {.
6240: 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69  .  cleanupDb $fi
6250: 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65  leName....  unse
6260: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
6270: 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72  sult results err
6280: 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74  ors code sql dat
6290: 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66 69  aSource id db fi
62a0: 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74  leName..} -const
62b0: 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f  raints {eagle co
62c0: 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e  mmand.object mon
62d0: 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73  oBug28 command.s
62e0: 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20  ql compile.DATA 
62f0: 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e  SQLite\..System.
6300: 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70  Data.SQLite comp
6310: 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61 74 63  ileCSharp} -matc
6320: 68 20 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74  h regexp -result
6330: 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d 23 43   {^Ok\..System#C
6340: 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23  odeDom#Compiler#
6350: 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23  CompilerResults#
6360: 5c 64 2b 20 5c 7b 5c 7d 20 30 20 30 24 7d 7d 0d  \d+ \{\} 0 0$}}.
6370: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
6380: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6390: 23 23 23 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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74  ##....runTest {t
63d0: 65 73 74 20 74 6b 74 2d 35 36 62 34 32 64 39 39  est tkt-56b42d99
63e0: 63 31 2d 31 2e 31 30 20 7b 65 6e 6c 69 73 74 65  c1-1.10 {enliste
63f0: 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73  d transaction is
6400: 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20  olation} -setup 
6410: 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65  {..  setupDb [se
6420: 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35  t fileName tkt-5
6430: 36 62 34 32 64 39 39 63 31 2d 31 2e 31 30 2e 64  6b42d99c1-1.10.d
6440: 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20  b]..} -body {.. 
6450: 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20   set id [object 
6460: 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74  invoke Interpret
6470: 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78  er.GetActive Nex
6480: 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 61 74 61  tId]..  set data
6490: 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69  Source [file joi
64a0: 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69  n [getDatabaseDi
64b0: 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61  rectory] $fileNa
64c0: 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d  me]....  unset -
64d0: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c  nocomplain resul
64e0: 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73  ts errors....  s
64f0: 65 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d 0a 20  et sql(1) { \.. 
6500: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
6510: 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20 49 4e  t1(x); \..    IN
6520: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29  SERT INTO t1 (x)
6530: 20 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d 0a 20   VALUES(1); \.. 
6540: 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28   }....  set sql(
6550: 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45 4c 45  2) { \..    SELE
6560: 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d  CT COUNT(*) FROM
6570: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57   sqlite_master W
6580: 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62  HERE type = 'tab
6590: 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20  le'; \..  }.... 
65a0: 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69   set code [compi
65b0: 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b 73 75  leCSharpWith [su
65c0: 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67  bst {..    using
65d0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
65e0: 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e 67 20  ite;..    using 
65f0: 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63 74 69  System.Transacti
6600: 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65  ons;....    name
6610: 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b  space _Dynamic${
6620: 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20  id}..    {..    
6630: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
6640: 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d 0d  class Test${id}.
6650: 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20  .      {..      
6660: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
6670: 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20  int Main()..    
6680: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
6690: 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69   TransactionOpti
66a0: 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f  ons transactionO
66b0: 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54 72 61  ptions = new Tra
66c0: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 28  nsactionOptions(
66d0: 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72  );..          tr
66e0: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
66f0: 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20  .IsolationLevel 
6700: 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c  = IsolationLevel
6710: 2e 52 65 61 64 55 6e 63 6f 6d 6d 69 74 74 65 64  .ReadUncommitted
6720: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 75  ;....          u
6730: 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74 69 6f  sing (Transactio
6740: 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63 74 69  nScope transacti
6750: 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 72  onScope = new Tr
6760: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 0d  ansactionScope(.
6770: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54  .              T
6780: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 4f  ransactionScopeO
6790: 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c 20  ption.Required, 
67a0: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
67b0: 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  ns))..          
67c0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 75  {..            u
67d0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e  sing (SQLiteConn
67e0: 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f  ection connectio
67f0: 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43  n1 = new SQLiteC
6800: 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20  onnection(..    
6810: 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74              "Dat
6820: 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53  a Source=${dataS
6830: 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 61  ource};Enlist=Fa
6840: 6c 73 65 3b 5b 67 65 74 46 6c 61 67 73 50 72 6f  lse;[getFlagsPro
6850: 70 65 72 74 79 20 24 66 6c 61 67 73 5d 22 29 29  perty $flags]"))
6860: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d  ..            {.
6870: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63  .              c
6880: 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28  onnection1.Open(
6890: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
68a0: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74      using (SQLit
68b0: 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e  eConnection conn
68c0: 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51  ection2 = new SQ
68d0: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d  LiteConnection(.
68e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
68f0: 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d     "Data Source=
6900: 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67  ${dataSource};[g
6910: 65 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79 20  etFlagsProperty 
6920: 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 20  $flags]"))..    
6930: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
6940: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e               con
6950: 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 29 3b  nection2.Open();
6960: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
6970: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74      using (SQLit
6980: 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64  eCommand command
6990: 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e  1 = connection1.
69a0: 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29  CreateCommand())
69b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
69c0: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
69d0: 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e         command1.
69e0: 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24  CommandText = "$
69f0: 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20 20 20  {sql(1)}";..    
6a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f                co
6a10: 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65 4e 6f  mmand1.ExecuteNo
6a20: 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20 20 20  nQuery();....   
6a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75                 u
6a40: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d  sing (SQLiteComm
6a50: 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d 20 63  and command2 = c
6a60: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65 61 74  onnection2.Creat
6a70: 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20  eCommand())..   
6a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b                 {
6a90: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
6aa0: 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32 2e 43        command2.C
6ab0: 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b  ommandText = "${
6ac0: 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20 20 20  sql(2)}";..     
6ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72                 r
6ae0: 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f 6e 67  eturn (int)(long
6af0: 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63 75 74  )command2.Execut
6b00: 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20 20 20  eScalar();..    
6b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d                }.
6b20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
6b30: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   }..            
6b40: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
6b50: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d   }..          }.
6b60: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
6b70: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 5d    }..    }..  }]
6b80: 20 74 72 75 65 20 74 72 75 65 20 74 72 75 65 20   true true true 
6b90: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 53  results errors S
6ba0: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
6bb0: 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74  e.dll]....  list
6bc0: 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 73 20   $code $results 
6bd0: 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b  \..      [expr {
6be0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65 72 72  [info exists err
6bf0: 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73 20 3a  ors] ? $errors :
6c00: 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 5b   ""}] \..      [
6c10: 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71 20 22  expr {$code eq "
6c20: 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a  Ok" ? [catch {..
6c30: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69          object i
6c40: 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b  nvoke _Dynamic${
6c50: 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20 4d 61  id}.Test${id} Ma
6c60: 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65 73 75  in..      } resu
6c70: 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73 75 6c  lt] : [set resul
6c80: 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d  t ""]}] $result.
6c90: 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20  .} -cleanup {.. 
6ca0: 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65   cleanupDb $file
6cb0: 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20  Name....  unset 
6cc0: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75  -nocomplain resu
6cd0: 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72  lt results error
6ce0: 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74 61 53  s code sql dataS
6cf0: 6f 75 72 63 65 20 69 64 20 64 62 20 66 69 6c 65  ource id db file
6d00: 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61  Name..} -constra
6d10: 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d  ints {eagle comm
6d20: 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42  and.object monoB
6d30: 75 67 32 38 20 6d 6f 6e 6f 42 75 67 32 31 31 20  ug28 monoBug211 
6d40: 6d 6f 6e 6f 42 75 67 35 34 20 63 6f 6d 6d 61 6e  monoBug54 comman
6d50: 64 2e 73 71 6c 5c 0d 0a 63 6f 6d 70 69 6c 65 2e  d.sql\..compile.
6d60: 44 41 54 41 20 53 51 4c 69 74 65 20 53 79 73 74  DATA SQLite Syst
6d70: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 63  em.Data.SQLite c
6d80: 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d  ompileCSharp} -m
6d90: 61 74 63 68 20 72 65 67 65 78 70 20 2d 72 65 73  atch regexp -res
6da0: 75 6c 74 20 5c 0d 0a 7b 5e 4f 6b 20 53 79 73 74  ult \..{^Ok Syst
6db0: 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69  em#CodeDom#Compi
6dc0: 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75  ler#CompilerResu
6dd0: 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 31  lts#\d+ \{\} 0 1
6de0: 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23  $}}....#########
6df0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d 0a 75 6e 73 65 74 20  ######....unset 
6e40: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 6c 61 67  -nocomplain flag
6e50: 73 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23  s....###########
6e60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d 0a 72 75 6e 53 51 4c 69 74  ####....runSQLit
6eb0: 65 54 65 73 74 45 70 69 6c 6f 67 75 65 0d 0a 72  eTestEpilogue..r
6ec0: 75 6e 54 65 73 74 45 70 69 6c 6f 67 75 65 0d 0a  unTestEpilogue..