System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 90be50d788a391e4f3918cc06538a9363e96ff59:


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 34 30 20 63 6f 6d 6d  t monoBug40 comm
0da0: 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e  and.sql compile.
0db0: 44 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79  DATA SQLite\..Sy
0dc0: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
0dd0: 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20   compileCSharp} 
0de0: 2d 6d 61 74 63 68 20 72 65 67 65 78 70 20 2d 72  -match regexp -r
0df0: 65 73 75 6c 74 20 7b 5e 4f 6b 5c 0d 0a 53 79 73  esult {^Ok\..Sys
0e00: 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70  tem#CodeDom#Comp
0e10: 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73  iler#CompilerRes
0e20: 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20  ults#\d+ \{\} 0 
0e30: 54 72 75 65 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23  True$}}....#####
0e40: 23 23 23 23 23 23 23 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 0d 0a 0d 0a 72 75  ##########....ru
0e90: 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d  nTest {test tkt-
0ea0: 35 36 62 34 32 64 39 39 63 31 2d 31 2e 32 20 7b  56b42d99c1-1.2 {
0eb0: 65 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63  enlisted transac
0ec0: 74 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20  tion isolation} 
0ed0: 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75  -setup {..  setu
0ee0: 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d  pDb [set fileNam
0ef0: 65 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31  e tkt-56b42d99c1
0f00: 2d 31 2e 32 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64  -1.2.db]..} -bod
0f10: 79 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f  y {..  set id [o
0f20: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74  bject invoke Int
0f30: 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69  erpreter.GetActi
0f40: 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65  ve NextId]..  se
0f50: 74 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69  t dataSource [fi
0f60: 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61  le join [getData
0f70: 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24  baseDirectory] $
0f80: 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75  fileName]....  u
0f90: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
0fa0: 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d   results errors.
0fb0: 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 31 29 20  ...  set sql(1) 
0fc0: 7b 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 20  { \..    CREATE 
0fd0: 54 41 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a  TABLE t1(x); \..
0fe0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
0ff0: 74 31 20 28 78 29 20 56 41 4c 55 45 53 28 31 29  t1 (x) VALUES(1)
1000: 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65  ; \..  }....  se
1010: 74 20 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20  t sql(2) { \..  
1020: 20 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a    SELECT COUNT(*
1030: 29 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61  ) FROM sqlite_ma
1040: 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20  ster WHERE type 
1050: 3d 20 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20  = 'table'; \..  
1060: 7d 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20  }....  set code 
1070: 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69  [compileCSharpWi
1080: 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20  th [subst {..   
1090: 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61   using System.Da
10a0: 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20  ta.SQLite;..    
10b0: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61  using System.Tra
10c0: 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20  nsactions;....  
10d0: 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e    namespace _Dyn
10e0: 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b  amic${id}..    {
10f0: 0d 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 73  ..      public s
1100: 74 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 74  tatic class Test
1110: 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a  ${id}..      {..
1120: 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 73          public s
1130: 74 61 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 29  tatic int Main()
1140: 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20  ..        {..   
1150: 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69         Transacti
1160: 6f 6e 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61  onOptions transa
1170: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e  ctionOptions = n
1180: 65 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70  ew TransactionOp
1190: 74 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20  tions();..      
11a0: 20 20 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f      transactionO
11b0: 70 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e  ptions.Isolation
11c0: 4c 65 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f  Level = Isolatio
11d0: 6e 4c 65 76 65 6c 2e 52 65 61 64 43 6f 6d 6d 69  nLevel.ReadCommi
11e0: 74 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20  tted;....       
11f0: 20 20 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61     using (Transa
1200: 63 74 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73  ctionScope trans
1210: 61 63 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65  actionScope = ne
1220: 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f  w TransactionSco
1230: 70 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  pe(..           
1240: 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63     TransactionSc
1250: 6f 70 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72  opeOption.Requir
1260: 65 64 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f  ed, transactionO
1270: 70 74 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20  ptions))..      
1280: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
1290: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65     using (SQLite
12a0: 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65  Connection conne
12b0: 63 74 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c  ction1 = new SQL
12c0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a  iteConnection(..
12d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
12e0: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64  "Data Source=${d
12f0: 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 46  ataSource};[getF
1300: 6c 61 67 73 50 72 6f 70 65 72 74 79 5d 22 29 29  lagsProperty]"))
1310: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d  ..            {.
1320: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63  .              c
1330: 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28  onnection1.Open(
1340: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
1350: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74      using (SQLit
1360: 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e  eConnection conn
1370: 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51  ection2 = new SQ
1380: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d  LiteConnection(.
1390: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
13a0: 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d     "Data Source=
13b0: 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67  ${dataSource};[g
13c0: 65 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79 5d  etFlagsProperty]
13d0: 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20  "))..           
13e0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
13f0: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e        connection
1400: 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20  2.Open();....   
1410: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69               usi
1420: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e  ng (SQLiteComman
1430: 64 20 63 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f 6e  d command1 = con
1440: 6e 65 63 74 69 6f 6e 31 2e 43 72 65 61 74 65 43  nection1.CreateC
1450: 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 20  ommand())..     
1460: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20             {..  
1470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1480: 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e 64  command1.Command
1490: 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 31 29  Text = "${sql(1)
14a0: 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  }";..           
14b0: 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e         command1.
14c0: 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72 79 28  ExecuteNonQuery(
14d0: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
14e0: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53          using (S
14f0: 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d  QLiteCommand com
1500: 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e 65 63 74 69  mand2 = connecti
1510: 6f 6e 32 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e  on2.CreateComman
1520: 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  d())..          
1530: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
1540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
1550: 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64 54  ommand2.CommandT
1560: 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 32 29 7d  ext = "${sql(2)}
1570: 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ";..            
1580: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28          return (
1590: 69 6e 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61 6e  int)(long)comman
15a0: 64 32 2e 45 78 65 63 75 74 65 53 63 61 6c 61 72  d2.ExecuteScalar
15b0: 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ();..           
15c0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
15d0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
15e0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
15f0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
1600: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
1610: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20    }..      }..  
1620: 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 20 74    }..  }] true t
1630: 72 75 65 20 74 72 75 65 20 72 65 73 75 6c 74 73  rue true results
1640: 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d 2e 44   errors System.D
1650: 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d  ata.SQLite.dll].
1660: 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 65 20  ...  list $code 
1670: 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20  $results \..    
1680: 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65    [expr {[info e
1690: 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 3f 20  xists errors] ? 
16a0: 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c  $errors : ""}] \
16b0: 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24  ..      [expr {$
16c0: 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b  code eq "Ok" ? [
16d0: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20  catch {..       
16e0: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f   object invoke _
16f0: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73  Dynamic${id}.Tes
1700: 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20  t${id} Main..   
1710: 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b     } result] : [
1720: 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d  set result ""]}]
1730: 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65   $result..} -cle
1740: 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75  anup {..  cleanu
1750: 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d  pDb $fileName...
1760: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  .  unset -nocomp
1770: 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65 73 75  lain result resu
1780: 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64 65 20  lts errors code 
1790: 73 71 6c 20 64 61 74 61 53 6f 75 72 63 65 20 69  sql dataSource i
17a0: 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d  d db fileName..}
17b0: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65   -constraints {e
17c0: 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a  agle command.obj
17d0: 65 63 74 20 6d 6f 6e 6f 42 75 67 34 30 20 63 6f  ect monoBug40 co
17e0: 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c  mmand.sql compil
17f0: 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a  e.DATA SQLite\..
1800: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
1810: 74 65 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 70  te compileCSharp
1820: 7d 20 2d 6d 61 74 63 68 20 72 65 67 65 78 70 20  } -match regexp 
1830: 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b 5c 0d 0a 53  -result {^Ok\..S
1840: 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f  ystem#CodeDom#Co
1850: 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52  mpiler#CompilerR
1860: 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20  esults#\d+ \{\} 
1870: 30 20 30 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23  0 0$}}....######
1880: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1890: 23 23 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 0d 0a 0d 0a 72 75 6e  #########....run
18d0: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 35  Test {test tkt-5
18e0: 36 62 34 32 64 39 39 63 31 2d 31 2e 33 20 7b 65  6b42d99c1-1.3 {e
18f0: 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63 74  nlisted transact
1900: 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d  ion isolation} -
1910: 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70  setup {..  setup
1920: 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65  Db [set fileName
1930: 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d   tkt-56b42d99c1-
1940: 31 2e 33 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79  1.3.db]..} -body
1950: 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f 62   {..  set id [ob
1960: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65  ject invoke Inte
1970: 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76  rpreter.GetActiv
1980: 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65 74  e NextId]..  set
1990: 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69 6c   dataSource [fil
19a0: 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62  e join [getDatab
19b0: 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66  aseDirectory] $f
19c0: 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e  ileName]....  un
19d0: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
19e0: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a  results errors..
19f0: 0d 0a 20 20 73 65 74 20 73 71 6c 28 31 29 20 7b  ..  set sql(1) {
1a00: 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 20 54   \..    CREATE T
1a10: 41 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20  ABLE t1(x); \.. 
1a20: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1a30: 31 20 28 78 29 20 56 41 4c 55 45 53 28 31 29 3b  1 (x) VALUES(1);
1a40: 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74   \..  }....  set
1a50: 20 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20   sql(2) { \..   
1a60: 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29   SELECT COUNT(*)
1a70: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
1a80: 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d  ter WHERE type =
1a90: 20 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d   'table'; \..  }
1aa0: 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b  ....  set code [
1ab0: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74  compileCSharpWit
1ac0: 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20  h [subst {..    
1ad0: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74  using System.Dat
1ae0: 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75  a.SQLite;..    u
1af0: 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61 6e  sing System.Tran
1b00: 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20  sactions;....   
1b10: 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e 61   namespace _Dyna
1b20: 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d  mic${id}..    {.
1b30: 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74  .      public st
1b40: 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 74 24  atic class Test$
1b50: 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20  {id}..      {.. 
1b60: 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74         public st
1b70: 61 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d  atic int Main().
1b80: 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20  .        {..    
1b90: 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f        Transactio
1ba0: 6e 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61 63  nOptions transac
1bb0: 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65  tionOptions = ne
1bc0: 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74  w TransactionOpt
1bd0: 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20 20  ions();..       
1be0: 20 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70     transactionOp
1bf0: 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c  tions.IsolationL
1c00: 65 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e  evel = Isolation
1c10: 4c 65 76 65 6c 2e 52 65 61 64 43 6f 6d 6d 69 74  Level.ReadCommit
1c20: 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  ted;....        
1c30: 20 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61 63    using (Transac
1c40: 74 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 61  tionScope transa
1c50: 63 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77  ctionScope = new
1c60: 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70   TransactionScop
1c70: 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  e(..            
1c80: 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f    TransactionSco
1c90: 70 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 65  peOption.Require
1ca0: 64 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70  d, transactionOp
1cb0: 74 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 20  tions))..       
1cc0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
1cd0: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43    using (SQLiteC
1ce0: 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63  onnection connec
1cf0: 74 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69  tion1 = new SQLi
1d00: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20  teConnection(.. 
1d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
1d20: 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61  Data Source=${da
1d30: 74 61 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74  taSource};Enlist
1d40: 3d 46 61 6c 73 65 3b 5b 67 65 74 46 6c 61 67 73  =False;[getFlags
1d50: 50 72 6f 70 65 72 74 79 5d 22 29 29 0d 0a 20 20  Property]"))..  
1d60: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
1d70: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65             conne
1d80: 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a  ction1.Open();..
1d90: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1da0: 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e  using (SQLiteCon
1db0: 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69  nection connecti
1dc0: 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74 65  on2 = new SQLite
1dd0: 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20  Connection(..   
1de0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
1df0: 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61  Data Source=${da
1e00: 74 61 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74  taSource};Enlist
1e10: 3d 46 61 6c 73 65 3b 5b 67 65 74 46 6c 61 67 73  =False;[getFlags
1e20: 50 72 6f 70 65 72 74 79 5d 22 29 29 0d 0a 20 20  Property]"))..  
1e30: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
1e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
1e50: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28  onnection2.Open(
1e60: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
1e70: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
1e80: 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61  iteCommand comma
1e90: 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e  nd1 = connection
1ea0: 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  1.CreateCommand(
1eb0: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
1ec0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
1ed0: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64           command
1ee0: 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20  1.CommandText = 
1ef0: 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20  "${sql(1)}";..  
1f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f10: 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65  command1.Execute
1f20: 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20  NonQuery();.... 
1f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f40: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
1f50: 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d  mmand command2 =
1f60: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65   connection2.Cre
1f70: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20  ateCommand()).. 
1f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1f90: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
1fa0: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32          command2
1fb0: 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22  .CommandText = "
1fc0: 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20  ${sql(2)}";..   
1fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1fe0: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f   return (int)(lo
1ff0: 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63  ng)command2.Exec
2000: 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20  uteScalar();..  
2010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2020: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
2030: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
2040: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
2050: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
2060: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
2070: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20      }..    }..  
2080: 7d 5d 20 74 72 75 65 20 74 72 75 65 20 74 72 75  }] true true tru
2090: 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73  e results errors
20a0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
20b0: 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69  ite.dll]....  li
20c0: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74  st $code $result
20d0: 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72  s \..      [expr
20e0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65   {[info exists e
20f0: 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73  rrors] ? $errors
2100: 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20   : ""}] \..     
2110: 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71   [expr {$code eq
2120: 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b   "Ok" ? [catch {
2130: 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74  ..        object
2140: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63   invoke _Dynamic
2150: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20  ${id}.Test${id} 
2160: 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65  Main..      } re
2170: 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73  sult] : [set res
2180: 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c  ult ""]}] $resul
2190: 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d  t..} -cleanup {.
21a0: 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69  .  cleanupDb $fi
21b0: 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65  leName....  unse
21c0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
21d0: 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72  sult results err
21e0: 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74  ors code sql dat
21f0: 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66 69  aSource id db fi
2200: 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74  leName..} -const
2210: 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f  raints {eagle co
2220: 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e  mmand.object mon
2230: 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73  oBug28 command.s
2240: 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20  ql compile.DATA 
2250: 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e  SQLite\..System.
2260: 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70  Data.SQLite comp
2270: 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61 74 63  ileCSharp} -matc
2280: 68 20 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74  h regexp -result
2290: 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d 23 43   {^Ok\..System#C
22a0: 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23  odeDom#Compiler#
22b0: 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23  CompilerResults#
22c0: 5c 64 2b 20 5c 7b 5c 7d 20 30 20 31 24 7d 7d 0d  \d+ \{\} 0 1$}}.
22d0: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
22e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74  ##....runTest {t
2330: 65 73 74 20 74 6b 74 2d 35 36 62 34 32 64 39 39  est tkt-56b42d99
2340: 63 31 2d 31 2e 34 20 7b 65 6e 6c 69 73 74 65 64  c1-1.4 {enlisted
2350: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73 6f   transaction iso
2360: 6c 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20 7b  lation} -setup {
2370: 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65 74  ..  setupDb [set
2380: 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35 36   fileName tkt-56
2390: 62 34 32 64 39 39 63 31 2d 31 2e 34 2e 64 62 5d  b42d99c1-1.4.db]
23a0: 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73  ..} -body {..  s
23b0: 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e  et id [object in
23c0: 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72  voke Interpreter
23d0: 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49  .GetActive NextI
23e0: 64 5d 0d 0a 20 20 73 65 74 20 64 61 74 61 53 6f  d]..  set dataSo
23f0: 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  urce [file join 
2400: 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65  [getDatabaseDire
2410: 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65  ctory] $fileName
2420: 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f  ]....  unset -no
2430: 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 73  complain results
2440: 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73 65 74   errors....  set
2450: 20 73 71 6c 28 31 29 20 7b 20 5c 0d 0a 20 20 20   sql(1) { \..   
2460: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31   CREATE TABLE t1
2470: 28 78 29 3b 20 5c 0d 0a 20 20 20 20 49 4e 53 45  (x); \..    INSE
2480: 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29 20 56  RT INTO t1 (x) V
2490: 41 4c 55 45 53 28 31 29 3b 20 5c 0d 0a 20 20 7d  ALUES(1); \..  }
24a0: 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 32 29  ....  set sql(2)
24b0: 20 7b 20 5c 0d 0a 20 20 20 20 53 45 4c 45 43 54   { \..    SELECT
24c0: 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20 73   COUNT(*) FROM s
24d0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45  qlite_master WHE
24e0: 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65  RE type = 'table
24f0: 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73  '; \..  }....  s
2500: 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c 65  et code [compile
2510: 43 53 68 61 72 70 57 69 74 68 20 5b 73 75 62 73  CSharpWith [subs
2520: 74 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53  t {..    using S
2530: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
2540: 65 3b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79  e;..    using Sy
2550: 73 74 65 6d 2e 54 72 61 6e 73 61 63 74 69 6f 6e  stem.Transaction
2560: 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65 73 70  s;....    namesp
2570: 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64  ace _Dynamic${id
2580: 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20  }..    {..      
2590: 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 63 6c  public static cl
25a0: 61 73 73 20 54 65 73 74 24 7b 69 64 7d 0d 0a 20  ass Test${id}.. 
25b0: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
25c0: 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 69 6e  public static in
25d0: 74 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20 20 20  t Main()..      
25e0: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 54    {..          T
25f0: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e  ransactionOption
2600: 73 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74  s transactionOpt
2610: 69 6f 6e 73 20 3d 20 6e 65 77 20 54 72 61 6e 73  ions = new Trans
2620: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b  actionOptions();
2630: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e  ..          tran
2640: 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49  sactionOptions.I
2650: 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 20  solationLevel = 
2660: 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 2e 52  IsolationLevel.R
2670: 65 61 64 43 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d  eadCommitted;...
2680: 0a 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67  .          using
2690: 20 28 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f   (TransactionSco
26a0: 70 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 53 63  pe transactionSc
26b0: 6f 70 65 20 3d 20 6e 65 77 20 54 72 61 6e 73 61  ope = new Transa
26c0: 63 74 69 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20  ctionScope(..   
26d0: 20 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73             Trans
26e0: 61 63 74 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f  actionScopeOptio
26f0: 6e 2e 52 65 71 75 69 72 65 64 2c 20 74 72 61 6e  n.Required, tran
2700: 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29  sactionOptions))
2710: 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20  ..          {.. 
2720: 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67             using
2730: 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69   (SQLiteConnecti
2740: 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d  on connection1 =
2750: 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65   new SQLiteConne
2760: 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20  ction(..        
2770: 20 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f          "Data So
2780: 75 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63  urce=${dataSourc
2790: 65 7d 3b 5b 67 65 74 46 6c 61 67 73 50 72 6f 70  e};[getFlagsProp
27a0: 65 72 74 79 5d 22 29 29 0d 0a 20 20 20 20 20 20  erty]"))..      
27b0: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
27c0: 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f         connectio
27d0: 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20  n1.Open();....  
27e0: 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e              usin
27f0: 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  g (SQLiteConnect
2800: 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 20  ion connection2 
2810: 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e  = new SQLiteConn
2820: 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20  ection(..       
2830: 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74 61             "Data
2840: 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 6f   Source=${dataSo
2850: 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 61 6c  urce};Enlist=Fal
2860: 73 65 3b 5b 67 65 74 46 6c 61 67 73 50 72 6f 70  se;[getFlagsProp
2870: 65 72 74 79 5d 22 29 29 0d 0a 20 20 20 20 20 20  erty]"))..      
2880: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
2890: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65             conne
28a0: 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a  ction2.Open();..
28b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
28c0: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43    using (SQLiteC
28d0: 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 31 20  ommand command1 
28e0: 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 43 72  = connection1.Cr
28f0: 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a  eateCommand())..
2900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
2910: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
2920: 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e 43 6f       command1.Co
2930: 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b 73  mmandText = "${s
2940: 71 6c 28 31 29 7d 22 3b 0d 0a 20 20 20 20 20 20  ql(1)}";..      
2950: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d              comm
2960: 61 6e 64 31 2e 45 78 65 63 75 74 65 4e 6f 6e 51  and1.ExecuteNonQ
2970: 75 65 72 79 28 29 3b 0d 0a 0d 0a 20 20 20 20 20  uery();....     
2980: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69               usi
2990: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e  ng (SQLiteComman
29a0: 64 20 63 6f 6d 6d 61 6e 64 32 20 3d 20 63 6f 6e  d command2 = con
29b0: 6e 65 63 74 69 6f 6e 32 2e 43 72 65 61 74 65 43  nection2.CreateC
29c0: 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 20  ommand())..     
29d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a               {..
29e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29f0: 20 20 20 20 63 6f 6d 6d 61 6e 64 32 2e 43 6f 6d      command2.Com
2a00: 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b 73 71  mandText = "${sq
2a10: 6c 28 32 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20  l(2)}";..       
2a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74               ret
2a30: 75 72 6e 20 28 69 6e 74 29 28 6c 6f 6e 67 29 63  urn (int)(long)c
2a40: 6f 6d 6d 61 6e 64 32 2e 45 78 65 63 75 74 65 53  ommand2.ExecuteS
2a50: 63 61 6c 61 72 28 29 3b 0d 0a 20 20 20 20 20 20  calar();..      
2a60: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
2a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d                 }
2a80: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
2a90: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  }..            }
2aa0: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
2ab0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
2ac0: 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 5d 20 74  }..    }..  }] t
2ad0: 72 75 65 20 74 72 75 65 20 74 72 75 65 20 72 65  rue true true re
2ae0: 73 75 6c 74 73 20 65 72 72 6f 72 73 20 53 79 73  sults errors Sys
2af0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e  tem.Data.SQLite.
2b00: 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74 20 24  dll]....  list $
2b10: 63 6f 64 65 20 24 72 65 73 75 6c 74 73 20 5c 0d  code $results \.
2b20: 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b 5b 69  .      [expr {[i
2b30: 6e 66 6f 20 65 78 69 73 74 73 20 65 72 72 6f 72  nfo exists error
2b40: 73 5d 20 3f 20 24 65 72 72 6f 72 73 20 3a 20 22  s] ? $errors : "
2b50: 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78  "}] \..      [ex
2b60: 70 72 20 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b  pr {$code eq "Ok
2b70: 22 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20  " ? [catch {..  
2b80: 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76        object inv
2b90: 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64  oke _Dynamic${id
2ba0: 7d 2e 54 65 73 74 24 7b 69 64 7d 20 4d 61 69 6e  }.Test${id} Main
2bb0: 0d 0a 20 20 20 20 20 20 7d 20 72 65 73 75 6c 74  ..      } result
2bc0: 5d 20 3a 20 5b 73 65 74 20 72 65 73 75 6c 74 20  ] : [set result 
2bd0: 22 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d 0a 7d  ""]}] $result..}
2be0: 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63   -cleanup {..  c
2bf0: 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61  leanupDb $fileNa
2c00: 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e  me....  unset -n
2c10: 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74  ocomplain result
2c20: 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20   results errors 
2c30: 63 6f 64 65 20 73 71 6c 20 64 61 74 61 53 6f 75  code sql dataSou
2c40: 72 63 65 20 69 64 20 64 62 20 66 69 6c 65 4e 61  rce id db fileNa
2c50: 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e  me..} -constrain
2c60: 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e  ts {eagle comman
2c70: 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67  d.object monoBug
2c80: 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63  28 command.sql c
2c90: 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69  ompile.DATA SQLi
2ca0: 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61  te\..System.Data
2cb0: 2e 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c 65 43  .SQLite compileC
2cc0: 53 68 61 72 70 7d 20 2d 6d 61 74 63 68 20 72 65  Sharp} -match re
2cd0: 67 65 78 70 20 2d 72 65 73 75 6c 74 20 7b 5e 4f  gexp -result {^O
2ce0: 6b 5c 0d 0a 53 79 73 74 65 6d 23 43 6f 64 65 44  k\..System#CodeD
2cf0: 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f 6d 70  om#Compiler#Comp
2d00: 69 6c 65 72 52 65 73 75 6c 74 73 23 5c 64 2b 20  ilerResults#\d+ 
2d10: 5c 7b 5c 7d 20 30 20 30 24 7d 7d 0d 0a 0d 0a 23  \{\} 0 0$}}....#
2d20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2d30: 23 23 23 23 23 23 23 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 0d 0a  ##############..
2d70: 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20  ..runTest {test 
2d80: 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31  tkt-56b42d99c1-1
2d90: 2e 35 20 7b 65 6e 6c 69 73 74 65 64 20 74 72 61  .5 {enlisted tra
2da0: 6e 73 61 63 74 69 6f 6e 20 69 73 6f 6c 61 74 69  nsaction isolati
2db0: 6f 6e 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20  on} -setup {..  
2dc0: 73 65 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c  setupDb [set fil
2dd0: 65 4e 61 6d 65 20 74 6b 74 2d 35 36 62 34 32 64  eName tkt-56b42d
2de0: 39 39 63 31 2d 31 2e 35 2e 64 62 5d 0d 0a 7d 20  99c1-1.5.db]..} 
2df0: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 69  -body {..  set i
2e00: 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65  d [object invoke
2e10: 20 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74   Interpreter.Get
2e20: 41 63 74 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a  Active NextId]..
2e30: 20 20 73 65 74 20 64 61 74 61 53 6f 75 72 63 65    set dataSource
2e40: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74   [file join [get
2e50: 44 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72  DatabaseDirector
2e60: 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d  y] $fileName]...
2e70: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  .  unset -nocomp
2e80: 6c 61 69 6e 20 72 65 73 75 6c 74 73 20 65 72 72  lain results err
2e90: 6f 72 73 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c  ors....  set sql
2ea0: 28 31 29 20 7b 20 5c 0d 0a 20 20 20 20 43 52 45  (1) { \..    CRE
2eb0: 41 54 45 20 54 41 42 4c 45 20 74 31 28 78 29 3b  ATE TABLE t1(x);
2ec0: 20 5c 0d 0a 20 20 20 20 49 4e 53 45 52 54 20 49   \..    INSERT I
2ed0: 4e 54 4f 20 74 31 20 28 78 29 20 56 41 4c 55 45  NTO t1 (x) VALUE
2ee0: 53 28 31 29 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a  S(1); \..  }....
2ef0: 20 20 73 65 74 20 73 71 6c 28 32 29 20 7b 20 5c    set sql(2) { \
2f00: 0d 0a 20 20 20 20 53 45 4c 45 43 54 20 43 4f 55  ..    SELECT COU
2f10: 4e 54 28 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74  NT(*) FROM sqlit
2f20: 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74  e_master WHERE t
2f30: 79 70 65 20 3d 20 27 74 61 62 6c 65 27 3b 20 5c  ype = 'table'; \
2f40: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 63  ..  }....  set c
2f50: 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61  ode [compileCSha
2f60: 72 70 57 69 74 68 20 5b 73 75 62 73 74 20 7b 0d  rpWith [subst {.
2f70: 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65  .    using Syste
2f80: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a  m.Data.SQLite;..
2f90: 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d      using System
2fa0: 2e 54 72 61 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a  .Transactions;..
2fb0: 0d 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20  ..    namespace 
2fc0: 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20  _Dynamic${id}.. 
2fd0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c     {..      publ
2fe0: 69 63 20 73 74 61 74 69 63 20 63 6c 61 73 73 20  ic static class 
2ff0: 54 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 20 20  Test${id}..     
3000: 20 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c   {..        publ
3010: 69 63 20 73 74 61 74 69 63 20 69 6e 74 20 4d 61  ic static int Ma
3020: 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d  in()..        {.
3030: 0a 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73  .          Trans
3040: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 74 72  actionOptions tr
3050: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
3060: 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69   = new Transacti
3070: 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a 20 20  onOptions();..  
3080: 20 20 20 20 20 20 20 20 74 72 61 6e 73 61 63 74          transact
3090: 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f 6c 61  ionOptions.Isola
30a0: 74 69 6f 6e 4c 65 76 65 6c 20 3d 20 49 73 6f 6c  tionLevel = Isol
30b0: 61 74 69 6f 6e 4c 65 76 65 6c 2e 52 65 61 64 43  ationLevel.ReadC
30c0: 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20 20 20  ommitted;....   
30d0: 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 54 72         using (Tr
30e0: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20 74  ansactionScope t
30f0: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20  ransactionScope 
3100: 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f  = new Transactio
3110: 6e 53 63 6f 70 65 28 0d 0a 20 20 20 20 20 20 20  nScope(..       
3120: 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69         Transacti
3130: 6f 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e 52 65  onScopeOption.Re
3140: 71 75 69 72 65 64 2c 20 74 72 61 6e 73 61 63 74  quired, transact
3150: 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a 20 20  ionOptions))..  
3160: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
3170: 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51         using (SQ
3180: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63  LiteConnection c
3190: 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e 65 77  onnection1 = new
31a0: 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f   SQLiteConnectio
31b0: 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  n(..            
31c0: 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65      "Data Source
31d0: 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 45  =${dataSource};E
31e0: 6e 6c 69 73 74 3d 46 61 6c 73 65 3b 5b 67 65 74  nlist=False;[get
31f0: 46 6c 61 67 73 50 72 6f 70 65 72 74 79 5d 22 29  FlagsProperty]")
3200: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b  )..            {
3210: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
3220: 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e  connection1.Open
3230: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ();....         
3240: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
3250: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e  teConnection con
3260: 6e 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53  nection2 = new S
3270: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28  QLiteConnection(
3280: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
3290: 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65      "Data Source
32a0: 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b  =${dataSource};[
32b0: 67 65 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79  getFlagsProperty
32c0: 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  ]"))..          
32d0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
32e0: 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f         connectio
32f0: 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20  n2.Open();....  
3300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73                us
3310: 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61  ing (SQLiteComma
3320: 6e 64 20 63 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f  nd command1 = co
3330: 6e 6e 65 63 74 69 6f 6e 31 2e 43 72 65 61 74 65  nnection1.Create
3340: 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20  Command())..    
3350: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
3360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3370: 20 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e   command1.Comman
3380: 64 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 31  dText = "${sql(1
3390: 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  )}";..          
33a0: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31          command1
33b0: 2e 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72 79  .ExecuteNonQuery
33c0: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ();....         
33d0: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28           using (
33e0: 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f  SQLiteCommand co
33f0: 6d 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e 65 63 74  mmand2 = connect
3400: 69 6f 6e 32 2e 43 72 65 61 74 65 43 6f 6d 6d 61  ion2.CreateComma
3410: 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20  nd())..         
3420: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
3430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3440: 63 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64  command2.Command
3450: 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 32 29  Text = "${sql(2)
3460: 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  }";..           
3470: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20           return 
3480: 28 69 6e 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61  (int)(long)comma
3490: 6e 64 32 2e 45 78 65 63 75 74 65 53 63 61 6c 61  nd2.ExecuteScala
34a0: 72 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  r();..          
34b0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
34c0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
34d0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
34e0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
34f0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
3500: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20     }..      }.. 
3510: 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 20     }..  }] true 
3520: 74 72 75 65 20 74 72 75 65 20 72 65 73 75 6c 74  true true result
3530: 73 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d 2e  s errors System.
3540: 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d  Data.SQLite.dll]
3550: 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 65  ....  list $code
3560: 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20   $results \..   
3570: 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20     [expr {[info 
3580: 65 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 3f  exists errors] ?
3590: 20 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20   $errors : ""}] 
35a0: 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b  \..      [expr {
35b0: 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f 20  $code eq "Ok" ? 
35c0: 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20  [catch {..      
35d0: 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20    object invoke 
35e0: 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65  _Dynamic${id}.Te
35f0: 73 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20  st${id} Main..  
3600: 20 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20      } result] : 
3610: 5b 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d 7d  [set result ""]}
3620: 5d 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c  ] $result..} -cl
3630: 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e  eanup {..  clean
3640: 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a  upDb $fileName..
3650: 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ..  unset -nocom
3660: 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65 73  plain result res
3670: 75 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64 65  ults errors code
3680: 20 73 71 6c 20 64 61 74 61 53 6f 75 72 63 65 20   sql dataSource 
3690: 69 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a  id db fileName..
36a0: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b  } -constraints {
36b0: 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62  eagle command.ob
36c0: 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 34 30 20 63  ject monoBug40 c
36d0: 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69  ommand.sql compi
36e0: 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c 0d  le.DATA SQLite\.
36f0: 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c  .System.Data.SQL
3700: 69 74 65 20 63 6f 6d 70 69 6c 65 43 53 68 61 72  ite compileCShar
3710: 70 7d 20 2d 6d 61 74 63 68 20 72 65 67 65 78 70  p} -match regexp
3720: 20 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b 5c 0d 0a   -result {^Ok\..
3730: 53 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43  System#CodeDom#C
3740: 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72  ompiler#Compiler
3750: 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d  Results#\d+ \{\}
3760: 20 30 20 31 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23   0 1$}}....#####
3770: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3780: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d 0a 73 65  ##########....se
37c0: 74 20 66 6c 61 67 73 20 4d 61 70 49 73 6f 6c 61  t flags MapIsola
37d0: 74 69 6f 6e 4c 65 76 65 6c 73 0d 0a 0d 0a 23 23  tionLevels....##
37e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
37f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3800: 23 23 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 0d 0a 0d  #############...
3830: 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74  .runTest {test t
3840: 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e  kt-56b42d99c1-1.
3850: 36 20 7b 65 6e 6c 69 73 74 65 64 20 74 72 61 6e  6 {enlisted tran
3860: 73 61 63 74 69 6f 6e 20 69 73 6f 6c 61 74 69 6f  saction isolatio
3870: 6e 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73  n} -setup {..  s
3880: 65 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65  etupDb [set file
3890: 4e 61 6d 65 20 74 6b 74 2d 35 36 62 34 32 64 39  Name tkt-56b42d9
38a0: 39 63 31 2d 31 2e 36 2e 64 62 5d 0d 0a 7d 20 2d  9c1-1.6.db]..} -
38b0: 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 69 64  body {..  set id
38c0: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   [object invoke 
38d0: 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 41  Interpreter.GetA
38e0: 63 74 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20  ctive NextId].. 
38f0: 20 73 65 74 20 64 61 74 61 53 6f 75 72 63 65 20   set dataSource 
3900: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44  [file join [getD
3910: 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79  atabaseDirectory
3920: 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a  ] $fileName]....
3930: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
3940: 61 69 6e 20 72 65 73 75 6c 74 73 20 65 72 72 6f  ain results erro
3950: 72 73 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65  rs....  set code
3960: 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57   [compileCSharpW
3970: 69 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20  ith [subst {..  
3980: 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44    using System.D
3990: 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20  ata.SQLite;..   
39a0: 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 52 65   using System.Re
39b0: 66 6c 65 63 74 69 6f 6e 3b 0d 0a 20 20 20 20 75  flection;..    u
39c0: 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61 6e  sing System.Tran
39d0: 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20  sactions;....   
39e0: 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e 61   namespace _Dyna
39f0: 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d  mic${id}..    {.
3a00: 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74  .      public st
3a10: 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 74 24  atic class Test$
3a20: 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20  {id}..      {.. 
3a30: 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74         public st
3a40: 61 74 69 63 20 62 6f 6f 6c 20 54 72 79 45 6e 6c  atic bool TryEnl
3a50: 69 73 74 49 6e 54 72 61 6e 73 61 63 74 69 6f 6e  istInTransaction
3a60: 28 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20  ()..        {.. 
3a70: 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 63           Transac
3a80: 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 74 72 61 6e  tionOptions tran
3a90: 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d  sactionOptions =
3aa0: 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f 6e   new Transaction
3ab0: 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 20  Options();..    
3ac0: 20 20 20 20 20 20 74 72 61 6e 73 61 63 74 69 6f        transactio
3ad0: 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 69  nOptions.Isolati
3ae0: 6f 6e 4c 65 76 65 6c 20 3d 20 49 73 6f 6c 61 74  onLevel = Isolat
3af0: 69 6f 6e 4c 65 76 65 6c 2e 52 65 61 64 55 6e 63  ionLevel.ReadUnc
3b00: 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20 20 20  ommitted;....   
3b10: 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 54 72         using (Tr
3b20: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20 74  ansactionScope t
3b30: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20  ransactionScope 
3b40: 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f  = new Transactio
3b50: 6e 53 63 6f 70 65 28 0d 0a 20 20 20 20 20 20 20  nScope(..       
3b60: 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69         Transacti
3b70: 6f 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e 52 65  onScopeOption.Re
3b80: 71 75 69 72 65 64 2c 20 74 72 61 6e 73 61 63 74  quired, transact
3b90: 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a 20 20  ionOptions))..  
3ba0: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
3bb0: 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51         using (SQ
3bc0: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63  LiteConnection c
3bd0: 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e 65 77  onnection1 = new
3be0: 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f   SQLiteConnectio
3bf0: 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  n(..            
3c00: 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65      "Data Source
3c10: 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b  =${dataSource};[
3c20: 67 65 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79  getFlagsProperty
3c30: 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20   $flags]"))..   
3c40: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
3c50: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63            connec
3c60: 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d  tion1.Open();...
3c70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75  .              u
3c80: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e  sing (SQLiteConn
3c90: 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f  ection connectio
3ca0: 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43  n2 = new SQLiteC
3cb0: 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20  onnection(..    
3cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44                "D
3cd0: 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74  ata Source=${dat
3ce0: 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 46 6c 61  aSource};[getFla
3cf0: 67 73 50 72 6f 70 65 72 74 79 20 24 66 6c 61 67  gsProperty $flag
3d00: 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20  s]"))..         
3d10: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
3d20: 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69          connecti
3d30: 6f 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20  on2.Open();.... 
3d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42                 B
3d50: 69 6e 64 69 6e 67 46 6c 61 67 73 20 62 69 6e 64  indingFlags bind
3d60: 69 6e 67 46 6c 61 67 73 20 3d 20 42 69 6e 64 69  ingFlags = Bindi
3d70: 6e 67 46 6c 61 67 73 2e 49 6e 73 74 61 6e 63 65  ngFlags.Instance
3d80: 20 7c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   |..            
3d90: 20 20 20 20 20 20 42 69 6e 64 69 6e 67 46 6c 61        BindingFla
3da0: 67 73 2e 4e 6f 6e 50 75 62 6c 69 63 20 7c 20 42  gs.NonPublic | B
3db0: 69 6e 64 69 6e 67 46 6c 61 67 73 2e 47 65 74 46  indingFlags.GetF
3dc0: 69 65 6c 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20  ield;....       
3dd0: 20 20 20 20 20 20 20 20 20 46 69 65 6c 64 49 6e           FieldIn
3de0: 66 6f 20 66 69 65 6c 64 49 6e 66 6f 31 20 3d 20  fo fieldInfo1 = 
3df0: 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 47 65 74 54  connection1.GetT
3e00: 79 70 65 28 29 2e 47 65 74 46 69 65 6c 64 28 0d  ype().GetField(.
3e10: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
3e20: 20 20 20 22 5f 65 6e 6c 69 73 74 6d 65 6e 74 22     "_enlistment"
3e30: 2c 20 62 69 6e 64 69 6e 67 46 6c 61 67 73 29 3b  , bindingFlags);
3e40: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
3e50: 20 20 20 20 6f 62 6a 65 63 74 20 65 6e 6c 69 73      object enlis
3e60: 74 6d 65 6e 74 31 20 3d 20 66 69 65 6c 64 49 6e  tment1 = fieldIn
3e70: 66 6f 31 2e 47 65 74 56 61 6c 75 65 28 63 6f 6e  fo1.GetValue(con
3e80: 6e 65 63 74 69 6f 6e 31 29 3b 0d 0a 20 20 20 20  nection1);..    
3e90: 20 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65              obje
3ea0: 63 74 20 65 6e 6c 69 73 74 6d 65 6e 74 32 20 3d  ct enlistment2 =
3eb0: 20 66 69 65 6c 64 49 6e 66 6f 31 2e 47 65 74 56   fieldInfo1.GetV
3ec0: 61 6c 75 65 28 63 6f 6e 6e 65 63 74 69 6f 6e 32  alue(connection2
3ed0: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
3ee0: 20 20 20 20 20 20 46 69 65 6c 64 49 6e 66 6f 20        FieldInfo 
3ef0: 66 69 65 6c 64 49 6e 66 6f 32 20 3d 20 65 6e 6c  fieldInfo2 = enl
3f00: 69 73 74 6d 65 6e 74 31 2e 47 65 74 54 79 70 65  istment1.GetType
3f10: 28 29 2e 47 65 74 46 69 65 6c 64 28 0d 0a 20 20  ().GetField(..  
3f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3f30: 22 5f 74 72 61 6e 73 61 63 74 69 6f 6e 22 2c 20  "_transaction", 
3f40: 62 69 6e 64 69 6e 67 46 6c 61 67 73 29 3b 0d 0a  bindingFlags);..
3f50: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
3f60: 20 20 53 51 4c 69 74 65 54 72 61 6e 73 61 63 74    SQLiteTransact
3f70: 69 6f 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 31  ion transaction1
3f80: 20 3d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   =..            
3f90: 20 20 20 20 20 20 28 53 51 4c 69 74 65 54 72 61        (SQLiteTra
3fa0: 6e 73 61 63 74 69 6f 6e 29 66 69 65 6c 64 49 6e  nsaction)fieldIn
3fb0: 66 6f 32 2e 47 65 74 56 61 6c 75 65 28 65 6e 6c  fo2.GetValue(enl
3fc0: 69 73 74 6d 65 6e 74 31 29 3b 0d 0a 0d 0a 20 20  istment1);....  
3fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 51                SQ
3fe0: 4c 69 74 65 54 72 61 6e 73 61 63 74 69 6f 6e 20  LiteTransaction 
3ff0: 74 72 61 6e 73 61 63 74 69 6f 6e 32 20 3d 0d 0a  transaction2 =..
4000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4010: 20 20 28 53 51 4c 69 74 65 54 72 61 6e 73 61 63    (SQLiteTransac
4020: 74 69 6f 6e 29 66 69 65 6c 64 49 6e 66 6f 32 2e  tion)fieldInfo2.
4030: 47 65 74 56 61 6c 75 65 28 65 6e 6c 69 73 74 6d  GetValue(enlistm
4040: 65 6e 74 32 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  ent2);....      
4050: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e            return
4060: 20 28 74 72 61 6e 73 61 63 74 69 6f 6e 31 2e 49   (transaction1.I
4070: 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 3d  solationLevel ==
4080: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
4090: 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 61            transa
40a0: 63 74 69 6f 6e 32 2e 49 73 6f 6c 61 74 69 6f 6e  ction2.Isolation
40b0: 4c 65 76 65 6c 29 3b 0d 0a 20 20 20 20 20 20 20  Level);..       
40c0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
40d0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
40e0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d     }..        }.
40f0: 0a 0d 0a 20 20 20 20 20 20 20 20 2f 2f 2f 2f 2f  ...        /////
4100: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
4110: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 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 0d 0a 0d 0a 20 20 20 20 20 20 20 20 70 75  //....        pu
4150: 62 6c 69 63 20 73 74 61 74 69 63 20 76 6f 69 64  blic static void
4160: 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20 20 20 20   Main()..       
4170: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 2f 2f   {..          //
4180: 20 64 6f 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20   do nothing...  
4190: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
41a0: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72  ..    }..  }] tr
41b0: 75 65 20 74 72 75 65 20 74 72 75 65 20 72 65 73  ue true true res
41c0: 75 6c 74 73 20 65 72 72 6f 72 73 20 53 79 73 74  ults errors Syst
41d0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64  em.Data.SQLite.d
41e0: 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63  ll]....  list $c
41f0: 6f 64 65 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a  ode $results \..
4200: 20 20 20 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e        [expr {[in
4210: 66 6f 20 65 78 69 73 74 73 20 65 72 72 6f 72 73  fo exists errors
4220: 5d 20 3f 20 24 65 72 72 6f 72 73 20 3a 20 22 22  ] ? $errors : ""
4230: 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70  }] \..      [exp
4240: 72 20 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22  r {$code eq "Ok"
4250: 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20   ? [catch {..   
4260: 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f       object invo
4270: 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d  ke _Dynamic${id}
4280: 2e 54 65 73 74 24 7b 69 64 7d 20 54 72 79 45 6e  .Test${id} TryEn
4290: 6c 69 73 74 49 6e 54 72 61 6e 73 61 63 74 69 6f  listInTransactio
42a0: 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65 73 75 6c  n..      } resul
42b0: 74 5d 20 3a 20 5b 73 65 74 20 72 65 73 75 6c 74  t] : [set result
42c0: 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d 0a   ""]}] $result..
42d0: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20  } -cleanup {..  
42e0: 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e  cleanupDb $fileN
42f0: 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d  ame....  unset -
4300: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c  nocomplain resul
4310: 74 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73  t results errors
4320: 20 63 6f 64 65 20 64 61 74 61 53 6f 75 72 63 65   code dataSource
4330: 20 69 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d   id db fileName.
4340: 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  .} -constraints 
4350: 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f  {eagle command.o
4360: 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20  bject monoBug28 
4370: 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70  command.sql comp
4380: 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c  ile.DATA SQLite\
4390: 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  ..System.Data.SQ
43a0: 4c 69 74 65 20 63 6f 6d 70 69 6c 65 43 53 68 61  Lite compileCSha
43b0: 72 70 7d 20 2d 6d 61 74 63 68 20 72 65 67 65 78  rp} -match regex
43c0: 70 20 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b 5c 0d  p -result {^Ok\.
43d0: 0a 53 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23  .System#CodeDom#
43e0: 43 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65  Compiler#Compile
43f0: 72 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c  rResults#\d+ \{\
4400: 7d 20 30 20 54 72 75 65 24 7d 7d 0d 0a 0d 0a 23  } 0 True$}}....#
4410: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4420: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4430: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4450: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
4460: 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20  ..runTest {test 
4470: 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31  tkt-56b42d99c1-1
4480: 2e 37 20 7b 65 6e 6c 69 73 74 65 64 20 74 72 61  .7 {enlisted tra
4490: 6e 73 61 63 74 69 6f 6e 20 69 73 6f 6c 61 74 69  nsaction isolati
44a0: 6f 6e 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20  on} -setup {..  
44b0: 73 65 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c  setupDb [set fil
44c0: 65 4e 61 6d 65 20 74 6b 74 2d 35 36 62 34 32 64  eName tkt-56b42d
44d0: 39 39 63 31 2d 31 2e 37 2e 64 62 5d 0d 0a 7d 20  99c1-1.7.db]..} 
44e0: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 69  -body {..  set i
44f0: 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65  d [object invoke
4500: 20 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74   Interpreter.Get
4510: 41 63 74 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a  Active NextId]..
4520: 20 20 73 65 74 20 64 61 74 61 53 6f 75 72 63 65    set dataSource
4530: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74   [file join [get
4540: 44 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72  DatabaseDirector
4550: 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d  y] $fileName]...
4560: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  .  unset -nocomp
4570: 6c 61 69 6e 20 72 65 73 75 6c 74 73 20 65 72 72  lain results err
4580: 6f 72 73 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c  ors....  set sql
4590: 28 31 29 20 7b 20 5c 0d 0a 20 20 20 20 43 52 45  (1) { \..    CRE
45a0: 41 54 45 20 54 41 42 4c 45 20 74 31 28 78 29 3b  ATE TABLE t1(x);
45b0: 20 5c 0d 0a 20 20 20 20 49 4e 53 45 52 54 20 49   \..    INSERT I
45c0: 4e 54 4f 20 74 31 20 28 78 29 20 56 41 4c 55 45  NTO t1 (x) VALUE
45d0: 53 28 31 29 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a  S(1); \..  }....
45e0: 20 20 73 65 74 20 73 71 6c 28 32 29 20 7b 20 5c    set sql(2) { \
45f0: 0d 0a 20 20 20 20 53 45 4c 45 43 54 20 43 4f 55  ..    SELECT COU
4600: 4e 54 28 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74  NT(*) FROM sqlit
4610: 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74  e_master WHERE t
4620: 79 70 65 20 3d 20 27 74 61 62 6c 65 27 3b 20 5c  ype = 'table'; \
4630: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 63  ..  }....  set c
4640: 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61  ode [compileCSha
4650: 72 70 57 69 74 68 20 5b 73 75 62 73 74 20 7b 0d  rpWith [subst {.
4660: 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65  .    using Syste
4670: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a  m.Data.SQLite;..
4680: 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d      using System
4690: 2e 54 72 61 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a  .Transactions;..
46a0: 0d 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20  ..    namespace 
46b0: 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20  _Dynamic${id}.. 
46c0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c     {..      publ
46d0: 69 63 20 73 74 61 74 69 63 20 63 6c 61 73 73 20  ic static class 
46e0: 54 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 20 20  Test${id}..     
46f0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c   {..        publ
4700: 69 63 20 73 74 61 74 69 63 20 69 6e 74 20 4d 61  ic static int Ma
4710: 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d  in()..        {.
4720: 0a 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73  .          Trans
4730: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 74 72  actionOptions tr
4740: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
4750: 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69   = new Transacti
4760: 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a 20 20  onOptions();..  
4770: 20 20 20 20 20 20 20 20 74 72 61 6e 73 61 63 74          transact
4780: 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f 6c 61  ionOptions.Isola
4790: 74 69 6f 6e 4c 65 76 65 6c 20 3d 20 49 73 6f 6c  tionLevel = Isol
47a0: 61 74 69 6f 6e 4c 65 76 65 6c 2e 52 65 61 64 55  ationLevel.ReadU
47b0: 6e 63 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20  ncommitted;.... 
47c0: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28           using (
47d0: 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65  TransactionScope
47e0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70   transactionScop
47f0: 65 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74  e = new Transact
4800: 69 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20 20 20  ionScope(..     
4810: 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 63           Transac
4820: 74 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e  tionScopeOption.
4830: 52 65 71 75 69 72 65 64 2c 20 74 72 61 6e 73 61  Required, transa
4840: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a  ctionOptions))..
4850: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
4860: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28           using (
4870: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e  SQLiteConnection
4880: 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e   connection1 = n
4890: 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  ew SQLiteConnect
48a0: 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20  ion(..          
48b0: 20 20 20 20 20 20 22 44 61 74 61 20 53 6f 75 72        "Data Sour
48c0: 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d  ce=${dataSource}
48d0: 3b 5b 67 65 74 46 6c 61 67 73 50 72 6f 70 65 72  ;[getFlagsProper
48e0: 74 79 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20  ty $flags]")).. 
48f0: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20             {..  
4900: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e              conn
4910: 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d  ection1.Open();.
4920: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
4930: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
4940: 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74  nnection connect
4950: 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74  ion2 = new SQLit
4960: 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20  eConnection(..  
4970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4980: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64  "Data Source=${d
4990: 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 46  ataSource};[getF
49a0: 6c 61 67 73 50 72 6f 70 65 72 74 79 20 24 66 6c  lagsProperty $fl
49b0: 61 67 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 20  ags]"))..       
49c0: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
49d0: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63            connec
49e0: 74 69 6f 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d  tion2.Open();...
49f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4a00: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
4a10: 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 31 20 3d  mmand command1 =
4a20: 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 43 72 65   connection1.Cre
4a30: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20  ateCommand()).. 
4a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b                 {
4a50: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
4a60: 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d      command1.Com
4a70: 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b 73 71  mandText = "${sq
4a80: 6c 28 31 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20  l(1)}";..       
4a90: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61             comma
4aa0: 6e 64 31 2e 45 78 65 63 75 74 65 4e 6f 6e 51 75  nd1.ExecuteNonQu
4ab0: 65 72 79 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  ery();....      
4ac0: 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e              usin
4ad0: 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64  g (SQLiteCommand
4ae0: 20 63 6f 6d 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e   command2 = conn
4af0: 65 63 74 69 6f 6e 32 2e 43 72 65 61 74 65 43 6f  ection2.CreateCo
4b00: 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 20  mmand())..      
4b10: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
4b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b30: 20 20 20 63 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d     command2.Comm
4b40: 61 6e 64 54 65 78 74 20 3d 20 22 24 7b 73 71 6c  andText = "${sql
4b50: 28 32 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20  (2)}";..        
4b60: 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 75              retu
4b70: 72 6e 20 28 69 6e 74 29 28 6c 6f 6e 67 29 63 6f  rn (int)(long)co
4b80: 6d 6d 61 6e 64 32 2e 45 78 65 63 75 74 65 53 63  mmand2.ExecuteSc
4b90: 61 6c 61 72 28 29 3b 0d 0a 20 20 20 20 20 20 20  alar();..       
4ba0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
4bb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d                }.
4bc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d  .              }
4bd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d  ..            }.
4be0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  .          }..  
4bf0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
4c00: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72  ..    }..  }] tr
4c10: 75 65 20 74 72 75 65 20 74 72 75 65 20 72 65 73  ue true true res
4c20: 75 6c 74 73 20 65 72 72 6f 72 73 20 53 79 73 74  ults errors Syst
4c30: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64  em.Data.SQLite.d
4c40: 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63  ll]....  list $c
4c50: 6f 64 65 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a  ode $results \..
4c60: 20 20 20 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e        [expr {[in
4c70: 66 6f 20 65 78 69 73 74 73 20 65 72 72 6f 72 73  fo exists errors
4c80: 5d 20 3f 20 24 65 72 72 6f 72 73 20 3a 20 22 22  ] ? $errors : ""
4c90: 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70  }] \..      [exp
4ca0: 72 20 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22  r {$code eq "Ok"
4cb0: 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20   ? [catch {..   
4cc0: 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f       object invo
4cd0: 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d  ke _Dynamic${id}
4ce0: 2e 54 65 73 74 24 7b 69 64 7d 20 4d 61 69 6e 0d  .Test${id} Main.
4cf0: 0a 20 20 20 20 20 20 7d 20 72 65 73 75 6c 74 5d  .      } result]
4d00: 20 3a 20 5b 73 65 74 20 72 65 73 75 6c 74 20 22   : [set result "
4d10: 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d 0a 7d 20  "]}] $result..} 
4d20: 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c  -cleanup {..  cl
4d30: 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d  eanupDb $fileNam
4d40: 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f  e....  unset -no
4d50: 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20  complain result 
4d60: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 63  results errors c
4d70: 6f 64 65 20 73 71 6c 20 64 61 74 61 53 6f 75 72  ode sql dataSour
4d80: 63 65 20 69 64 20 64 62 20 66 69 6c 65 4e 61 6d  ce id db fileNam
4d90: 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74  e..} -constraint
4da0: 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64  s {eagle command
4db0: 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32  .object monoBug2
4dc0: 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f  8 command.sql co
4dd0: 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74  mpile.DATA SQLit
4de0: 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e  e\..System.Data.
4df0: 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c 65 43 53  SQLite compileCS
4e00: 68 61 72 70 7d 20 2d 6d 61 74 63 68 20 72 65 67  harp} -match reg
4e10: 65 78 70 20 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b  exp -result {^Ok
4e20: 5c 0d 0a 53 79 73 74 65 6d 23 43 6f 64 65 44 6f  \..System#CodeDo
4e30: 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69  m#Compiler#Compi
4e40: 6c 65 72 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c  lerResults#\d+ \
4e50: 7b 5c 7d 20 30 20 30 24 7d 7d 0d 0a 0d 0a 23 23  {\} 0 0$}}....##
4e60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4e80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4e90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ea0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
4eb0: 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74  .runTest {test t
4ec0: 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e  kt-56b42d99c1-1.
4ed0: 38 20 7b 65 6e 6c 69 73 74 65 64 20 74 72 61 6e  8 {enlisted tran
4ee0: 73 61 63 74 69 6f 6e 20 69 73 6f 6c 61 74 69 6f  saction isolatio
4ef0: 6e 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73  n} -setup {..  s
4f00: 65 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65  etupDb [set file
4f10: 4e 61 6d 65 20 74 6b 74 2d 35 36 62 34 32 64 39  Name tkt-56b42d9
4f20: 39 63 31 2d 31 2e 38 2e 64 62 5d 0d 0a 7d 20 2d  9c1-1.8.db]..} -
4f30: 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 69 64  body {..  set id
4f40: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   [object invoke 
4f50: 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 41  Interpreter.GetA
4f60: 63 74 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20  ctive NextId].. 
4f70: 20 73 65 74 20 64 61 74 61 53 6f 75 72 63 65 20   set dataSource 
4f80: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44  [file join [getD
4f90: 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79  atabaseDirectory
4fa0: 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a  ] $fileName]....
4fb0: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
4fc0: 61 69 6e 20 72 65 73 75 6c 74 73 20 65 72 72 6f  ain results erro
4fd0: 72 73 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28  rs....  set sql(
4fe0: 31 29 20 7b 20 5c 0d 0a 20 20 20 20 43 52 45 41  1) { \..    CREA
4ff0: 54 45 20 54 41 42 4c 45 20 74 31 28 78 29 3b 20  TE TABLE t1(x); 
5000: 5c 0d 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  \..    INSERT IN
5010: 54 4f 20 74 31 20 28 78 29 20 56 41 4c 55 45 53  TO t1 (x) VALUES
5020: 28 31 29 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20  (1); \..  }.... 
5030: 20 73 65 74 20 73 71 6c 28 32 29 20 7b 20 5c 0d   set sql(2) { \.
5040: 0a 20 20 20 20 53 45 4c 45 43 54 20 43 4f 55 4e  .    SELECT COUN
5050: 54 28 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74 65  T(*) FROM sqlite
5060: 5f 6d 61 73 74 65 72 20 57 48 45 52 45 20 74 79  _master WHERE ty
5070: 70 65 20 3d 20 27 74 61 62 6c 65 27 3b 20 5c 0d  pe = 'table'; \.
5080: 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 63 6f  .  }....  set co
5090: 64 65 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72  de [compileCShar
50a0: 70 57 69 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a  pWith [subst {..
50b0: 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d      using System
50c0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20  .Data.SQLite;.. 
50d0: 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e     using System.
50e0: 54 72 61 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d  Transactions;...
50f0: 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 5f  .    namespace _
5100: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20  Dynamic${id}..  
5110: 20 20 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c 69    {..      publi
5120: 63 20 73 74 61 74 69 63 20 63 6c 61 73 73 20 54  c static class T
5130: 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20  est${id}..      
5140: 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c 69  {..        publi
5150: 63 20 73 74 61 74 69 63 20 69 6e 74 20 4d 61 69  c static int Mai
5160: 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a  n()..        {..
5170: 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 61            Transa
5180: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 74 72 61  ctionOptions tra
5190: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20  nsactionOptions 
51a0: 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f  = new Transactio
51b0: 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a 20 20 20  nOptions();..   
51c0: 20 20 20 20 20 20 20 74 72 61 6e 73 61 63 74 69         transacti
51d0: 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f 6c 61 74  onOptions.Isolat
51e0: 69 6f 6e 4c 65 76 65 6c 20 3d 20 49 73 6f 6c 61  ionLevel = Isola
51f0: 74 69 6f 6e 4c 65 76 65 6c 2e 52 65 61 64 55 6e  tionLevel.ReadUn
5200: 63 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20 20  committed;....  
5210: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 54          using (T
5220: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20  ransactionScope 
5230: 74 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65  transactionScope
5240: 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69   = new Transacti
5250: 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20 20 20 20  onScope(..      
5260: 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74          Transact
5270: 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e 52  ionScopeOption.R
5280: 65 71 75 69 72 65 64 2c 20 74 72 61 6e 73 61 63  equired, transac
5290: 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a 20  tionOptions)).. 
52a0: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
52b0: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53          using (S
52c0: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20  QLiteConnection 
52d0: 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e 65  connection1 = ne
52e0: 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69  w SQLiteConnecti
52f0: 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  on(..           
5300: 20 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63       "Data Sourc
5310: 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b  e=${dataSource};
5320: 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b 5b 67 65  Enlist=False;[ge
5330: 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79 20 24  tFlagsProperty $
5340: 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 20 20  flags]"))..     
5350: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
5360: 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69          connecti
5370: 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20  on1.Open();.... 
5380: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69               usi
5390: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63  ng (SQLiteConnec
53a0: 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 32  tion connection2
53b0: 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e   = new SQLiteCon
53c0: 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20  nection(..      
53d0: 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74              "Dat
53e0: 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53  a Source=${dataS
53f0: 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 61  ource};Enlist=Fa
5400: 6c 73 65 3b 5b 67 65 74 46 6c 61 67 73 50 72 6f  lse;[getFlagsPro
5410: 70 65 72 74 79 20 24 66 6c 61 67 73 5d 22 29 29  perty $flags]"))
5420: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
5430: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
5440: 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f     connection2.O
5450: 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20  pen();....      
5460: 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20            using 
5470: 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63  (SQLiteCommand c
5480: 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f 6e 6e 65 63  ommand1 = connec
5490: 74 69 6f 6e 31 2e 43 72 65 61 74 65 43 6f 6d 6d  tion1.CreateComm
54a0: 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20  and())..        
54b0: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
54c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d               com
54d0: 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e 64 54 65 78  mand1.CommandTex
54e0: 74 20 3d 20 22 24 7b 73 71 6c 28 31 29 7d 22 3b  t = "${sql(1)}";
54f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
5500: 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e 45 78 65      command1.Exe
5510: 63 75 74 65 4e 6f 6e 51 75 65 72 79 28 29 3b 0d  cuteNonQuery();.
5520: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
5530: 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69       using (SQLi
5540: 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e  teCommand comman
5550: 64 32 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 32  d2 = connection2
5560: 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29  .CreateCommand()
5570: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
5580: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
5590: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d              comm
55a0: 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64 54 65 78 74  and2.CommandText
55b0: 20 3d 20 22 24 7b 73 71 6c 28 32 29 7d 22 3b 0d   = "${sql(2)}";.
55c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
55d0: 20 20 20 20 20 72 65 74 75 72 6e 20 28 69 6e 74       return (int
55e0: 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e  )(long)command2.
55f0: 45 78 65 63 75 74 65 53 63 61 6c 61 72 28 29 3b  ExecuteScalar();
5600: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
5610: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
5620: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
5630: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
5640: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
5650: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d      }..        }
5660: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d  ..      }..    }
5670: 0d 0a 20 20 7d 5d 20 74 72 75 65 20 74 72 75 65  ..  }] true true
5680: 20 74 72 75 65 20 72 65 73 75 6c 74 73 20 65 72   true results er
5690: 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61  rors System.Data
56a0: 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a  .SQLite.dll]....
56b0: 20 20 6c 69 73 74 20 24 63 6f 64 65 20 24 72 65    list $code $re
56c0: 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20 20 20 5b  sults \..      [
56d0: 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73  expr {[info exis
56e0: 74 73 20 65 72 72 6f 72 73 5d 20 3f 20 24 65 72  ts errors] ? $er
56f0: 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20  rors : ""}] \.. 
5700: 20 20 20 20 20 5b 65 78 70 72 20 7b 24 63 6f 64       [expr {$cod
5710: 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b 63 61 74  e eq "Ok" ? [cat
5720: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 6f 62  ch {..        ob
5730: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e  ject invoke _Dyn
5740: 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b  amic${id}.Test${
5750: 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 20 20 20  id} Main..      
5760: 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b 73 65 74  } result] : [set
5770: 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d 20 24 72   result ""]}] $r
5780: 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75  esult..} -cleanu
5790: 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62  p {..  cleanupDb
57a0: 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20   $fileName....  
57b0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
57c0: 6e 20 72 65 73 75 6c 74 20 72 65 73 75 6c 74 73  n result results
57d0: 20 65 72 72 6f 72 73 20 63 6f 64 65 20 73 71 6c   errors code sql
57e0: 20 64 61 74 61 53 6f 75 72 63 65 20 69 64 20 64   dataSource id d
57f0: 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63  b fileName..} -c
5800: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c  onstraints {eagl
5810: 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74  e command.object
5820: 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f 6d 6d 61   monoBug28 comma
5830: 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c 65 2e 44  nd.sql compile.D
5840: 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a 53 79 73  ATA SQLite\..Sys
5850: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20  tem.Data.SQLite 
5860: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d  compileCSharp} -
5870: 6d 61 74 63 68 20 72 65 67 65 78 70 20 2d 72 65  match regexp -re
5880: 73 75 6c 74 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74  sult {^Ok\..Syst
5890: 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69  em#CodeDom#Compi
58a0: 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75  ler#CompilerResu
58b0: 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 31  lts#\d+ \{\} 0 1
58c0: 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23  $}}....#########
58d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
58e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
58f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5900: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5910: 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 73  ######....runTes
5920: 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 36 62 34  t {test tkt-56b4
5930: 32 64 39 39 63 31 2d 31 2e 39 20 7b 65 6e 6c 69  2d99c1-1.9 {enli
5940: 73 74 65 64 20 74 72 61 6e 73 61 63 74 69 6f 6e  sted transaction
5950: 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74   isolation} -set
5960: 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 20  up {..  setupDb 
5970: 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b  [set fileName tk
5980: 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e 39  t-56b42d99c1-1.9
5990: 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d  .db]..} -body {.
59a0: 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63  .  set id [objec
59b0: 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72  t invoke Interpr
59c0: 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e  eter.GetActive N
59d0: 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 61  extId]..  set da
59e0: 74 61 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a  taSource [file j
59f0: 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65  oin [getDatabase
5a00: 44 69 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65  Directory] $file
5a10: 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74  Name]....  unset
5a20: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73   -nocomplain res
5a30: 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20  ults errors.... 
5a40: 20 73 65 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d   set sql(1) { \.
5a50: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
5a60: 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20  E t1(x); \..    
5a70: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28  INSERT INTO t1 (
5a80: 78 29 20 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d  x) VALUES(1); \.
5a90: 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71  .  }....  set sq
5aa0: 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45  l(2) { \..    SE
5ab0: 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52  LECT COUNT(*) FR
5ac0: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
5ad0: 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 74   WHERE type = 't
5ae0: 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d  able'; \..  }...
5af0: 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d  .  set code [com
5b00: 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b  pileCSharpWith [
5b10: 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69  subst {..    usi
5b20: 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  ng System.Data.S
5b30: 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e  QLite;..    usin
5b40: 67 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63  g System.Transac
5b50: 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61  tions;....    na
5b60: 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63  mespace _Dynamic
5b70: 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20  ${id}..    {..  
5b80: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69      public stati
5b90: 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64  c class Test${id
5ba0: 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20  }..      {..    
5bb0: 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69      public stati
5bc0: 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20  c int Main()..  
5bd0: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
5be0: 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70     TransactionOp
5bf0: 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 6f  tions transactio
5c00: 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54  nOptions = new T
5c10: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e  ransactionOption
5c20: 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  s();..          
5c30: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
5c40: 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65  ns.IsolationLeve
5c50: 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76  l = IsolationLev
5c60: 65 6c 2e 52 65 61 64 55 6e 63 6f 6d 6d 69 74 74  el.ReadUncommitt
5c70: 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ed;....         
5c80: 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74   using (Transact
5c90: 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63  ionScope transac
5ca0: 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20  tionScope = new 
5cb0: 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65  TransactionScope
5cc0: 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  (..             
5cd0: 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70   TransactionScop
5ce0: 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64  eOption.Required
5cf0: 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74  , transactionOpt
5d00: 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20  ions))..        
5d10: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
5d20: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
5d30: 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74  nnection connect
5d40: 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74  ion1 = new SQLit
5d50: 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20  eConnection(..  
5d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44                "D
5d70: 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74  ata Source=${dat
5d80: 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 46 6c 61  aSource};[getFla
5d90: 67 73 50 72 6f 70 65 72 74 79 20 24 66 6c 61 67  gsProperty $flag
5da0: 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20  s]"))..         
5db0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
5dc0: 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e      connection1.
5dd0: 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20  Open();....     
5de0: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28           using (
5df0: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e  SQLiteConnection
5e00: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 20 3d 20 6e   connection2 = n
5e10: 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74  ew SQLiteConnect
5e20: 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20  ion(..          
5e30: 20 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f          "Data So
5e40: 75 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63  urce=${dataSourc
5e50: 65 7d 3b 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b  e};Enlist=False;
5e60: 5b 67 65 74 46 6c 61 67 73 50 72 6f 70 65 72 74  [getFlagsPropert
5e70: 79 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20  y $flags]"))..  
5e80: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
5e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
5ea0: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28  onnection2.Open(
5eb0: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
5ec0: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
5ed0: 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61  iteCommand comma
5ee0: 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e  nd1 = connection
5ef0: 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28  1.CreateCommand(
5f00: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ))..            
5f10: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
5f20: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64           command
5f30: 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20  1.CommandText = 
5f40: 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20  "${sql(1)}";..  
5f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5f60: 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65  command1.Execute
5f70: 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20  NonQuery();.... 
5f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5f90: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
5fa0: 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d  mmand command2 =
5fb0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65   connection2.Cre
5fc0: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20  ateCommand()).. 
5fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5fe0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
5ff0: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32          command2
6000: 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22  .CommandText = "
6010: 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20  ${sql(2)}";..   
6020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6030: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f   return (int)(lo
6040: 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63  ng)command2.Exec
6050: 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20  uteScalar();..  
6060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6070: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
6080: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
6090: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
60a0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
60b0: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
60c0: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20      }..    }..  
60d0: 7d 5d 20 74 72 75 65 20 74 72 75 65 20 74 72 75  }] true true tru
60e0: 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73  e results errors
60f0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
6100: 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69  ite.dll]....  li
6110: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74  st $code $result
6120: 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72  s \..      [expr
6130: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65   {[info exists e
6140: 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73  rrors] ? $errors
6150: 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20   : ""}] \..     
6160: 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71   [expr {$code eq
6170: 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b   "Ok" ? [catch {
6180: 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74  ..        object
6190: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63   invoke _Dynamic
61a0: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20  ${id}.Test${id} 
61b0: 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65  Main..      } re
61c0: 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73  sult] : [set res
61d0: 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c  ult ""]}] $resul
61e0: 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d  t..} -cleanup {.
61f0: 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69  .  cleanupDb $fi
6200: 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65  leName....  unse
6210: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
6220: 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72  sult results err
6230: 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74  ors code sql dat
6240: 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66 69  aSource id db fi
6250: 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74  leName..} -const
6260: 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f  raints {eagle co
6270: 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e  mmand.object mon
6280: 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73  oBug28 command.s
6290: 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20  ql compile.DATA 
62a0: 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e  SQLite\..System.
62b0: 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70  Data.SQLite comp
62c0: 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61 74 63  ileCSharp} -matc
62d0: 68 20 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74  h regexp -result
62e0: 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d 23 43   {^Ok\..System#C
62f0: 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23  odeDom#Compiler#
6300: 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23  CompilerResults#
6310: 5c 64 2b 20 5c 7b 5c 7d 20 30 20 30 24 7d 7d 0d  \d+ \{\} 0 0$}}.
6320: 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  ...#############
6330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6340: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6350: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6360: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6370: 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74  ##....runTest {t
6380: 65 73 74 20 74 6b 74 2d 35 36 62 34 32 64 39 39  est tkt-56b42d99
6390: 63 31 2d 31 2e 31 30 20 7b 65 6e 6c 69 73 74 65  c1-1.10 {enliste
63a0: 64 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73  d transaction is
63b0: 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20  olation} -setup 
63c0: 7b 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65  {..  setupDb [se
63d0: 74 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35  t fileName tkt-5
63e0: 36 62 34 32 64 39 39 63 31 2d 31 2e 31 30 2e 64  6b42d99c1-1.10.d
63f0: 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20  b]..} -body {.. 
6400: 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20   set id [object 
6410: 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74  invoke Interpret
6420: 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78  er.GetActive Nex
6430: 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 61 74 61  tId]..  set data
6440: 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69  Source [file joi
6450: 6e 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69  n [getDatabaseDi
6460: 72 65 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61  rectory] $fileNa
6470: 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d  me]....  unset -
6480: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c  nocomplain resul
6490: 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73  ts errors....  s
64a0: 65 74 20 73 71 6c 28 31 29 20 7b 20 5c 0d 0a 20  et sql(1) { \.. 
64b0: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
64c0: 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 20 49 4e  t1(x); \..    IN
64d0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29  SERT INTO t1 (x)
64e0: 20 56 41 4c 55 45 53 28 31 29 3b 20 5c 0d 0a 20   VALUES(1); \.. 
64f0: 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28   }....  set sql(
6500: 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 45 4c 45  2) { \..    SELE
6510: 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d  CT COUNT(*) FROM
6520: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57   sqlite_master W
6530: 48 45 52 45 20 74 79 70 65 20 3d 20 27 74 61 62  HERE type = 'tab
6540: 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20  le'; \..  }.... 
6550: 20 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69   set code [compi
6560: 6c 65 43 53 68 61 72 70 57 69 74 68 20 5b 73 75  leCSharpWith [su
6570: 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67  bst {..    using
6580: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
6590: 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 6e 67 20  ite;..    using 
65a0: 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63 74 69  System.Transacti
65b0: 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65  ons;....    name
65c0: 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b  space _Dynamic${
65d0: 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20  id}..    {..    
65e0: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
65f0: 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d 0d  class Test${id}.
6600: 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20  .      {..      
6610: 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20    public static 
6620: 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20  int Main()..    
6630: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
6640: 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69   TransactionOpti
6650: 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f  ons transactionO
6660: 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 54 72 61  ptions = new Tra
6670: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 28  nsactionOptions(
6680: 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72  );..          tr
6690: 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73  ansactionOptions
66a0: 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20  .IsolationLevel 
66b0: 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c  = IsolationLevel
66c0: 2e 52 65 61 64 55 6e 63 6f 6d 6d 69 74 74 65 64  .ReadUncommitted
66d0: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 75  ;....          u
66e0: 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74 69 6f  sing (Transactio
66f0: 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63 74 69  nScope transacti
6700: 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 72  onScope = new Tr
6710: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 0d  ansactionScope(.
6720: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54  .              T
6730: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 4f  ransactionScopeO
6740: 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c 20  ption.Required, 
6750: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f  transactionOptio
6760: 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20  ns))..          
6770: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 75  {..            u
6780: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e  sing (SQLiteConn
6790: 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f  ection connectio
67a0: 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43  n1 = new SQLiteC
67b0: 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20  onnection(..    
67c0: 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74              "Dat
67d0: 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53  a Source=${dataS
67e0: 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 61  ource};Enlist=Fa
67f0: 6c 73 65 3b 5b 67 65 74 46 6c 61 67 73 50 72 6f  lse;[getFlagsPro
6800: 70 65 72 74 79 20 24 66 6c 61 67 73 5d 22 29 29  perty $flags]"))
6810: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d  ..            {.
6820: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63  .              c
6830: 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28  onnection1.Open(
6840: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  );....          
6850: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74      using (SQLit
6860: 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e  eConnection conn
6870: 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51  ection2 = new SQ
6880: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d  LiteConnection(.
6890: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
68a0: 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d     "Data Source=
68b0: 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67  ${dataSource};[g
68c0: 65 74 46 6c 61 67 73 50 72 6f 70 65 72 74 79 20  etFlagsProperty 
68d0: 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 20  $flags]"))..    
68e0: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
68f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e               con
6900: 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 29 3b  nection2.Open();
6910: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
6920: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74      using (SQLit
6930: 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64  eCommand command
6940: 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e  1 = connection1.
6950: 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29  CreateCommand())
6960: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
6970: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
6980: 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e         command1.
6990: 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24  CommandText = "$
69a0: 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20 20 20  {sql(1)}";..    
69b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f                co
69c0: 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65 4e 6f  mmand1.ExecuteNo
69d0: 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20 20 20  nQuery();....   
69e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75                 u
69f0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d  sing (SQLiteComm
6a00: 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d 20 63  and command2 = c
6a10: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65 61 74  onnection2.Creat
6a20: 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20  eCommand())..   
6a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b                 {
6a40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
6a50: 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32 2e 43        command2.C
6a60: 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b  ommandText = "${
6a70: 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20 20 20  sql(2)}";..     
6a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72                 r
6a90: 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f 6e 67  eturn (int)(long
6aa0: 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63 75 74  )command2.Execut
6ab0: 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20 20 20  eScalar();..    
6ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d                }.
6ad0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
6ae0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   }..            
6af0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
6b00: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d   }..          }.
6b10: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
6b20: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 5d    }..    }..  }]
6b30: 20 74 72 75 65 20 74 72 75 65 20 74 72 75 65 20   true true true 
6b40: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 53  results errors S
6b50: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
6b60: 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74  e.dll]....  list
6b70: 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 73 20   $code $results 
6b80: 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b  \..      [expr {
6b90: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65 72 72  [info exists err
6ba0: 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73 20 3a  ors] ? $errors :
6bb0: 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 5b   ""}] \..      [
6bc0: 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71 20 22  expr {$code eq "
6bd0: 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a  Ok" ? [catch {..
6be0: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69          object i
6bf0: 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b  nvoke _Dynamic${
6c00: 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20 4d 61  id}.Test${id} Ma
6c10: 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65 73 75  in..      } resu
6c20: 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73 75 6c  lt] : [set resul
6c30: 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d  t ""]}] $result.
6c40: 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20  .} -cleanup {.. 
6c50: 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65   cleanupDb $file
6c60: 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20  Name....  unset 
6c70: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75  -nocomplain resu
6c80: 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72  lt results error
6c90: 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74 61 53  s code sql dataS
6ca0: 6f 75 72 63 65 20 69 64 20 64 62 20 66 69 6c 65  ource id db file
6cb0: 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61  Name..} -constra
6cc0: 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d  ints {eagle comm
6cd0: 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42  and.object monoB
6ce0: 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c  ug28 command.sql
6cf0: 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51   compile.DATA SQ
6d00: 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61  Lite\..System.Da
6d10: 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c  ta.SQLite compil
6d20: 65 43 53 68 61 72 70 7d 20 2d 6d 61 74 63 68 20  eCSharp} -match 
6d30: 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74 20 7b  regexp -result {
6d40: 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d 23 43 6f 64  ^Ok\..System#Cod
6d50: 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f  eDom#Compiler#Co
6d60: 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23 5c 64  mpilerResults#\d
6d70: 2b 20 5c 7b 5c 7d 20 30 20 31 24 7d 7d 0d 0a 0d  + \{\} 0 1$}}...
6d80: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  .###############
6d90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6da0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6db0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6dc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6dd0: 0d 0a 0d 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  ....unset -nocom
6de0: 70 6c 61 69 6e 20 66 6c 61 67 73 0d 0a 0d 0a 23  plain flags....#
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 23 23 23 23 23 23 23 23 0d 0a  ##############..
6e40: 0d 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74 45  ..runSQLiteTestE
6e50: 70 69 6c 6f 67 75 65 0d 0a 72 75 6e 54 65 73 74  pilogue..runTest
6e60: 45 70 69 6c 6f 67 75 65 0d 0a                    Epilogue..