3 # The author disclaims copyright to this source code. In place of
4 # a legal notice, here is a blessing:
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.
10 #***********************************************************************
13 set testdir [file dirname $argv0]
14 source $testdir/tester.tcl
18 # 1.*: That file names are correctly extracted from URIs.
19 # 2.*: That URI options (query parameters) are correctly extracted from URIs.
20 # 3.*: That specifying an unknown VFS causes an error.
21 # 4.*: Tests for specifying other options (other than "vfs").
22 # 5.*: Test using a different VFS with an attached database.
23 # 6.*: Test that authorities other than "" and localhost cause errors.
24 # 7.*: Test that a read-write db can be attached to a read-only connection.
32 #-------------------------------------------------------------------------
33 # Test that file names are correctly extracted from URIs.
35 foreach {tn uri file} {
37 2 file:test.db test.db
38 3 file://PWD/test.db test.db
39 4 file:PWD/test.db test.db
40 5 file:test.db?mork=1 test.db
41 6 file:test.db?mork=1&tonglor=2 test.db
42 7 file:test.db?mork=1#boris test.db
43 8 file:test.db#boris test.db
44 9 test.db#boris test.db#boris
45 10 file:test%2Edb test.db
47 12 http:test.db http:test.db
48 13 file:test.db%00extra test.db
49 14 file:testdb%00.db%00extra testdb
51 15 test.db?mork=1#boris test.db?mork=1#boris
52 16 file://localhostPWD/test.db%3Fhello test.db?hello
56 ifcapable !curdir { if {$tn==3} break }
58 if {$tcl_platform(platform)=="windows"} {
60 # NOTE: Due to limits on legal characters for file names imposed by
61 # Windows, we must skip the final two tests here (i.e. the
62 # question mark is illegal in a file name on Windows).
67 # NOTE: When running on Tcl 8.6 (or higher?) on Windows, a colon within
68 # the file name no longer tries to access an alternate data stream
69 # (ADS) named "test.db" for the "http" file, causing some spurious
70 # failures of this test.
72 if {$tn==12 && $::tcl_version>=8.6} continue
75 # NOTE: On Windows, we need to account for the fact that the current
76 # directory does not start with a forward slash.
78 set uri [string map [list PWD/ /[test_pwd /]] $uri]
80 set uri [string map [list PWD/ [test_pwd /]] $uri]
83 if {[file isdir $file]} {error "$file is a directory"}
85 do_test 1.$tn.1 { file exists $file } 0
86 set DB [sqlite3_open $uri]
87 do_test 1.$tn.2 { file exists $file } 1
91 do_test 1.$tn.3 { file exists $file } 0
93 catchsql { ATTACH $uri AS aux }
94 do_test 1.$tn.4 { file exists $file } 1
98 #-------------------------------------------------------------------------
99 # Test that URI query parameters are passed through to the VFS layer
103 testvfs tvfs -default 1
105 tvfs script open_method
106 proc open_method {method file arglist} {
107 set ::arglist $arglist
109 foreach {tn uri kvlist} {
110 1 file:test.db?hello=world {hello world}
111 2 file:test.db?hello&world {hello {} world {}}
112 3 file:test.db?hello=1&world=2&vfs=tvfs {hello 1 world 2 vfs tvfs}
113 4 file:test.db?hello=1&world=2&vfs=tvfs2 {}
114 5 file:test.db?%68%65%6C%6C%6F=%77%6F%72%6C%64 {hello world}
115 6 file:testdb%00.db?hello%00extra=world%00ex {hello world}
116 7 file:testdb%00.db?hello%00=world%00 {hello world}
117 8 file:testdb%00.db?=world&xyz=abc {xyz abc}
118 9 file:test.db?%00hello=world&xyz=abc {xyz abc}
119 10 file:test.db?hello=%00world&xyz= {hello {} xyz {}}
120 11 file:test.db?=#ravada {}
121 12 file:test.db?&&&&&&&&hello=world&&&&&&& {hello world}
123 13 test.db?&&&&&&&&hello=world&&&&&&& {}
124 14 http:test.db?hello&world {}
127 if {$tcl_platform(platform) == "windows" && $tn>12} {
132 set DB [sqlite3_open $uri]
133 do_test 2.$tn.1 { set ::arglist } $kvlist
138 execsql { ATTACH $uri AS aux }
139 do_test 2.$tn.2 { set ::arglist } $kvlist
145 #-------------------------------------------------------------------------
146 # Test that specifying a non-existent VFS raises an error.
149 list [catch { sqlite3 db "file:test.db?vfs=nosuchvfs" } msg] $msg
150 } {1 {no such vfs: nosuchvfs}}
152 #-------------------------------------------------------------------------
153 # Test some of the other options (other than "vfs").
155 foreach {tn mode create_ok write_ok readonly_ok} {
164 set A(0) {1 {unable to open database file}}
166 list [catch {sqlite3 db "file:test.db?mode=$mode"} msg] $msg
172 db eval { CREATE TABLE t1(a, b) }
176 set A(0) {1 {attempt to write a readonly database}}
178 sqlite3 db "file:test.db?mode=$mode"
179 catchsql { INSERT INTO t1 VALUES(1, 2) }
183 set A(0) [list 1 "access mode not allowed: $mode"]
185 list [catch {sqlite3 db "file:test.db?mode=$mode" -readonly 1} msg] $msg
189 set orig [sqlite3_enable_shared_cache]
190 foreach {tn options sc_default is_shared} {
192 2 "cache=private" 1 0
195 5 "cache=private" 0 0
201 sqlite3_enable_shared_cache 1
203 db2 eval {CREATE TABLE t1(a, b)}
205 sqlite3_enable_shared_cache $sc_default
206 sqlite3 db "file:test.db?$options"
207 db eval {SELECT * FROM t1}
209 set A(1) {1 {database table is locked: t1}}
212 db2 eval {BEGIN; INSERT INTO t1 VALUES(1, 2);}
213 catchsql { SELECT * FROM t1 }
220 list [catch {sqlite3 db "file:test.db?mode=rc"} msg] $msg
221 } {1 {no such access mode: rc}}
223 list [catch {sqlite3 db "file:test.db?cache=public"} msg] $msg
224 } {1 {no such cache mode: public}}
226 #-------------------------------------------------------------------------
227 # Test that things work if an ATTACHed database uses a different VFS than
228 # the main database. The important point is that for all operations
229 # involving the ATTACHed database, the correct versions of the following
230 # VFS are used for all operations involving the attached database.
238 # This block of code creates two VFS - "tvfs1" and "tvfs2". Each time one
239 # of the above methods is called using "tvfs1", global variable ::T1(X) is
240 # set, where X is the file-name the method is called on. Calls to the above
241 # methods using "tvfs2" set entries in the global T2 array.
245 tvfs1 filter {xOpen xDelete xAccess xFullPathname}
246 tvfs1 script tvfs1_callback
247 proc tvfs1_callback {method filename args} {
248 set ::T1([file tail $filename]) 1
252 tvfs2 filter {xOpen xDelete xAccess xFullPathname}
253 tvfs2 script tvfs2_callback
254 proc tvfs2_callback {method filename args} {
255 set ::T2([file tail $filename]) 1
260 eval forcedelete [glob test.db*]
262 sqlite3 db file:test.db1?vfs=tvfs1
264 ATTACH 'file:test.db2?vfs=tvfs2' AS aux;
265 PRAGMA main.journal_mode = PERSIST;
266 PRAGMA aux.journal_mode = PERSIST;
267 CREATE TABLE t1(a, b);
268 CREATE TABLE aux.t2(a, b);
269 PRAGMA main.journal_mode = WAL;
270 PRAGMA aux.journal_mode = WAL;
271 INSERT INTO t1 VALUES('x', 'y');
272 INSERT INTO t2 VALUES('x', 'y');
274 lsort [array names ::T1]
275 } {test.db1 test.db1-journal test.db1-wal}
278 lsort [array names ::T2]
279 } {test.db2 test.db2-journal test.db2-wal}
286 #-------------------------------------------------------------------------
287 # Check that only "" and "localhost" are acceptable as authorities.
290 foreach {tn uri res} {
291 1 "file://localhost/PWD/test.db" {not an error}
292 2 "file:///PWD/test.db" {not an error}
293 3 "file:/PWD/test.db" {not an error}
294 4 "file://l%6Fcalhost/PWD/test.db" {invalid uri authority: l%6Fcalhost}
295 5 "file://lbcalhost/PWD/test.db" {invalid uri authority: lbcalhost}
296 6 "file://x/PWD/test.db" {invalid uri authority: x}
299 if {$tcl_platform(platform)=="windows"} {
300 set uri [string map [list PWD [string range [get_pwd] 3 end]] $uri]
302 set uri [string map [list PWD [string range [get_pwd] 1 end]] $uri]
306 set DB [sqlite3_open $uri]
309 catch { sqlite3_close $DB }
312 forcedelete test.db test.db2
316 CREATE TABLE t1(a, b);
317 INSERT INTO t1 VALUES(1, 2);
318 ATTACH 'test.db2' AS aux;
319 CREATE TABLE aux.t2(a, b);
320 INSERT INTO t1 VALUES('a', 'b');
325 sqlite3 db file:test.db?mode=ro
326 execsql { ATTACH 'file:test.db2?mode=rw' AS aux }
328 do_execsql_test 7.3 {
329 INSERT INTO t2 VALUES('c', 'd')
331 do_catchsql_test 7.4 {
332 INSERT INTO t1 VALUES(3, 4)
333 } {1 {attempt to write a readonly database}}