System.Data.SQLite: Check-in [5955cd2f21]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	Test changes for Mono 4.6.x.
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	5955cd2f21b70f9a92ea7d44372d4d498468f68f
User & Date:	mistachkin 2016-10-13 18:09:28

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

Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Tests/basic.eagle.

  3988   3988     set result [list]
  3989   3989   
  3990   3990     while {[$dataReader Read]} {
  3991   3991       lappend result \
  3992   3992           [list [$dataReader GetOrdinal x] [$dataReader GetName 0] \
  3993   3993           [$dataReader GetValue 0] [$dataReader GetDatabaseName 0] \
  3994   3994           [$dataReader GetTableName 0] [$dataReader GetOriginalName 0] \
  3995         -        [$dataReader GetDataTypeName 0] [$dataReader GetFieldType 0]] \
         3995  +        [$dataReader GetDataTypeName 0] \
         3996  +        [$dataReader -tostring GetFieldType 0]] \
  3996   3997           [list [$dataReader GetOrdinal y] [$dataReader GetName 1] \
  3997   3998           [$dataReader GetValue 1] [$dataReader GetDatabaseName 1] \
  3998   3999           [$dataReader GetTableName 1] [$dataReader GetOriginalName 1] \
  3999         -        [$dataReader GetDataTypeName 1] [$dataReader GetFieldType 1]] \
         4000  +        [$dataReader GetDataTypeName 1] \
         4001  +        [$dataReader -tostring GetFieldType 1]] \
  4000   4002           [list [$dataReader GetOrdinal z] [$dataReader GetName 2] \
  4001   4003           [$dataReader GetValue 2] [$dataReader GetDatabaseName 2] \
  4002   4004           [$dataReader GetTableName 2] [$dataReader GetOriginalName 2] \
  4003         -        [$dataReader GetDataTypeName 2] [$dataReader GetFieldType 2]]
         4005  +        [$dataReader GetDataTypeName 2] \
         4006  +        [$dataReader -tostring GetFieldType 2]]
  4004   4007     }
  4005   4008   
  4006   4009     set result
  4007   4010   } -cleanup {
  4008   4011     unset -nocomplain dataReader
  4009   4012   
  4010   4013     cleanupDb $fileName

Changes to Tests/thread.eagle.

   455    455         [getSQLiteHandleCounts $test_channel] \
   456    456         [reportSQLiteResources $test_channel]
   457    457   } -cleanup {
   458    458     cleanupDb $fileName
   459    459   
   460    460     unset -nocomplain result results errors code sql dataSource id db fileName
   461    461   } -time true -constraints {eagle command.object monoBug28 monoCrash211\
   462         -monoCrash42 monoBug44 command.sql compile.DATA SQLite System.Data.SQLite\
          462  +monoCrash42 monoBug46 command.sql compile.DATA SQLite System.Data.SQLite\
   463    463   compileCSharp} -match regexp -result [appendArgs "^Ok\
   464    464   System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{\\d+ \\d+ " $count(1) \
   465    465   "\\} \\{\\} \\{" $handle_counts "\\} " $memory_used \$]}
   466    466   
   467    467   ###############################################################################
   468    468   
   469    469   unset -nocomplain count

Changes to Tests/tkt-56b42d99c1.eagle.

     96     97     98     99    100    101    102     103    104    105    106    107    108    109 ......    173    174    175    176    177    178    179     180    181    182    183    184    185    186 ......    404    405    406    407    408    409    410     411    412    413    414    415    416    417 ......    493    494    495    496    497    498    499     500    501    502    503    504    505    506 ......    570    571    572    573    574    575    576     577    578    579    580    581    582    583 ......    801    802    803    804    805    806    807     808    809    810    811    812    813    814    815    816    817    818

class="diffln"> 95 95 [expr {$code eq "Ok" ? [catch { 96 object invoke _Dynamic${id}.Test${id} TryEnlistInTransaction 97 } result] : [set result ""]}] $result 98 } -cleanup { 99 cleanupDb $fileName 100 101 unset -nocomplain result results errors code dataSource id db fileName -} -constraints {eagle command.object monoBug211 monoBug44 command.sql\ 102 +} -constraints {eagle command.object monoBug211 monoBug46 command.sql\ 103 compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \ 104 {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}} 105 106 ############################################################################### 107 108 runTest {test tkt-56b42d99c1-1.2 {enlisted transaction isolation} -setup { 109 setupDb [set fileName tkt-56b42d99c1-1.2.db] .......................................................................... class="diffln"> 172 172 [expr {$code eq "Ok" ? [catch { 173 object invoke _Dynamic${id}.Test${id} Main 174 } result] : [set result ""]}] $result 175 } -cleanup { 176 cleanupDb $fileName 177 178 unset -nocomplain result results errors code sql dataSource id db fileName -} -constraints {eagle command.object monoBug211 monoBug44 command.sql\ 179 +} -constraints {eagle command.object monoBug211 monoBug46 command.sql\ 180 compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \ 181 {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} 182 183 ############################################################################### 184 185 runTest {test tkt-56b42d99c1-1.3 {enlisted transaction isolation} -setup { 186 setupDb [set fileName tkt-56b42d99c1-1.3.db] .......................................................................... class="diffln"> 403 403 [expr {$code eq "Ok" ? [catch { 404 object invoke _Dynamic${id}.Test${id} Main 405 } result] : [set result ""]}] $result 406 } -cleanup { 407 cleanupDb $fileName 408 409 unset -nocomplain result results errors code sql dataSource id db fileName -} -constraints {eagle command.object monoBug211 monoBug44 command.sql\ 410 +} -constraints {eagle command.object monoBug211 monoBug46 command.sql\ 411 compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \ 412 {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} 413 414 ############################################################################### 415 416 set flags MapIsolationLevels 417 .......................................................................... class="diffln"> 492 492 [expr {$code eq "Ok" ? [catch { 493 object invoke _Dynamic${id}.Test${id} TryEnlistInTransaction 494 } result] : [set result ""]}] $result 495 } -cleanup { 496 cleanupDb $fileName 497 498 unset -nocomplain result results errors code dataSource id db fileName -} -constraints {eagle command.object monoBug28 monoBug211 monoBug44 command.sql\ 499 +} -constraints {eagle command.object monoBug28 monoBug211 monoBug46 command.sql\ 500 compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \ 501 {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}} 502 503 ############################################################################### 504 505 runTest {test tkt-56b42d99c1-1.7 {enlisted transaction isolation} -setup { 506 setupDb [set fileName tkt-56b42d99c1-1.7.db] .......................................................................... class="diffln"> 569 569 [expr {$code eq "Ok" ? [catch { 570 object invoke _Dynamic${id}.Test${id} Main 571 } result] : [set result ""]}] $result 572 } -cleanup { 573 cleanupDb $fileName 574 575 unset -nocomplain result results errors code sql dataSource id db fileName -} -constraints {eagle command.object monoBug28 monoBug211 monoBug44 command.sql\ 576 +} -constraints {eagle command.object monoBug28 monoBug211 monoBug46 command.sql\ 577 compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \ 578 {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} 579 580 ############################################################################### 581 582 runTest {test tkt-56b42d99c1-1.8 {enlisted transaction isolation} -setup { 583 setupDb [set fileName tkt-56b42d99c1-1.8.db] .......................................................................... class="diffln"> 800 800 [expr {$code eq "Ok" ? [catch { 801 object invoke _Dynamic${id}.Test${id} Main 802 } result] : [set result ""]}] $result 803 } -cleanup { 804 cleanupDb $fileName 805 806 unset -nocomplain result results errors code sql dataSource id db fileName -} -constraints {eagle command.object monoBug28 monoBug211 monoBug44 command.sql\ 807 +} -constraints {eagle command.object monoBug28 monoBug211 monoBug46 command.sql\ 808 compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \ 809 {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} 810 811 ############################################################################### 812 813 unset -nocomplain flags 814 815 ############################################################################### 816 817 runSQLiteTestEpilogue 818 runTestEpilogue

Changes to Tests/tkt-94252b9059.eagle.

    26     26     sql execute $db {
    27     27       CREATE TABLE t1(x SOMETYPE, y INTEGER, z);
    28     28     }
    29     29   
    30     30     set dataReader [sql execute -execute reader -format datareader \
    31     31         -alias $db "SELECT x, y, z FROM t1;"]
    32     32   
    33         -  list [$dataReader GetDataTypeName 0] [$dataReader GetDataTypeName 1] \
    34         -      [$dataReader GetDataTypeName 2] [$dataReader GetFieldType 0] \
    35         -      [$dataReader GetFieldType 1] [$dataReader GetFieldType 2]
           33  +  list [$dataReader GetDataTypeName 0] \
           34  +      [$dataReader GetDataTypeName 1] \
           35  +      [$dataReader GetDataTypeName 2] \
           36  +      [$dataReader -tostring GetFieldType 0] \
           37  +      [$dataReader -tostring GetFieldType 1] \
           38  +      [$dataReader -tostring GetFieldType 2]
    36     39   } -cleanup {
    37     40     unset -nocomplain dataReader
    38     41   
    39     42     cleanupDb $fileName
    40     43   
    41     44     unset -nocomplain db fileName
    42     45   } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\