System.Data.SQLite
Check-in [7539c9f0a6]
Not logged in

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

Overview
Comment:Restore the default connection pool implementation in the test cleanup for ticket [393d954be0].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7539c9f0a685f0c9fe50435056b71b71f1e5d189
User & Date: mistachkin 2013-02-27 07:02:17
Context
2013-02-27
07:02
Enhance detection and handling of multiple sets of build output by the test suite. Update Eagle script library in externals to latest trunk. check-in: 7197d1e4c5 user: mistachkin tags: trunk
07:02
Restore the default connection pool implementation in the test cleanup for ticket [393d954be0]. check-in: 7539c9f0a6 user: mistachkin tags: trunk
01:44
Support using the directory containing the primary managed-only assembly itself as the basis for native library pre-loading via setting the 'PreLoadSQLite_UseAssemblyDirectory' environment variable (to anything). check-in: 80f0294664 user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Tests/tkt-393d954be0.eagle.

    16     16   ###############################################################################
    17     17   
    18     18   package require System.Data.SQLite.Test
    19     19   runSQLiteTestPrologue
    20     20   
    21     21   ###############################################################################
    22     22   
    23         -runTest {test tkt-393d954be0-1.1 {custom connection pool} -body {
           23  +runTest {test tkt-393d954be0-1.1 {custom connection pool} -setup {
    24     24     set nullPool [object create -flags +NonPublic -alias \
    25     25         System.Data.SQLite.NullConnectionPool true]
    26     26   
    27     27     object invoke System.Data.SQLite.SQLiteConnection ConnectionPool $nullPool
    28     28   
    29     29     setupDb [set fileName tkt-393d954be0-1.1.db] "" "" "" "" "Pooling=True;"
    30         -
           30  +} -body {
    31     31     set exists(0) [file exists [file join [getDatabaseDirectory] [file tail \
    32     32         $fileName]]]
    33     33   
    34     34     cleanupDb $fileName
    35     35   
    36     36     set exists(1) [file exists [file join [getDatabaseDirectory] [file tail \
    37     37         $fileName]]]
................................................................................
    46     46     object invoke -flags +NonPublic System.Data.SQLite.SQLiteConnectionPool \
    47     47         ClearAllPools
    48     48   
    49     49     list $exists(0) $exists(1) $counts $openCount $closeCount $totalCount \
    50     50         [object invoke $nullPool ToString]
    51     51   } -cleanup {
    52     52     cleanupDb $fileName
           53  +
           54  +  catch {object invoke System.Data.SQLite.SQLiteConnection ConnectionPool null}
    53     55   
    54     56     unset -nocomplain db fileName exists counts openCount closeCount totalCount \
    55     57         nullPool
    56     58   } -constraints {eagle monoBug28 buildConfiguration.Debug command.sql\
    57     59   compile.DATA SQLite System.Data.SQLite} -match regexp -result [string map \
    58     60   [list \n \r\n] {^True False \{\} 0 0 0\
    59     61   \{Remove\(".*?\\tkt-393d954be0-1\.1\.db",\