System.Data.SQLite: Artifact [717a42cca8]

Artifact 717a42cca851784bc982c967ba89886e048ac5ef:

File Tests/tkt-47f4bac575.eagle — part of check-in [673875e370] at 2015-04-08 23:12:06 on branch trunk — Modify the test suite itself to work without the 'object' command, if necessary. (user: mistachkin size: 1908)

###############################################################################
#
# 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