############################################################################### # # tkt-8554170e09.eagle -- # # Written by Joe Mistachkin. # Released to the public domain, use at your own risk! # ############################################################################### package require Eagle package require EagleLibrary package require EagleTest runTestPrologue ############################################################################### package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### runTest {test tkt-8554170e09-1.1 {default DATETIME value, NULL} -setup { setupDb [set fileName tkt-8554170e09-1.1.db] } -body { sql execute $db "CREATE TABLE t1(x INTEGER, y DATETIME);" sql execute $db "INSERT INTO t1 (x, y) VALUES(1, NULL);" set result [sql execute -execute reader -format list $db \ "SELECT x, y FROM t1 ORDER BY x;"] } -cleanup { cleanupDb $fileName unset -nocomplain result db fileName } -constraints {eagle monoBug28 command.sql compile.DATA System.Data.SQLite} \ -result {1}} ############################################################################### runTest {test tkt-8554170e09-1.2 {default DATETIME value, empty} -setup { setupDb [set fileName tkt-8554170e09-1.2.db] } -body { sql execute $db "CREATE TABLE t1(x INTEGER, y DATETIME);" sql execute $db "INSERT INTO t1 (x, y) VALUES(1, '');" set result [sql execute -execute reader -format list $db \ "SELECT x, y FROM t1 ORDER BY x;"] } -cleanup { cleanupDb $fileName unset -nocomplain result db fileName } -constraints {eagle monoBug28 command.sql compile.DATA System.Data.SQLite} \ -returnCodes 1 -match glob -result {*.SQLiteConvert.ToDateTime*}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue