Return to tkt3918.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/tkt3918.test, revision 1.1.1.1

1.1       misho       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: 
                     14: set testdir [file dirname $argv0]
                     15: source $testdir/tester.tcl
                     16: 
                     17: do_test tkt3918.1 {
                     18:   execsql {
                     19:     PRAGMA page_size = 1024;
                     20:     PRAGMA auto_vacuum = incremental;
                     21:     CREATE TABLE t1(i, x);
                     22:   }
                     23: } {}
                     24: do_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.
                     37: do_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.
                     48: do_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.
                     55: do_test tkt3918.5 {
                     56:   execsql { CREATE TABLE t2(a, b) }
                     57: } {}
                     58: 
                     59: finish_test
                     60: