System.Data.SQLite
Check-in [5e689a7650]
Not logged in

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

Overview
Comment:Add another test to verify the behavior of read-only connections with respect to the connection pool. See also check-in [14d18ee82623c85f].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:5e689a7650e9e5e0e95da2ea64867c76c11008fe
User & Date: mistachkin 2018-07-10 11:10:50
Context
2018-07-11
01:36
Adjust the test constraints impacted by Mono 5.12. check-in: fa2e15166b user: mistachkin tags: trunk
2018-07-10
11:10
Add another test to verify the behavior of read-only connections with respect to the connection pool. See also check-in [14d18ee82623c85f]. check-in: 5e689a7650 user: mistachkin tags: trunk
01:53
Do not allow read-only connections into (or out of) the connection pool. check-in: 14d18ee826 user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Tests/basic.eagle.

5095
5096
5097
5098
5099
5100
5101




































5102
5103
5104
5105
5106
5107
5108
5109
5110
5111
  unset -nocomplain error code db fileName

  rename getPoolCounts ""
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{{0 0} 1 {attempt to write a readonly database} 1 {attempt to write a readonly\
database} 1}}





































###############################################################################

reportSQLiteResources $test_channel

###############################################################################

runSQLiteTestFilesEpilogue
runSQLiteTestEpilogue
runTestEpilogue







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>










5095
5096
5097
5098
5099
5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
5111
5112
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
5127
5128
5129
5130
5131
5132
5133
5134
5135
5136
5137
5138
5139
5140
5141
5142
5143
5144
5145
5146
5147
  unset -nocomplain error code db fileName

  rename getPoolCounts ""
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{{0 0} 1 {attempt to write a readonly database} 1 {attempt to write a readonly\
database} 1}}

###############################################################################

runTest {test data-1.97 {connection pool interaction with read-only} -setup {
  setupDb [set fileName data-1.97.db]
} -body {
  sql execute $db "CREATE TABLE t1(x);"
  sql execute $db "INSERT INTO t1 (x) VALUES(1);"

  cleanupDb $fileName db true false false
  setupDb $fileName "" "" "" "" "Read Only=True;Pooling=True;" true false

  set code(1) [catch {
    sql execute $db "INSERT INTO t1 (x) VALUES(2);"
  } error(1)]

  cleanupDb $fileName db true false false
  setupDb $fileName "" "" "" "" "Pooling=True;" true false

  set code(2) [catch {
    sql execute $db "INSERT INTO t1 (x) VALUES(3);"
  } error(2)]

  cleanupDb $fileName db true false false
  setupDb $fileName "" "" "" "" "" true false

  list $code(1) [extractSystemDataSQLiteExceptionMessage $error(1)] \
      $code(2) [extractSystemDataSQLiteExceptionMessage $error(2)] \
      [sql execute -execute scalar $db "SELECT SUM(x) FROM t1;"]
} -cleanup {
  cleanupDb $fileName

  unset -nocomplain error code db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{1 {attempt to write a readonly database} 0 1 4}}

###############################################################################

reportSQLiteResources $test_channel

###############################################################################

runSQLiteTestFilesEpilogue
runSQLiteTestEpilogue
runTestEpilogue