Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Test changes for Mono 4.6.x. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
5955cd2f21b70f9a92ea7d44372d4d49 |
User & Date: | mistachkin 2016-10-13 18:09:28.034 |
Context
2016-10-13
| ||
18:10 | Follow up previous check-in: one more test needs changes. check-in: 855a3004b1 user: mistachkin tags: trunk | |
18:09 | Test changes for Mono 4.6.x. check-in: 5955cd2f21 user: mistachkin tags: trunk | |
17:31 | Update SQLite core library to the latest trunk. check-in: 1da3d937ca user: mistachkin tags: trunk | |
Changes
Changes to Tests/basic.eagle.
︙ | ︙ | |||
3988 3989 3990 3991 3992 3993 3994 | 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] \ | | > | > | > | 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 -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 -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 -tostring GetFieldType 2]] } set result } -cleanup { unset -nocomplain dataReader cleanupDb $fileName |
︙ | ︙ |
Changes to Tests/thread.eagle.
︙ | ︙ | |||
455 456 457 458 459 460 461 | [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\ | | | 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 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 | [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 | | | 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 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 | [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 | | | 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 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 | [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 | | | 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 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 | [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 | | | 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 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 | [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 | | | 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 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 | [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 | | | 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 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 | 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;"] | | > | > | > | 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 -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\ |
︙ | ︙ |