Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add another test. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | tkt-f8dbab8baf |
| Files: | files | file ages | folders |
| SHA1: |
8106912e85c80e86293570d6888ea951 |
| User & Date: | mistachkin 2013-09-13 17:00:07 |
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
78
79
80
81
82
83
84
85
86
87
..
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
unset -nocomplain db fileName
} -constraints \
{eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \
{True}}
###############################################################################
runTest {test tkt-f8dbab8baf-1.4 {SchemaOnly CREATE/SELECT success} -setup {
setupDb [set fileName tkt-f8dbab8baf-1.4.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) : ""}]
................................................................................
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.5 {SchemaOnly CREATE/SELECT failure} -setup {
setupDb [set fileName tkt-f8dbab8baf-1.5.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) : ""}]
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
|
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
...
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) : ""}]
................................................................................
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) : ""}]
|