xref: /sqlite-3.40.0/test/tkt3918.test (revision 5822d6fe) 
1# 2009 June 17
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# $Id: tkt3918.test,v 1.1 2009/06/17 11:13:28 danielk1977 Exp $
13
14set testdir [file dirname $argv0]
15source $testdir/tester.tcl
16
17do_test tkt3918.1 {
18  execsql {
19    PRAGMA page_size = 1024;
20    PRAGMA auto_vacuum = incremental;
21    CREATE TABLE t1(i, x);
22  }
23} {}
24do_test tkt3918.2 {
25  execsql {
26    INSERT INTO t1 VALUES(1, randstr(1000,1000));
27    INSERT INTO t1 VALUES(2, zeroblob(248*1020 + 100));
28    INSERT INTO t1 VALUES(3, zeroblob(2*1020 + 100));
29  }
30} {}
31
32# This set of statements sets up the free list so that the
33# first free-list trunk page contains only a single leaf.
34# The leaf page is also the last page in the database. The
35# second free-list trunk page contains, amongst other things,
36# page number 4.
37do_test tkt3918.3 {
38  execsql {
39    DELETE FROM t1 WHERE i = 2;
40    DELETE FROM t1 WHERE i = 1;
41    DELETE FROM t1 WHERE i = 3;
42  }
43} {}
44
45# Incrementally vacuum the database to reduce its size by a single
46# page. This will remove the single leaf from the first page in
47# the linked list of free-list trunk pages.
48do_test tkt3918.4 {
49  execsql { PRAGMA incremental_vacuum = 1 }
50} {}
51
52# Create another table. This operation will attempt to extract
53# page 4 from the database free-list. Bug 3918 caused sqlite to
54# incorrectly report corruption here.
55do_test tkt3918.5 {
56  execsql { CREATE TABLE t2(a, b) }
57} {}
58
59finish_test
60