Merge Chromium + Blink git repositories
[chromium-blink-merge.git] / third_party / sqlite / sqlite-src-3080704 / test / walro.test
blob6d920b1e2465f4b2d8aa87b56ecf69a3dc297dd9
1 # 2011 May 09
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 #***********************************************************************
12 # This file contains tests for using WAL databases in read-only mode.
15 set testdir [file dirname $argv0]
16 source $testdir/tester.tcl
17 source $testdir/lock_common.tcl
18 set ::testprefix walro
20 # These tests are only going to work on unix.
22 if {$::tcl_platform(platform) != "unix"} {
23   finish_test
24   return
27 # And only if the build is WAL-capable.
29 ifcapable !wal {
30   finish_test
31   return
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
48   foreach c {code1 code2 code3} {
49     $c {
50       sqlite3_shutdown
51       sqlite3_config_uri 1
52     }
53   }
55   file mkdir walro
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}
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   } {}
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}
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}}
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}
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')" } {}
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}
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}
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}
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}
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}}
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}
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}
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   } {}
229 forcedelete test.db
231 #-----------------------------------------------------------------------
232 # Test cases 2.* check that a read-only connection may read the
233 # database file while a checkpoint operation is ongoing.
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
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   }
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}
285   tv filter xSync
286   set res [csql1 { PRAGMA wal_checkpoint }]
287   do_test 2.1.4 { set res } {0 {0 2 2}}
289   do_test 2.1.5 {
290     code1 { db close }
291     code1 { tv delete }
292   } {}
295 finish_test