1: # 2010 November 1
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: # This file implements regression tests for SQLite library. The
12: # focus of this file is testing that WAL databases may be accessed without
13: # using the xShm primitives if the connection is in exclusive-mode.
14: #
15:
16: set testdir [file dirname $argv0]
17: source $testdir/tester.tcl
18: set testprefix walnoshm
19: ifcapable !wal {finish_test ; return }
20:
21: db close
22: testvfs tvfsshm
23: testvfs tvfs -default 1 -iversion 1
24: sqlite3 db test.db
25:
26: #--------------------------------------------------------------------------
27: # Test that when using a version 1 VFS, a database can only be converted
28: # to WAL mode after setting locking_mode=EXCLUSIVE. Also, test that if a
29: # WAL database is opened using heap-memory for the WAL index, the connection
30: # cannot change back to locking_mode=NORMAL while the database is still in
31: # WAL mode.
32: #
33: do_execsql_test 1.1 {
34: CREATE TABLE t1(x, y);
35: INSERT INTO t1 VALUES(1, 2);
36: }
37:
38: do_execsql_test 1.2 {
39: PRAGMA journal_mode = WAL;
40: SELECT * FROM t1;
41: } {delete 1 2}
42: do_test 1.3 { file exists test.db-wal } {0}
43:
44: do_execsql_test 1.4 {
45: PRAGMA locking_mode = exclusive;
46: PRAGMA journal_mode = WAL;
47: SELECT * FROM t1;
48: } {exclusive wal 1 2}
49: do_test 1.5 { file exists test.db-wal } {1}
50:
51: do_execsql_test 1.6 { INSERT INTO t1 VALUES(3, 4) }
52:
53: do_execsql_test 1.7 {
54: PRAGMA locking_mode = normal;
55: } {exclusive}
56: do_execsql_test 1.8 {
57: PRAGMA journal_mode = delete;
58: PRAGMA main.locking_mode;
59: } {delete exclusive}
60: do_execsql_test 1.9 {
61: PRAGMA locking_mode = normal;
62: } {normal}
63: do_execsql_test 1.10 {
64: SELECT * FROM t1;
65: } {1 2 3 4}
66: do_test 1.11 { file exists test.db-wal } {0}
67:
68: #-------------------------------------------------------------------------
69: #
70: # 2.1.*: Test that a connection using a version 1 VFS can open a WAL database
71: # and convert it to rollback mode if it is set to use
72: # locking_mode=exclusive.
73: #
74: # 2.2.*: Test that if the exclusive lock cannot be obtained while attempting
75: # the above, the operation fails and the WAL file is not opened.
76: #
77: do_execsql_test 2.1.1 {
78: CREATE TABLE t2(x, y);
79: INSERT INTO t2 VALUES('a', 'b');
80: INSERT INTO t2 VALUES('c', 'd');
81: }
82: do_execsql_test 2.1.2 {
83: PRAGMA locking_mode = exclusive;
84: PRAGMA journal_mode = WAL;
85: INSERT INTO t2 VALUES('e', 'f');
86: INSERT INTO t2 VALUES('g', 'h');
87: } {exclusive wal}
88:
89: do_test 2.1.3 {
90: forcecopy test.db test2.db
91: forcecopy test.db-wal test2.db-wal
92: sqlite3 db2 test2.db
93: catchsql { SELECT * FROM t2 } db2
94: } {1 {unable to open database file}}
95: do_test 2.1.4 {
96: catchsql { PRAGMA journal_mode = delete } db2
97: } {1 {unable to open database file}}
98: do_test 2.1.5 {
99: execsql {
100: PRAGMA locking_mode = exclusive;
101: PRAGMA journal_mode = delete;
102: SELECT * FROM t2;
103: } db2
104: } {exclusive delete a b c d e f g h}
105:
106: do_test 2.2.1 {
107: forcecopy test.db test2.db
108: forcecopy test.db-wal test2.db-wal
109: sqlite3 db3 test2.db -vfs tvfsshm
110: sqlite3 db2 test2.db
111: execsql { SELECT * FROM t2 } db3
112: } {a b c d e f g h}
113:
114: do_test 2.2.2 {
115: execsql { PRAGMA locking_mode = exclusive } db2
116: catchsql { PRAGMA journal_mode = delete } db2
117: } {1 {database is locked}}
118:
119: do_test 2.2.3 {
120: # This is to test that [db2] is not holding a PENDING lock (which can
121: # happen when an attempt to obtain an EXCLUSIVE lock fails).
122: sqlite3 db4 test2.db -vfs tvfsshm
123: execsql { SELECT * FROM t2 } db4
124: } {a b c d e f g h}
125:
126: do_test 2.2.4 {
127: catchsql { SELECT * FROM t2 } db2
128: } {1 {database is locked}}
129:
130: do_test 2.2.5 {
131: db4 close
132: sqlite3 db4 test2.db -vfs tvfsshm
133: execsql { SELECT * FROM t2 } db4
134: } {a b c d e f g h}
135:
136: do_test 2.2.6 {
137: db3 close
138: db4 close
139: execsql { SELECT * FROM t2 } db2
140: } {a b c d e f g h}
141:
142: db2 close
143: db close
144:
145: #-------------------------------------------------------------------------
146: #
147: # 3.1: Test that if locking_mode=EXCLUSIVE is set after the wal file is
148: # opened, it is possible to drop back to locking_mode=NORMAL.
149: #
150: # 3.2: Test that if locking_mode=EXCLUSIVE is set before the wal file is
151: # opened, it is not.
152: #
153: do_test 3.1 {
154: sqlite3 db test.db -vfs tvfsshm
155: execsql {
156: SELECT * FROM t1;
157: PRAGMA locking_mode = EXCLUSIVE;
158: INSERT INTO t1 VALUES(5, 6);
159: PRAGMA locking_mode = NORMAL;
160: INSERT INTO t1 VALUES(7, 8);
161: }
162: sqlite3 db2 test.db -vfs tvfsshm
163: execsql { SELECT * FROM t1 } db2
164: } {1 2 3 4 5 6 7 8}
165: db close
166: db2 close
167: do_test 3.2 {
168: sqlite3 db test.db -vfs tvfsshm
169: execsql {
170: PRAGMA locking_mode = EXCLUSIVE;
171: INSERT INTO t1 VALUES(9, 10);
172: PRAGMA locking_mode = NORMAL;
173: INSERT INTO t1 VALUES(11, 12);
174: }
175: sqlite3 db2 test.db -vfs tvfsshm
176: catchsql { SELECT * FROM t1 } db2
177: } {1 {database is locked}}
178: db close
179: db2 close
180:
181: tvfs delete
182: tvfsshm delete
183:
184: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>