wasCSharpSQLite – Blame information for rev 7
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | # 2002 May 10 |
2 | # |
||
3 | # The author disclaims copyright to this source code. In place of |
||
4 | # a legal notice, here is a blessing: |
||
5 | # |
||
6 | # May you do good and not evil. |
||
7 | # May you find forgiveness for yourself and forgive others. |
||
8 | # May you share freely, never taking more than you give. |
||
9 | # |
||
10 | #*********************************************************************** |
||
11 | # This file implements regression tests for SQLite library. |
||
12 | # |
||
13 | # This file implements tests for the SQLITE_MISUSE detection logic. |
||
14 | # This test file leaks memory and file descriptors. |
||
15 | # |
||
16 | # $Id: misuse.test,v 1.11 2006/01/03 00:33:50 drh Exp $ |
||
17 | |||
18 | set testdir [file dirname $argv0] |
||
19 | source $testdir/tester.tcl |
||
20 | |||
21 | proc catchsql2 {sql} { |
||
22 | set r [ |
||
23 | catch { |
||
24 | set res [list] |
||
25 | db eval $sql data { |
||
26 | if { $res==[list] } { |
||
27 | foreach f $data(*) {lappend res $f} |
||
28 | } |
||
29 | foreach f $data(*) {lappend res $data($f)} |
||
30 | } |
||
31 | set res |
||
32 | } msg |
||
33 | ] |
||
34 | lappend r $msg |
||
35 | } |
||
36 | |||
37 | |||
38 | # Make sure the test logic works |
||
39 | # |
||
40 | do_test misuse-1.1 { |
||
41 | db close |
||
42 | catch {file delete -force test2.db} |
||
43 | catch {file delete -force test2.db-journal} |
||
44 | sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db] |
||
45 | execsql { |
||
46 | CREATE TABLE t1(a,b); |
||
47 | INSERT INTO t1 VALUES(1,2); |
||
48 | } |
||
49 | catchsql2 { |
||
50 | SELECT * FROM t1 |
||
51 | } |
||
52 | } {0 {a b 1 2}} |
||
53 | do_test misuse-1.2 { |
||
54 | catchsql2 { |
||
55 | SELECT x_coalesce(NULL,a) AS 'xyz' FROM t1 |
||
56 | } |
||
57 | } {1 {no such function: x_coalesce}} |
||
58 | do_test misuse-1.3 { |
||
59 | sqlite3_create_function $::DB |
||
60 | catchsql2 { |
||
61 | SELECT x_coalesce(NULL,a) AS 'xyz' FROM t1 |
||
62 | } |
||
63 | } {0 {xyz 1}} |
||
64 | |||
65 | # Use the x_sqlite_exec() SQL function to simulate the effect of two |
||
66 | # threads trying to use the same database at the same time. |
||
67 | # |
||
68 | # It used to be prohibited to invoke sqlite_exec() from within a function, |
||
69 | # but that has changed. The following tests used to cause errors but now |
||
70 | # they do not. |
||
71 | # |
||
72 | ifcapable {utf16} { |
||
73 | do_test misuse-1.4 { |
||
74 | catchsql2 { |
||
75 | SELECT x_sqlite_exec('SELECT * FROM t1') AS xyz; |
||
76 | } |
||
77 | } {0 {xyz {1 2}}} |
||
78 | } |
||
79 | do_test misuse-1.5 { |
||
80 | catchsql2 {SELECT * FROM t1} |
||
81 | } {0 {a b 1 2}} |
||
82 | do_test misuse-1.6 { |
||
83 | catchsql { |
||
84 | SELECT * FROM t1 |
||
85 | } |
||
86 | } {0 {1 2}} |
||
87 | |||
88 | # Attempt to register a new SQL function while an sqlite_exec() is active. |
||
89 | # |
||
90 | do_test misuse-2.1 { |
||
91 | db close |
||
92 | sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db] |
||
93 | execsql { |
||
94 | SELECT * FROM t1 |
||
95 | } |
||
96 | } {1 2} |
||
97 | do_test misuse-2.2 { |
||
98 | catchsql2 {SELECT * FROM t1} |
||
99 | } {0 {a b 1 2}} |
||
100 | |||
101 | # We used to disallow creating new function from within an exec(). |
||
102 | # But now this is acceptable. |
||
103 | do_test misuse-2.3 { |
||
104 | set v [catch { |
||
105 | db eval {SELECT * FROM t1} {} { |
||
106 | sqlite3_create_function $::DB |
||
107 | } |
||
108 | } msg] |
||
109 | lappend v $msg |
||
110 | } {0 {}} |
||
111 | do_test misuse-2.4 { |
||
112 | catchsql2 {SELECT * FROM t1} |
||
113 | } {0 {a b 1 2}} |
||
114 | do_test misuse-2.5 { |
||
115 | catchsql { |
||
116 | SELECT * FROM t1 |
||
117 | } |
||
118 | } {0 {1 2}} |
||
119 | |||
120 | # Attempt to register a new SQL aggregate while an sqlite_exec() is active. |
||
121 | # |
||
122 | do_test misuse-3.1 { |
||
123 | db close |
||
124 | sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db] |
||
125 | execsql { |
||
126 | SELECT * FROM t1 |
||
127 | } |
||
128 | } {1 2} |
||
129 | do_test misuse-3.2 { |
||
130 | catchsql2 {SELECT * FROM t1} |
||
131 | } {0 {a b 1 2}} |
||
132 | |||
133 | # We used to disallow creating new function from within an exec(). |
||
134 | # But now this is acceptable. |
||
135 | do_test misuse-3.3 { |
||
136 | set v [catch { |
||
137 | db eval {SELECT * FROM t1} {} { |
||
138 | sqlite3_create_aggregate $::DB |
||
139 | } |
||
140 | } msg] |
||
141 | lappend v $msg |
||
142 | } {0 {}} |
||
143 | do_test misuse-3.4 { |
||
144 | catchsql2 {SELECT * FROM t1} |
||
145 | } {0 {a b 1 2}} |
||
146 | do_test misuse-3.5 { |
||
147 | catchsql { |
||
148 | SELECT * FROM t1 |
||
149 | } |
||
150 | } {0 {1 2}} |
||
151 | |||
152 | # Attempt to close the database from an sqlite_exec callback. |
||
153 | # |
||
154 | # Update for v3: The db cannot be closed because there are active |
||
155 | # VMs. The sqlite3_close call would return SQLITE_BUSY. |
||
156 | do_test misuse-4.1 { |
||
157 | db close |
||
158 | sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db] |
||
159 | execsql { |
||
160 | SELECT * FROM t1 |
||
161 | } |
||
162 | } {1 2} |
||
163 | do_test misuse-4.2 { |
||
164 | catchsql2 {SELECT * FROM t1} |
||
165 | } {0 {a b 1 2}} |
||
166 | do_test misuse-4.3 { |
||
167 | set v [catch { |
||
168 | db eval {SELECT * FROM t1} {} { |
||
169 | set r [sqlite3_close $::DB] |
||
170 | } |
||
171 | } msg] |
||
172 | lappend v $msg $r |
||
173 | } {0 {} SQLITE_BUSY} |
||
174 | do_test misuse-4.4 { |
||
175 | # Flush the TCL statement cache here, otherwise the sqlite3_close() will |
||
176 | # fail because there are still un-finalized() VDBEs. |
||
177 | db cache flush |
||
178 | sqlite3_close $::DB |
||
179 | catchsql2 {SELECT * FROM t1} |
||
180 | } {1 {library routine called out of sequence}} |
||
181 | do_test misuse-4.5 { |
||
182 | catchsql { |
||
183 | SELECT * FROM t1 |
||
184 | } |
||
185 | } {1 {library routine called out of sequence}} |
||
186 | |||
187 | # Attempt to use a database after it has been closed. |
||
188 | # |
||
189 | do_test misuse-5.1 { |
||
190 | db close |
||
191 | sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db] |
||
192 | execsql { |
||
193 | SELECT * FROM t1 |
||
194 | } |
||
195 | } {1 2} |
||
196 | do_test misuse-5.2 { |
||
197 | catchsql2 {SELECT * FROM t1} |
||
198 | } {0 {a b 1 2}} |
||
199 | do_test misuse-5.3 { |
||
200 | db close |
||
201 | set r [catch { |
||
202 | sqlite3_prepare $::DB {SELECT * FROM t1} -1 TAIL |
||
203 | } msg] |
||
204 | lappend r $msg |
||
205 | } {1 {(21) library routine called out of sequence}} |
||
206 | |||
207 | finish_test |