Annotation of embedaddon/sqlite3/test/walcrash2.test, revision 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>