| 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: 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. | |
| 71 # | |
| 72 if {$tn==12 && $::tcl_version>=8.6} continue | |
| 73 | |
| 74 # | |
| 75 # NOTE: On Windows, we need to account for the fact that the current | |
| 76 # directory does not start with a forward slash. | |
| 77 # | |
| 78 set uri [string map [list PWD/ /[test_pwd /]] $uri] | |
| 79 } else { | |
| 80 set uri [string map [list PWD/ [test_pwd /]] $uri] | |
| 81 } | |
| 82 | |
| 83 if {[file isdir $file]} {error "$file is a directory"} | |
| 84 forcedelete $file | |
| 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 | |
| 88 sqlite3_close $DB | |
| 89 forcedelete $file | |
| 90 | |
| 91 do_test 1.$tn.3 { file exists $file } 0 | |
| 92 sqlite3 db xxx.db | |
| 93 catchsql { ATTACH $uri AS aux } | |
| 94 do_test 1.$tn.4 { file exists $file } 1 | |
| 95 db close | |
| 96 } | |
| 97 | |
| 98 #------------------------------------------------------------------------- | |
| 99 # Test that URI query parameters are passed through to the VFS layer | |
| 100 # correctly. | |
| 101 # | |
| 102 testvfs tvfs2 | |
| 103 testvfs tvfs -default 1 | |
| 104 tvfs filter xOpen | |
| 105 tvfs script open_method | |
| 106 proc open_method {method file arglist} { | |
| 107 set ::arglist $arglist | |
| 108 } | |
| 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} | |
| 122 | |
| 123 13 test.db?&&&&&&&&hello=world&&&&&&& {} | |
| 124 14 http:test.db?hello&world {} | |
| 125 } { | |
| 126 | |
| 127 if {$tcl_platform(platform) == "windows" && $tn>12} { | |
| 128 continue | |
| 129 } | |
| 130 | |
| 131 set ::arglist "" | |
| 132 set DB [sqlite3_open $uri] | |
| 133 do_test 2.$tn.1 { set ::arglist } $kvlist | |
| 134 sqlite3_close $DB | |
| 135 | |
| 136 sqlite3 db xxx.db | |
| 137 set ::arglist "" | |
| 138 execsql { ATTACH $uri AS aux } | |
| 139 do_test 2.$tn.2 { set ::arglist } $kvlist | |
| 140 db close | |
| 141 } | |
| 142 tvfs delete | |
| 143 tvfs2 delete | |
| 144 | |
| 145 #------------------------------------------------------------------------- | |
| 146 # Test that specifying a non-existent VFS raises an error. | |
| 147 # | |
| 148 do_test 3.1 { | |
| 149 list [catch { sqlite3 db "file:test.db?vfs=nosuchvfs" } msg] $msg | |
| 150 } {1 {no such vfs: nosuchvfs}} | |
| 151 | |
| 152 #------------------------------------------------------------------------- | |
| 153 # Test some of the other options (other than "vfs"). | |
| 154 # | |
| 155 foreach {tn mode create_ok write_ok readonly_ok} { | |
| 156 1 ro 0 0 1 | |
| 157 2 rw 0 1 0 | |
| 158 3 rwc 1 1 0 | |
| 159 } { | |
| 160 catch { db close } | |
| 161 forcedelete test.db | |
| 162 | |
| 163 set A(1) {0 {}} | |
| 164 set A(0) {1 {unable to open database file}} | |
| 165 do_test 4.1.$tn.1 { | |
| 166 list [catch {sqlite3 db "file:test.db?mode=$mode"} msg] $msg | |
| 167 } $A($create_ok) | |
| 168 | |
| 169 catch { db close } | |
| 170 forcedelete test.db | |
| 171 sqlite3 db test.db | |
| 172 db eval { CREATE TABLE t1(a, b) } | |
| 173 db close | |
| 174 | |
| 175 set A(1) {0 {}} | |
| 176 set A(0) {1 {attempt to write a readonly database}} | |
| 177 do_test 4.1.$tn.2 { | |
| 178 sqlite3 db "file:test.db?mode=$mode" | |
| 179 catchsql { INSERT INTO t1 VALUES(1, 2) } | |
| 180 } $A($write_ok) | |
| 181 | |
| 182 set A(1) {0 {}} | |
| 183 set A(0) [list 1 "access mode not allowed: $mode"] | |
| 184 do_test 4.1.$tn.3 { | |
| 185 list [catch {sqlite3 db "file:test.db?mode=$mode" -readonly 1} msg] $msg | |
| 186 } $A($readonly_ok) | |
| 187 } | |
| 188 | |
| 189 set orig [sqlite3_enable_shared_cache] | |
| 190 foreach {tn options sc_default is_shared} { | |
| 191 1 "" 1 1 | |
| 192 2 "cache=private" 1 0 | |
| 193 3 "cache=shared" 1 1 | |
| 194 4 "" 0 0 | |
| 195 5 "cache=private" 0 0 | |
| 196 6 "cache=shared" 0 1 | |
| 197 } { | |
| 198 catch { db close } | |
| 199 forcedelete test.db | |
| 200 | |
| 201 sqlite3_enable_shared_cache 1 | |
| 202 sqlite3 db2 test.db | |
| 203 db2 eval {CREATE TABLE t1(a, b)} | |
| 204 | |
| 205 sqlite3_enable_shared_cache $sc_default | |
| 206 sqlite3 db "file:test.db?$options" | |
| 207 db eval {SELECT * FROM t1} | |
| 208 | |
| 209 set A(1) {1 {database table is locked: t1}} | |
| 210 set A(0) {0 {}} | |
| 211 do_test 4.2.$tn { | |
| 212 db2 eval {BEGIN; INSERT INTO t1 VALUES(1, 2);} | |
| 213 catchsql { SELECT * FROM t1 } | |
| 214 } $A($is_shared) | |
| 215 | |
| 216 db2 close | |
| 217 } | |
| 218 | |
| 219 do_test 4.3.1 { | |
| 220 list [catch {sqlite3 db "file:test.db?mode=rc"} msg] $msg | |
| 221 } {1 {no such access mode: rc}} | |
| 222 do_test 4.3.2 { | |
| 223 list [catch {sqlite3 db "file:test.db?cache=public"} msg] $msg | |
| 224 } {1 {no such cache mode: public}} | |
| 225 | |
| 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. | |
| 231 # | |
| 232 # xOpen | |
| 233 # xDelete | |
| 234 # xAccess | |
| 235 # xFullPathname | |
| 236 # | |
| 237 | |
| 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. | |
| 242 # | |
| 243 ifcapable wal { | |
| 244 testvfs tvfs1 | |
| 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 | |
| 249 return SQLITE_OK | |
| 250 } | |
| 251 testvfs tvfs2 | |
| 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 | |
| 256 return SQLITE_OK | |
| 257 } | |
| 258 | |
| 259 catch {db close} | |
| 260 eval forcedelete [glob test.db*] | |
| 261 do_test 5.1.1 { | |
| 262 sqlite3 db file:test.db1?vfs=tvfs1 | |
| 263 execsql { | |
| 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'); | |
| 273 } | |
| 274 lsort [array names ::T1] | |
| 275 } {test.db1 test.db1-journal test.db1-wal} | |
| 276 | |
| 277 do_test 5.1.2 { | |
| 278 lsort [array names ::T2] | |
| 279 } {test.db2 test.db2-journal test.db2-wal} | |
| 280 db close | |
| 281 | |
| 282 tvfs1 delete | |
| 283 tvfs2 delete | |
| 284 } | |
| 285 | |
| 286 #------------------------------------------------------------------------- | |
| 287 # Check that only "" and "localhost" are acceptable as authorities. | |
| 288 # | |
| 289 catch {db close} | |
| 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} | |
| 297 } { | |
| 298 | |
| 299 if {$tcl_platform(platform)=="windows"} { | |
| 300 set uri [string map [list PWD [string range [get_pwd] 3 end]] $uri] | |
| 301 } else { | |
| 302 set uri [string map [list PWD [string range [get_pwd] 1 end]] $uri] | |
| 303 } | |
| 304 | |
| 305 do_test 6.$tn { | |
| 306 set DB [sqlite3_open $uri] | |
| 307 sqlite3_errmsg $DB | |
| 308 } $res | |
| 309 catch { sqlite3_close $DB } | |
| 310 } | |
| 311 | |
| 312 forcedelete test.db test.db2 | |
| 313 do_test 7.1 { | |
| 314 sqlite3 db test.db | |
| 315 execsql { | |
| 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'); | |
| 321 } | |
| 322 db close | |
| 323 } {} | |
| 324 do_test 7.2 { | |
| 325 sqlite3 db file:test.db?mode=ro | |
| 326 execsql { ATTACH 'file:test.db2?mode=rw' AS aux } | |
| 327 } {} | |
| 328 do_execsql_test 7.3 { | |
| 329 INSERT INTO t2 VALUES('c', 'd') | |
| 330 } {} | |
| 331 do_catchsql_test 7.4 { | |
| 332 INSERT INTO t1 VALUES(3, 4) | |
| 333 } {1 {attempt to write a readonly database}} | |
| 334 | |
| 335 finish_test | |
| OLD | NEW |
|---|
Chromium Code Reviews
Issue 2846743003:
[sql] Remove SQLite 3.10.2 reference directory. (Closed)
