wasCSharpSQLite – Blame information for rev 7
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | # 2006 July 14 |
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. The |
||
12 | # focus of this script is extension loading. |
||
13 | # |
||
14 | # $Id: loadext.test,v 1.17 2009/03/20 09:09:37 danielk1977 Exp $ |
||
15 | |||
16 | set testdir [file dirname $argv0] |
||
17 | source $testdir/tester.tcl |
||
18 | |||
19 | ifcapable !load_ext { |
||
20 | finish_test |
||
21 | return |
||
22 | } |
||
23 | |||
24 | # The name of the test extension varies by operating system. |
||
25 | # |
||
26 | if {$::tcl_platform(platform) eq "windows" || $::tcl_platform(platform) eq "os2"} { |
||
27 | set testextension ./testloadext.dll |
||
28 | } else { |
||
29 | set testextension ./libtestloadext.so |
||
30 | } |
||
31 | set gcc_shared "-shared -fPIC" |
||
32 | if {$::tcl_platform(os) eq "Darwin"} { |
||
33 | set gcc_shared -dynamiclib |
||
34 | } |
||
35 | |||
36 | # The error messages tested by this file are operating system dependent |
||
37 | # (because they are returned by sqlite3OsDlError()). For now, they only |
||
38 | # work with UNIX (and probably only certain kinds of UNIX). |
||
39 | # |
||
40 | # When a shared-object cannot be opened because it does not exist, the |
||
41 | # format of the message returned is: |
||
42 | # |
||
43 | # [format $dlerror_nosuchfile <shared-object-name>] |
||
44 | # |
||
45 | # When a shared-object cannot be opened because it consists of the 4 |
||
46 | # characters "blah" only, we expect the error message to be: |
||
47 | # |
||
48 | # [format $dlerror_notadll <shared-object-name>] |
||
49 | # |
||
50 | # When a symbol cannot be found within an open shared-object, the error |
||
51 | # message should be: |
||
52 | # |
||
53 | # [format $dlerror_nosymbol <shared-object-name> <symbol-name>] |
||
54 | # |
||
55 | # The exact error messages are not important. The important bit is |
||
56 | # that SQLite is correctly copying the message from xDlError(). |
||
57 | # |
||
58 | set dlerror_nosuchfile \ |
||
59 | {%s: cannot open shared object file: No such file or directory} |
||
60 | set dlerror_notadll {%s: file too short} |
||
61 | set dlerror_nosymbol {%s: undefined symbol: %s} |
||
62 | |||
63 | if {$::tcl_platform(os) eq "Darwin"} { |
||
64 | set dlerror_nosuchfile {dlopen(%s, 10): image not found} |
||
65 | set dlerror_notadll {dlopen(%1$s, 10): no suitable image found.*} |
||
66 | set dlerror_nosymbol {dlsym(XXX, %2$s): symbol not found} |
||
67 | } |
||
68 | |||
69 | # Make sure the test extension actually exists. If it does not |
||
70 | # exist, try to create it. If unable to create it, then skip this |
||
71 | # test file. |
||
72 | # |
||
73 | if {![file exists $testextension]} { |
||
74 | set srcdir [file dir $testdir]/src |
||
75 | set testextsrc $srcdir/test_loadext.c |
||
76 | |||
77 | set cmdline [concat exec gcc $gcc_shared] |
||
78 | lappend cmdline -Wall -I$srcdir -I. -g $testextsrc -o $testextension |
||
79 | |||
80 | if {[catch $cmdline msg]} { |
||
81 | puts "Skipping loadext tests: Test extension not built..." |
||
82 | puts $msg |
||
83 | finish_test |
||
84 | return |
||
85 | } |
||
86 | } |
||
87 | |||
88 | # Test that loading the extension produces the expected results - adding |
||
89 | # the half() function to the specified database handle. |
||
90 | # |
||
91 | do_test loadext-1.1 { |
||
92 | catchsql { |
||
93 | SELECT half(1.0); |
||
94 | } |
||
95 | } {1 {no such function: half}} |
||
96 | do_test loadext-1.2 { |
||
97 | db enable_load_extension 1 |
||
98 | sqlite3_load_extension db $testextension testloadext_init |
||
99 | catchsql { |
||
100 | SELECT half(1.0); |
||
101 | } |
||
102 | } {0 0.5} |
||
103 | |||
104 | # Test that a second database connection (db2) can load the extension also. |
||
105 | # |
||
106 | do_test loadext-1.3 { |
||
107 | sqlite3 db2 test.db |
||
108 | sqlite3_enable_load_extension db2 1 |
||
109 | catchsql { |
||
110 | SELECT half(1.0); |
||
111 | } db2 |
||
112 | } {1 {no such function: half}} |
||
113 | do_test loadext-1.4 { |
||
114 | sqlite3_load_extension db2 $testextension testloadext_init |
||
115 | catchsql { |
||
116 | SELECT half(1.0); |
||
117 | } db2 |
||
118 | } {0 0.5} |
||
119 | |||
120 | # Close the first database connection. Then check that the second database |
||
121 | # can still use the half() function without a problem. |
||
122 | # |
||
123 | do_test loadext-1.5 { |
||
124 | db close |
||
125 | catchsql { |
||
126 | SELECT half(1.0); |
||
127 | } db2 |
||
128 | } {0 0.5} |
||
129 | |||
130 | db2 close |
||
131 | sqlite3 db test.db |
||
132 | sqlite3_enable_load_extension db 1 |
||
133 | |||
134 | # Try to load an extension for which the file does not exist. |
||
135 | # |
||
136 | do_test loadext-2.1 { |
||
137 | file delete -force ${testextension}xx |
||
138 | set rc [catch { |
||
139 | sqlite3_load_extension db "${testextension}xx" |
||
140 | } msg] |
||
141 | list $rc $msg |
||
142 | } [list 1 [format $dlerror_nosuchfile ${testextension}xx]] |
||
143 | |||
144 | # Try to load an extension for which the file is not a shared object |
||
145 | # |
||
146 | do_test loadext-2.2 { |
||
147 | set fd [open "${testextension}xx" w] |
||
148 | puts $fd blah |
||
149 | close $fd |
||
150 | set rc [catch { |
||
151 | sqlite3_load_extension db "${testextension}xx" |
||
152 | } msg] |
||
153 | set expected_error_pattern [format $dlerror_notadll ${testextension}xx] |
||
154 | list $rc [string match $expected_error_pattern $msg] |
||
155 | } [list 1 1] |
||
156 | |||
157 | # Try to load an extension for which the file is present but the |
||
158 | # entry point is not. |
||
159 | # |
||
160 | do_test loadext-2.3 { |
||
161 | set rc [catch { |
||
162 | sqlite3_load_extension db $testextension icecream |
||
163 | } msg] |
||
164 | if {$::tcl_platform(os) eq "Darwin"} { |
||
165 | regsub {0x[1234567890abcdefABCDEF]*} $msg XXX msg |
||
166 | } |
||
167 | list $rc $msg |
||
168 | } [list 1 [format $dlerror_nosymbol $testextension icecream]] |
||
169 | |||
170 | # Try to load an extension for which the entry point fails (returns non-zero) |
||
171 | # |
||
172 | do_test loadext-2.4 { |
||
173 | set rc [catch { |
||
174 | sqlite3_load_extension db $testextension testbrokenext_init |
||
175 | } msg] |
||
176 | list $rc $msg |
||
177 | } {1 {error during initialization: broken!}} |
||
178 | |||
179 | ############################################################################ |
||
180 | # Tests for the load_extension() SQL function |
||
181 | # |
||
182 | |||
183 | db close |
||
184 | sqlite3 db test.db |
||
185 | sqlite3_enable_load_extension db 1 |
||
186 | do_test loadext-3.1 { |
||
187 | catchsql { |
||
188 | SELECT half(5); |
||
189 | } |
||
190 | } {1 {no such function: half}} |
||
191 | do_test loadext-3.2 { |
||
192 | set res [catchsql { |
||
193 | SELECT load_extension($::testextension) |
||
194 | }] |
||
195 | if {$::tcl_platform(os) eq "Darwin"} { |
||
196 | regsub {0x[1234567890abcdefABCDEF]*} $res XXX res |
||
197 | } |
||
198 | set res |
||
199 | } [list 1 [format $dlerror_nosymbol $testextension sqlite3_extension_init]] |
||
200 | do_test loadext-3.3 { |
||
201 | catchsql { |
||
202 | SELECT load_extension($::testextension,'testloadext_init') |
||
203 | } |
||
204 | } {0 {{}}} |
||
205 | do_test loadext-3.4 { |
||
206 | catchsql { |
||
207 | SELECT half(5); |
||
208 | } |
||
209 | } {0 2.5} |
||
210 | do_test loadext-3.5 { |
||
211 | db eval { |
||
212 | SELECT sqlite3_status('MEMORY_USED') AS mused |
||
213 | } break |
||
214 | puts -nonewline " (memory_used=$mused) " |
||
215 | expr {$mused>0} |
||
216 | } {1} |
||
217 | do_test loadext-3.6 { |
||
218 | catchsql { |
||
219 | SELECT sqlite3_status('MEMORY_USED_X') AS mused |
||
220 | } |
||
221 | } {1 {unknown status property: MEMORY_USED_X}} |
||
222 | do_test loadext-3.7 { |
||
223 | catchsql { |
||
224 | SELECT sqlite3_status(4.53) AS mused |
||
225 | } |
||
226 | } {1 {unknown status type}} |
||
227 | do_test loadext-3.8 { |
||
228 | catchsql { |
||
229 | SELECT sqlite3_status(23) AS mused |
||
230 | } |
||
231 | } {1 {sqlite3_status(23,...) returns 21}} |
||
232 | |||
233 | # Ticket #1863 |
||
234 | # Make sure the extension loading mechanism will not work unless it |
||
235 | # is explicitly enabled. |
||
236 | # |
||
237 | db close |
||
238 | sqlite3 db test.db |
||
239 | do_test loadext-4.1 { |
||
240 | catchsql { |
||
241 | SELECT load_extension($::testextension,'testloadext_init') |
||
242 | } |
||
243 | } {1 {not authorized}} |
||
244 | do_test loadext-4.2 { |
||
245 | sqlite3_enable_load_extension db 1 |
||
246 | catchsql { |
||
247 | SELECT load_extension($::testextension,'testloadext_init') |
||
248 | } |
||
249 | } {0 {{}}} |
||
250 | |||
251 | do_test loadext-4.3 { |
||
252 | sqlite3_enable_load_extension db 0 |
||
253 | catchsql { |
||
254 | SELECT load_extension($::testextension,'testloadext_init') |
||
255 | } |
||
256 | } {1 {not authorized}} |
||
257 | |||
258 | source $testdir/malloc_common.tcl |
||
259 | |||
260 | |||
261 | # Malloc failure in sqlite3_auto_extension and sqlite3_load_extension |
||
262 | # |
||
263 | do_malloc_test loadext-5 -tclprep { |
||
264 | sqlite3_reset_auto_extension |
||
265 | } -tclbody { |
||
266 | if {[autoinstall_test_functions]==7} {error "out of memory"} |
||
267 | } |
||
268 | do_malloc_test loadext-6 -tclbody { |
||
269 | db enable_load_extension 1 |
||
270 | sqlite3_load_extension db $::testextension testloadext_init |
||
271 | } |
||
272 | autoinstall_test_functions |
||
273 | |||
274 | finish_test |