1# 2001 September 15 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. 12# 13# The focus of this file is testing the ability of the database to 14# uses its rollback journal to recover intact (no database corruption) 15# from a power failure during the middle of a COMMIT. Even more 16# specifically, the tests in this file verify this functionality 17# for storage mediums with various sector sizes. 18# 19# $Id: crash2.test,v 1.6 2008/08/25 07:12:29 danielk1977 Exp $ 20 21set testdir [file dirname $argv0] 22source $testdir/tester.tcl 23 24ifcapable !crashtest { 25 finish_test 26 return 27} 28 29db close 30 31# This test is designed to check that the crash-test infrastructure 32# can create files that do not consist of an integer number of 33# simulated disk blocks (i.e. 3KB file using 2KB disk blocks). 34# 35do_test crash2-1.1 { 36 crashsql -delay 500 -file test.db -blocksize 2048 { 37 PRAGMA auto_vacuum=OFF; 38 PRAGMA page_size=1024; 39 BEGIN; 40 CREATE TABLE abc AS SELECT 1 AS a, 2 AS b, 3 AS c; 41 CREATE TABLE def AS SELECT 1 AS d, 2 AS e, 3 AS f; 42 COMMIT; 43 } 44 file size test.db 45} {3072} 46 47for {set ii 0} {$ii < 5} {incr ii} { 48 49 # Simple test using the database created above: Create a new 50 # table so that page 1 and page 4 are modified. Using a 51 # block-size of 2048 and page-size of 1024, this means 52 # pages 2 and 3 must also be saved in the journal to avoid 53 # risking corruption. 54 # 55 # The loop is so that this test can be run with a couple 56 # of different seeds for the random number generator. 57 # 58 do_test crash2-1.2.$ii { 59 crashsql -file test.db -blocksize 2048 [subst { 60 [string repeat {SELECT random();} $ii] 61 CREATE TABLE hij(h, i, j); 62 }] 63 sqlite3 db test.db 64 db eval {PRAGMA integrity_check} 65 } {ok} 66} 67 68proc signature {} { 69 return [db eval {SELECT count(*), md5sum(a), md5sum(b), md5sum(c) FROM abc}] 70} 71 72# Test case for crashing during journal sync with simulated 73# sector-size values from 1024 to 8192. 74# 75do_test crash2-2.0 { 76 execsql BEGIN 77 for {set n 0} {$n < 1000} {incr n} { 78 execsql "INSERT INTO abc VALUES($n, [expr 2*$n], [expr 3*$n])" 79 } 80 execsql { 81 INSERT INTO abc SELECT * FROM abc; 82 INSERT INTO abc SELECT * FROM abc; 83 INSERT INTO abc SELECT * FROM abc; 84 INSERT INTO abc SELECT * FROM abc; 85 INSERT INTO abc SELECT * FROM abc; 86 } 87 execsql COMMIT 88 expr ([file size test.db] / 1024) > 450 89} {1} 90for {set i 1} {$i < 30} {incr i} { 91 set sig [signature] 92 set sector [expr 1024 * 1<<($i%4)] 93 db close 94 do_test crash2-2.$i.1 { 95 crashsql -blocksize $sector -delay [expr $i%5 + 1] -file test.db-journal " 96 PRAGMA temp_store = memory; 97 BEGIN; 98 SELECT random() FROM abc LIMIT $i; 99 INSERT INTO abc SELECT randstr(10,10), 0, 0 FROM abc WHERE random()%2==0; 100 DELETE FROM abc WHERE random()%2!=0; 101 COMMIT; 102 " 103 } {1 {child process exited abnormally}} 104 do_test crash2-2.$i.2 { 105 sqlite3 db test.db 106 signature 107 } $sig 108} 109 110 111# Test case for crashing during database sync with simulated 112# sector-size values from 1024 to 8192. 113# 114for {set i 1} {$i < 10} {incr i} { 115 set sig [signature] 116 set sector [expr 1024 * 1<<($i%4)] 117 db close 118 do_test crash2-3.$i.1 { 119 crashsql -blocksize $sector -file test.db " 120 BEGIN; 121 SELECT random() FROM abc LIMIT $i; 122 INSERT INTO abc SELECT randstr(10,10), 0, 0 FROM abc WHERE random()%2==0; 123 DELETE FROM abc WHERE random()%2!=0; 124 COMMIT; 125 " 126 } {1 {child process exited abnormally}} 127 do_test crash2-3.$i.2 { 128 sqlite3 db test.db 129 signature 130 } $sig 131} 132 133finish_test 134