| OLD | NEW |
|---|
| (Empty) |
| 1 # 2011 April 22 | |
| 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 # | |
| 12 | |
| 13 set testdir [file dirname $argv0] | |
| 14 source $testdir/tester.tcl | |
| 15 | |
| 16 # Test organization: | |
| 17 # | |
| 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. | |
| 25 # | |
| 26 | |
| 27 set testprefix uri | |
| 28 db close | |
| 29 sqlite3_shutdown | |
| 30 sqlite3_config_uri 1 | |
| 31 | |
| 32 #------------------------------------------------------------------------- | |
| 33 # Test that file names are correctly extracted from URIs. | |
| 34 # | |
| 35 foreach {tn uri file} { | |
| 36 1 test.db test.db | |
| 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 | |
| 46 11 file file | |
| 47 12 http:test.db http:test.db | |
| 48 13 file:test.db%00extra test.db | |
| 49 14 file:testdb%00.db%00extra testdb | |
| 50 | |
| 51 15 test.db?mork=1#boris test.db?mork=1#boris | |
| 52 16 file://localhostPWD/test.db%3Fhello test.db?hello | |
| 53 } { | |
| 54 | |
| 55 | |
| 56 ifcapable !curdir { if {$tn==3} break } | |
| 57 | |
| 58 if {$tcl_platform(platform)=="windows"} { | |
| 59 # | |
| 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). | |
| 63 # | |
| 64 if {$tn>14} break | |
| 65 | |
| 66 # | |
| 67 # NOTE: On Windows, we need to account for the fact that the current | |
| 68 # directory does not start with a forward slash. | |
| 69 # | |
| 70 set uri [string map [list PWD/ /[test_pwd /]] $uri] | |
| 71 } else { | |
| 72 set uri [string map [list PWD/ [test_pwd /]] $uri] | |
| 73 } | |
| 74 | |
| 75 if {[file isdir $file]} {error "$file is a directory"} | |
| 76 forcedelete $file | |
| 77 do_test 1.$tn.1 { file exists $file } 0 | |
| 78 set DB [sqlite3_open $uri] | |
| 79 do_test 1.$tn.2 { file exists $file } 1 | |
| 80 sqlite3_close $DB | |
| 81 forcedelete $file | |
| 82 | |
| 83 do_test 1.$tn.3 { file exists $file } 0 | |
| 84 sqlite3 db xxx.db | |
| 85 catchsql { ATTACH $uri AS aux } | |
| 86 do_test 1.$tn.4 { file exists $file } 1 | |
| 87 db close | |
| 88 } | |
| 89 | |
| 90 #------------------------------------------------------------------------- | |
| 91 # Test that URI query parameters are passed through to the VFS layer | |
| 92 # correctly. | |
| 93 # | |
| 94 testvfs tvfs2 | |
| 95 testvfs tvfs -default 1 | |
| 96 tvfs filter xOpen | |
| 97 tvfs script open_method | |
| 98 proc open_method {method file arglist} { | |
| 99 set ::arglist $arglist | |
| 100 } | |
| 101 foreach {tn uri kvlist} { | |
| 102 1 file:test.db?hello=world {hello world} | |
| 103 2 file:test.db?hello&world {hello {} world {}} | |
| 104 3 file:test.db?hello=1&world=2&vfs=tvfs {hello 1 world 2 vfs tvfs} | |
| 105 4 file:test.db?hello=1&world=2&vfs=tvfs2 {} | |
| 106 5 file:test.db?%68%65%6C%6C%6F=%77%6F%72%6C%64 {hello world} | |
| 107 6 file:testdb%00.db?hello%00extra=world%00ex {hello world} | |
| 108 7 file:testdb%00.db?hello%00=world%00 {hello world} | |
| 109 8 file:testdb%00.db?=world&xyz=abc {xyz abc} | |
| 110 9 file:test.db?%00hello=world&xyz=abc {xyz abc} | |
| 111 10 file:test.db?hello=%00world&xyz= {hello {} xyz {}} | |
| 112 11 file:test.db?=#ravada {} | |
| 113 12 file:test.db?&&&&&&&&hello=world&&&&&&& {hello world} | |
| 114 | |
| 115 13 test.db?&&&&&&&&hello=world&&&&&&& {} | |
| 116 14 http:test.db?hello&world {} | |
| 117 } { | |
| 118 | |
| 119 if {$tcl_platform(platform) == "windows" && $tn>12} { | |
| 120 continue | |
| 121 } | |
| 122 | |
| 123 set ::arglist "" | |
| 124 set DB [sqlite3_open $uri] | |
| 125 do_test 2.$tn.1 { set ::arglist } $kvlist | |
| 126 sqlite3_close $DB | |
| 127 | |
| 128 sqlite3 db xxx.db | |
| 129 set ::arglist "" | |
| 130 execsql { ATTACH $uri AS aux } | |
| 131 do_test 2.$tn.2 { set ::arglist } $kvlist | |
| 132 db close | |
| 133 } | |
| 134 tvfs delete | |
| 135 tvfs2 delete | |
| 136 | |
| 137 #------------------------------------------------------------------------- | |
| 138 # Test that specifying a non-existent VFS raises an error. | |
| 139 # | |
| 140 do_test 3.1 { | |
| 141 list [catch { sqlite3 db "file:test.db?vfs=nosuchvfs" } msg] $msg | |
| 142 } {1 {no such vfs: nosuchvfs}} | |
| 143 | |
| 144 #------------------------------------------------------------------------- | |
| 145 # Test some of the other options (other than "vfs"). | |
| 146 # | |
| 147 foreach {tn mode create_ok write_ok readonly_ok} { | |
| 148 1 ro 0 0 1 | |
| 149 2 rw 0 1 0 | |
| 150 3 rwc 1 1 0 | |
| 151 } { | |
| 152 catch { db close } | |
| 153 forcedelete test.db | |
| 154 | |
| 155 set A(1) {0 {}} | |
| 156 set A(0) {1 {unable to open database file}} | |
| 157 do_test 4.1.$tn.1 { | |
| 158 list [catch {sqlite3 db "file:test.db?mode=$mode"} msg] $msg | |
| 159 } $A($create_ok) | |
| 160 | |
| 161 catch { db close } | |
| 162 forcedelete test.db | |
| 163 sqlite3 db test.db | |
| 164 db eval { CREATE TABLE t1(a, b) } | |
| 165 db close | |
| 166 | |
| 167 set A(1) {0 {}} | |
| 168 set A(0) {1 {attempt to write a readonly database}} | |
| 169 do_test 4.1.$tn.2 { | |
| 170 sqlite3 db "file:test.db?mode=$mode" | |
| 171 catchsql { INSERT INTO t1 VALUES(1, 2) } | |
| 172 } $A($write_ok) | |
| 173 | |
| 174 set A(1) {0 {}} | |
| 175 set A(0) [list 1 "access mode not allowed: $mode"] | |
| 176 do_test 4.1.$tn.3 { | |
| 177 list [catch {sqlite3 db "file:test.db?mode=$mode" -readonly 1} msg] $msg | |
| 178 } $A($readonly_ok) | |
| 179 } | |
| 180 | |
| 181 set orig [sqlite3_enable_shared_cache] | |
| 182 foreach {tn options sc_default is_shared} { | |
| 183 1 "" 1 1 | |
| 184 2 "cache=private" 1 0 | |
| 185 3 "cache=shared" 1 1 | |
| 186 4 "" 0 0 | |
| 187 5 "cache=private" 0 0 | |
| 188 6 "cache=shared" 0 1 | |
| 189 } { | |
| 190 catch { db close } | |
| 191 forcedelete test.db | |
| 192 | |
| 193 sqlite3_enable_shared_cache 1 | |
| 194 sqlite3 db2 test.db | |
| 195 db2 eval {CREATE TABLE t1(a, b)} | |
| 196 | |
| 197 sqlite3_enable_shared_cache $sc_default | |
| 198 sqlite3 db "file:test.db?$options" | |
| 199 db eval {SELECT * FROM t1} | |
| 200 | |
| 201 set A(1) {1 {database table is locked: t1}} | |
| 202 set A(0) {0 {}} | |
| 203 do_test 4.2.$tn { | |
| 204 db2 eval {BEGIN; INSERT INTO t1 VALUES(1, 2);} | |
| 205 catchsql { SELECT * FROM t1 } | |
| 206 } $A($is_shared) | |
| 207 | |
| 208 db2 close | |
| 209 } | |
| 210 | |
| 211 do_test 4.3.1 { | |
| 212 list [catch {sqlite3 db "file:test.db?mode=rc"} msg] $msg | |
| 213 } {1 {no such access mode: rc}} | |
| 214 do_test 4.3.2 { | |
| 215 list [catch {sqlite3 db "file:test.db?cache=public"} msg] $msg | |
| 216 } {1 {no such cache mode: public}} | |
| 217 | |
| 218 #------------------------------------------------------------------------- | |
| 219 # Test that things work if an ATTACHed database uses a different VFS than | |
| 220 # the main database. The important point is that for all operations | |
| 221 # involving the ATTACHed database, the correct versions of the following | |
| 222 # VFS are used for all operations involving the attached database. | |
| 223 # | |
| 224 # xOpen | |
| 225 # xDelete | |
| 226 # xAccess | |
| 227 # xFullPathname | |
| 228 # | |
| 229 | |
| 230 # This block of code creates two VFS - "tvfs1" and "tvfs2". Each time one | |
| 231 # of the above methods is called using "tvfs1", global variable ::T1(X) is | |
| 232 # set, where X is the file-name the method is called on. Calls to the above | |
| 233 # methods using "tvfs2" set entries in the global T2 array. | |
| 234 # | |
| 235 ifcapable wal { | |
| 236 testvfs tvfs1 | |
| 237 tvfs1 filter {xOpen xDelete xAccess xFullPathname} | |
| 238 tvfs1 script tvfs1_callback | |
| 239 proc tvfs1_callback {method filename args} { | |
| 240 set ::T1([file tail $filename]) 1 | |
| 241 return SQLITE_OK | |
| 242 } | |
| 243 testvfs tvfs2 | |
| 244 tvfs2 filter {xOpen xDelete xAccess xFullPathname} | |
| 245 tvfs2 script tvfs2_callback | |
| 246 proc tvfs2_callback {method filename args} { | |
| 247 set ::T2([file tail $filename]) 1 | |
| 248 return SQLITE_OK | |
| 249 } | |
| 250 | |
| 251 catch {db close} | |
| 252 eval forcedelete [glob test.db*] | |
| 253 do_test 5.1.1 { | |
| 254 sqlite3 db file:test.db1?vfs=tvfs1 | |
| 255 execsql { | |
| 256 ATTACH 'file:test.db2?vfs=tvfs2' AS aux; | |
| 257 PRAGMA main.journal_mode = PERSIST; | |
| 258 PRAGMA aux.journal_mode = PERSIST; | |
| 259 CREATE TABLE t1(a, b); | |
| 260 CREATE TABLE aux.t2(a, b); | |
| 261 PRAGMA main.journal_mode = WAL; | |
| 262 PRAGMA aux.journal_mode = WAL; | |
| 263 INSERT INTO t1 VALUES('x', 'y'); | |
| 264 INSERT INTO t2 VALUES('x', 'y'); | |
| 265 } | |
| 266 lsort [array names ::T1] | |
| 267 } {test.db1 test.db1-journal test.db1-wal} | |
| 268 | |
| 269 do_test 5.1.2 { | |
| 270 lsort [array names ::T2] | |
| 271 } {test.db2 test.db2-journal test.db2-wal} | |
| 272 db close | |
| 273 | |
| 274 tvfs1 delete | |
| 275 tvfs2 delete | |
| 276 } | |
| 277 | |
| 278 #------------------------------------------------------------------------- | |
| 279 # Check that only "" and "localhost" are acceptable as authorities. | |
| 280 # | |
| 281 catch {db close} | |
| 282 foreach {tn uri res} { | |
| 283 1 "file://localhost/PWD/test.db" {not an error} | |
| 284 2 "file:///PWD/test.db" {not an error} | |
| 285 3 "file:/PWD/test.db" {not an error} | |
| 286 4 "file://l%6Fcalhost/PWD/test.db" {invalid uri authority: l%6Fcalhost} | |
| 287 5 "file://lbcalhost/PWD/test.db" {invalid uri authority: lbcalhost} | |
| 288 6 "file://x/PWD/test.db" {invalid uri authority: x} | |
| 289 } { | |
| 290 | |
| 291 if {$tcl_platform(platform)=="windows"} { | |
| 292 set uri [string map [list PWD [string range [get_pwd] 3 end]] $uri] | |
| 293 } else { | |
| 294 set uri [string map [list PWD [string range [get_pwd] 1 end]] $uri] | |
| 295 } | |
| 296 | |
| 297 do_test 6.$tn { | |
| 298 set DB [sqlite3_open $uri] | |
| 299 sqlite3_errmsg $DB | |
| 300 } $res | |
| 301 catch { sqlite3_close $DB } | |
| 302 } | |
| 303 | |
| 304 forcedelete test.db test.db2 | |
| 305 do_test 7.1 { | |
| 306 sqlite3 db test.db | |
| 307 execsql { | |
| 308 CREATE TABLE t1(a, b); | |
| 309 INSERT INTO t1 VALUES(1, 2); | |
| 310 ATTACH 'test.db2' AS aux; | |
| 311 CREATE TABLE aux.t2(a, b); | |
| 312 INSERT INTO t1 VALUES('a', 'b'); | |
| 313 } | |
| 314 db close | |
| 315 } {} | |
| 316 do_test 7.2 { | |
| 317 sqlite3 db file:test.db?mode=ro | |
| 318 execsql { ATTACH 'file:test.db2?mode=rw' AS aux } | |
| 319 } {} | |
| 320 do_execsql_test 7.3 { | |
| 321 INSERT INTO t2 VALUES('c', 'd') | |
| 322 } {} | |
| 323 do_catchsql_test 7.4 { | |
| 324 INSERT INTO t1 VALUES(3, 4) | |
| 325 } {1 {attempt to write a readonly database}} | |
| 326 | |
| 327 finish_test | |
| OLD | NEW |
|---|
Chromium Code Reviews
Issue 2363173002:
[sqlite] Remove obsolete reference version 3.8.7.4. (Closed)
