# 2008 March 20 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # # $Id: crash7.test,v 1.1 2008/04/03 14:36:26 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable !crashtest { finish_test return } proc signature {} { return [db eval {SELECT count(*), md5sum(a), md5sum(b), md5sum(c) FROM abc}] } foreach f [list test.db test.db-journal] { for {set ii 1} {$ii < 64} {incr ii} { db close delete_file test.db sqlite3 db test.db set from_size [expr 1024 << ($ii&3)] set to_size [expr 1024 << (($ii>>2)&3)] execsql " PRAGMA page_size = $from_size; BEGIN; CREATE TABLE abc(a PRIMARY KEY, b, c); INSERT INTO abc VALUES(randomblob(100), randomblob(200), randomblob(1000)); INSERT INTO abc SELECT randomblob(1000), randomblob(200), randomblob(100) FROM abc; INSERT INTO abc SELECT randomblob(100), randomblob(200), randomblob(1000) FROM abc; INSERT INTO abc SELECT randomblob(100), randomblob(200), randomblob(1000) FROM abc; INSERT INTO abc SELECT randomblob(100), randomblob(200), randomblob(1000) FROM abc; INSERT INTO abc SELECT randomblob(100), randomblob(200), randomblob(1000) FROM abc WHERE [expr $ii&16]; INSERT INTO abc SELECT randomblob(25), randomblob(45), randomblob(9456) FROM abc WHERE [expr $ii&32]; INSERT INTO abc SELECT randomblob(100), randomblob(200), randomblob(1000) FROM abc WHERE [expr $ii&8]; INSERT INTO abc SELECT randomblob(25), randomblob(45), randomblob(9456) FROM abc WHERE [expr $ii&4]; COMMIT; " set sig [signature] db close do_test crash7-1.$ii.crash { crashsql -file $f " PRAGMA page_size = $to_size; VACUUM; " } {1 {child process exited abnormally}} sqlite3 db test.db integrity_check crash7-1.$ii.integrity } } finish_test