OLD | NEW |
| (Empty) |
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 do_test 1.2.2 { | |
105 code1 { sqlite3 db file:test.db?readonly_shm=1 } | |
106 sql1 { SELECT * FROM t1 } | |
107 } {a b c d e f g h i j} | |
108 | |
109 do_test 1.2.3 { | |
110 code1 { db close } | |
111 file attributes test.db-shm -permissions rw-r--r-- | |
112 hexio_write test.db-shm 0 01020304 | |
113 file attributes test.db-shm -permissions r--r--r-- | |
114 code1 { sqlite3 db file:test.db?readonly_shm=1 } | |
115 csql1 { SELECT * FROM t1 } | |
116 } {1 {attempt to write a readonly database}} | |
117 do_test 1.2.4 { | |
118 code1 { sqlite3_extended_errcode db } | |
119 } {SQLITE_READONLY_RECOVERY} | |
120 | |
121 do_test 1.2.5 { | |
122 file attributes test.db-shm -permissions rw-r--r-- | |
123 code2 { sqlite3 db2 test.db } | |
124 sql2 "SELECT * FROM t1" | |
125 } {a b c d e f g h i j} | |
126 file attributes test.db-shm -permissions r--r--r-- | |
127 do_test 1.2.6 { sql1 "SELECT * FROM t1" } {a b c d e f g h i j} | |
128 | |
129 do_test 1.2.7 { | |
130 sql2 { | |
131 PRAGMA wal_checkpoint; | |
132 INSERT INTO t1 VALUES('k', 'l'); | |
133 } | |
134 set {} {} | |
135 } {} | |
136 do_test 1.2.8 { sql1 "SELECT * FROM t1" } {a b c d e f g h i j k l} | |
137 | |
138 # Now check that if the readonly_shm option is not supplied, or if it | |
139 # is set to zero, it is not possible to connect to the database without | |
140 # read-write access to the shm. | |
141 do_test 1.3.1 { | |
142 code1 { db close } | |
143 code1 { sqlite3 db test.db } | |
144 csql1 { SELECT * FROM t1 } | |
145 } {1 {unable to open database file}} | |
146 | |
147 # Also test that if the -shm file can be opened for read/write access, | |
148 # it is not if readonly_shm=1 is present in the URI. | |
149 do_test 1.3.2.1 { | |
150 code1 { db close } | |
151 code2 { db2 close } | |
152 file exists test.db-shm | |
153 } {0} | |
154 do_test 1.3.2.2 { | |
155 code1 { sqlite3 db file:test.db?readonly_shm=1 } | |
156 csql1 { SELECT * FROM sqlite_master } | |
157 } {1 {unable to open database file}} | |
158 do_test 1.3.2.3 { | |
159 code1 { db close } | |
160 close [open test.db-shm w] | |
161 file attributes test.db-shm -permissions r--r--r-- | |
162 code1 { sqlite3 db file:test.db?readonly_shm=1 } | |
163 csql1 { SELECT * FROM t1 } | |
164 } {1 {attempt to write a readonly database}} | |
165 do_test 1.3.2.4 { | |
166 code1 { sqlite3_extended_errcode db } | |
167 } {SQLITE_READONLY_RECOVERY} | |
168 | |
169 #----------------------------------------------------------------------- | |
170 # Test cases 1.4.* check that checkpoints and log wraps don't prevent | |
171 # read-only connections from reading the database. | |
172 do_test 1.4.1 { | |
173 code1 { db close } | |
174 forcedelete test.db-shm | |
175 file exists test.db-shm | |
176 } {0} | |
177 | |
178 # Open one read-only and one read-write connection. Write some data | |
179 # and then run a checkpoint using the read-write connection. Then | |
180 # check the read-only connection can still read. | |
181 do_test 1.4.2 { | |
182 code1 { sqlite3 db file:test.db?readonly_shm=1 } | |
183 code2 { sqlite3 db2 test.db } | |
184 csql2 { | |
185 INSERT INTO t1 VALUES(1, 2); | |
186 INSERT INTO t1 VALUES(3, 4); | |
187 INSERT INTO t1 VALUES(5, 6); | |
188 PRAGMA wal_checkpoint; | |
189 } | |
190 } {0 {0 3 3}} | |
191 do_test 1.4.3 { | |
192 csql1 { SELECT * FROM t1 } | |
193 } {0 {a b c d e f g h i j k l 1 2 3 4 5 6}} | |
194 | |
195 # Using the read-write connection, open a transaction and write lots | |
196 # of data - causing a cache spill and a log wrap. Then check that the | |
197 # read-only connection can still read the database. | |
198 do_test 1.4.4.1 { | |
199 csql2 { | |
200 PRAGMA cache_size = 10; | |
201 BEGIN; | |
202 CREATE TABLE t2(x, y); | |
203 INSERT INTO t2 VALUES('abc', 'xyz'); | |
204 INSERT INTO t2 SELECT x||y, y||x FROM t2; | |
205 INSERT INTO t2 SELECT x||y, y||x FROM t2; | |
206 INSERT INTO t2 SELECT x||y, y||x FROM t2; | |
207 INSERT INTO t2 SELECT x||y, y||x FROM t2; | |
208 INSERT INTO t2 SELECT x||y, y||x FROM t2; | |
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 } | |
214 file size test.db-wal | |
215 } {147800} | |
216 do_test 1.4.4.2 { | |
217 csql1 { SELECT * FROM t1 } | |
218 } {0 {a b c d e f g h i j k l 1 2 3 4 5 6}} | |
219 do_test 1.4.4.3 { | |
220 csql2 COMMIT | |
221 csql1 { SELECT count(*) FROM t2 } | |
222 } {0 512} | |
223 do_test 1.4.5 { | |
224 code2 { db2 close } | |
225 code1 { db close } | |
226 } {} | |
227 } | |
228 | |
229 forcedelete test.db | |
230 | |
231 #----------------------------------------------------------------------- | |
232 # Test cases 2.* check that a read-only connection may read the | |
233 # database file while a checkpoint operation is ongoing. | |
234 # | |
235 do_multiclient_test tn { | |
236 | |
237 # Close all connections and delete the database. | |
238 # | |
239 code1 { db close } | |
240 code2 { db2 close } | |
241 code3 { db3 close } | |
242 forcedelete test.db | |
243 forcedelete walro | |
244 | |
245 # Do not run tests with the connections in the same process. | |
246 # | |
247 if {$tn==2} continue | |
248 | |
249 foreach c {code1 code2 code3} { | |
250 $c { | |
251 sqlite3_shutdown | |
252 sqlite3_config_uri 1 | |
253 } | |
254 } | |
255 | |
256 proc tv_hook {x file args} { | |
257 if {[file tail $file]=="test.db-wal"} { | |
258 do_test 2.1.2 { | |
259 code2 { sqlite3 db2 file:test.db?readonly_shm=1 } | |
260 csql2 { SELECT count(*) FROM t2 } | |
261 } {0 4} | |
262 do_test 2.1.3 { | |
263 code2 { db2 close } | |
264 } {} | |
265 } | |
266 } | |
267 | |
268 do_test 2.1.1 { | |
269 testvfs tv -default 1 -fullshm 1 | |
270 tv script tv_hook | |
271 tv filter {} | |
272 code1 { sqlite3 db test.db } | |
273 csql1 { | |
274 PRAGMA auto_vacuum = 0; | |
275 PRAGMA journal_mode = WAL; | |
276 BEGIN; | |
277 CREATE TABLE t2(x, y); | |
278 INSERT INTO t2 VALUES('abc', 'xyz'); | |
279 INSERT INTO t2 SELECT x||y, y||x FROM t2; | |
280 INSERT INTO t2 SELECT x||y, y||x FROM t2; | |
281 COMMIT; | |
282 } | |
283 } {0 wal} | |
284 | |
285 tv filter xSync | |
286 set res [csql1 { PRAGMA wal_checkpoint }] | |
287 do_test 2.1.4 { set res } {0 {0 2 2}} | |
288 | |
289 do_test 2.1.5 { | |
290 code1 { db close } | |
291 code1 { tv delete } | |
292 } {} | |
293 } | |
294 | |
295 finish_test | |
OLD | NEW |