database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Add a test to savepoint.test that tests that nothing goes wrong if an incremental vacuum occurs inside a savepoint. (CVS 6057)

Browse Source 
FossilOrigin-Name: fc4f0621535e27eceb0b4b900a8c59dc06e84487
This commit is contained in:
danielk1977
2008-12-23 11:46:28 +00:00
parent ae74e03e03
commit 1f58153a9a
3 changed files with 54 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
test/savepoint.test
View File

@ -9,7 +9,7 @@
#
#***********************************************************************
#
# $Id: savepoint.test,v 1.2 2008/12/18 18:31:39 danielk1977 Exp $
# $Id: savepoint.test,v 1.3 2008/12/23 11:46:28 danielk1977 Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -330,5 +330,51 @@ do_test savepoint-5.4.4 {
execsql { SELECT x FROM blobs WHERE rowid = 2 }
} {{another blob}}
#-------------------------------------------------------------------------
# The following tests, savepoint-6.*, test an incr-vacuum inside of a
# couple of nested savepoints.
#
ifcapable {autovacuum && pragma} {
db close
file delete -force test.db
sqlite3 db test.db
do_test savepoint-6.1 {
execsql {
PRAGMA auto_vacuum = incremental;
CREATE TABLE t1(a, b, c);
CREATE INDEX i1 ON t1(a, b);
BEGIN;
INSERT INTO t1 VALUES(randstr(10,400),randstr(10,400),randstr(10,400));
}
set r "randstr(10,400)"
for {set ii 0} {$ii < 10} {incr ii} {
execsql "INSERT INTO t1 SELECT $r, $r, $r FROM t1"
}
execsql { COMMIT }
} {}
integrity_check savepoint-6.2
do_test savepoint-6.3 {
execsql {
PRAGMA cache_size = 10;
BEGIN;
UPDATE t1 SET a = randstr(10,10) WHERE (rowid%4)==0;
SAVEPOINT one;
DELETE FROM t1 WHERE rowid%2;
PRAGMA incr_vacuum;
SAVEPOINT two;
INSERT INTO t1 SELECT randstr(10,400), randstr(10,400), c FROM t1;
DELETE FROM t1 WHERE rowid%2;
PRAGMA incr_vacuum;
ROLLBACK TO one;
COMMIT;
}
} {}
integrity_check savepoint-6.4
}
finish_test