############################################################################### # # tkt-393d954be0.eagle -- # # Written by Joe Mistachkin. # Released to the public domain, use at your own risk! # ############################################################################### package require Eagle package require Eagle.Library package require Eagle.Test runTestPrologue ############################################################################### package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### 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 set exists(1) [file exists [file join [getDatabaseDirectory] [file tail \ $fileName]]] set counts null; set openCount 0; set closeCount 0; set totalCount 0 object invoke -flags +NonPublic System.Data.SQLite.SQLiteConnectionPool \ GetCounts $fileName counts openCount closeCount totalCount object invoke -flags +NonPublic System.Data.SQLite.SQLiteConnectionPool \ ClearPool $fileName object invoke -flags +NonPublic System.Data.SQLite.SQLiteConnectionPool \ ClearAllPools list $exists(0) $exists(1) $counts $openCount $closeCount $totalCount \ [string map [list \r\n \n] [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 command.object monoBug28 buildConfiguration.Debug\ command.sql compile.DATA SQLite System.Data.SQLite} -match regexp -result \ {^True False \{\} 0 0 0\ \{Remove\(".*?[/\\]tkt-393d954be0-1\.1\.db",\ 100, 0\) Add\(".*?[/\\]tkt-393d954be0-1\.1\.db", -?\d+, 0\) GetCounts\("tkt-393d954be0-1\.1\.db", , 0, 0, 0\) ClearPool\("tkt-393d954be0-1\.1\.db"\) ClearAllPools\(\) \}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue