Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: |
Downloads: |
Tarball
| ZIP archive
|
---|
Timelines: |
family
| ancestors
| descendants
| both
| trunk
|
Files: |
files
| file ages
| folders
|
SHA1: |
5955cd2f21b70f9a92ea7d44372d4d498468f68f |
User & Date: |
mistachkin
2016-10-13 18:09:28.034 |
Context
2016-10-13
| | |
18:10 |
|
check-in: 855a3004b1 user: mistachkin tags: trunk
|
18:09 |
|
check-in: 5955cd2f21 user: mistachkin tags: trunk
|
17:31 |
|
check-in: 1da3d937ca user: mistachkin tags: trunk
|
| | |
Changes
Changes to Tests/basic.eagle.
︙ | | |
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999
4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
|
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999
4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
|
-
+
+
-
+
+
-
+
+
|
set result [list]
while {[$dataReader Read]} {
lappend result \
[list [$dataReader GetOrdinal x] [$dataReader GetName 0] \
[$dataReader GetValue 0] [$dataReader GetDatabaseName 0] \
[$dataReader GetTableName 0] [$dataReader GetOriginalName 0] \
[$dataReader GetDataTypeName 0] [$dataReader GetFieldType 0]] \
[$dataReader GetDataTypeName 0] \
[$dataReader -tostring GetFieldType 0]] \
[list [$dataReader GetOrdinal y] [$dataReader GetName 1] \
[$dataReader GetValue 1] [$dataReader GetDatabaseName 1] \
[$dataReader GetTableName 1] [$dataReader GetOriginalName 1] \
[$dataReader GetDataTypeName 1] [$dataReader GetFieldType 1]] \
[$dataReader GetDataTypeName 1] \
[$dataReader -tostring GetFieldType 1]] \
[list [$dataReader GetOrdinal z] [$dataReader GetName 2] \
[$dataReader GetValue 2] [$dataReader GetDatabaseName 2] \
[$dataReader GetTableName 2] [$dataReader GetOriginalName 2] \
[$dataReader GetDataTypeName 2] [$dataReader GetFieldType 2]]
[$dataReader GetDataTypeName 2] \
[$dataReader -tostring GetFieldType 2]]
}
set result
} -cleanup {
unset -nocomplain dataReader
cleanupDb $fileName
|
︙ | | |
Changes to Tests/thread.eagle.
︙ | | |
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
|
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
|
-
+
|
[getSQLiteHandleCounts $test_channel] \
[reportSQLiteResources $test_channel]
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -time true -constraints {eagle command.object monoBug28 monoCrash211\
monoCrash42 monoBug44 command.sql compile.DATA SQLite System.Data.SQLite\
monoCrash42 monoBug46 command.sql compile.DATA SQLite System.Data.SQLite\
compileCSharp} -match regexp -result [appendArgs "^Ok\
System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{\\d+ \\d+ " $count(1) \
"\\} \\{\\} \\{" $handle_counts "\\} " $memory_used \$]}
###############################################################################
unset -nocomplain count
|
︙ | | |
Changes to Tests/tkt-56b42d99c1.eagle.
︙ | | |
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
-
+
|
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} TryEnlistInTransaction
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code dataSource id db fileName
} -constraints {eagle command.object monoBug211 monoBug44 command.sql\
} -constraints {eagle command.object monoBug211 monoBug46 command.sql\
compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \
{^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}}
###############################################################################
runTest {test tkt-56b42d99c1-1.2 {enlisted transaction isolation} -setup {
setupDb [set fileName tkt-56b42d99c1-1.2.db]
|
︙ | | |
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
-
+
|
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -constraints {eagle command.object monoBug211 monoBug44 command.sql\
} -constraints {eagle command.object monoBug211 monoBug46 command.sql\
compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \
{^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}}
###############################################################################
runTest {test tkt-56b42d99c1-1.3 {enlisted transaction isolation} -setup {
setupDb [set fileName tkt-56b42d99c1-1.3.db]
|
︙ | | |
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
|
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
|
-
+
|
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -constraints {eagle command.object monoBug211 monoBug44 command.sql\
} -constraints {eagle command.object monoBug211 monoBug46 command.sql\
compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \
{^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}}
###############################################################################
set flags MapIsolationLevels
|
︙ | | |
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
|
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
|
-
+
|
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} TryEnlistInTransaction
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code dataSource id db fileName
} -constraints {eagle command.object monoBug28 monoBug211 monoBug44 command.sql\
} -constraints {eagle command.object monoBug28 monoBug211 monoBug46 command.sql\
compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \
{^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}}
###############################################################################
runTest {test tkt-56b42d99c1-1.7 {enlisted transaction isolation} -setup {
setupDb [set fileName tkt-56b42d99c1-1.7.db]
|
︙ | | |
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
|
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
|
-
+
|
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -constraints {eagle command.object monoBug28 monoBug211 monoBug44 command.sql\
} -constraints {eagle command.object monoBug28 monoBug211 monoBug46 command.sql\
compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \
{^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}}
###############################################################################
runTest {test tkt-56b42d99c1-1.8 {enlisted transaction isolation} -setup {
setupDb [set fileName tkt-56b42d99c1-1.8.db]
|
︙ | | |
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
|
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
|
-
+
|
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -constraints {eagle command.object monoBug28 monoBug211 monoBug44 command.sql\
} -constraints {eagle command.object monoBug28 monoBug211 monoBug46 command.sql\
compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \
{^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}}
###############################################################################
unset -nocomplain flags
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-94252b9059.eagle.
︙ | | |
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
-
-
-
+
+
+
+
+
+
|
sql execute $db {
CREATE TABLE t1(x SOMETYPE, y INTEGER, z);
}
set dataReader [sql execute -execute reader -format datareader \
-alias $db "SELECT x, y, z FROM t1;"]
list [$dataReader GetDataTypeName 0] [$dataReader GetDataTypeName 1] \
[$dataReader GetDataTypeName 2] [$dataReader GetFieldType 0] \
[$dataReader GetFieldType 1] [$dataReader GetFieldType 2]
list [$dataReader GetDataTypeName 0] \
[$dataReader GetDataTypeName 1] \
[$dataReader GetDataTypeName 2] \
[$dataReader -tostring GetFieldType 0] \
[$dataReader -tostring GetFieldType 1] \
[$dataReader -tostring GetFieldType 2]
} -cleanup {
unset -nocomplain dataReader
cleanupDb $fileName
unset -nocomplain db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
|
︙ | | |