Annotation of embedaddon/sqlite3/test/walro.test, revision 1.1.1.1
1.1 misho 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: # Do not run tests with the connections in the same process.
36: #
37: if {$tn==2} continue
38:
39: # Close all connections and delete the database.
40: #
41: code1 { db close }
42: code2 { db2 close }
43: code3 { db3 close }
44: forcedelete test.db
45: forcedelete walro
46:
47: foreach c {code1 code2 code3} {
48: $c {
49: sqlite3_shutdown
50: sqlite3_config_uri 1
51: }
52: }
53:
54: file mkdir walro
55:
56: do_test 1.1.1 {
57: code2 { sqlite3 db2 test.db }
58: sql2 {
59: PRAGMA journal_mode = WAL;
60: CREATE TABLE t1(x, y);
61: INSERT INTO t1 VALUES('a', 'b');
62: }
63: file exists test.db-shm
64: } {1}
65:
66: do_test 1.1.2 {
67: file attributes test.db-shm -permissions r--r--r--
68: code1 { sqlite3 db file:test.db?readonly_shm=1 }
69: } {}
70:
71: do_test 1.1.3 { sql1 "SELECT * FROM t1" } {a b}
72: do_test 1.1.4 { sql2 "INSERT INTO t1 VALUES('c', 'd')" } {}
73: do_test 1.1.5 { sql1 "SELECT * FROM t1" } {a b c d}
74:
75: # Check that the read-only connection cannot write or checkpoint the db.
76: #
77: do_test 1.1.6 {
78: csql1 "INSERT INTO t1 VALUES('e', 'f')"
79: } {1 {attempt to write a readonly database}}
80: do_test 1.1.7 {
81: csql1 "PRAGMA wal_checkpoint"
82: } {1 {attempt to write a readonly database}}
83:
84: do_test 1.1.9 { sql2 "INSERT INTO t1 VALUES('e', 'f')" } {}
85: do_test 1.1.10 { sql1 "SELECT * FROM t1" } {a b c d e f}
86:
87: do_test 1.1.11 {
88: sql2 {
89: INSERT INTO t1 VALUES('g', 'h');
90: PRAGMA wal_checkpoint;
91: }
92: set {} {}
93: } {}
94: do_test 1.1.12 { sql1 "SELECT * FROM t1" } {a b c d e f g h}
95: do_test 1.1.13 { sql2 "INSERT INTO t1 VALUES('i', 'j')" } {}
96:
97: do_test 1.2.1 {
98: code2 { db2 close }
99: code1 { db close }
100: list [file exists test.db-wal] [file exists test.db-shm]
101: } {1 1}
102: do_test 1.2.2 {
103: code1 { sqlite3 db file:test.db?readonly_shm=1 }
104: sql1 { SELECT * FROM t1 }
105: } {a b c d e f g h i j}
106:
107: do_test 1.2.3 {
108: code1 { db close }
109: file attributes test.db-shm -permissions rw-r--r--
110: hexio_write test.db-shm 0 01020304
111: file attributes test.db-shm -permissions r--r--r--
112: code1 { sqlite3 db file:test.db?readonly_shm=1 }
113: csql1 { SELECT * FROM t1 }
114: } {1 {attempt to write a readonly database}}
115: do_test 1.2.4 {
116: code1 { sqlite3_extended_errcode db }
117: } {SQLITE_READONLY_RECOVERY}
118:
119: do_test 1.2.5 {
120: file attributes test.db-shm -permissions rw-r--r--
121: code2 { sqlite3 db2 test.db }
122: sql2 "SELECT * FROM t1"
123: } {a b c d e f g h i j}
124: file attributes test.db-shm -permissions r--r--r--
125: do_test 1.2.6 { sql1 "SELECT * FROM t1" } {a b c d e f g h i j}
126:
127: do_test 1.2.7 {
128: sql2 {
129: PRAGMA wal_checkpoint;
130: INSERT INTO t1 VALUES('k', 'l');
131: }
132: set {} {}
133: } {}
134: do_test 1.2.8 { sql1 "SELECT * FROM t1" } {a b c d e f g h i j k l}
135:
136: # Now check that if the readonly_shm option is not supplied, or if it
137: # is set to zero, it is not possible to connect to the database without
138: # read-write access to the shm.
139: do_test 1.3.1 {
140: code1 { db close }
141: code1 { sqlite3 db test.db }
142: csql1 { SELECT * FROM t1 }
143: } {1 {unable to open database file}}
144:
145: # Also test that if the -shm file can be opened for read/write access,
146: # it is not if readonly_shm=1 is present in the URI.
147: do_test 1.3.2.1 {
148: code1 { db close }
149: code2 { db2 close }
150: file exists test.db-shm
151: } {0}
152: do_test 1.3.2.2 {
153: code1 { sqlite3 db file:test.db?readonly_shm=1 }
154: csql1 { SELECT * FROM sqlite_master }
155: } {1 {unable to open database file}}
156: do_test 1.3.2.3 {
157: code1 { db close }
158: close [open test.db-shm w]
159: file attributes test.db-shm -permissions r--r--r--
160: code1 { sqlite3 db file:test.db?readonly_shm=1 }
161: csql1 { SELECT * FROM t1 }
162: } {1 {attempt to write a readonly database}}
163: do_test 1.3.2.4 {
164: code1 { sqlite3_extended_errcode db }
165: } {SQLITE_READONLY_RECOVERY}
166: }
167:
168: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to walro.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test