###############################################################################
#
# tkt-47f4bac575.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-47f4bac575-1.1 {SQLiteConvert DbTypeToTypeName} -setup {
unset -nocomplain result dbType
} -body {
foreach dbType [list \
AnsiString Binary Byte Boolean Currency Date DateTime Decimal \
Double Guid Int16 Int32 Int64 Object SByte Single String Time \
UInt16 UInt32 UInt64 VarNumeric AnsiStringFixedLength \
StringFixedLength Xml DateTime2 DateTimeOffset] {
lappend result [list $dbType [object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteConvert DbTypeToTypeName null $dbType None]]
}
set result
} -cleanup {
unset -nocomplain result dbType
} -constraints {eagle command.object System.Data.SQLite} -result {{AnsiString\
VARCHAR} {Binary BLOB} {Byte TINYINT} {Boolean BIT} {Currency {}} {Date {}}\
{DateTime DATETIME} {Decimal DECIMAL} {Double REAL} {Guid UNIQUEIDENTIFIER}\
{Int16 SMALLINT} {Int32 INT} {Int64 INTEGER} {Object {}} {SByte TINYSINT}\
{Single SINGLE} {String NVARCHAR} {Time {}} {UInt16 SMALLUINT} {UInt32 UINT}\
{UInt64 UNSIGNEDINTEGER} {VarNumeric {}} {AnsiStringFixedLength CHAR}\
{StringFixedLength NCHAR} {Xml {}} {DateTime2 {}} {DateTimeOffset {}}}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue