Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Add another test. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | tkt-f8dbab8baf |
Files: | files | file ages | folders |
SHA1: |
8106912e85c80e86293570d6888ea951 |
User & Date: | mistachkin 2013-09-13 17:00:07.261 |
Context
2013-09-14
| ||
00:31 | Make sure the database cannot be changed by a query when the CommandBehavior.SchemaOnly flag is used. Fix for [f8dbab8baf]. check-in: 0474af7d87 user: mistachkin tags: trunk | |
2013-09-13
| ||
17:00 | Add another test. Closed-Leaf check-in: 8106912e85 user: mistachkin tags: tkt-f8dbab8baf | |
01:40 | Merge updates from trunk. check-in: 15ffbd9d69 user: mistachkin tags: tkt-f8dbab8baf | |
Changes
Changes to Tests/tkt-f8dbab8baf.eagle.
︙ | ︙ | |||
71 72 73 74 75 76 77 | unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {True}} ############################################################################### | | > > > > > > > > > > > > > > > > > > > > > > | | | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 | unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {True}} ############################################################################### runTest {test tkt-f8dbab8baf-1.4 {CREATE/SELECT success} -setup { setupDb [set fileName tkt-f8dbab8baf-1.4.db] } -body { sql execute -execute reader $db { CREATE TABLE t1(x); INSERT INTO t1 (x) VALUEs(1); SELECT x FROM t1; } list [isTableInDb t1] \ [expr {[info exists rows(count)] ? $rows(count) : -1}] \ [expr {[info exists rows(names)] ? $rows(names) : ""}] } -cleanup { cleanupDb $fileName unset -nocomplain rows db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {True 1 x}} ############################################################################### runTest {test tkt-f8dbab8baf-1.5 {SchemaOnly CREATE/SELECT success} -setup { setupDb [set fileName tkt-f8dbab8baf-1.5.db] } -body { sql execute $db "CREATE TABLE t1(x);" sql execute $db "INSERT INTO t1 (x) VALUEs(1);" sql execute -execute reader -behavior SchemaOnly $db "SELECT x FROM t1;" list [isTableInDb t1] \ [expr {[info exists rows(count)] ? $rows(count) : -1}] \ [expr {[info exists rows(names)] ? $rows(names) : ""}] } -cleanup { cleanupDb $fileName unset -nocomplain rows db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {True 0 x}} ############################################################################### runTest {test tkt-f8dbab8baf-1.6 {SchemaOnly CREATE/SELECT failure} -setup { setupDb [set fileName tkt-f8dbab8baf-1.6.db] } -body { sql execute -execute reader -format none -behavior SchemaOnly $db \ "CREATE TABLE t1(x); SELECT x FROM t1;" list [isTableInDb t1] \ [expr {[info exists rows(count)] ? $rows(count) : -1}] \ [expr {[info exists rows(names)] ? $rows(names) : ""}] |
︙ | ︙ |