AryaWu/sqlite

1# 2001 September 152#3# The author disclaims copyright to this source code.  In place of4# 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 to14# uses its rollback journal to recover intact (no database corruption)15# from a power failure during the middle of a COMMIT. Even more16# specifically, the tests in this file verify this functionality17# 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.tcl23 24ifcapable !crashtest {25  finish_test26  return27}28 29db close30 31# This test is designed to check that the crash-test infrastructure32# can create files that do not consist of an integer number of33# 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.db45} {3072}46 47for {set ii 0} {$ii < 5} {incr ii} {48 49  # Simple test using the database created above: Create a new50  # table so that page 1 and page 4 are modified. Using a51  # block-size of 2048 and page-size of 1024, this means52  # pages 2 and 3 must also be saved in the journal to avoid53  # risking corruption.54  #55  # The loop is so that this test can be run with a couple56  # 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.db64    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 simulated73# sector-size values from 1024 to 8192.74#75do_test crash2-2.0 {76  execsql BEGIN77  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 COMMIT88  expr ([file size test.db] / 1024) > 45089} {1}90for {set i 1} {$i < 30} {incr i} {91  set sig [signature]92  set sector [expr 1024 * 1<<($i%4)]93  db close94  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.db106    signature107  } $sig108} 109 110 111# Test case for crashing during database sync with simulated112# 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 close118  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.db129    signature130  } $sig131} 132 133finish_test134