###############################################################################
#
# tkt-e47b3d8346.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-e47b3d8346-1.1 {parse semi-colon in data source} -setup {
unset -nocomplain result list pair
} -body {
set result [list]
set list [object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteConnection ParseConnectionString \
{Data Source="C:\full\path\to\file.db;more.data.here";} false]
object foreach -alias pair $list {
lappend result [list [$pair Key] [$pair Value]]
}
set result
} -cleanup {
unset -nocomplain result list pair
} -constraints {eagle command.object System.Data.SQLite} -result \
{{{Data Source} {C:\full\path\to\file.db;more.data.here}}}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue