aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/libraries/sqlite/unix/sqlite-3.5.1/test/misuse.test
diff options
context:
space:
mode:
authordan miller2007-10-21 08:36:32 +0000
committerdan miller2007-10-21 08:36:32 +0000
commit2f8d7092bc2c9609fa98d6888106b96f38b22828 (patch)
treeda6c37579258cc965b52a75aee6135fe44237698 /libraries/sqlite/unix/sqlite-3.5.1/test/misuse.test
parent* Committing new PolicyManager based on an ACL system. (diff)
downloadopensim-SC-2f8d7092bc2c9609fa98d6888106b96f38b22828.zip
opensim-SC-2f8d7092bc2c9609fa98d6888106b96f38b22828.tar.gz
opensim-SC-2f8d7092bc2c9609fa98d6888106b96f38b22828.tar.bz2
opensim-SC-2f8d7092bc2c9609fa98d6888106b96f38b22828.tar.xz
libraries moved to opensim-libs, a new repository
Diffstat (limited to 'libraries/sqlite/unix/sqlite-3.5.1/test/misuse.test')
-rw-r--r--libraries/sqlite/unix/sqlite-3.5.1/test/misuse.test207
1 files changed, 0 insertions, 207 deletions
diff --git a/libraries/sqlite/unix/sqlite-3.5.1/test/misuse.test b/libraries/sqlite/unix/sqlite-3.5.1/test/misuse.test
deleted file mode 100644
index 3734aa0..0000000
--- a/libraries/sqlite/unix/sqlite-3.5.1/test/misuse.test
+++ /dev/null
@@ -1,207 +0,0 @@
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
18set testdir [file dirname $argv0]
19source $testdir/tester.tcl
20
21proc 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#
40do_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}}
53do_test misuse-1.2 {
54 catchsql2 {
55 SELECT x_coalesce(NULL,a) AS 'xyz' FROM t1
56 }
57} {1 {no such function: x_coalesce}}
58do_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#
72ifcapable {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}
79do_test misuse-1.5 {
80 catchsql2 {SELECT * FROM t1}
81} {0 {a b 1 2}}
82do_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#
90do_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}
97do_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.
103do_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 {}}
111do_test misuse-2.4 {
112 catchsql2 {SELECT * FROM t1}
113} {0 {a b 1 2}}
114do_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#
122do_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}
129do_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.
135do_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 {}}
143do_test misuse-3.4 {
144 catchsql2 {SELECT * FROM t1}
145} {0 {a b 1 2}}
146do_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.
156do_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}
163do_test misuse-4.2 {
164 catchsql2 {SELECT * FROM t1}
165} {0 {a b 1 2}}
166do_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}
174do_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}}
181do_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#
189do_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}
196do_test misuse-5.2 {
197 catchsql2 {SELECT * FROM t1}
198} {0 {a b 1 2}}
199do_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
207finish_test