# 2008 December 15 # # 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: savepoint4.test,v 1.3 2008/12/20 08:39:57 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl proc signature {} { return [db eval {SELECT count(*), md5sum(x) FROM t1}] } set ITERATIONS 25 expr srand(0) do_test savepoint4-1 { execsql { PRAGMA cache_size=10; BEGIN; CREATE TABLE t1(x TEXT); INSERT INTO t1 VALUES(randstr(10,400)); INSERT INTO t1 VALUES(randstr(10,400)); INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; COMMIT; SELECT count(*) FROM t1; } } {1024} unset -nocomplain ::sig for {set ii 1} {$ii<=$ITERATIONS} {incr ii} { set ::sig [signature] for {set iDelay 1 ; set crashed 1} {$crashed} {incr iDelay} { do_test savepoint4-1.$ii.1.$iDelay { set ret [crashsql -delay $iDelay -file test.db-journal { PRAGMA cache_size = 20; SAVEPOINT one; DELETE FROM t1 WHERE random()%2==0; SAVEPOINT two; INSERT INTO t1 SELECT randstr(10,10)||x FROM t1; ROLLBACK TO two; UPDATE t1 SET x = randstr(10, 400) WHERE random()%10; RELEASE two; ROLLBACK TO one; RELEASE one; }] signature } $::sig set crashed [lindex $ret 0] integrity_check savepoint4-1.$ii.1.$iDelay.integrity } do_test savepoint4-1.$ii.2 { execsql { DELETE FROM t1 WHERE random()%10==0; INSERT INTO t1 SELECT randstr(10,10)||x FROM t1 WHERE random()%9==0; } } {} } do_test savepoint4-2 { execsql { PRAGMA cache_size=10; DROP TABLE IF EXISTS t1; BEGIN; CREATE TABLE t1(x TEXT); CREATE INDEX i1 ON t1(x); INSERT INTO t1 VALUES(randstr(10,400)); INSERT INTO t1 VALUES(randstr(10,400)); INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; INSERT INTO t1 SELECT randstr(10,400) FROM t1; COMMIT; SELECT count(*) FROM t1; } } {256} for {set ii 1} {$ii<=$ITERATIONS} {incr ii} { set ::sig [signature] set file test.db-journal for {set iDelay 1 ; set crashed 1} {$crashed} {incr iDelay} { do_test savepoint4-2.$ii.1.$iDelay { set ret [crashsql -delay $iDelay -file $file { SAVEPOINT one; INSERT INTO t1 SELECT * FROM t1 WHERE rowid<50; ROLLBACK TO one; INSERT INTO t1 SELECT * FROM t1 WHERE rowid<50; SAVEPOINT two; DELETE FROM t1 WHERE (random()%10)==0; SAVEPOINT three; DELETE FROM t1 WHERE (random()%10)==0; SAVEPOINT four; DELETE FROM t1 WHERE (random()%10)==0; RELEASE two; SAVEPOINT three; UPDATE t1 SET x = x||x WHERE (rowid%12)==0; SAVEPOINT four; UPDATE t1 SET x = x||x WHERE (rowid%14)==0; ROLLBACK TO three; UPDATE t1 SET x = x||x WHERE (rowid%13)==0; RELEASE three; DELETE FROM t1 WHERE rowid > (SELECT rowid FROM t1 LIMIT 1 OFFSET 256); RELEASE one; }] set crashed [lindex $ret 0] if {$crashed} { signature } else { set ::sig } } $::sig integrity_check savepoint4-2.$ii.1.$iDelay.integrity if {$crashed == 0 && $file == "test.db-journal"} { set crashed 1 set iDelay 0 set file test.db set ::sig [signature] } } do_test savepoint4-2.$ii.2 { execsql { DELETE FROM t1 WHERE random()%10==0; INSERT INTO t1 SELECT randstr(10,10)||x FROM t1 WHERE random()%9==0; } } {} } finish_test