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 #***********************************************************************
13 set testdir [file dirname $argv0]
14 source $testdir/tester.tcl
18 forcedelete test.db-shm
19 testvfs oldvfs -iversion 1
22 # EVIDENCE-OF: R-58297-14483 WAL databases can be created, read, and
23 # written even if shared memory is unavailable as long as the
24 # locking_mode is set to EXCLUSIVE before the first attempted access.
26 # EVIDENCE-OF: R-00449-33772 This feature allows WAL databases to be
27 # created, read, and written by legacy VFSes that lack the "version 2"
28 # shared-memory methods xShmMap, xShmLock, xShmBarrier, and xShmUnmap on
29 # the sqlite3_io_methods object.
31 # 1.1: "create" tests.
35 # All three done with VFS "oldvfs", which has iVersion==1 and so does
36 # not support shared memory.
38 sqlite3 db test.db -vfs oldvfs
39 do_execsql_test 1.1.1 {
40 PRAGMA journal_mode = WAL;
42 do_execsql_test 1.1.2 {
43 PRAGMA locking_mode = EXCLUSIVE;
44 PRAGMA journal_mode = WAL;
46 do_execsql_test 1.1.3 {
47 CREATE TABLE t1(x, y);
48 INSERT INTO t1 VALUES(1, 2);
51 list [file exists test.db-shm] [file exists test.db-wal]
56 sqlite3 db test.db -vfs oldvfs
57 catchsql { SELECT * FROM t1 }
58 } {1 {unable to open database file}}
60 execsql { PRAGMA locking_mode = EXCLUSIVE }
61 execsql { SELECT * FROM t1 }
64 list [file exists test.db-shm] [file exists test.db-wal]
69 sqlite3 db test.db -vfs oldvfs
70 catchsql { INSERT INTO t1 VALUES(3, 4) }
71 } {1 {unable to open database file}}
73 execsql { PRAGMA locking_mode = EXCLUSIVE }
74 execsql { INSERT INTO t1 VALUES(3, 4) }
75 execsql { SELECT * FROM t1 }
78 list [file exists test.db-shm] [file exists test.db-wal]
81 # EVIDENCE-OF: R-31969-57825 If EXCLUSIVE locking mode is set prior to
82 # the first WAL-mode database access, then SQLite never attempts to call
83 # any of the shared-memory methods and hence no shared-memory wal-index
88 do_execsql_test 2.1.1 {
89 PRAGMA locking_mode = EXCLUSIVE;
93 list [file exists test.db-shm] [file exists test.db-wal]
96 # EVIDENCE-OF: R-36328-16367 In that case, the database connection
97 # remains in EXCLUSIVE mode as long as the journal mode is WAL; attempts
98 # to change the locking mode using "PRAGMA locking_mode=NORMAL;" are
101 do_execsql_test 2.2.1 {
102 PRAGMA locking_mode = NORMAL;
104 } {exclusive 1 2 3 4}
107 catchsql {SELECT * FROM t1} db2
108 } {1 {database is locked}}
111 # EVIDENCE-OF: R-63522-46088 The only way to change out of EXCLUSIVE
112 # locking mode is to first change out of WAL journal mode.
114 do_execsql_test 2.3.1 {
115 PRAGMA journal_mode = DELETE;
120 catchsql {SELECT * FROM t1} db2
121 } {1 {database is locked}}
122 do_execsql_test 2.3.3 {
123 PRAGMA locking_mode = NORMAL;
128 catchsql {SELECT * FROM t1} db2
134 # EVIDENCE-OF: R-57239-11845 If NORMAL locking mode is in effect for the
135 # first WAL-mode database access, then the shared-memory wal-index is
140 execsql { PRAGMA journal_mode = WAL }
145 execsql { SELECT * FROM t1 }
146 list [file exists test.db-shm] [file exists test.db-wal]
149 # EVIDENCE-OF: R-13779-07711 As long as exactly one connection is using
150 # a shared-memory wal-index, the locking mode can be changed freely
151 # between NORMAL and EXCLUSIVE.
153 do_execsql_test 3.2.1 {
154 PRAGMA locking_mode = EXCLUSIVE;
155 PRAGMA locking_mode = NORMAL;
156 PRAGMA locking_mode = EXCLUSIVE;
157 INSERT INTO t1 VALUES(5, 6);
158 } {exclusive normal exclusive}
161 catchsql { SELECT * FROM t1 } db2
162 } {1 {database is locked}}
164 # EVIDENCE-OF: R-10993-11647 It is only when the shared-memory wal-index
165 # is omitted, when the locking mode is EXCLUSIVE prior to the first
166 # WAL-mode database access, that the locking mode is stuck in EXCLUSIVE.
168 do_execsql_test 3.2.3 {
169 PRAGMA locking_mode = NORMAL;
171 } {normal 1 2 3 4 5 6}
173 catchsql { SELECT * FROM t1 } db2
176 do_catchsql_test 3.2.5 {
177 PRAGMA locking_mode = EXCLUSIVE;
178 INSERT INTO t1 VALUES(7, 8);
179 } {1 {database is locked}}
183 # EVIDENCE-OF: R-46197-42811 This means that the underlying VFS must
184 # support the "version 2" shared-memory.
186 # EVIDENCE-OF: R-55316-21772 If the VFS does not support shared-memory
187 # methods, then the attempt to open a database that is already in WAL
188 # mode, or the attempt convert a database into WAL mode, will fail.
192 sqlite3 db test.db -vfs oldvfs
193 catchsql { SELECT * FROM t1 }
194 } {1 {unable to open database file}}
198 sqlite3 db test.db2 -vfs oldvfs
199 catchsql { PRAGMA journal_mode = WAL }
204 # EVIDENCE-OF: R-45540-25505 To prevent older versions of SQLite (prior
205 # to version 3.7.0, 2010-07-22) from trying to recover a WAL-mode
206 # database (and making matters worse) the database file format version
207 # numbers (bytes 18 and 19 in the database header) are increased from 1
211 do_execsql_test 4.1.1 { CREATE TABLE t1(x, y) }
212 do_test 4.1.2 { hexio_read test.db 18 2 } {0101}
213 do_execsql_test 4.1.3 { PRAGMA journal_mode = wAL } {wal}
214 do_test 4.1.4 { hexio_read test.db 18 2 } {0202}
217 # EVIDENCE-OF: R-02535-05811 One can explicitly change out of WAL mode
218 # using a pragma such as this: PRAGMA journal_mode=DELETE;
220 do_execsql_test 4.2.1 { INSERT INTO t1 VALUES(1, 1); } {}
221 do_test 4.2.2 { file exists test.db-wal } {1}
222 do_execsql_test 4.2.3 { PRAGMA journal_mode = delete } {delete}
223 do_test 4.2.4 { file exists test.db-wal } {0}
225 # EVIDENCE-OF: R-60175-02388 Deliberately changing out of WAL mode
226 # changes the database file format version numbers back to 1 so that
227 # older versions of SQLite can once again access the database file.
229 do_test 4.3 { hexio_read test.db 18 2 } {0101}