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