gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/walro.test (about) 1 # 2011 May 09 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 # This file contains tests for using WAL databases in read-only mode. 13 # 14 15 set testdir [file dirname $argv0] 16 source $testdir/tester.tcl 17 source $testdir/lock_common.tcl 18 set ::testprefix walro 19 20 # These tests are only going to work on unix. 21 # 22 if {$::tcl_platform(platform) != "unix"} { 23 finish_test 24 return 25 } 26 27 # And only if the build is WAL-capable. 28 # 29 ifcapable !wal { 30 finish_test 31 return 32 } 33 34 do_multiclient_test tn { 35 36 # Close all connections and delete the database. 37 # 38 code1 { db close } 39 code2 { db2 close } 40 code3 { db3 close } 41 forcedelete test.db 42 forcedelete walro 43 44 # Do not run tests with the connections in the same process. 45 # 46 if {$tn==2} continue 47 48 foreach c {code1 code2 code3} { 49 $c { 50 sqlite3_shutdown 51 sqlite3_config_uri 1 52 } 53 } 54 55 file mkdir walro 56 57 do_test 1.1.1 { 58 code2 { sqlite3 db2 test.db } 59 sql2 { 60 PRAGMA auto_vacuum = 0; 61 PRAGMA journal_mode = WAL; 62 CREATE TABLE t1(x, y); 63 INSERT INTO t1 VALUES('a', 'b'); 64 } 65 file exists test.db-shm 66 } {1} 67 68 do_test 1.1.2 { 69 file attributes test.db-shm -permissions r--r--r-- 70 code1 { sqlite3 db file:test.db?readonly_shm=1 } 71 } {} 72 73 do_test 1.1.3 { sql1 "SELECT * FROM t1" } {a b} 74 do_test 1.1.4 { sql2 "INSERT INTO t1 VALUES('c', 'd')" } {} 75 do_test 1.1.5 { sql1 "SELECT * FROM t1" } {a b c d} 76 77 # Check that the read-only connection cannot write or checkpoint the db. 78 # 79 do_test 1.1.6 { 80 csql1 "INSERT INTO t1 VALUES('e', 'f')" 81 } {1 {attempt to write a readonly database}} 82 do_test 1.1.7 { 83 csql1 "PRAGMA wal_checkpoint" 84 } {1 {attempt to write a readonly database}} 85 86 do_test 1.1.9 { sql2 "INSERT INTO t1 VALUES('e', 'f')" } {} 87 do_test 1.1.10 { sql1 "SELECT * FROM t1" } {a b c d e f} 88 89 do_test 1.1.11 { 90 sql2 { 91 INSERT INTO t1 VALUES('g', 'h'); 92 PRAGMA wal_checkpoint; 93 } 94 set {} {} 95 } {} 96 do_test 1.1.12 { sql1 "SELECT * FROM t1" } {a b c d e f g h} 97 do_test 1.1.13 { sql2 "INSERT INTO t1 VALUES('i', 'j')" } {} 98 99 do_test 1.2.1 { 100 code2 { db2 close } 101 code1 { db close } 102 list [file exists test.db-wal] [file exists test.db-shm] 103 } {1 1} 104 105 do_test 1.2.2 { 106 code1 { sqlite3 db file:test.db?readonly_shm=1 } 107 list [catch { sql1 { SELECT * FROM t1 } } msg] $msg 108 } {0 {a b c d e f g h i j}} 109 110 do_test 1.2.3 { 111 code1 { db close } 112 file attributes test.db-shm -permissions rw-r--r-- 113 hexio_write test.db-shm 0 01020304 114 file attributes test.db-shm -permissions r--r--r-- 115 code1 { sqlite3 db file:test.db?readonly_shm=1 } 116 csql1 { SELECT * FROM t1 } 117 } {0 {a b c d e f g h i j}} 118 do_test 1.2.4 { 119 code1 { sqlite3_extended_errcode db } 120 } {SQLITE_OK} 121 122 do_test 1.2.5 { 123 file attributes test.db-shm -permissions rw-r--r-- 124 code2 { sqlite3 db2 test.db } 125 sql2 "SELECT * FROM t1" 126 } {a b c d e f g h i j} 127 file attributes test.db-shm -permissions r--r--r-- 128 do_test 1.2.6 { sql1 "SELECT * FROM t1" } {a b c d e f g h i j} 129 130 do_test 1.2.7 { 131 sql2 { 132 PRAGMA wal_checkpoint; 133 INSERT INTO t1 VALUES('k', 'l'); 134 } 135 set {} {} 136 } {} 137 do_test 1.2.8 { sql1 "SELECT * FROM t1" } {a b c d e f g h i j k l} 138 139 # Now check that if the readonly_shm option is not supplied, or if it 140 # is set to zero, it is not possible to connect to the database without 141 # read-write access to the shm. 142 # 143 # UPDATE: os_unix.c now opens the *-shm file in readonly mode 144 # automatically. 145 # 146 do_test 1.3.1 { 147 code1 { db close } 148 code1 { sqlite3 db test.db } 149 csql1 { SELECT * FROM t1 } 150 } {0 {a b c d e f g h i j k l}} 151 152 # Also test that if the -shm file can be opened for read/write access, 153 # it is not if readonly_shm=1 is present in the URI. 154 do_test 1.3.2.1 { 155 code1 { db close } 156 code2 { db2 close } 157 file exists test.db-shm 158 } {0} 159 do_test 1.3.2.2 { 160 code1 { sqlite3 db file:test.db?readonly_shm=1 } 161 csql1 { SELECT * FROM sqlite_master } 162 } {1 {unable to open database file}} 163 do_test 1.3.2.3 { 164 code1 { db close } 165 close [open test.db-shm w] 166 file attributes test.db-shm -permissions r--r--r-- 167 code1 { sqlite3 db file:test.db?readonly_shm=1 } 168 csql1 { SELECT * FROM t1 } 169 } {0 {a b c d e f g h i j k l}} 170 do_test 1.3.2.4 { 171 code1 { sqlite3_extended_errcode db } 172 } {SQLITE_OK} 173 174 #----------------------------------------------------------------------- 175 # Test cases 1.4.* check that checkpoints and log wraps don't prevent 176 # read-only connections from reading the database. 177 do_test 1.4.1 { 178 code1 { db close } 179 forcedelete test.db-shm 180 file exists test.db-shm 181 } {0} 182 183 # Open one read-only and one read-write connection. Write some data 184 # and then run a checkpoint using the read-write connection. Then 185 # check the read-only connection can still read. 186 do_test 1.4.2 { 187 code1 { sqlite3 db file:test.db?readonly_shm=1 } 188 code2 { sqlite3 db2 test.db } 189 csql2 { 190 INSERT INTO t1 VALUES(1, 2); 191 INSERT INTO t1 VALUES(3, 4); 192 INSERT INTO t1 VALUES(5, 6); 193 PRAGMA wal_checkpoint; 194 } 195 } {0 {0 3 3}} 196 do_test 1.4.3 { 197 csql1 { SELECT * FROM t1 } 198 } {0 {a b c d e f g h i j k l 1 2 3 4 5 6}} 199 200 # Using the read-write connection, open a transaction and write lots 201 # of data - causing a cache spill and a log wrap. Then check that the 202 # read-only connection can still read the database. 203 do_test 1.4.4.1 { 204 csql2 { 205 PRAGMA cache_size = 10; 206 BEGIN; 207 CREATE TABLE t2(x, y); 208 INSERT INTO t2 VALUES('abc', 'xyz'); 209 INSERT INTO t2 SELECT x||y, y||x FROM t2; 210 INSERT INTO t2 SELECT x||y, y||x FROM t2; 211 INSERT INTO t2 SELECT x||y, y||x FROM t2; 212 INSERT INTO t2 SELECT x||y, y||x FROM t2; 213 INSERT INTO t2 SELECT x||y, y||x FROM t2; 214 INSERT INTO t2 SELECT x||y, y||x FROM t2; 215 INSERT INTO t2 SELECT x||y, y||x FROM t2; 216 INSERT INTO t2 SELECT x||y, y||x FROM t2; 217 INSERT INTO t2 SELECT x||y, y||x FROM t2; 218 } 219 file size test.db-wal 220 } [expr {[nonzero_reserved_bytes]?148848:147800}] 221 do_test 1.4.4.2 { 222 csql1 { SELECT * FROM t1 } 223 } {0 {a b c d e f g h i j k l 1 2 3 4 5 6}} 224 do_test 1.4.4.3 { 225 csql2 COMMIT 226 csql1 { SELECT count(*) FROM t2 } 227 } {0 512} 228 do_test 1.4.5 { 229 code2 { db2 close } 230 code1 { db close } 231 } {} 232 } 233 234 forcedelete test.db 235 236 #----------------------------------------------------------------------- 237 # Test cases 2.* check that a read-only connection may read the 238 # database file while a checkpoint operation is ongoing. 239 # 240 do_multiclient_test tn { 241 242 # Close all connections and delete the database. 243 # 244 code1 { db close } 245 code2 { db2 close } 246 code3 { db3 close } 247 forcedelete test.db 248 forcedelete walro 249 250 # Do not run tests with the connections in the same process. 251 # 252 if {$tn==2} continue 253 254 foreach c {code1 code2 code3} { 255 $c { 256 sqlite3_shutdown 257 sqlite3_config_uri 1 258 } 259 } 260 261 proc tv_hook {x file args} { 262 if {[file tail $file]=="test.db-wal"} { 263 do_test 2.1.2 { 264 code2 { sqlite3 db2 file:test.db?readonly_shm=1 } 265 csql2 { SELECT count(*) FROM t2 } 266 } {0 4} 267 do_test 2.1.3 { 268 code2 { db2 close } 269 } {} 270 } 271 } 272 273 do_test 2.1.1 { 274 testvfs tv -default 1 -fullshm 1 275 tv script tv_hook 276 tv filter {} 277 code1 { sqlite3 db test.db } 278 csql1 { 279 PRAGMA auto_vacuum = 0; 280 PRAGMA journal_mode = WAL; 281 BEGIN; 282 CREATE TABLE t2(x, y); 283 INSERT INTO t2 VALUES('abc', 'xyz'); 284 INSERT INTO t2 SELECT x||y, y||x FROM t2; 285 INSERT INTO t2 SELECT x||y, y||x FROM t2; 286 COMMIT; 287 } 288 } {0 wal} 289 290 tv filter xSync 291 set res [csql1 { PRAGMA wal_checkpoint }] 292 do_test 2.1.4 { set res } {0 {0 2 2}} 293 294 do_test 2.1.5 { 295 code1 { db close } 296 code1 { tv delete } 297 } {} 298 } 299 300 finish_test