Annotation of embedaddon/sqlite3/test/walcrash2.test, revision 1.1.1.1
1.1 misho 1: # 2010 May 25
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:
13:
14: set testdir [file dirname $argv0]
15: source $testdir/tester.tcl
16: source $testdir/lock_common.tcl
17: source $testdir/wal_common.tcl
18: ifcapable !wal {finish_test ; return }
19:
20:
21: #-------------------------------------------------------------------------
22: # This test case demonstrates a flaw in the wal-index manipulation that
23: # existed at one point: If a process crashes mid-transaction, it may have
24: # already added some entries to one of the hash-tables in the wal-index.
25: # If the transaction were to be explicitly rolled back at this point, the
26: # hash-table entries would be removed as part of the rollback. However,
27: # if the process crashes, the transaction is implicitly rolled back and
28: # the rogue entries remain in the hash table.
29: #
30: # Normally, this causes no problem - readers can tell the difference
31: # between committed and uncommitted entries in the hash table. However,
32: # if it happens often enough that all slots in the hash-table become
33: # non-zero, the next process that attempts to read or write the hash
34: # table falls into an infinite loop.
35: #
36: # Even if run with an SQLite version affected by the bug, this test case
37: # only goes into an infinite loop if SQLite is compiled without SQLITE_DEBUG
38: # defined. If SQLITE_DEBUG is defined, the program is halted by a failing
39: # assert() before entering the infinite loop.
40: #
41: # walcrash2-1.1: Create a database. Commit a transaction that adds 8 frames
42: # to the WAL (and 8 entry to the first hash-table in the
43: # wal-index).
44: #
45: # walcrash2-1.2: Have an external process open a transaction, add 8 entries
46: # to the wal-index hash-table, then crash. Repeat this 1023
47: # times (so that the wal-index contains 8192 entries - all
48: # slots are non-zero).
49: #
50: # walcrash2-1.3: Using a new database connection, attempt to query the
51: # database. This should cause the process to go into the
52: # infinite loop.
53: #
54: do_test walcrash2-1.1 {
55: execsql {
56: PRAGMA page_size = 1024;
57: PRAGMA auto_vacuum = off;
58: PRAGMA journal_mode = WAL;
59: PRAGMA synchronous = NORMAL;
60: BEGIN;
61: CREATE TABLE t1(x);
62: CREATE TABLE t2(x);
63: CREATE TABLE t3(x);
64: CREATE TABLE t4(x);
65: CREATE TABLE t5(x);
66: CREATE TABLE t6(x);
67: CREATE TABLE t7(x);
68: COMMIT;
69: }
70: file size test.db-wal
71: } [wal_file_size 8 1024]
72: for {set nEntry 8} {$nEntry < 8192} {incr nEntry 8} {
73: do_test walcrash2-1.2.[expr $nEntry/8] {
74: set C [launch_testfixture]
75: testfixture $C {
76: sqlite3 db test.db
77: db eval {
78: PRAGMA cache_size = 15;
79: BEGIN;
80: INSERT INTO t1 VALUES(randomblob(900)); -- 1 row, 1 page
81: INSERT INTO t1 SELECT * FROM t1; -- 2 rows, 3 pages
82: INSERT INTO t1 SELECT * FROM t1; -- 4 rows, 5 pages
83: INSERT INTO t1 SELECT * FROM t1; -- 8 rows, 9 pages
84: INSERT INTO t1 SELECT * FROM t1; -- 16 rows, 17 pages
85: INSERT INTO t1 SELECT * FROM t1 LIMIT 3; -- 20 rows, 20 pages
86: }
87: }
88: close $C
89: file size test.db-wal
90: } [wal_file_size 16 1024]
91: }
92: do_test walcrash2-1.3 {
93: sqlite3 db2 test.db
94: execsql { SELECT count(*) FROM t1 } db2
95: } {0}
96: catch { db2 close }
97:
98: finish_test
99:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>