Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Corrections to the test case for ticket [53633bbe39]. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
67e11dee533df83e7001b32202651ada |
User & Date: | mistachkin 2016-04-01 00:43:09.130 |
Context
2016-04-01
| ||
02:35 | Add a row to the LINQ test database for ticket [eafaece5c1]. check-in: 47ec08ca31 user: mistachkin tags: trunk | |
00:43 | Corrections to the test case for ticket [53633bbe39]. check-in: 67e11dee53 user: mistachkin tags: trunk | |
00:23 | Add tests for ticket [53633bbe39]. check-in: 8b5a097e13 user: mistachkin tags: trunk | |
Changes
Changes to Tests/tkt-53633bbe39.eagle.
︙ | ︙ | |||
20 21 22 23 24 25 26 | ############################################################################### runTest {test tkt-53633bbe39-1.1 {column affinity overrides} -setup { saveSQLiteConnectionEnvironment saveSQLiteConvertEnvironment | | > > | | | | > > | > > | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | ############################################################################### runTest {test tkt-53633bbe39-1.1 {column affinity overrides} -setup { saveSQLiteConnectionEnvironment saveSQLiteConvertEnvironment set env(DefaultFlags_SQLiteConnection) \ "DetectTextAffinity, DetectStringType, NoVerifyTextAffinity" set env(Use_SQLiteConvert_DefaultDbType) String set env(Use_SQLiteConvert_DefaultTypeName) TEXT setupDb [set fileName tkt-53633bbe39-1.1.db] } -body { sql execute $db { CREATE TABLE t1(x); INSERT INTO t1 (x) VALUES(NULL); INSERT INTO t1 (x) VALUES(1); INSERT INTO t1 (x) VALUES(2.0); INSERT INTO t1 (x) VALUES(3.14159); } set dataReader [sql execute -execute reader -format datareader \ -alias $db "SELECT x FROM t1 ORDER BY x;"] set results [list] while {[$dataReader Read]} { set result(0) [list] lappend result(0) [catch {$dataReader GetString 0} result(1)] $result(1) lappend result(0) [catch {$dataReader GetValue 0} result(1)] $result(1) lappend results $result(0) } set results } -cleanup { unset -nocomplain dataReader cleanupDb $fileName restoreSQLiteConvertEnvironment restoreSQLiteConnectionEnvironment unset -nocomplain result results db fileName savedEnv } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \ regexp -result {^\{0 \{\} 0 System#DBNull#\d+\} \{0 1 0 1\} \{0 2\.0 0 2\.0\}\ \{0 3\.14159 0 3\.14159\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |