Artifact
dc448f4961c7a59f2c25835f79d155ed7968227a:
- File
Tests/tkt-56b42d99c1.eagle
— part of check-in
[48d8124b8c]
at
2019-01-15 17:17:55
on branch trunk
— Adjust the test constraints impacted by Mono 5.18.
(user:
mistachkin
size: 28394)
0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d ###############.
0050: 0a 23 0d 0a 23 20 74 6b 74 2d 35 36 62 34 32 64 .#..# tkt-56b42d
0060: 39 39 63 31 2e 65 61 67 6c 65 20 2d 2d 0d 0a 23 99c1.eagle --..#
0070: 0d 0a 23 20 57 72 69 74 74 65 6e 20 62 79 20 4a ..# Written by J
0080: 6f 65 20 4d 69 73 74 61 63 68 6b 69 6e 2e 0d 0a oe Mistachkin...
0090: 23 20 52 65 6c 65 61 73 65 64 20 74 6f 20 74 68 # Released to th
00a0: 65 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2c e public domain,
00b0: 20 75 73 65 20 61 74 20 79 6f 75 72 20 6f 77 6e use at your own
00c0: 20 72 69 73 6b 21 0d 0a 23 0d 0a 23 23 23 23 23 risk!..#..#####
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0110: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 70 61 ##########....pa
0120: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 45 61 ckage require Ea
0130: 67 6c 65 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 gle..package req
0140: 75 69 72 65 20 45 61 67 6c 65 2e 4c 69 62 72 61 uire Eagle.Libra
0150: 72 79 0d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 ry..package requ
0160: 69 72 65 20 45 61 67 6c 65 2e 54 65 73 74 0d 0a ire Eagle.Test..
0170: 0d 0a 72 75 6e 54 65 73 74 50 72 6f 6c 6f 67 75 ..runTestPrologu
0180: 65 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 e....###########
0190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
01d0: 23 23 23 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 ####....package
01e0: 72 65 71 75 69 72 65 20 53 79 73 74 65 6d 2e 44 require System.D
01f0: 61 74 61 2e 53 51 4c 69 74 65 2e 54 65 73 74 0d ata.SQLite.Test.
0200: 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74 50 72 .runSQLiteTestPr
0210: 6f 6c 6f 67 75 65 0d 0a 0d 0a 23 23 23 23 23 23 ologue....######
0220: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0230: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0260: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e #########....run
0270: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 Test {test tkt-5
0280: 36 62 34 32 64 39 39 63 31 2d 31 2e 31 20 7b 65 6b42d99c1-1.1 {e
0290: 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63 74 nlisted transact
02a0: 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d ion isolation} -
02b0: 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 setup {.. setup
02c0: 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 Db [set fileName
02d0: 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d tkt-56b42d99c1-
02e0: 31 2e 31 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 1.1.db]..} -body
02f0: 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 {.. set id [ob
0300: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 ject invoke Inte
0310: 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 rpreter.GetActiv
0320: 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 e NextId].. set
0330: 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69 6c dataSource [fil
0340: 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 e join [getDatab
0350: 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66 aseDirectory] $f
0360: 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e ileName].... un
0370: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 set -nocomplain
0380: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a results errors..
0390: 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f .. set code [co
03a0: 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20 mpileCSharpWith
03b0: 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 [subst {.. us
03c0: 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ing System.Data.
03d0: 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 SQLite;.. usi
03e0: 6e 67 20 53 79 73 74 65 6d 2e 52 65 66 6c 65 63 ng System.Reflec
03f0: 74 69 6f 6e 3b 0d 0a 20 20 20 20 75 73 69 6e 67 tion;.. using
0400: 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 63 74 System.Transact
0410: 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d ions;.... nam
0420: 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 espace _Dynamic$
0430: 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 {id}.. {..
0440: 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 public static
0450: 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d class Test${id}
0460: 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 .. {..
0470: 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 public static
0480: 20 62 6f 6f 6c 20 54 72 79 45 6e 6c 69 73 74 49 bool TryEnlistI
0490: 6e 54 72 61 6e 73 61 63 74 69 6f 6e 28 29 0d 0a nTransaction()..
04a0: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 {..
04b0: 20 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e Transaction
04c0: 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74 Options transact
04d0: 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77 ionOptions = new
04e0: 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 TransactionOpti
04f0: 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 ons();..
0500: 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 transactionOpt
0510: 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 ions.IsolationLe
0520: 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c vel = IsolationL
0530: 65 76 65 6c 2e 52 65 61 64 43 6f 6d 6d 69 74 74 evel.ReadCommitt
0540: 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 ed;....
0550: 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74 using (Transact
0560: 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63 ionScope transac
0570: 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20 tionScope = new
0580: 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 TransactionScope
0590: 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 (..
05a0: 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 TransactionScop
05b0: 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64 eOption.Required
05c0: 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 , transactionOpt
05d0: 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20 ions))..
05e0: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 {..
05f0: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f using (SQLiteCo
0600: 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 nnection connect
0610: 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74 ion1 = new SQLit
0620: 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 eConnection(..
0630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44 "D
0640: 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 ata Source=${dat
0650: 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 54 65 73 aSource};[getTes
0660: 74 50 72 6f 70 65 72 74 69 65 73 5d 22 29 29 0d tProperties]")).
0670: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a . {..
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f co
0690: 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 nnection1.Open()
06a0: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ;....
06b0: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 using (SQLite
06c0: 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 Connection conne
06d0: 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c ction2 = new SQL
06e0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a iteConnection(..
06f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0700: 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 "Data Source=$
0710: 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 {dataSource};[ge
0720: 74 54 65 73 74 50 72 6f 70 65 72 74 69 65 73 5d tTestProperties]
0730: 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 "))..
0740: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 {..
0750: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e connection
0760: 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 2.Open();....
0770: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 69 6e Bin
0780: 64 69 6e 67 46 6c 61 67 73 20 62 69 6e 64 69 6e dingFlags bindin
0790: 67 46 6c 61 67 73 20 3d 20 42 69 6e 64 69 6e 67 gFlags = Binding
07a0: 46 6c 61 67 73 2e 49 6e 73 74 61 6e 63 65 20 7c Flags.Instance |
07b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
07c0: 20 20 20 20 42 69 6e 64 69 6e 67 46 6c 61 67 73 BindingFlags
07d0: 2e 4e 6f 6e 50 75 62 6c 69 63 20 7c 20 42 69 6e .NonPublic | Bin
07e0: 64 69 6e 67 46 6c 61 67 73 2e 47 65 74 46 69 65 dingFlags.GetFie
07f0: 6c 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 ld;....
0800: 20 20 20 20 20 20 20 46 69 65 6c 64 49 6e 66 6f FieldInfo
0810: 20 66 69 65 6c 64 49 6e 66 6f 31 20 3d 20 63 6f fieldInfo1 = co
0820: 6e 6e 65 63 74 69 6f 6e 31 2e 47 65 74 54 79 70 nnection1.GetTyp
0830: 65 28 29 2e 47 65 74 46 69 65 6c 64 28 0d 0a 20 e().GetField(..
0840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0850: 20 22 5f 65 6e 6c 69 73 74 6d 65 6e 74 22 2c 20 "_enlistment",
0860: 62 69 6e 64 69 6e 67 46 6c 61 67 73 29 3b 0d 0a bindingFlags);..
0870: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0880: 20 20 6f 62 6a 65 63 74 20 65 6e 6c 69 73 74 6d object enlistm
0890: 65 6e 74 31 20 3d 20 66 69 65 6c 64 49 6e 66 6f ent1 = fieldInfo
08a0: 31 2e 47 65 74 56 61 6c 75 65 28 63 6f 6e 6e 65 1.GetValue(conne
08b0: 63 74 69 6f 6e 31 29 3b 0d 0a 20 20 20 20 20 20 ction1);..
08c0: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 object
08d0: 20 65 6e 6c 69 73 74 6d 65 6e 74 32 20 3d 20 66 enlistment2 = f
08e0: 69 65 6c 64 49 6e 66 6f 31 2e 47 65 74 56 61 6c ieldInfo1.GetVal
08f0: 75 65 28 63 6f 6e 6e 65 63 74 69 6f 6e 32 29 3b ue(connection2);
0900: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ....
0910: 20 20 20 20 46 69 65 6c 64 49 6e 66 6f 20 66 69 FieldInfo fi
0920: 65 6c 64 49 6e 66 6f 32 20 3d 20 65 6e 6c 69 73 eldInfo2 = enlis
0930: 74 6d 65 6e 74 31 2e 47 65 74 54 79 70 65 28 29 tment1.GetType()
0940: 2e 47 65 74 46 69 65 6c 64 28 0d 0a 20 20 20 20 .GetField(..
0950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5f "_
0960: 74 72 61 6e 73 61 63 74 69 6f 6e 22 2c 20 62 69 transaction", bi
0970: 6e 64 69 6e 67 46 6c 61 67 73 29 3b 0d 0a 0d 0a ndingFlags);....
0980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0990: 53 51 4c 69 74 65 54 72 61 6e 73 61 63 74 69 6f SQLiteTransactio
09a0: 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 31 20 3d n transaction1 =
09b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
09c0: 20 20 20 20 28 53 51 4c 69 74 65 54 72 61 6e 73 (SQLiteTrans
09d0: 61 63 74 69 6f 6e 29 66 69 65 6c 64 49 6e 66 6f action)fieldInfo
09e0: 32 2e 47 65 74 56 61 6c 75 65 28 65 6e 6c 69 73 2.GetValue(enlis
09f0: 74 6d 65 6e 74 31 29 3b 0d 0a 0d 0a 20 20 20 20 tment1);....
0a00: 20 20 20 20 20 20 20 20 20 20 20 20 53 51 4c 69 SQLi
0a10: 74 65 54 72 61 6e 73 61 63 74 69 6f 6e 20 74 72 teTransaction tr
0a20: 61 6e 73 61 63 74 69 6f 6e 32 20 3d 0d 0a 20 20 ansaction2 =..
0a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a40: 28 53 51 4c 69 74 65 54 72 61 6e 73 61 63 74 69 (SQLiteTransacti
0a50: 6f 6e 29 66 69 65 6c 64 49 6e 66 6f 32 2e 47 65 on)fieldInfo2.Ge
0a60: 74 56 61 6c 75 65 28 65 6e 6c 69 73 74 6d 65 6e tValue(enlistmen
0a70: 74 32 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 t2);....
0a80: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 return (
0a90: 74 72 61 6e 73 61 63 74 69 6f 6e 31 2e 49 73 6f transaction1.Iso
0aa0: 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 3d 0d 0a lationLevel ==..
0ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0ac0: 20 20 20 20 20 20 20 20 74 72 61 6e 73 61 63 74 transact
0ad0: 69 6f 6e 32 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 ion2.IsolationLe
0ae0: 76 65 6c 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 vel);..
0af0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 }..
0b00: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 }..
0b10: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 0d }.. }...
0b20: 0a 20 20 20 20 20 20 20 20 2f 2f 2f 2f 2f 2f 2f . ///////
0b30: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0b40: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0b50: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0b60: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0b70: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 70 75 62 6c .... publ
0b80: 69 63 20 73 74 61 74 69 63 20 76 6f 69 64 20 4d ic static void M
0b90: 61 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b ain().. {
0ba0: 0d 0a 20 20 20 20 20 20 20 20 20 20 2f 2f 20 64 .. // d
0bb0: 6f 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20 o nothing...
0bc0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a }.. }..
0bd0: 20 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 }.. }] true
0be0: 20 74 72 75 65 20 74 72 75 65 20 72 65 73 75 6c true true resul
0bf0: 74 73 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d ts errors System
0c00: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c .Data.SQLite.dll
0c10: 5d 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 ].... list $cod
0c20: 65 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 e $results \..
0c30: 20 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f [expr {[info
0c40: 20 65 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 exists errors]
0c50: 3f 20 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d ? $errors : ""}]
0c60: 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 \.. [expr
0c70: 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f {$code eq "Ok" ?
0c80: 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 [catch {..
0c90: 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 object invoke
0ca0: 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 _Dynamic${id}.T
0cb0: 65 73 74 24 7b 69 64 7d 20 54 72 79 45 6e 6c 69 est${id} TryEnli
0cc0: 73 74 49 6e 54 72 61 6e 73 61 63 74 69 6f 6e 0d stInTransaction.
0cd0: 0a 20 20 20 20 20 20 7d 20 72 65 73 75 6c 74 5d . } result]
0ce0: 20 3a 20 5b 73 65 74 20 72 65 73 75 6c 74 20 22 : [set result "
0cf0: 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d 0a 7d 20 "]}] $result..}
0d00: 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c -cleanup {.. cl
0d10: 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d eanupDb $fileNam
0d20: 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f e.... unset -no
0d30: 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 complain result
0d40: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 63 results errors c
0d50: 6f 64 65 20 64 61 74 61 53 6f 75 72 63 65 20 69 ode dataSource i
0d60: 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d d db fileName..}
0d70: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 -constraints {e
0d80: 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a agle command.obj
0d90: 65 63 74 20 6d 6f 6e 6f 42 75 67 32 31 31 20 6d ect monoBug211 m
0da0: 6f 6e 6f 42 75 67 35 31 38 20 63 6f 6d 6d 61 6e onoBug518 comman
0db0: 64 2e 73 71 6c 5c 0d 0a 63 6f 6d 70 69 6c 65 2e d.sql\..compile.
0dc0: 44 41 54 41 20 53 51 4c 69 74 65 20 53 79 73 74 DATA SQLite Syst
0dd0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 63 em.Data.SQLite c
0de0: 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d ompileCSharp} -m
0df0: 61 74 63 68 20 72 65 67 65 78 70 20 2d 72 65 73 atch regexp -res
0e00: 75 6c 74 20 5c 0d 0a 7b 5e 4f 6b 20 53 79 73 74 ult \..{^Ok Syst
0e10: 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 em#CodeDom#Compi
0e20: 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75 ler#CompilerResu
0e30: 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 54 lts#\d+ \{\} 0 T
0e40: 72 75 65 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 rue$}}....######
0e50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0e60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0e80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0e90: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e #########....run
0ea0: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 Test {test tkt-5
0eb0: 36 62 34 32 64 39 39 63 31 2d 31 2e 32 20 7b 65 6b42d99c1-1.2 {e
0ec0: 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63 74 nlisted transact
0ed0: 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d ion isolation} -
0ee0: 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 setup {.. setup
0ef0: 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 Db [set fileName
0f00: 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d tkt-56b42d99c1-
0f10: 31 2e 32 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 1.2.db]..} -body
0f20: 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 {.. set id [ob
0f30: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 ject invoke Inte
0f40: 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 rpreter.GetActiv
0f50: 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 e NextId].. set
0f60: 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69 6c dataSource [fil
0f70: 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 e join [getDatab
0f80: 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66 aseDirectory] $f
0f90: 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e ileName].... un
0fa0: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 set -nocomplain
0fb0: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a results errors..
0fc0: 0d 0a 20 20 73 65 74 20 73 71 6c 28 31 29 20 7b .. set sql(1) {
0fd0: 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 20 54 \.. CREATE T
0fe0: 41 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20 ABLE t1(x); \..
0ff0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 INSERT INTO t
1000: 31 20 28 78 29 20 56 41 4c 55 45 53 28 31 29 3b 1 (x) VALUES(1);
1010: 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 \.. }.... set
1020: 20 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20 sql(2) { \..
1030: 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 SELECT COUNT(*)
1040: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 FROM sqlite_mas
1050: 74 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d ter WHERE type =
1060: 20 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 'table'; \.. }
1070: 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b .... set code [
1080: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 compileCSharpWit
1090: 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 h [subst {..
10a0: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 using System.Dat
10b0: 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 a.SQLite;.. u
10c0: 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61 6e sing System.Tran
10d0: 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 sactions;....
10e0: 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 namespace _Dyna
10f0: 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d mic${id}.. {.
1100: 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 . public st
1110: 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 74 24 atic class Test$
1120: 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 {id}.. {..
1130: 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 public st
1140: 61 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d atic int Main().
1150: 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 . {..
1160: 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f Transactio
1170: 6e 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 nOptions transac
1180: 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 tionOptions = ne
1190: 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 w TransactionOpt
11a0: 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 ions();..
11b0: 20 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 transactionOp
11c0: 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c tions.IsolationL
11d0: 65 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e evel = Isolation
11e0: 4c 65 76 65 6c 2e 52 65 61 64 43 6f 6d 6d 69 74 Level.ReadCommit
11f0: 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 ted;....
1200: 20 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61 63 using (Transac
1210: 74 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 tionScope transa
1220: 63 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 ctionScope = new
1230: 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 TransactionScop
1240: 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 e(..
1250: 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f TransactionSco
1260: 70 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 peOption.Require
1270: 64 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 d, transactionOp
1280: 74 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 tions))..
1290: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 {..
12a0: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 using (SQLiteC
12b0: 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 onnection connec
12c0: 74 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 tion1 = new SQLi
12d0: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 teConnection(..
12e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
12f0: 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 Data Source=${da
1300: 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 54 65 taSource};[getTe
1310: 73 74 50 72 6f 70 65 72 74 69 65 73 5d 22 29 29 stProperties]"))
1320: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d .. {.
1330: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 . c
1340: 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 onnection1.Open(
1350: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 );....
1360: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 using (SQLit
1370: 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e eConnection conn
1380: 65 63 74 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 ection2 = new SQ
1390: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d LiteConnection(.
13a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
13b0: 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d "Data Source=
13c0: 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 ${dataSource};[g
13d0: 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 65 73 etTestProperties
13e0: 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ]"))..
13f0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 {..
1400: 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f connectio
1410: 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 n2.Open();....
1420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 us
1430: 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61 ing (SQLiteComma
1440: 6e 64 20 63 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f nd command1 = co
1450: 6e 6e 65 63 74 69 6f 6e 31 2e 43 72 65 61 74 65 nnection1.Create
1460: 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 Command())..
1470: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 {..
1480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1490: 20 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e command1.Comman
14a0: 64 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 31 dText = "${sql(1
14b0: 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 )}";..
14c0: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 command1
14d0: 2e 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72 79 .ExecuteNonQuery
14e0: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 ();....
14f0: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 using (
1500: 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f SQLiteCommand co
1510: 6d 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e 65 63 74 mmand2 = connect
1520: 69 6f 6e 32 2e 43 72 65 61 74 65 43 6f 6d 6d 61 ion2.CreateComma
1530: 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20 nd())..
1540: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 {..
1550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1560: 63 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64 command2.Command
1570: 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 32 29 Text = "${sql(2)
1580: 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 }";..
1590: 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 return
15a0: 28 69 6e 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61 (int)(long)comma
15b0: 6e 64 32 2e 45 78 65 63 75 74 65 53 63 61 6c 61 nd2.ExecuteScala
15c0: 72 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 r();..
15d0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
15e0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }..
15f0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 }..
1600: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }..
1610: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 }..
1620: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 }.. }..
1630: 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 20 }.. }] true
1640: 74 72 75 65 20 74 72 75 65 20 72 65 73 75 6c 74 true true result
1650: 73 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d 2e s errors System.
1660: 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d Data.SQLite.dll]
1670: 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 65 .... list $code
1680: 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 $results \..
1690: 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 [expr {[info
16a0: 65 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 3f exists errors] ?
16b0: 20 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20 $errors : ""}]
16c0: 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b \.. [expr {
16d0: 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f 20 $code eq "Ok" ?
16e0: 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 [catch {..
16f0: 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 object invoke
1700: 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 _Dynamic${id}.Te
1710: 73 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 st${id} Main..
1720: 20 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20 } result] :
1730: 5b 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d 7d [set result ""]}
1740: 5d 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c ] $result..} -cl
1750: 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e eanup {.. clean
1760: 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a upDb $fileName..
1770: 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d .. unset -nocom
1780: 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65 73 plain result res
1790: 75 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64 65 ults errors code
17a0: 20 73 71 6c 20 64 61 74 61 53 6f 75 72 63 65 20 sql dataSource
17b0: 69 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a id db fileName..
17c0: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b } -constraints {
17d0: 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 eagle command.ob
17e0: 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32 31 31 20 ject monoBug211
17f0: 6d 6f 6e 6f 42 75 67 35 31 38 20 63 6f 6d 6d 61 monoBug518 comma
1800: 6e 64 2e 73 71 6c 5c 0d 0a 63 6f 6d 70 69 6c 65 nd.sql\..compile
1810: 2e 44 41 54 41 20 53 51 4c 69 74 65 20 53 79 73 .DATA SQLite Sys
1820: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 tem.Data.SQLite
1830: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d compileCSharp} -
1840: 6d 61 74 63 68 20 72 65 67 65 78 70 20 2d 72 65 match regexp -re
1850: 73 75 6c 74 20 5c 0d 0a 7b 5e 4f 6b 20 53 79 73 sult \..{^Ok Sys
1860: 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 tem#CodeDom#Comp
1870: 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 iler#CompilerRes
1880: 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 ults#\d+ \{\} 0
1890: 30 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 0$}}....########
18a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
18b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
18c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
18d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
18e0: 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 65 #######....runTe
18f0: 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 36 62 st {test tkt-56b
1900: 34 32 64 39 39 63 31 2d 31 2e 33 20 7b 65 6e 6c 42d99c1-1.3 {enl
1910: 69 73 74 65 64 20 74 72 61 6e 73 61 63 74 69 6f isted transactio
1920: 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73 65 n isolation} -se
1930: 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 62 tup {.. setupDb
1940: 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 74 [set fileName t
1950: 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e kt-56b42d99c1-1.
1960: 33 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 3.db]..} -body {
1970: 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 .. set id [obje
1980: 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 ct invoke Interp
1990: 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 20 reter.GetActive
19a0: 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 20 64 NextId].. set d
19b0: 61 74 61 53 6f 75 72 63 65 20 5b 66 69 6c 65 20 ataSource [file
19c0: 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 73 join [getDatabas
19d0: 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66 69 6c eDirectory] $fil
19e0: 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 65 eName].... unse
19f0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 t -nocomplain re
1a00: 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d 0a sults errors....
1a10: 20 20 73 65 74 20 73 71 6c 28 31 29 20 7b 20 5c set sql(1) { \
1a20: 0d 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 .. CREATE TAB
1a30: 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20 20 20 LE t1(x); \..
1a40: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 INSERT INTO t1
1a50: 28 78 29 20 56 41 4c 55 45 53 28 31 29 3b 20 5c (x) VALUES(1); \
1a60: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 73 .. }.... set s
1a70: 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20 20 53 ql(2) { \.. S
1a80: 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 ELECT COUNT(*) F
1a90: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 ROM sqlite_maste
1aa0: 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 27 r WHERE type = '
1ab0: 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 0a table'; \.. }..
1ac0: 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f .. set code [co
1ad0: 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20 mpileCSharpWith
1ae0: 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 73 [subst {.. us
1af0: 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61 2e ing System.Data.
1b00: 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 69 SQLite;.. usi
1b10: 6e 67 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 61 ng System.Transa
1b20: 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 6e ctions;.... n
1b30: 61 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 amespace _Dynami
1b40: 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a 20 c${id}.. {..
1b50: 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 public stat
1b60: 69 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 ic class Test${i
1b70: 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 20 d}.. {..
1b80: 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 public stat
1b90: 69 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d 0a 20 ic int Main()..
1ba0: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 {..
1bb0: 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f TransactionO
1bc0: 70 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74 69 ptions transacti
1bd0: 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77 20 onOptions = new
1be0: 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f TransactionOptio
1bf0: 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ns();..
1c00: 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 transactionOpti
1c10: 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 ons.IsolationLev
1c20: 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c 65 el = IsolationLe
1c30: 76 65 6c 2e 52 65 61 64 43 6f 6d 6d 69 74 74 65 vel.ReadCommitte
1c40: 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 d;....
1c50: 75 73 69 6e 67 20 28 54 72 61 6e 73 61 63 74 69 using (Transacti
1c60: 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 61 63 74 onScope transact
1c70: 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 77 20 54 ionScope = new T
1c80: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 28 ransactionScope(
1c90: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
1ca0: 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 TransactionScope
1cb0: 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 65 64 2c Option.Required,
1cc0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 transactionOpti
1cd0: 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 20 20 20 ons))..
1ce0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
1cf0: 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e using (SQLiteCon
1d00: 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 nection connecti
1d10: 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 on1 = new SQLite
1d20: 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 Connection(..
1d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 "Da
1d40: 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 ta Source=${data
1d50: 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 Source};Enlist=F
1d60: 61 6c 73 65 3b 5b 67 65 74 54 65 73 74 50 72 6f alse;[getTestPro
1d70: 70 65 72 74 69 65 73 5d 22 29 29 0d 0a 20 20 20 perties]"))..
1d80: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 {..
1d90: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 connec
1da0: 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d tion1.Open();...
1db0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 . u
1dc0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e sing (SQLiteConn
1dd0: 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f ection connectio
1de0: 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 n2 = new SQLiteC
1df0: 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 onnection(..
1e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44 "D
1e10: 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 ata Source=${dat
1e20: 61 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d aSource};Enlist=
1e30: 46 61 6c 73 65 3b 5b 67 65 74 54 65 73 74 50 72 False;[getTestPr
1e40: 6f 70 65 72 74 69 65 73 5d 22 29 29 0d 0a 20 20 operties]"))..
1e50: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 {..
1e60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 c
1e70: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 onnection2.Open(
1e80: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 );....
1e90: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c using (SQL
1ea0: 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 iteCommand comma
1eb0: 6e 64 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e nd1 = connection
1ec0: 31 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 1.CreateCommand(
1ed0: 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ))..
1ee0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 {..
1ef0: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 command
1f00: 31 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 1.CommandText =
1f10: 22 24 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20 "${sql(1)}";..
1f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f30: 63 6f 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65 command1.Execute
1f40: 4e 6f 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20 NonQuery();....
1f50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f60: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f using (SQLiteCo
1f70: 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d mmand command2 =
1f80: 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65 connection2.Cre
1f90: 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 ateCommand())..
1fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1fb0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 {..
1fc0: 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32 command2
1fd0: 2e 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 .CommandText = "
1fe0: 24 7b 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20 ${sql(2)}";..
1ff0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2000: 20 72 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f return (int)(lo
2010: 6e 67 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63 ng)command2.Exec
2020: 75 74 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20 uteScalar();..
2030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2040: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 }..
2050: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 }..
2060: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 }..
2070: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 }..
2080: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }.. }..
2090: 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 }.. }..
20a0: 7d 5d 20 74 72 75 65 20 74 72 75 65 20 74 72 75 }] true true tru
20b0: 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 e results errors
20c0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
20d0: 69 74 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 ite.dll].... li
20e0: 73 74 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 st $code $result
20f0: 73 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 s \.. [expr
2100: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65 {[info exists e
2110: 72 72 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73 rrors] ? $errors
2120: 20 3a 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 : ""}] \..
2130: 20 5b 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71 [expr {$code eq
2140: 20 22 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b "Ok" ? [catch {
2150: 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 .. object
2160: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 invoke _Dynamic
2170: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20 ${id}.Test${id}
2180: 4d 61 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65 Main.. } re
2190: 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73 sult] : [set res
21a0: 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c ult ""]}] $resul
21b0: 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d t..} -cleanup {.
21c0: 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 . cleanupDb $fi
21d0: 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 leName.... unse
21e0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 t -nocomplain re
21f0: 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72 sult results err
2200: 6f 72 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74 ors code sql dat
2210: 61 53 6f 75 72 63 65 20 69 64 20 64 62 20 66 69 aSource id db fi
2220: 6c 65 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 leName..} -const
2230: 72 61 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f raints {eagle co
2240: 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e mmand.object mon
2250: 6f 42 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 oBug28 command.s
2260: 71 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 ql compile.DATA
2270: 53 51 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e SQLite\..System.
2280: 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70 Data.SQLite comp
2290: 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61 74 63 ileCSharp} -matc
22a0: 68 20 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74 h regexp -result
22b0: 20 7b 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d 23 43 {^Ok\..System#C
22c0: 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 odeDom#Compiler#
22d0: 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23 CompilerResults#
22e0: 5c 64 2b 20 5c 7b 5c 7d 20 30 20 31 24 7d 7d 0d \d+ \{\} 0 1$}}.
22f0: 0a 0d 0a 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 23 23 23 23 23 23 ################
2340: 23 23 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74 ##....runTest {t
2350: 65 73 74 20 74 6b 74 2d 35 36 62 34 32 64 39 39 est tkt-56b42d99
2360: 63 31 2d 31 2e 34 20 7b 65 6e 6c 69 73 74 65 64 c1-1.4 {enlisted
2370: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73 6f transaction iso
2380: 6c 61 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20 7b lation} -setup {
2390: 0d 0a 20 20 73 65 74 75 70 44 62 20 5b 73 65 74 .. setupDb [set
23a0: 20 66 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35 36 fileName tkt-56
23b0: 62 34 32 64 39 39 63 31 2d 31 2e 34 2e 64 62 5d b42d99c1-1.4.db]
23c0: 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 ..} -body {.. s
23d0: 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e et id [object in
23e0: 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 voke Interpreter
23f0: 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 .GetActive NextI
2400: 64 5d 0d 0a 20 20 73 65 74 20 64 61 74 61 53 6f d].. set dataSo
2410: 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 urce [file join
2420: 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72 65 [getDatabaseDire
2430: 63 74 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 ctory] $fileName
2440: 5d 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f ].... unset -no
2450: 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 73 complain results
2460: 20 65 72 72 6f 72 73 0d 0a 0d 0a 20 20 73 65 74 errors.... set
2470: 20 73 71 6c 28 31 29 20 7b 20 5c 0d 0a 20 20 20 sql(1) { \..
2480: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 CREATE TABLE t1
2490: 28 78 29 3b 20 5c 0d 0a 20 20 20 20 49 4e 53 45 (x); \.. INSE
24a0: 52 54 20 49 4e 54 4f 20 74 31 20 28 78 29 20 56 RT INTO t1 (x) V
24b0: 41 4c 55 45 53 28 31 29 3b 20 5c 0d 0a 20 20 7d ALUES(1); \.. }
24c0: 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 32 29 .... set sql(2)
24d0: 20 7b 20 5c 0d 0a 20 20 20 20 53 45 4c 45 43 54 { \.. SELECT
24e0: 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20 73 COUNT(*) FROM s
24f0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45 qlite_master WHE
2500: 52 45 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65 RE type = 'table
2510: 27 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 '; \.. }.... s
2520: 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 et code [compile
2530: 43 53 68 61 72 70 57 69 74 68 20 5b 73 75 62 73 CSharpWith [subs
2540: 74 20 7b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 t {.. using S
2550: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
2560: 65 3b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79 e;.. using Sy
2570: 73 74 65 6d 2e 54 72 61 6e 73 61 63 74 69 6f 6e stem.Transaction
2580: 73 3b 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65 73 70 s;.... namesp
2590: 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 ace _Dynamic${id
25a0: 7d 0d 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 }.. {..
25b0: 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 63 6c public static cl
25c0: 61 73 73 20 54 65 73 74 24 7b 69 64 7d 0d 0a 20 ass Test${id}..
25d0: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 {..
25e0: 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 69 6e public static in
25f0: 74 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20 20 20 t Main()..
2600: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 54 {.. T
2610: 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e ransactionOption
2620: 73 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 s transactionOpt
2630: 69 6f 6e 73 20 3d 20 6e 65 77 20 54 72 61 6e 73 ions = new Trans
2640: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b actionOptions();
2650: 0d 0a 20 20 20 20 20 20 20 20 20 20 74 72 61 6e .. tran
2660: 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49 sactionOptions.I
2670: 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 20 solationLevel =
2680: 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 2e 52 IsolationLevel.R
2690: 65 61 64 43 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d eadCommitted;...
26a0: 0a 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 . using
26b0: 20 28 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f (TransactionSco
26c0: 70 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 53 63 pe transactionSc
26d0: 6f 70 65 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 ope = new Transa
26e0: 63 74 69 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20 ctionScope(..
26f0: 20 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 Trans
2700: 61 63 74 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f actionScopeOptio
2710: 6e 2e 52 65 71 75 69 72 65 64 2c 20 74 72 61 6e n.Required, tran
2720: 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 sactionOptions))
2730: 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 .. {..
2740: 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 using
2750: 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 (SQLiteConnecti
2760: 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d on connection1 =
2770: 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 new SQLiteConne
2780: 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 ction(..
2790: 20 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f "Data So
27a0: 75 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 urce=${dataSourc
27b0: 65 7d 3b 5b 67 65 74 54 65 73 74 50 72 6f 70 65 e};[getTestPrope
27c0: 72 74 69 65 73 5d 22 29 29 0d 0a 20 20 20 20 20 rties]"))..
27d0: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 {..
27e0: 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 connecti
27f0: 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 on1.Open();....
2800: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 usi
2810: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 ng (SQLiteConnec
2820: 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 tion connection2
2830: 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e = new SQLiteCon
2840: 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 nection(..
2850: 20 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74 "Dat
2860: 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 a Source=${dataS
2870: 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d 46 61 ource};Enlist=Fa
2880: 6c 73 65 3b 5b 67 65 74 54 65 73 74 50 72 6f 70 lse;[getTestProp
2890: 65 72 74 69 65 73 5d 22 29 29 0d 0a 20 20 20 20 erties]"))..
28a0: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 {..
28b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e con
28c0: 6e 65 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 29 3b nection2.Open();
28d0: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ....
28e0: 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 using (SQLit
28f0: 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 eCommand command
2900: 31 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 1 = connection1.
2910: 43 72 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 CreateCommand())
2920: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
2930: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 {..
2940: 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e command1.
2950: 43 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 CommandText = "$
2960: 7b 73 71 6c 28 31 29 7d 22 3b 0d 0a 20 20 20 20 {sql(1)}";..
2970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f co
2980: 6d 6d 61 6e 64 31 2e 45 78 65 63 75 74 65 4e 6f mmand1.ExecuteNo
2990: 6e 51 75 65 72 79 28 29 3b 0d 0a 0d 0a 20 20 20 nQuery();....
29a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 u
29b0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d sing (SQLiteComm
29c0: 61 6e 64 20 63 6f 6d 6d 61 6e 64 32 20 3d 20 63 and command2 = c
29d0: 6f 6e 6e 65 63 74 69 6f 6e 32 2e 43 72 65 61 74 onnection2.Creat
29e0: 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 eCommand())..
29f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b {
2a00: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
2a10: 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 32 2e 43 command2.C
2a20: 6f 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b ommandText = "${
2a30: 73 71 6c 28 32 29 7d 22 3b 0d 0a 20 20 20 20 20 sql(2)}";..
2a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 r
2a50: 65 74 75 72 6e 20 28 69 6e 74 29 28 6c 6f 6e 67 eturn (int)(long
2a60: 29 63 6f 6d 6d 61 6e 64 32 2e 45 78 65 63 75 74 )command2.Execut
2a70: 65 53 63 61 6c 61 72 28 29 3b 0d 0a 20 20 20 20 eScalar();..
2a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d }.
2a90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
2aa0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 }..
2ab0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 }..
2ac0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d }.. }.
2ad0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }..
2ae0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 5d }.. }.. }]
2af0: 20 74 72 75 65 20 74 72 75 65 20 74 72 75 65 20 true true true
2b00: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 53 results errors S
2b10: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
2b20: 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74 e.dll].... list
2b30: 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 73 20 $code $results
2b40: 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b \.. [expr {
2b50: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65 72 72 [info exists err
2b60: 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73 20 3a ors] ? $errors :
2b70: 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 5b ""}] \.. [
2b80: 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71 20 22 expr {$code eq "
2b90: 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a Ok" ? [catch {..
2ba0: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 object i
2bb0: 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b nvoke _Dynamic${
2bc0: 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20 4d 61 id}.Test${id} Ma
2bd0: 69 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65 73 75 in.. } resu
2be0: 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73 75 6c lt] : [set resul
2bf0: 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d t ""]}] $result.
2c00: 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 .} -cleanup {..
2c10: 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 cleanupDb $file
2c20: 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 Name.... unset
2c30: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 -nocomplain resu
2c40: 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 lt results error
2c50: 73 20 63 6f 64 65 20 73 71 6c 20 64 61 74 61 53 s code sql dataS
2c60: 6f 75 72 63 65 20 69 64 20 64 62 20 66 69 6c 65 ource id db file
2c70: 4e 61 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 Name..} -constra
2c80: 69 6e 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d ints {eagle comm
2c90: 61 6e 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42 and.object monoB
2ca0: 75 67 32 38 20 63 6f 6d 6d 61 6e 64 2e 73 71 6c ug28 command.sql
2cb0: 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 51 compile.DATA SQ
2cc0: 4c 69 74 65 5c 0d 0a 53 79 73 74 65 6d 2e 44 61 Lite\..System.Da
2cd0: 74 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c ta.SQLite compil
2ce0: 65 43 53 68 61 72 70 7d 20 2d 6d 61 74 63 68 20 eCSharp} -match
2cf0: 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74 20 7b regexp -result {
2d00: 5e 4f 6b 5c 0d 0a 53 79 73 74 65 6d 23 43 6f 64 ^Ok\..System#Cod
2d10: 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f eDom#Compiler#Co
2d20: 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23 5c 64 mpilerResults#\d
2d30: 2b 20 5c 7b 5c 7d 20 30 20 30 24 7d 7d 0d 0a 0d + \{\} 0 0$}}...
2d40: 0a 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 23 23 23 23 23 23 23 23 23 23 ################
2d90: 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 ....runTest {tes
2da0: 74 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 t tkt-56b42d99c1
2db0: 2d 31 2e 35 20 7b 65 6e 6c 69 73 74 65 64 20 74 -1.5 {enlisted t
2dc0: 72 61 6e 73 61 63 74 69 6f 6e 20 69 73 6f 6c 61 ransaction isola
2dd0: 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20 7b 0d 0a tion} -setup {..
2de0: 20 20 73 65 74 75 70 44 62 20 5b 73 65 74 20 66 setupDb [set f
2df0: 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35 36 62 34 ileName tkt-56b4
2e00: 32 64 39 39 63 31 2d 31 2e 35 2e 64 62 5d 0d 0a 2d99c1-1.5.db]..
2e10: 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 } -body {.. set
2e20: 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f id [object invo
2e30: 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e 47 ke Interpreter.G
2e40: 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 64 5d etActive NextId]
2e50: 0d 0a 20 20 73 65 74 20 64 61 74 61 53 6f 75 72 .. set dataSour
2e60: 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 ce [file join [g
2e70: 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63 74 etDatabaseDirect
2e80: 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d ory] $fileName].
2e90: 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f ... unset -noco
2ea0: 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 73 20 65 mplain results e
2eb0: 72 72 6f 72 73 0d 0a 0d 0a 20 20 73 65 74 20 73 rrors.... set s
2ec0: 71 6c 28 31 29 20 7b 20 5c 0d 0a 20 20 20 20 43 ql(1) { \.. C
2ed0: 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 78 REATE TABLE t1(x
2ee0: 29 3b 20 5c 0d 0a 20 20 20 20 49 4e 53 45 52 54 ); \.. INSERT
2ef0: 20 49 4e 54 4f 20 74 31 20 28 78 29 20 56 41 4c INTO t1 (x) VAL
2f00: 55 45 53 28 31 29 3b 20 5c 0d 0a 20 20 7d 0d 0a UES(1); \.. }..
2f10: 0d 0a 20 20 73 65 74 20 73 71 6c 28 32 29 20 7b .. set sql(2) {
2f20: 20 5c 0d 0a 20 20 20 20 53 45 4c 45 43 54 20 43 \.. SELECT C
2f30: 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20 73 71 6c OUNT(*) FROM sql
2f40: 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 ite_master WHERE
2f50: 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65 27 3b type = 'table';
2f60: 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 \.. }.... set
2f70: 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43 53 code [compileCS
2f80: 68 61 72 70 57 69 74 68 20 5b 73 75 62 73 74 20 harpWith [subst
2f90: 7b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 {.. using Sys
2fa0: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b tem.Data.SQLite;
2fb0: 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 .. using Syst
2fc0: 65 6d 2e 54 72 61 6e 73 61 63 74 69 6f 6e 73 3b em.Transactions;
2fd0: 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 .... namespac
2fe0: 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 0d e _Dynamic${id}.
2ff0: 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 70 75 . {.. pu
3000: 62 6c 69 63 20 73 74 61 74 69 63 20 63 6c 61 73 blic static clas
3010: 73 20 54 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 s Test${id}..
3020: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 {.. pu
3030: 62 6c 69 63 20 73 74 61 74 69 63 20 69 6e 74 20 blic static int
3040: 4d 61 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 Main()..
3050: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 54 72 61 {.. Tra
3060: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 nsactionOptions
3070: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f transactionOptio
3080: 6e 73 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 ns = new Transac
3090: 74 69 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a tionOptions();..
30a0: 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 61 transa
30b0: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f ctionOptions.Iso
30c0: 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 20 49 73 lationLevel = Is
30d0: 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 2e 52 65 61 olationLevel.Rea
30e0: 64 43 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20 dCommitted;....
30f0: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 using (
3100: 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 TransactionScope
3110: 20 74 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 transactionScop
3120: 65 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 e = new Transact
3130: 69 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20 20 20 ionScope(..
3140: 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 Transac
3150: 74 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e tionScopeOption.
3160: 52 65 71 75 69 72 65 64 2c 20 74 72 61 6e 73 61 Required, transa
3170: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a ctionOptions))..
3180: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 {..
3190: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 using (
31a0: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e SQLiteConnection
31b0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e connection1 = n
31c0: 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 ew SQLiteConnect
31d0: 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 ion(..
31e0: 20 20 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 "Data Sour
31f0: 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d ce=${dataSource}
3200: 3b 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b 5b 67 ;Enlist=False;[g
3210: 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 65 73 etTestProperties
3220: 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 ]"))..
3230: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 {..
3240: 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 4f connection1.O
3250: 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 pen();....
3260: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 using (S
3270: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 QLiteConnection
3280: 63 6f 6e 6e 65 63 74 69 6f 6e 32 20 3d 20 6e 65 connection2 = ne
3290: 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 w SQLiteConnecti
32a0: 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 on(..
32b0: 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f 75 "Data Sou
32c0: 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 rce=${dataSource
32d0: 7d 3b 5b 67 65 74 54 65 73 74 50 72 6f 70 65 72 };[getTestProper
32e0: 74 69 65 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 ties]"))..
32f0: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 {..
3300: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 conne
3310: 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a ction2.Open();..
3320: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
3330: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 using (SQLiteC
3340: 6f 6d 6d 61 6e 64 20 63 6f 6d 6d 61 6e 64 31 20 ommand command1
3350: 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 43 72 = connection1.Cr
3360: 65 61 74 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a eateCommand())..
3370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3380: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {..
3390: 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e 43 6f command1.Co
33a0: 6d 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b 73 mmandText = "${s
33b0: 71 6c 28 31 29 7d 22 3b 0d 0a 20 20 20 20 20 20 ql(1)}";..
33c0: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6d 6d comm
33d0: 61 6e 64 31 2e 45 78 65 63 75 74 65 4e 6f 6e 51 and1.ExecuteNonQ
33e0: 75 65 72 79 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 uery();....
33f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 usi
3400: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e ng (SQLiteComman
3410: 64 20 63 6f 6d 6d 61 6e 64 32 20 3d 20 63 6f 6e d command2 = con
3420: 6e 65 63 74 69 6f 6e 32 2e 43 72 65 61 74 65 43 nection2.CreateC
3430: 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 ommand())..
3440: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a {..
3450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3460: 20 20 20 20 63 6f 6d 6d 61 6e 64 32 2e 43 6f 6d command2.Com
3470: 6d 61 6e 64 54 65 78 74 20 3d 20 22 24 7b 73 71 mandText = "${sq
3480: 6c 28 32 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20 l(2)}";..
3490: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 ret
34a0: 75 72 6e 20 28 69 6e 74 29 28 6c 6f 6e 67 29 63 urn (int)(long)c
34b0: 6f 6d 6d 61 6e 64 32 2e 45 78 65 63 75 74 65 53 ommand2.ExecuteS
34c0: 63 61 6c 61 72 28 29 3b 0d 0a 20 20 20 20 20 20 calar();..
34d0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 }..
34e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
34f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
3500: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d }.. }
3510: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 .. }..
3520: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
3530: 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 }.. }.. }] t
3540: 72 75 65 20 74 72 75 65 20 74 72 75 65 20 72 65 rue true true re
3550: 73 75 6c 74 73 20 65 72 72 6f 72 73 20 53 79 73 sults errors Sys
3560: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e tem.Data.SQLite.
3570: 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 dll].... list $
3580: 63 6f 64 65 20 24 72 65 73 75 6c 74 73 20 5c 0d code $results \.
3590: 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b 5b 69 . [expr {[i
35a0: 6e 66 6f 20 65 78 69 73 74 73 20 65 72 72 6f 72 nfo exists error
35b0: 73 5d 20 3f 20 24 65 72 72 6f 72 73 20 3a 20 22 s] ? $errors : "
35c0: 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 "}] \.. [ex
35d0: 70 72 20 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b pr {$code eq "Ok
35e0: 22 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 " ? [catch {..
35f0: 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 object inv
3600: 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 oke _Dynamic${id
3610: 7d 2e 54 65 73 74 24 7b 69 64 7d 20 4d 61 69 6e }.Test${id} Main
3620: 0d 0a 20 20 20 20 20 20 7d 20 72 65 73 75 6c 74 .. } result
3630: 5d 20 3a 20 5b 73 65 74 20 72 65 73 75 6c 74 20 ] : [set result
3640: 22 22 5d 7d 5d 20 24 72 65 73 75 6c 74 0d 0a 7d ""]}] $result..}
3650: 20 2d 63 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 -cleanup {.. c
3660: 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 leanupDb $fileNa
3670: 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e me.... unset -n
3680: 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 ocomplain result
3690: 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 results errors
36a0: 63 6f 64 65 20 73 71 6c 20 64 61 74 61 53 6f 75 code sql dataSou
36b0: 72 63 65 20 69 64 20 64 62 20 66 69 6c 65 4e 61 rce id db fileNa
36c0: 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e me..} -constrain
36d0: 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e ts {eagle comman
36e0: 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 d.object monoBug
36f0: 32 31 31 20 6d 6f 6e 6f 42 75 67 35 31 38 20 63 211 monoBug518 c
3700: 6f 6d 6d 61 6e 64 2e 73 71 6c 5c 0d 0a 63 6f 6d ommand.sql\..com
3710: 70 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 pile.DATA SQLite
3720: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c System.Data.SQL
3730: 69 74 65 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 ite compileCShar
3740: 70 7d 20 2d 6d 61 74 63 68 20 72 65 67 65 78 70 p} -match regexp
3750: 20 2d 72 65 73 75 6c 74 20 5c 0d 0a 7b 5e 4f 6b -result \..{^Ok
3760: 20 53 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23 System#CodeDom#
3770: 43 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65 Compiler#Compile
3780: 72 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c rResults#\d+ \{\
3790: 7d 20 30 20 31 24 7d 7d 0d 0a 0d 0a 23 23 23 23 } 0 1$}}....####
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 23 23 ################
37e0: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 73 ###########....s
37f0: 65 74 20 66 6c 61 67 73 20 4d 61 70 49 73 6f 6c et flags MapIsol
3800: 61 74 69 6f 6e 4c 65 76 65 6c 73 0d 0a 0d 0a 23 ationLevels....#
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 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a ##############..
3860: 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20 ..runTest {test
3870: 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 tkt-56b42d99c1-1
3880: 2e 36 20 7b 65 6e 6c 69 73 74 65 64 20 74 72 61 .6 {enlisted tra
3890: 6e 73 61 63 74 69 6f 6e 20 69 73 6f 6c 61 74 69 nsaction isolati
38a0: 6f 6e 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 on} -setup {..
38b0: 73 65 74 75 70 44 62 20 5b 73 65 74 20 66 69 6c setupDb [set fil
38c0: 65 4e 61 6d 65 20 74 6b 74 2d 35 36 62 34 32 64 eName tkt-56b42d
38d0: 39 39 63 31 2d 31 2e 36 2e 64 62 5d 0d 0a 7d 20 99c1-1.6.db]..}
38e0: 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 20 69 -body {.. set i
38f0: 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 d [object invoke
3900: 20 49 6e 74 65 72 70 72 65 74 65 72 2e 47 65 74 Interpreter.Get
3910: 41 63 74 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a Active NextId]..
3920: 20 20 73 65 74 20 64 61 74 61 53 6f 75 72 63 65 set dataSource
3930: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 [file join [get
3940: 44 61 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 DatabaseDirector
3950: 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d y] $fileName]...
3960: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 . unset -nocomp
3970: 6c 61 69 6e 20 72 65 73 75 6c 74 73 20 65 72 72 lain results err
3980: 6f 72 73 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 ors.... set cod
3990: 65 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 e [compileCSharp
39a0: 57 69 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 With [subst {..
39b0: 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e using System.
39c0: 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 Data.SQLite;..
39d0: 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 52 using System.R
39e0: 65 66 6c 65 63 74 69 6f 6e 3b 0d 0a 20 20 20 20 eflection;..
39f0: 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61 using System.Tra
3a00: 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 nsactions;....
3a10: 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e namespace _Dyn
3a20: 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b amic${id}.. {
3a30: 0d 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 .. public s
3a40: 74 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 74 tatic class Test
3a50: 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a ${id}.. {..
3a60: 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 public s
3a70: 74 61 74 69 63 20 62 6f 6f 6c 20 54 72 79 45 6e tatic bool TryEn
3a80: 6c 69 73 74 49 6e 54 72 61 6e 73 61 63 74 69 6f listInTransactio
3a90: 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a n().. {..
3aa0: 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 Transa
3ab0: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 74 72 61 ctionOptions tra
3ac0: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 nsactionOptions
3ad0: 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f = new Transactio
3ae0: 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 nOptions();..
3af0: 20 20 20 20 20 20 20 74 72 61 6e 73 61 63 74 69 transacti
3b00: 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 onOptions.Isolat
3b10: 69 6f 6e 4c 65 76 65 6c 20 3d 20 49 73 6f 6c 61 ionLevel = Isola
3b20: 74 69 6f 6e 4c 65 76 65 6c 2e 52 65 61 64 55 6e tionLevel.ReadUn
3b30: 63 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20 20 committed;....
3b40: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 54 using (T
3b50: 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20 ransactionScope
3b60: 74 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 transactionScope
3b70: 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69 = new Transacti
3b80: 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20 20 20 20 onScope(..
3b90: 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 Transact
3ba0: 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e 52 ionScopeOption.R
3bb0: 65 71 75 69 72 65 64 2c 20 74 72 61 6e 73 61 63 equired, transac
3bc0: 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a 20 tionOptions))..
3bd0: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 {..
3be0: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 using (S
3bf0: 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 QLiteConnection
3c00: 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e 65 connection1 = ne
3c10: 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 w SQLiteConnecti
3c20: 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 on(..
3c30: 20 20 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 "Data Sourc
3c40: 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b e=${dataSource};
3c50: 5b 67 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 [getTestProperti
3c60: 65 73 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 es $flags]"))..
3c70: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 {..
3c80: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e conn
3c90: 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d ection1.Open();.
3ca0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
3cb0: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f using (SQLiteCo
3cc0: 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 nnection connect
3cd0: 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74 ion2 = new SQLit
3ce0: 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 eConnection(..
3cf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
3d00: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 "Data Source=${d
3d10: 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 54 ataSource};[getT
3d20: 65 73 74 50 72 6f 70 65 72 74 69 65 73 20 24 66 estProperties $f
3d30: 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 lags]"))..
3d40: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 {..
3d50: 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 conne
3d60: 63 74 69 6f 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a ction2.Open();..
3d70: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
3d80: 20 20 42 69 6e 64 69 6e 67 46 6c 61 67 73 20 62 BindingFlags b
3d90: 69 6e 64 69 6e 67 46 6c 61 67 73 20 3d 20 42 69 indingFlags = Bi
3da0: 6e 64 69 6e 67 46 6c 61 67 73 2e 49 6e 73 74 61 ndingFlags.Insta
3db0: 6e 63 65 20 7c 0d 0a 20 20 20 20 20 20 20 20 20 nce |..
3dc0: 20 20 20 20 20 20 20 20 20 42 69 6e 64 69 6e 67 Binding
3dd0: 46 6c 61 67 73 2e 4e 6f 6e 50 75 62 6c 69 63 20 Flags.NonPublic
3de0: 7c 20 42 69 6e 64 69 6e 67 46 6c 61 67 73 2e 47 | BindingFlags.G
3df0: 65 74 46 69 65 6c 64 3b 0d 0a 0d 0a 20 20 20 20 etField;....
3e00: 20 20 20 20 20 20 20 20 20 20 20 20 46 69 65 6c Fiel
3e10: 64 49 6e 66 6f 20 66 69 65 6c 64 49 6e 66 6f 31 dInfo fieldInfo1
3e20: 20 3d 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 2e 47 = connection1.G
3e30: 65 74 54 79 70 65 28 29 2e 47 65 74 46 69 65 6c etType().GetFiel
3e40: 64 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 d(..
3e50: 20 20 20 20 20 20 22 5f 65 6e 6c 69 73 74 6d 65 "_enlistme
3e60: 6e 74 22 2c 20 62 69 6e 64 69 6e 67 46 6c 61 67 nt", bindingFlag
3e70: 73 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 s);....
3e80: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 65 6e object en
3e90: 6c 69 73 74 6d 65 6e 74 31 20 3d 20 66 69 65 6c listment1 = fiel
3ea0: 64 49 6e 66 6f 31 2e 47 65 74 56 61 6c 75 65 28 dInfo1.GetValue(
3eb0: 63 6f 6e 6e 65 63 74 69 6f 6e 31 29 3b 0d 0a 20 connection1);..
3ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f o
3ed0: 62 6a 65 63 74 20 65 6e 6c 69 73 74 6d 65 6e 74 bject enlistment
3ee0: 32 20 3d 20 66 69 65 6c 64 49 6e 66 6f 31 2e 47 2 = fieldInfo1.G
3ef0: 65 74 56 61 6c 75 65 28 63 6f 6e 6e 65 63 74 69 etValue(connecti
3f00: 6f 6e 32 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 on2);....
3f10: 20 20 20 20 20 20 20 20 20 46 69 65 6c 64 49 6e FieldIn
3f20: 66 6f 20 66 69 65 6c 64 49 6e 66 6f 32 20 3d 20 fo fieldInfo2 =
3f30: 65 6e 6c 69 73 74 6d 65 6e 74 31 2e 47 65 74 54 enlistment1.GetT
3f40: 79 70 65 28 29 2e 47 65 74 46 69 65 6c 64 28 0d ype().GetField(.
3f50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3f60: 20 20 20 22 5f 74 72 61 6e 73 61 63 74 69 6f 6e "_transaction
3f70: 22 2c 20 62 69 6e 64 69 6e 67 46 6c 61 67 73 29 ", bindingFlags)
3f80: 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ;....
3f90: 20 20 20 20 20 53 51 4c 69 74 65 54 72 61 6e 73 SQLiteTrans
3fa0: 61 63 74 69 6f 6e 20 74 72 61 6e 73 61 63 74 69 action transacti
3fb0: 6f 6e 31 20 3d 0d 0a 20 20 20 20 20 20 20 20 20 on1 =..
3fc0: 20 20 20 20 20 20 20 20 20 28 53 51 4c 69 74 65 (SQLite
3fd0: 54 72 61 6e 73 61 63 74 69 6f 6e 29 66 69 65 6c Transaction)fiel
3fe0: 64 49 6e 66 6f 32 2e 47 65 74 56 61 6c 75 65 28 dInfo2.GetValue(
3ff0: 65 6e 6c 69 73 74 6d 65 6e 74 31 29 3b 0d 0a 0d enlistment1);...
4000: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
4010: 20 53 51 4c 69 74 65 54 72 61 6e 73 61 63 74 69 SQLiteTransacti
4020: 6f 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e 32 20 on transaction2
4030: 3d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 =..
4040: 20 20 20 20 20 28 53 51 4c 69 74 65 54 72 61 6e (SQLiteTran
4050: 73 61 63 74 69 6f 6e 29 66 69 65 6c 64 49 6e 66 saction)fieldInf
4060: 6f 32 2e 47 65 74 56 61 6c 75 65 28 65 6e 6c 69 o2.GetValue(enli
4070: 73 74 6d 65 6e 74 32 29 3b 0d 0a 0d 0a 20 20 20 stment2);....
4080: 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74 ret
4090: 75 72 6e 20 28 74 72 61 6e 73 61 63 74 69 6f 6e urn (transaction
40a0: 31 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 1.IsolationLevel
40b0: 20 3d 3d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ==..
40c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 72 61 tra
40d0: 6e 73 61 63 74 69 6f 6e 32 2e 49 73 6f 6c 61 74 nsaction2.Isolat
40e0: 69 6f 6e 4c 65 76 65 6c 29 3b 0d 0a 20 20 20 20 ionLevel);..
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 20 20 7d 0d 0a 20 20 20 20 }..
4110: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 }..
4120: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20 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 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
4170: 2f 2f 2f 2f 2f 0d 0a 0d 0a 20 20 20 20 20 20 20 /////....
4180: 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 76 public static v
4190: 6f 69 64 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20 oid Main()..
41a0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 {..
41b0: 20 2f 2f 20 64 6f 20 6e 6f 74 68 69 6e 67 2e 0d // do nothing..
41c0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 . }..
41d0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 5d }.. }.. }]
41e0: 20 74 72 75 65 20 74 72 75 65 20 74 72 75 65 20 true true true
41f0: 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 53 results errors S
4200: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 ystem.Data.SQLit
4210: 65 2e 64 6c 6c 5d 0d 0a 0d 0a 20 20 6c 69 73 74 e.dll].... list
4220: 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 73 20 $code $results
4230: 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b \.. [expr {
4240: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 65 72 72 [info exists err
4250: 6f 72 73 5d 20 3f 20 24 65 72 72 6f 72 73 20 3a ors] ? $errors :
4260: 20 22 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 5b ""}] \.. [
4270: 65 78 70 72 20 7b 24 63 6f 64 65 20 65 71 20 22 expr {$code eq "
4280: 4f 6b 22 20 3f 20 5b 63 61 74 63 68 20 7b 0d 0a Ok" ? [catch {..
4290: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 object i
42a0: 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b nvoke _Dynamic${
42b0: 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20 54 72 id}.Test${id} Tr
42c0: 79 45 6e 6c 69 73 74 49 6e 54 72 61 6e 73 61 63 yEnlistInTransac
42d0: 74 69 6f 6e 0d 0a 20 20 20 20 20 20 7d 20 72 65 tion.. } re
42e0: 73 75 6c 74 5d 20 3a 20 5b 73 65 74 20 72 65 73 sult] : [set res
42f0: 75 6c 74 20 22 22 5d 7d 5d 20 24 72 65 73 75 6c ult ""]}] $resul
4300: 74 0d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0d t..} -cleanup {.
4310: 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24 66 69 . cleanupDb $fi
4320: 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 75 6e 73 65 leName.... unse
4330: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 t -nocomplain re
4340: 73 75 6c 74 20 72 65 73 75 6c 74 73 20 65 72 72 sult results err
4350: 6f 72 73 20 63 6f 64 65 20 64 61 74 61 53 6f 75 ors code dataSou
4360: 72 63 65 20 69 64 20 64 62 20 66 69 6c 65 4e 61 rce id db fileNa
4370: 6d 65 0d 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e me..} -constrain
4380: 74 73 20 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e ts {eagle comman
4390: 64 2e 6f 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 d.object monoBug
43a0: 32 38 20 6d 6f 6e 6f 42 75 67 32 31 31 20 6d 6f 28 monoBug211 mo
43b0: 6e 6f 42 75 67 35 31 38 20 63 6f 6d 6d 61 6e 64 noBug518 command
43c0: 2e 73 71 6c 5c 0d 0a 63 6f 6d 70 69 6c 65 2e 44 .sql\..compile.D
43d0: 41 54 41 20 53 51 4c 69 74 65 20 53 79 73 74 65 ATA SQLite Syste
43e0: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20 63 6f m.Data.SQLite co
43f0: 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d 6d 61 mpileCSharp} -ma
4400: 74 63 68 20 72 65 67 65 78 70 20 2d 72 65 73 75 tch regexp -resu
4410: 6c 74 20 5c 0d 0a 7b 5e 4f 6b 20 53 79 73 74 65 lt \..{^Ok Syste
4420: 6d 23 43 6f 64 65 44 6f 6d 23 43 6f 6d 70 69 6c m#CodeDom#Compil
4430: 65 72 23 43 6f 6d 70 69 6c 65 72 52 65 73 75 6c er#CompilerResul
4440: 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 30 20 54 72 ts#\d+ \{\} 0 Tr
4450: 75 65 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 ue$}}....#######
4460: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4470: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
44a0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 54 ########....runT
44b0: 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 36 est {test tkt-56
44c0: 62 34 32 64 39 39 63 31 2d 31 2e 37 20 7b 65 6e b42d99c1-1.7 {en
44d0: 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63 74 69 listed transacti
44e0: 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 2d 73 on isolation} -s
44f0: 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 70 44 etup {.. setupD
4500: 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d 65 20 b [set fileName
4510: 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 2d 31 tkt-56b42d99c1-1
4520: 2e 37 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 64 79 20 .7.db]..} -body
4530: 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b 6f 62 6a {.. set id [obj
4540: 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72 ect invoke Inter
4550: 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65 preter.GetActive
4560: 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 65 74 20 NextId].. set
4570: 64 61 74 61 53 6f 75 72 63 65 20 5b 66 69 6c 65 dataSource [file
4580: 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 61 62 61 join [getDataba
4590: 73 65 44 69 72 65 63 74 6f 72 79 5d 20 24 66 69 seDirectory] $fi
45a0: 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 75 6e 73 leName].... uns
45b0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 et -nocomplain r
45c0: 65 73 75 6c 74 73 20 65 72 72 6f 72 73 0d 0a 0d esults errors...
45d0: 0a 20 20 73 65 74 20 73 71 6c 28 31 29 20 7b 20 . set sql(1) {
45e0: 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 \.. CREATE TA
45f0: 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d 0a 20 20 BLE t1(x); \..
4600: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 INSERT INTO t1
4610: 20 28 78 29 20 56 41 4c 55 45 53 28 31 29 3b 20 (x) VALUES(1);
4620: 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 \.. }.... set
4630: 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 20 20 20 sql(2) { \..
4640: 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 SELECT COUNT(*)
4650: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 FROM sqlite_mast
4660: 65 72 20 57 48 45 52 45 20 74 79 70 65 20 3d 20 er WHERE type =
4670: 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 20 7d 0d 'table'; \.. }.
4680: 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 20 5b 63 ... set code [c
4690: 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 ompileCSharpWith
46a0: 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 75 [subst {.. u
46b0: 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 61 74 61 sing System.Data
46c0: 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 20 75 73 .SQLite;.. us
46d0: 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 61 6e 73 ing System.Trans
46e0: 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 20 20 20 actions;....
46f0: 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d namespace _Dynam
4700: 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 7b 0d 0a ic${id}.. {..
4710: 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 public sta
4720: 74 69 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b tic class Test${
4730: 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d 0a 20 20 id}.. {..
4740: 20 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 public sta
4750: 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 29 0d 0a tic int Main()..
4760: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 {..
4770: 20 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e Transaction
4780: 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 61 63 74 Options transact
4790: 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 6e 65 77 ionOptions = new
47a0: 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 TransactionOpti
47b0: 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 ons();..
47c0: 20 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 transactionOpt
47d0: 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f 6e 4c 65 ions.IsolationLe
47e0: 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 6f 6e 4c vel = IsolationL
47f0: 65 76 65 6c 2e 52 65 61 64 55 6e 63 6f 6d 6d 69 evel.ReadUncommi
4800: 74 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 tted;....
4810: 20 20 20 75 73 69 6e 67 20 28 54 72 61 6e 73 61 using (Transa
4820: 63 74 69 6f 6e 53 63 6f 70 65 20 74 72 61 6e 73 ctionScope trans
4830: 61 63 74 69 6f 6e 53 63 6f 70 65 20 3d 20 6e 65 actionScope = ne
4840: 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f w TransactionSco
4850: 70 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 pe(..
4860: 20 20 20 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 TransactionSc
4870: 6f 70 65 4f 70 74 69 6f 6e 2e 52 65 71 75 69 72 opeOption.Requir
4880: 65 64 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 4f ed, transactionO
4890: 70 74 69 6f 6e 73 29 29 0d 0a 20 20 20 20 20 20 ptions))..
48a0: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 {..
48b0: 20 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 using (SQLite
48c0: 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 Connection conne
48d0: 63 74 69 6f 6e 31 20 3d 20 6e 65 77 20 53 51 4c ction1 = new SQL
48e0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a iteConnection(..
48f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4900: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 "Data Source=${d
4910: 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 65 74 54 ataSource};[getT
4920: 65 73 74 50 72 6f 70 65 72 74 69 65 73 20 24 66 estProperties $f
4930: 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 lags]"))..
4940: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 {..
4950: 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f connectio
4960: 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 n1.Open();....
4970: 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e usin
4980: 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 g (SQLiteConnect
4990: 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 20 ion connection2
49a0: 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e = new SQLiteConn
49b0: 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 ection(..
49c0: 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74 61 "Data
49d0: 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 6f Source=${dataSo
49e0: 75 72 63 65 7d 3b 5b 67 65 74 54 65 73 74 50 72 urce};[getTestPr
49f0: 6f 70 65 72 74 69 65 73 20 24 66 6c 61 67 73 5d operties $flags]
4a00: 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 "))..
4a10: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 {..
4a20: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e connection
4a30: 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 2.Open();....
4a40: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 usi
4a50: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e ng (SQLiteComman
4a60: 64 20 63 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f 6e d command1 = con
4a70: 6e 65 63 74 69 6f 6e 31 2e 43 72 65 61 74 65 43 nection1.CreateC
4a80: 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 ommand())..
4a90: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 {..
4aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4ab0: 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e 64 command1.Command
4ac0: 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 31 29 Text = "${sql(1)
4ad0: 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 }";..
4ae0: 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e command1.
4af0: 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72 79 28 ExecuteNonQuery(
4b00: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 );....
4b10: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 using (S
4b20: 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d QLiteCommand com
4b30: 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e 65 63 74 69 mand2 = connecti
4b40: 6f 6e 32 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e on2.CreateComman
4b50: 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 d())..
4b60: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 {..
4b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 c
4b80: 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64 54 ommand2.CommandT
4b90: 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 32 29 7d ext = "${sql(2)}
4ba0: 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ";..
4bb0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 return (
4bc0: 69 6e 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61 6e int)(long)comman
4bd0: 64 32 2e 45 78 65 63 75 74 65 53 63 61 6c 61 72 d2.ExecuteScalar
4be0: 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ();..
4bf0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
4c00: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
4c10: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }..
4c20: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
4c30: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
4c40: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 }.. }..
4c50: 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 20 74 }.. }] true t
4c60: 72 75 65 20 74 72 75 65 20 72 65 73 75 6c 74 73 rue true results
4c70: 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 errors System.D
4c80: 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d ata.SQLite.dll].
4c90: 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 65 20 ... list $code
4ca0: 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20 $results \..
4cb0: 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 [expr {[info e
4cc0: 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 3f 20 xists errors] ?
4cd0: 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c $errors : ""}] \
4ce0: 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24 .. [expr {$
4cf0: 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b code eq "Ok" ? [
4d00: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 catch {..
4d10: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f object invoke _
4d20: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 Dynamic${id}.Tes
4d30: 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 t${id} Main..
4d40: 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b } result] : [
4d50: 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d set result ""]}]
4d60: 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 $result..} -cle
4d70: 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 anup {.. cleanu
4d80: 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d pDb $fileName...
4d90: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 . unset -nocomp
4da0: 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65 73 75 lain result resu
4db0: 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64 65 20 lts errors code
4dc0: 73 71 6c 20 64 61 74 61 53 6f 75 72 63 65 20 69 sql dataSource i
4dd0: 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d d db fileName..}
4de0: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 -constraints {e
4df0: 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a agle command.obj
4e00: 65 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20 6d 6f ect monoBug28 mo
4e10: 6e 6f 42 75 67 32 31 31 20 6d 6f 6e 6f 42 75 67 noBug211 monoBug
4e20: 35 31 38 5c 0d 0a 63 6f 6d 6d 61 6e 64 2e 73 71 518\..command.sq
4e30: 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 l compile.DATA S
4e40: 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74 QLite System.Dat
4e50: 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c 65 a.SQLite compile
4e60: 43 53 68 61 72 70 7d 20 2d 6d 61 74 63 68 20 5c CSharp} -match \
4e70: 0d 0a 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74 ..regexp -result
4e80: 20 7b 5e 4f 6b 20 53 79 73 74 65 6d 23 43 6f 64 {^Ok System#Cod
4e90: 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f eDom#Compiler#Co
4ea0: 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23 5c 64 mpilerResults#\d
4eb0: 2b 20 5c 7b 5c 7d 20 30 20 30 24 7d 7d 0d 0a 0d + \{\} 0 0$}}...
4ec0: 0a 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 23 23 23 ################
4f00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
4f10: 0d 0a 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 ....runTest {tes
4f20: 74 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 t tkt-56b42d99c1
4f30: 2d 31 2e 38 20 7b 65 6e 6c 69 73 74 65 64 20 74 -1.8 {enlisted t
4f40: 72 61 6e 73 61 63 74 69 6f 6e 20 69 73 6f 6c 61 ransaction isola
4f50: 74 69 6f 6e 7d 20 2d 73 65 74 75 70 20 7b 0d 0a tion} -setup {..
4f60: 20 20 73 65 74 75 70 44 62 20 5b 73 65 74 20 66 setupDb [set f
4f70: 69 6c 65 4e 61 6d 65 20 74 6b 74 2d 35 36 62 34 ileName tkt-56b4
4f80: 32 64 39 39 63 31 2d 31 2e 38 2e 64 62 5d 0d 0a 2d99c1-1.8.db]..
4f90: 7d 20 2d 62 6f 64 79 20 7b 0d 0a 20 20 73 65 74 } -body {.. set
4fa0: 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f id [object invo
4fb0: 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72 2e 47 ke Interpreter.G
4fc0: 65 74 41 63 74 69 76 65 20 4e 65 78 74 49 64 5d etActive NextId]
4fd0: 0d 0a 20 20 73 65 74 20 64 61 74 61 53 6f 75 72 .. set dataSour
4fe0: 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 ce [file join [g
4ff0: 65 74 44 61 74 61 62 61 73 65 44 69 72 65 63 74 etDatabaseDirect
5000: 6f 72 79 5d 20 24 66 69 6c 65 4e 61 6d 65 5d 0d ory] $fileName].
5010: 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f ... unset -noco
5020: 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 73 20 65 mplain results e
5030: 72 72 6f 72 73 0d 0a 0d 0a 20 20 73 65 74 20 73 rrors.... set s
5040: 71 6c 28 31 29 20 7b 20 5c 0d 0a 20 20 20 20 43 ql(1) { \.. C
5050: 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 78 REATE TABLE t1(x
5060: 29 3b 20 5c 0d 0a 20 20 20 20 49 4e 53 45 52 54 ); \.. INSERT
5070: 20 49 4e 54 4f 20 74 31 20 28 78 29 20 56 41 4c INTO t1 (x) VAL
5080: 55 45 53 28 31 29 3b 20 5c 0d 0a 20 20 7d 0d 0a UES(1); \.. }..
5090: 0d 0a 20 20 73 65 74 20 73 71 6c 28 32 29 20 7b .. set sql(2) {
50a0: 20 5c 0d 0a 20 20 20 20 53 45 4c 45 43 54 20 43 \.. SELECT C
50b0: 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20 73 71 6c OUNT(*) FROM sql
50c0: 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45 52 45 ite_master WHERE
50d0: 20 74 79 70 65 20 3d 20 27 74 61 62 6c 65 27 3b type = 'table';
50e0: 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 65 74 \.. }.... set
50f0: 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43 53 code [compileCS
5100: 68 61 72 70 57 69 74 68 20 5b 73 75 62 73 74 20 harpWith [subst
5110: 7b 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 {.. using Sys
5120: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b tem.Data.SQLite;
5130: 0d 0a 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 .. using Syst
5140: 65 6d 2e 54 72 61 6e 73 61 63 74 69 6f 6e 73 3b em.Transactions;
5150: 0d 0a 0d 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 .... namespac
5160: 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 0d e _Dynamic${id}.
5170: 0a 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 70 75 . {.. pu
5180: 62 6c 69 63 20 73 74 61 74 69 63 20 63 6c 61 73 blic static clas
5190: 73 20 54 65 73 74 24 7b 69 64 7d 0d 0a 20 20 20 s Test${id}..
51a0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 70 75 {.. pu
51b0: 62 6c 69 63 20 73 74 61 74 69 63 20 69 6e 74 20 blic static int
51c0: 4d 61 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 Main()..
51d0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 54 72 61 {.. Tra
51e0: 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 nsactionOptions
51f0: 74 72 61 6e 73 61 63 74 69 6f 6e 4f 70 74 69 6f transactionOptio
5200: 6e 73 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 63 ns = new Transac
5210: 74 69 6f 6e 4f 70 74 69 6f 6e 73 28 29 3b 0d 0a tionOptions();..
5220: 20 20 20 20 20 20 20 20 20 20 74 72 61 6e 73 61 transa
5230: 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 2e 49 73 6f ctionOptions.Iso
5240: 6c 61 74 69 6f 6e 4c 65 76 65 6c 20 3d 20 49 73 lationLevel = Is
5250: 6f 6c 61 74 69 6f 6e 4c 65 76 65 6c 2e 52 65 61 olationLevel.Rea
5260: 64 55 6e 63 6f 6d 6d 69 74 74 65 64 3b 0d 0a 0d dUncommitted;...
5270: 0a 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 . using
5280: 20 28 54 72 61 6e 73 61 63 74 69 6f 6e 53 63 6f (TransactionSco
5290: 70 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 53 63 pe transactionSc
52a0: 6f 70 65 20 3d 20 6e 65 77 20 54 72 61 6e 73 61 ope = new Transa
52b0: 63 74 69 6f 6e 53 63 6f 70 65 28 0d 0a 20 20 20 ctionScope(..
52c0: 20 20 20 20 20 20 20 20 20 20 20 54 72 61 6e 73 Trans
52d0: 61 63 74 69 6f 6e 53 63 6f 70 65 4f 70 74 69 6f actionScopeOptio
52e0: 6e 2e 52 65 71 75 69 72 65 64 2c 20 74 72 61 6e n.Required, tran
52f0: 73 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 29 29 sactionOptions))
5300: 0d 0a 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 .. {..
5310: 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 using
5320: 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 (SQLiteConnecti
5330: 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 31 20 3d on connection1 =
5340: 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 new SQLiteConne
5350: 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 ction(..
5360: 20 20 20 20 20 20 20 20 22 44 61 74 61 20 53 6f "Data So
5370: 75 72 63 65 3d 24 7b 64 61 74 61 53 6f 75 72 63 urce=${dataSourc
5380: 65 7d 3b 45 6e 6c 69 73 74 3d 46 61 6c 73 65 3b e};Enlist=False;
5390: 5b 67 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 [getTestProperti
53a0: 65 73 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 es $flags]"))..
53b0: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 {..
53c0: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e conn
53d0: 65 63 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d ection1.Open();.
53e0: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
53f0: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f using (SQLiteCo
5400: 6e 6e 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 nnection connect
5410: 69 6f 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74 ion2 = new SQLit
5420: 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 eConnection(..
5430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5440: 22 44 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 "Data Source=${d
5450: 61 74 61 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 ataSource};Enlis
5460: 74 3d 46 61 6c 73 65 3b 5b 67 65 74 54 65 73 74 t=False;[getTest
5470: 50 72 6f 70 65 72 74 69 65 73 20 24 66 6c 61 67 Properties $flag
5480: 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 s]"))..
5490: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 {..
54a0: 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 connecti
54b0: 6f 6e 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 on2.Open();....
54c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 u
54d0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d sing (SQLiteComm
54e0: 61 6e 64 20 63 6f 6d 6d 61 6e 64 31 20 3d 20 63 and command1 = c
54f0: 6f 6e 6e 65 63 74 69 6f 6e 31 2e 43 72 65 61 74 onnection1.Creat
5500: 65 43 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 eCommand())..
5510: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a {..
5520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5530: 20 20 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61 command1.Comma
5540: 6e 64 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 ndText = "${sql(
5550: 31 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 1)}";..
5560: 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 command
5570: 31 2e 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72 1.ExecuteNonQuer
5580: 79 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 y();....
5590: 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 using
55a0: 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 (SQLiteCommand c
55b0: 6f 6d 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e 65 63 ommand2 = connec
55c0: 74 69 6f 6e 32 2e 43 72 65 61 74 65 43 6f 6d 6d tion2.CreateComm
55d0: 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 and())..
55e0: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 {..
55f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5600: 20 63 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e command2.Comman
5610: 64 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 32 dText = "${sql(2
5620: 29 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 )}";..
5630: 20 20 20 20 20 20 20 20 20 20 72 65 74 75 72 6e return
5640: 20 28 69 6e 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d (int)(long)comm
5650: 61 6e 64 32 2e 45 78 65 63 75 74 65 53 63 61 6c and2.ExecuteScal
5660: 61 72 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ar();..
5670: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
5680: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 }..
5690: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a }..
56a0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 }..
56b0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 }..
56c0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a }.. }..
56d0: 20 20 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 }.. }] true
56e0: 20 74 72 75 65 20 74 72 75 65 20 72 65 73 75 6c true true resul
56f0: 74 73 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d ts errors System
5700: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c .Data.SQLite.dll
5710: 5d 0d 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 ].... list $cod
5720: 65 20 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 e $results \..
5730: 20 20 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f [expr {[info
5740: 20 65 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 exists errors]
5750: 3f 20 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d ? $errors : ""}]
5760: 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 \.. [expr
5770: 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f {$code eq "Ok" ?
5780: 20 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 [catch {..
5790: 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 object invoke
57a0: 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 _Dynamic${id}.T
57b0: 65 73 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 est${id} Main..
57c0: 20 20 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a } result] :
57d0: 20 5b 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d [set result ""]
57e0: 7d 5d 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 }] $result..} -c
57f0: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 leanup {.. clea
5800: 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d nupDb $fileName.
5810: 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f ... unset -noco
5820: 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65 mplain result re
5830: 73 75 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64 sults errors cod
5840: 65 20 73 71 6c 20 64 61 74 61 53 6f 75 72 63 65 e sql dataSource
5850: 20 69 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d id db fileName.
5860: 0a 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 .} -constraints
5870: 7b 65 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f {eagle command.o
5880: 62 6a 65 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20 bject monoBug28
5890: 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 command.sql comp
58a0: 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c ile.DATA SQLite\
58b0: 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 ..System.Data.SQ
58c0: 4c 69 74 65 20 63 6f 6d 70 69 6c 65 43 53 68 61 Lite compileCSha
58d0: 72 70 7d 20 2d 6d 61 74 63 68 20 72 65 67 65 78 rp} -match regex
58e0: 70 20 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b 5c 0d p -result {^Ok\.
58f0: 0a 53 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23 .System#CodeDom#
5900: 43 6f 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65 Compiler#Compile
5910: 72 52 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c rResults#\d+ \{\
5920: 7d 20 30 20 31 24 7d 7d 0d 0a 0d 0a 23 23 23 23 } 0 1$}}....####
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 23 23 23 23 23 23 23 23 23 23 ################
5970: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 ###########....r
5980: 75 6e 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 unTest {test tkt
5990: 2d 35 36 62 34 32 64 39 39 63 31 2d 31 2e 39 20 -56b42d99c1-1.9
59a0: 7b 65 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 {enlisted transa
59b0: 63 74 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d ction isolation}
59c0: 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 -setup {.. set
59d0: 75 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 upDb [set fileNa
59e0: 6d 65 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 me tkt-56b42d99c
59f0: 31 2d 31 2e 39 2e 64 62 5d 0d 0a 7d 20 2d 62 6f 1-1.9.db]..} -bo
5a00: 64 79 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b dy {.. set id [
5a10: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e object invoke In
5a20: 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 terpreter.GetAct
5a30: 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 ive NextId].. s
5a40: 65 74 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 et dataSource [f
5a50: 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 ile join [getDat
5a60: 61 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 abaseDirectory]
5a70: 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 $fileName]....
5a80: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 unset -nocomplai
5a90: 6e 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 n results errors
5aa0: 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 31 29 .... set sql(1)
5ab0: 20 7b 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 { \.. CREATE
5ac0: 20 54 41 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d TABLE t1(x); \.
5ad0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f . INSERT INTO
5ae0: 20 74 31 20 28 78 29 20 56 41 4c 55 45 53 28 31 t1 (x) VALUES(1
5af0: 29 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 ); \.. }.... s
5b00: 65 74 20 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 et sql(2) { \..
5b10: 20 20 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 SELECT COUNT(
5b20: 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d *) FROM sqlite_m
5b30: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 aster WHERE type
5b40: 20 3d 20 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 = 'table'; \..
5b50: 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 }.... set code
5b60: 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 [compileCSharpW
5b70: 69 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 ith [subst {..
5b80: 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 using System.D
5b90: 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 ata.SQLite;..
5ba0: 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 using System.Tr
5bb0: 61 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 ansactions;....
5bc0: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 namespace _Dy
5bd0: 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 namic${id}..
5be0: 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 {.. public
5bf0: 73 74 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 static class Tes
5c00: 74 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d t${id}.. {.
5c10: 0a 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 . public
5c20: 73 74 61 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 static int Main(
5c30: 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 ).. {..
5c40: 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 Transact
5c50: 69 6f 6e 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 ionOptions trans
5c60: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 actionOptions =
5c70: 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f new TransactionO
5c80: 70 74 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 ptions();..
5c90: 20 20 20 20 20 74 72 61 6e 73 61 63 74 69 6f 6e transaction
5ca0: 4f 70 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f Options.Isolatio
5cb0: 6e 4c 65 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 nLevel = Isolati
5cc0: 6f 6e 4c 65 76 65 6c 2e 52 65 61 64 55 6e 63 6f onLevel.ReadUnco
5cd0: 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 mmitted;....
5ce0: 20 20 20 20 20 20 75 73 69 6e 67 20 28 54 72 61 using (Tra
5cf0: 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20 74 72 nsactionScope tr
5d00: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20 3d ansactionScope =
5d10: 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f 6e new Transaction
5d20: 53 63 6f 70 65 28 0d 0a 20 20 20 20 20 20 20 20 Scope(..
5d30: 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f Transactio
5d40: 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e 52 65 71 nScopeOption.Req
5d50: 75 69 72 65 64 2c 20 74 72 61 6e 73 61 63 74 69 uired, transacti
5d60: 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a 20 20 20 onOptions))..
5d70: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 {..
5d80: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c using (SQL
5d90: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f iteConnection co
5da0: 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e 65 77 20 nnection1 = new
5db0: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e SQLiteConnection
5dc0: 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 (..
5dd0: 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d "Data Source=
5de0: 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 5b 67 ${dataSource};[g
5df0: 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 65 73 etTestProperties
5e00: 20 24 66 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 $flags]"))..
5e10: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 {..
5e20: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 connec
5e30: 74 69 6f 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d tion1.Open();...
5e40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 . u
5e50: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e sing (SQLiteConn
5e60: 65 63 74 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f ection connectio
5e70: 6e 32 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 n2 = new SQLiteC
5e80: 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 onnection(..
5e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44 "D
5ea0: 61 74 61 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 ata Source=${dat
5eb0: 61 53 6f 75 72 63 65 7d 3b 45 6e 6c 69 73 74 3d aSource};Enlist=
5ec0: 46 61 6c 73 65 3b 5b 67 65 74 54 65 73 74 50 72 False;[getTestPr
5ed0: 6f 70 65 72 74 69 65 73 20 24 66 6c 61 67 73 5d operties $flags]
5ee0: 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 "))..
5ef0: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 {..
5f00: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e connection
5f10: 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 2.Open();....
5f20: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 usi
5f30: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e ng (SQLiteComman
5f40: 64 20 63 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f 6e d command1 = con
5f50: 6e 65 63 74 69 6f 6e 31 2e 43 72 65 61 74 65 43 nection1.CreateC
5f60: 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 ommand())..
5f70: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 {..
5f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5f90: 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e 64 command1.Command
5fa0: 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 31 29 Text = "${sql(1)
5fb0: 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 }";..
5fc0: 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e command1.
5fd0: 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72 79 28 ExecuteNonQuery(
5fe0: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 );....
5ff0: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 using (S
6000: 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d QLiteCommand com
6010: 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e 65 63 74 69 mand2 = connecti
6020: 6f 6e 32 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e on2.CreateComman
6030: 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 d())..
6040: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 {..
6050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 c
6060: 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64 54 ommand2.CommandT
6070: 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 32 29 7d ext = "${sql(2)}
6080: 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ";..
6090: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 return (
60a0: 69 6e 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61 6e int)(long)comman
60b0: 64 32 2e 45 78 65 63 75 74 65 53 63 61 6c 61 72 d2.ExecuteScalar
60c0: 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ();..
60d0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
60e0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
60f0: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }..
6100: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
6110: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
6120: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 }.. }..
6130: 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 20 74 }.. }] true t
6140: 72 75 65 20 74 72 75 65 20 72 65 73 75 6c 74 73 rue true results
6150: 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 errors System.D
6160: 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d ata.SQLite.dll].
6170: 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 65 20 ... list $code
6180: 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20 $results \..
6190: 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 [expr {[info e
61a0: 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 3f 20 xists errors] ?
61b0: 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c $errors : ""}] \
61c0: 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24 .. [expr {$
61d0: 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b code eq "Ok" ? [
61e0: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 catch {..
61f0: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f object invoke _
6200: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 Dynamic${id}.Tes
6210: 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 t${id} Main..
6220: 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b } result] : [
6230: 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d set result ""]}]
6240: 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 $result..} -cle
6250: 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 anup {.. cleanu
6260: 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d pDb $fileName...
6270: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 . unset -nocomp
6280: 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65 73 75 lain result resu
6290: 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64 65 20 lts errors code
62a0: 73 71 6c 20 64 61 74 61 53 6f 75 72 63 65 20 69 sql dataSource i
62b0: 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d d db fileName..}
62c0: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 -constraints {e
62d0: 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a agle command.obj
62e0: 65 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20 63 6f ect monoBug28 co
62f0: 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70 69 6c mmand.sql compil
6300: 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c 0d 0a e.DATA SQLite\..
6310: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 System.Data.SQLi
6320: 74 65 20 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 te compileCSharp
6330: 7d 20 2d 6d 61 74 63 68 20 72 65 67 65 78 70 20 } -match regexp
6340: 2d 72 65 73 75 6c 74 20 7b 5e 4f 6b 5c 0d 0a 53 -result {^Ok\..S
6350: 79 73 74 65 6d 23 43 6f 64 65 44 6f 6d 23 43 6f ystem#CodeDom#Co
6360: 6d 70 69 6c 65 72 23 43 6f 6d 70 69 6c 65 72 52 mpiler#CompilerR
6370: 65 73 75 6c 74 73 23 5c 64 2b 20 5c 7b 5c 7d 20 esults#\d+ \{\}
6380: 30 20 30 24 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 0 0$}}....######
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 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
63d0: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e #########....run
63e0: 54 65 73 74 20 7b 74 65 73 74 20 74 6b 74 2d 35 Test {test tkt-5
63f0: 36 62 34 32 64 39 39 63 31 2d 31 2e 31 30 20 7b 6b42d99c1-1.10 {
6400: 65 6e 6c 69 73 74 65 64 20 74 72 61 6e 73 61 63 enlisted transac
6410: 74 69 6f 6e 20 69 73 6f 6c 61 74 69 6f 6e 7d 20 tion isolation}
6420: 2d 73 65 74 75 70 20 7b 0d 0a 20 20 73 65 74 75 -setup {.. setu
6430: 70 44 62 20 5b 73 65 74 20 66 69 6c 65 4e 61 6d pDb [set fileNam
6440: 65 20 74 6b 74 2d 35 36 62 34 32 64 39 39 63 31 e tkt-56b42d99c1
6450: 2d 31 2e 31 30 2e 64 62 5d 0d 0a 7d 20 2d 62 6f -1.10.db]..} -bo
6460: 64 79 20 7b 0d 0a 20 20 73 65 74 20 69 64 20 5b dy {.. set id [
6470: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e object invoke In
6480: 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74 terpreter.GetAct
6490: 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 73 ive NextId].. s
64a0: 65 74 20 64 61 74 61 53 6f 75 72 63 65 20 5b 66 et dataSource [f
64b0: 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61 74 ile join [getDat
64c0: 61 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d 20 abaseDirectory]
64d0: 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 0d 0a 20 20 $fileName]....
64e0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 unset -nocomplai
64f0: 6e 20 72 65 73 75 6c 74 73 20 65 72 72 6f 72 73 n results errors
6500: 0d 0a 0d 0a 20 20 73 65 74 20 73 71 6c 28 31 29 .... set sql(1)
6510: 20 7b 20 5c 0d 0a 20 20 20 20 43 52 45 41 54 45 { \.. CREATE
6520: 20 54 41 42 4c 45 20 74 31 28 78 29 3b 20 5c 0d TABLE t1(x); \.
6530: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f . INSERT INTO
6540: 20 74 31 20 28 78 29 20 56 41 4c 55 45 53 28 31 t1 (x) VALUES(1
6550: 29 3b 20 5c 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 73 ); \.. }.... s
6560: 65 74 20 73 71 6c 28 32 29 20 7b 20 5c 0d 0a 20 et sql(2) { \..
6570: 20 20 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 SELECT COUNT(
6580: 2a 29 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d *) FROM sqlite_m
6590: 61 73 74 65 72 20 57 48 45 52 45 20 74 79 70 65 aster WHERE type
65a0: 20 3d 20 27 74 61 62 6c 65 27 3b 20 5c 0d 0a 20 = 'table'; \..
65b0: 20 7d 0d 0a 0d 0a 20 20 73 65 74 20 63 6f 64 65 }.... set code
65c0: 20 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 [compileCSharpW
65d0: 69 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 ith [subst {..
65e0: 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44 using System.D
65f0: 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20 20 20 ata.SQLite;..
6600: 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 54 72 using System.Tr
6610: 61 6e 73 61 63 74 69 6f 6e 73 3b 0d 0a 0d 0a 20 ansactions;....
6620: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44 79 namespace _Dy
6630: 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20 20 namic${id}..
6640: 7b 0d 0a 20 20 20 20 20 20 70 75 62 6c 69 63 20 {.. public
6650: 73 74 61 74 69 63 20 63 6c 61 73 73 20 54 65 73 static class Tes
6660: 74 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20 7b 0d t${id}.. {.
6670: 0a 20 20 20 20 20 20 20 20 70 75 62 6c 69 63 20 . public
6680: 73 74 61 74 69 63 20 69 6e 74 20 4d 61 69 6e 28 static int Main(
6690: 29 0d 0a 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 ).. {..
66a0: 20 20 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 Transact
66b0: 69 6f 6e 4f 70 74 69 6f 6e 73 20 74 72 61 6e 73 ionOptions trans
66c0: 61 63 74 69 6f 6e 4f 70 74 69 6f 6e 73 20 3d 20 actionOptions =
66d0: 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f 6e 4f new TransactionO
66e0: 70 74 69 6f 6e 73 28 29 3b 0d 0a 20 20 20 20 20 ptions();..
66f0: 20 20 20 20 20 74 72 61 6e 73 61 63 74 69 6f 6e transaction
6700: 4f 70 74 69 6f 6e 73 2e 49 73 6f 6c 61 74 69 6f Options.Isolatio
6710: 6e 4c 65 76 65 6c 20 3d 20 49 73 6f 6c 61 74 69 nLevel = Isolati
6720: 6f 6e 4c 65 76 65 6c 2e 52 65 61 64 55 6e 63 6f onLevel.ReadUnco
6730: 6d 6d 69 74 74 65 64 3b 0d 0a 0d 0a 20 20 20 20 mmitted;....
6740: 20 20 20 20 20 20 75 73 69 6e 67 20 28 54 72 61 using (Tra
6750: 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20 74 72 nsactionScope tr
6760: 61 6e 73 61 63 74 69 6f 6e 53 63 6f 70 65 20 3d ansactionScope =
6770: 20 6e 65 77 20 54 72 61 6e 73 61 63 74 69 6f 6e new Transaction
6780: 53 63 6f 70 65 28 0d 0a 20 20 20 20 20 20 20 20 Scope(..
6790: 20 20 20 20 20 20 54 72 61 6e 73 61 63 74 69 6f Transactio
67a0: 6e 53 63 6f 70 65 4f 70 74 69 6f 6e 2e 52 65 71 nScopeOption.Req
67b0: 75 69 72 65 64 2c 20 74 72 61 6e 73 61 63 74 69 uired, transacti
67c0: 6f 6e 4f 70 74 69 6f 6e 73 29 29 0d 0a 20 20 20 onOptions))..
67d0: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 {..
67e0: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c using (SQL
67f0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 63 6f iteConnection co
6800: 6e 6e 65 63 74 69 6f 6e 31 20 3d 20 6e 65 77 20 nnection1 = new
6810: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e SQLiteConnection
6820: 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 (..
6830: 20 20 20 22 44 61 74 61 20 53 6f 75 72 63 65 3d "Data Source=
6840: 24 7b 64 61 74 61 53 6f 75 72 63 65 7d 3b 45 6e ${dataSource};En
6850: 6c 69 73 74 3d 46 61 6c 73 65 3b 5b 67 65 74 54 list=False;[getT
6860: 65 73 74 50 72 6f 70 65 72 74 69 65 73 20 24 66 estProperties $f
6870: 6c 61 67 73 5d 22 29 29 0d 0a 20 20 20 20 20 20 lags]"))..
6880: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 {..
6890: 20 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f connectio
68a0: 6e 31 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 n1.Open();....
68b0: 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e usin
68c0: 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 g (SQLiteConnect
68d0: 69 6f 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 32 20 ion connection2
68e0: 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e = new SQLiteConn
68f0: 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 ection(..
6900: 20 20 20 20 20 20 20 20 20 20 20 22 44 61 74 61 "Data
6910: 20 53 6f 75 72 63 65 3d 24 7b 64 61 74 61 53 6f Source=${dataSo
6920: 75 72 63 65 7d 3b 5b 67 65 74 54 65 73 74 50 72 urce};[getTestPr
6930: 6f 70 65 72 74 69 65 73 20 24 66 6c 61 67 73 5d operties $flags]
6940: 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 "))..
6950: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 {..
6960: 20 20 20 20 20 20 63 6f 6e 6e 65 63 74 69 6f 6e connection
6970: 32 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20 2.Open();....
6980: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69 usi
6990: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6d 6d 61 6e ng (SQLiteComman
69a0: 64 20 63 6f 6d 6d 61 6e 64 31 20 3d 20 63 6f 6e d command1 = con
69b0: 6e 65 63 74 69 6f 6e 31 2e 43 72 65 61 74 65 43 nection1.CreateC
69c0: 6f 6d 6d 61 6e 64 28 29 29 0d 0a 20 20 20 20 20 ommand())..
69d0: 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 {..
69e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
69f0: 63 6f 6d 6d 61 6e 64 31 2e 43 6f 6d 6d 61 6e 64 command1.Command
6a00: 54 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 31 29 Text = "${sql(1)
6a10: 7d 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 }";..
6a20: 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 31 2e command1.
6a30: 45 78 65 63 75 74 65 4e 6f 6e 51 75 65 72 79 28 ExecuteNonQuery(
6a40: 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 );....
6a50: 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 using (S
6a60: 51 4c 69 74 65 43 6f 6d 6d 61 6e 64 20 63 6f 6d QLiteCommand com
6a70: 6d 61 6e 64 32 20 3d 20 63 6f 6e 6e 65 63 74 69 mand2 = connecti
6a80: 6f 6e 32 2e 43 72 65 61 74 65 43 6f 6d 6d 61 6e on2.CreateComman
6a90: 64 28 29 29 0d 0a 20 20 20 20 20 20 20 20 20 20 d())..
6aa0: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 {..
6ab0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 c
6ac0: 6f 6d 6d 61 6e 64 32 2e 43 6f 6d 6d 61 6e 64 54 ommand2.CommandT
6ad0: 65 78 74 20 3d 20 22 24 7b 73 71 6c 28 32 29 7d ext = "${sql(2)}
6ae0: 22 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ";..
6af0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 28 return (
6b00: 69 6e 74 29 28 6c 6f 6e 67 29 63 6f 6d 6d 61 6e int)(long)comman
6b10: 64 32 2e 45 78 65 63 75 74 65 53 63 61 6c 61 72 d2.ExecuteScalar
6b20: 28 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ();..
6b30: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
6b40: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
6b50: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 }..
6b60: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 }..
6b70: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 }..
6b80: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 }.. }..
6b90: 20 20 7d 0d 0a 20 20 7d 5d 20 74 72 75 65 20 74 }.. }] true t
6ba0: 72 75 65 20 74 72 75 65 20 72 65 73 75 6c 74 73 rue true results
6bb0: 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d 2e 44 errors System.D
6bc0: 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c 5d 0d ata.SQLite.dll].
6bd0: 0a 0d 0a 20 20 6c 69 73 74 20 24 63 6f 64 65 20 ... list $code
6be0: 24 72 65 73 75 6c 74 73 20 5c 0d 0a 20 20 20 20 $results \..
6bf0: 20 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 [expr {[info e
6c00: 78 69 73 74 73 20 65 72 72 6f 72 73 5d 20 3f 20 xists errors] ?
6c10: 24 65 72 72 6f 72 73 20 3a 20 22 22 7d 5d 20 5c $errors : ""}] \
6c20: 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24 .. [expr {$
6c30: 63 6f 64 65 20 65 71 20 22 4f 6b 22 20 3f 20 5b code eq "Ok" ? [
6c40: 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 catch {..
6c50: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f object invoke _
6c60: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 Dynamic${id}.Tes
6c70: 74 24 7b 69 64 7d 20 4d 61 69 6e 0d 0a 20 20 20 t${id} Main..
6c80: 20 20 20 7d 20 72 65 73 75 6c 74 5d 20 3a 20 5b } result] : [
6c90: 73 65 74 20 72 65 73 75 6c 74 20 22 22 5d 7d 5d set result ""]}]
6ca0: 20 24 72 65 73 75 6c 74 0d 0a 7d 20 2d 63 6c 65 $result..} -cle
6cb0: 61 6e 75 70 20 7b 0d 0a 20 20 63 6c 65 61 6e 75 anup {.. cleanu
6cc0: 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d pDb $fileName...
6cd0: 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 . unset -nocomp
6ce0: 6c 61 69 6e 20 72 65 73 75 6c 74 20 72 65 73 75 lain result resu
6cf0: 6c 74 73 20 65 72 72 6f 72 73 20 63 6f 64 65 20 lts errors code
6d00: 73 71 6c 20 64 61 74 61 53 6f 75 72 63 65 20 69 sql dataSource i
6d10: 64 20 64 62 20 66 69 6c 65 4e 61 6d 65 0d 0a 7d d db fileName..}
6d20: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 -constraints {e
6d30: 61 67 6c 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a agle command.obj
6d40: 65 63 74 20 6d 6f 6e 6f 42 75 67 32 38 20 6d 6f ect monoBug28 mo
6d50: 6e 6f 42 75 67 32 31 31 20 6d 6f 6e 6f 42 75 67 noBug211 monoBug
6d60: 35 31 38 5c 0d 0a 63 6f 6d 6d 61 6e 64 2e 73 71 518\..command.sq
6d70: 6c 20 63 6f 6d 70 69 6c 65 2e 44 41 54 41 20 53 l compile.DATA S
6d80: 51 4c 69 74 65 20 53 79 73 74 65 6d 2e 44 61 74 QLite System.Dat
6d90: 61 2e 53 51 4c 69 74 65 20 63 6f 6d 70 69 6c 65 a.SQLite compile
6da0: 43 53 68 61 72 70 7d 20 2d 6d 61 74 63 68 20 5c CSharp} -match \
6db0: 0d 0a 72 65 67 65 78 70 20 2d 72 65 73 75 6c 74 ..regexp -result
6dc0: 20 7b 5e 4f 6b 20 53 79 73 74 65 6d 23 43 6f 64 {^Ok System#Cod
6dd0: 65 44 6f 6d 23 43 6f 6d 70 69 6c 65 72 23 43 6f eDom#Compiler#Co
6de0: 6d 70 69 6c 65 72 52 65 73 75 6c 74 73 23 5c 64 mpilerResults#\d
6df0: 2b 20 5c 7b 5c 7d 20 30 20 31 24 7d 7d 0d 0a 0d + \{\} 0 1$}}...
6e00: 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 .###############
6e10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6e20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6e30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6e40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
6e50: 0d 0a 0d 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d ....unset -nocom
6e60: 70 6c 61 69 6e 20 66 6c 61 67 73 0d 0a 0d 0a 23 plain flags....#
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 23 23 23 23 23 23 23 23 23 23 23 23 ################
6eb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a ##############..
6ec0: 0d 0a 72 75 6e 53 51 4c 69 74 65 54 65 73 74 45 ..runSQLiteTestE
6ed0: 70 69 6c 6f 67 75 65 0d 0a 72 75 6e 54 65 73 74 pilogue..runTest
6ee0: 45 70 69 6c 6f 67 75 65 0d 0a Epilogue..