###############################################################################
#
# tkt-0ed01c447c.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-0ed01c447c-1.1 {ProviderDbType for DataTypes} -setup {
setupDb [set fileName tkt-0ed01c447c-1.1.db]
} -body {
set connection [getDbConnection]
set dataTable [$connection -alias GetSchema DATATYPES]
set results [list]
object foreach -alias dataRow [set dataRows [$dataTable -alias Rows]] {
lappend results [list \
[$dataRow Item TypeName] [$dataRow Item ProviderDbType]]
}
lsort $results
} -cleanup {
cleanupDb $fileName
freeDbConnection
unset -nocomplain dataRow dataRows dataTable results connection db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite} -result {{autoincrement 12} {bigint 12} {binary 1} {bit 3}\
{blob 1} {bool 3} {boolean 3} {char 16} {counter 12} {currency 7} {date 6}\
{datetime 6} {decimal 7} {double 8} {float 8} {general 1} {guid 9} {identity\
12} {image 1} {int 11} {integer 12} {logical 3} {long 12} {longtext 16} {memo\
16} {money 7} {nchar 16} {note 16} {ntext 16} {numeric 7} {nvarchar 16}\
{oleobject 1} {real 8} {single 15} {smalldate 6} {smallint 10} {string 16}\
{text 16} {time 6} {timestamp 6} {tinyint 2} {uniqueidentifier 9} {varbinary 1}\
{varchar 16} {yesno 3}}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue