Index: Tests/tkt-393d954be0.eagle ================================================================== --- Tests/tkt-393d954be0.eagle +++ Tests/tkt-393d954be0.eagle @@ -18,18 +18,18 @@ package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### -runTest {test tkt-393d954be0-1.1 {custom connection pool} -body { +runTest {test tkt-393d954be0-1.1 {custom connection pool} -setup { set nullPool [object create -flags +NonPublic -alias \ System.Data.SQLite.NullConnectionPool true] object invoke System.Data.SQLite.SQLiteConnection ConnectionPool $nullPool setupDb [set fileName tkt-393d954be0-1.1.db] "" "" "" "" "Pooling=True;" - +} -body { set exists(0) [file exists [file join [getDatabaseDirectory] [file tail \ $fileName]]] cleanupDb $fileName @@ -48,10 +48,12 @@ list $exists(0) $exists(1) $counts $openCount $closeCount $totalCount \ [object invoke $nullPool ToString] } -cleanup { cleanupDb $fileName + + catch {object invoke System.Data.SQLite.SQLiteConnection ConnectionPool null} unset -nocomplain db fileName exists counts openCount closeCount totalCount \ nullPool } -constraints {eagle monoBug28 buildConfiguration.Debug command.sql\ compile.DATA SQLite System.Data.SQLite} -match regexp -result [string map \