1# 2009 March 28 2# 3# The author disclaims copyright to this source code. In place of 4# 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# 12# Ticket #3762: Make sure that an incremental vacuum that reduces the 13# size of the database file such that a pointer-map page is elemented 14# can be correctly rolled back. 15# 16# That ticket #3762 has been fixed has already been verified by the 17# savepoint6.test test script. But this script is simplier and a 18# redundant test never hurts. 19# 20# $Id: tkt3762.test,v 1.1 2009/03/31 00:50:36 drh Exp $ 21 22set testdir [file dirname $argv0] 23source $testdir/tester.tcl 24 25do_test tkt3762-1.1 { 26 db eval { 27 PRAGMA auto_vacuum=INCREMENTAL; 28 PRAGMA page_size=1024; 29 PRAGMA cache_size=10; 30 CREATE TABLE t1(x); 31 INSERT INTO t1 VALUES(zeroblob(900)); 32 INSERT INTO t1 VALUES(zeroblob(900)); 33 INSERT INTO t1 SELECT x FROM t1; 34 INSERT INTO t1 SELECT x FROM t1; 35 INSERT INTO t1 SELECT x FROM t1; 36 INSERT INTO t1 SELECT x FROM t1; 37 INSERT INTO t1 SELECT x FROM t1; 38 INSERT INTO t1 SELECT x FROM t1; 39 INSERT INTO t1 SELECT x FROM t1; 40 DELETE FROM t1 WHERE rowid>202; 41 VACUUM; 42 43 BEGIN; 44 DELETE FROM t1 WHERE rowid IN (10,11,12) ; 45 PRAGMA incremental_vacuum(10); 46 UPDATE t1 SET x=zeroblob(900) WHERE rowid BETWEEN 100 AND 110; 47 INSERT INTO t1 VALUES(zeroblob(39000)); 48 SELECT count(*) FROM t1; 49 ROLLBACK; 50 } 51 db eval {PRAGMA integrity_check} 52} {ok} 53 54finish_test 55