System.Data.SQLite
Check-in [5955cd2f21]
Not logged in

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.

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