Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Add test case for ticket [754cb60f47]. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | tkt-754cb60f47 |
Files: | files | file ages | folders |
SHA1: |
bba40ece0b746de459731ad49493077c |
User & Date: | mistachkin 2016-06-15 19:10:43.759 |
Context
2016-06-19
| ||
06:43 | Fix some test constraints. Closed-Leaf check-in: d9a18965fc user: mistachkin tags: tkt-754cb60f47 | |
2016-06-15
| ||
19:10 | Add test case for ticket [754cb60f47]. check-in: bba40ece0b user: mistachkin tags: tkt-754cb60f47 | |
18:49 | Remove a superfluous variable from a test. check-in: d3092d0d87 user: mistachkin tags: trunk | |
Changes
Added Tests/tkt-754cb60f47.eagle.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 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 | ############################################################################### # # tkt-754cb60f47.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-754cb60f47-1.1 {GetDataTypeName w/computed columns} -setup { setupDb [set fileName tkt-754cb60f47-1.1.db] } -body { sql execute $db { CREATE TABLE t1(x TEXT, y INTEGER); INSERT INTO t1 (x, y) VALUES('test', 12345); } set dataReader [sql execute -execute reader -format datareader -alias $db { SELECT x, y, DATETIME('now') AS w, SUBSTR(x, 1, 2) AS z FROM t1; }] $dataReader Read list [$dataReader GetName 0] [$dataReader GetName 1] \ [$dataReader GetName 2] [$dataReader GetName 3] \ [$dataReader GetValue 0] [$dataReader GetValue 1] \ [$dataReader GetValue 2] [$dataReader GetValue 3] \ [$dataReader GetDataTypeName 0] [$dataReader GetDataTypeName 1] \ [$dataReader GetDataTypeName 2] [$dataReader GetDataTypeName 3] \ [$dataReader GetFieldType 0] [$dataReader GetFieldType 1] \ [$dataReader GetFieldType 2] [$dataReader GetFieldType 3] } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \ regexp -result {^x y w z test 12345 \{\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}\} te\ TEXT INTEGER \{\} \{\} System\.String System\.Int64 System\.String\ System\.String$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |