2008-12-19 16:31:11 +00:00
# 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.
#
#***********************************************************************
#
2009-06-09 15:25:33 +00:00
# $Id: savepoint4.test,v 1.7 2009/06/09 15:25:33 danielk1977 Exp $
2008-12-19 16:31:11 +00:00
set testdir [file dirname $argv0]
source $testdir/tester.tcl
2009-04-23 18:42:04 +00:00
ifcapable !crashtest {
finish_test
return
}
2008-12-19 16:31:11 +00:00
proc signature {} {
2008-12-19 18:45:52 +00:00
return [db eval {SELECT count(*), md5sum(x) FROM t1}]
2008-12-19 16:31:11 +00:00
}
2009-02-10 14:45:12 +00:00
set ITERATIONS 25 ;# Number of iterations for savepoint4-1
set ITERATIONS2 13 ;# Number of iterations for savepoint4-2
2008-12-19 16:31:11 +00:00
expr srand(0)
do_test savepoint4-1 {
execsql {
PRAGMA cache_size=10;
BEGIN;
2008-12-19 18:45:52 +00:00
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;
2008-12-19 16:31:11 +00:00
COMMIT;
2008-12-19 18:45:52 +00:00
SELECT count(*) FROM t1;
2008-12-19 16:31:11 +00:00
}
} {1024}
unset -nocomplain ::sig
2008-12-19 18:45:52 +00:00
for {set ii 1} {$ii<=$ITERATIONS} {incr ii} {
2008-12-19 16:31:11 +00:00
set ::sig [signature]
2008-12-19 18:45:52 +00:00
for {set iDelay 1 ; set crashed 1} {$crashed} {incr iDelay} {
do_test savepoint4-1.$ii.1.$iDelay {
2008-12-19 16:31:11 +00:00
set ret [crashsql -delay $iDelay -file test.db-journal {
PRAGMA cache_size = 20;
SAVEPOINT one;
2008-12-19 18:45:52 +00:00
DELETE FROM t1 WHERE random()%2==0;
2008-12-19 16:31:11 +00:00
SAVEPOINT two;
2008-12-19 18:45:52 +00:00
INSERT INTO t1 SELECT randstr(10,10)||x FROM t1;
2008-12-19 16:31:11 +00:00
ROLLBACK TO two;
2008-12-19 18:45:52 +00:00
UPDATE t1 SET x = randstr(10, 400) WHERE random()%10;
2008-12-19 16:31:11 +00:00
RELEASE two;
ROLLBACK TO one;
2008-12-19 18:45:52 +00:00
RELEASE one;
2008-12-19 16:31:11 +00:00
}]
signature
} $::sig
2008-12-19 18:45:52 +00:00
2008-12-19 16:31:11 +00:00
set crashed [lindex $ret 0]
2008-12-19 18:45:52 +00:00
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}
2009-02-10 14:45:12 +00:00
for {set ii 1} {$ii<=$ITERATIONS2} {incr ii} {
2008-12-19 18:45:52 +00:00
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;
2009-06-09 15:25:33 +00:00
UPDATE t1 SET x = substr(x||x, 12, 100000) WHERE (rowid%12)==0;
2008-12-19 18:45:52 +00:00
SAVEPOINT four;
2009-06-09 15:25:33 +00:00
UPDATE t1 SET x = substr(x||x, 14, 100000) WHERE (rowid%14)==0;
2008-12-19 18:45:52 +00:00
ROLLBACK TO three;
2009-06-09 15:25:33 +00:00
UPDATE t1 SET x = substr(x||x, 13, 100000) WHERE (rowid%13)==0;
2008-12-19 18:45:52 +00:00
RELEASE three;
2009-06-09 15:25:33 +00:00
DELETE FROM t1 WHERE rowid > (
SELECT rowid FROM t1 ORDER BY rowid ASC LIMIT 1 OFFSET 256
);
2008-12-19 18:45:52 +00:00
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]
}
2008-12-19 16:31:11 +00:00
}
2008-12-19 18:45:52 +00:00
do_test savepoint4-2.$ii.2 {
2008-12-19 16:31:11 +00:00
execsql {
2008-12-19 18:45:52 +00:00
DELETE FROM t1 WHERE random()%10==0;
INSERT INTO t1 SELECT randstr(10,10)||x FROM t1 WHERE random()%9==0;
2008-12-19 16:31:11 +00:00
}
} {}
}
finish_test