Return to tkt-5e10420e8d.test CVS log

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

sqlite3

    1: # 2010 August 23
    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: 
   13: set testdir [file dirname $argv0]
   14: source $testdir/tester.tcl
   15: 
   16: do_execsql_test tkt-5e10420e8d.1 {
   17:   PRAGMA page_size = 1024;
   18:   PRAGMA auto_vacuum = incremental;
   19: 
   20:   CREATE TABLE t1(x);
   21:   CREATE TABLE t2(x);
   22:   CREATE TABLE t3(x);
   23: } {}
   24: 
   25: do_execsql_test tkt-5e10420e8d.2 {
   26:   INSERT INTO t3 VALUES(randomblob(500 + 1024*248));
   27:   INSERT INTO t1 VALUES(randomblob(1500));
   28:   INSERT INTO t2 VALUES(randomblob(500 + 1024*248));
   29: 
   30:   DELETE FROM t3;
   31:   DELETE FROM t2;
   32:   DELETE FROM t1;
   33: } {}
   34: 
   35: do_execsql_test tkt-5e10420e8d.3 {
   36:   PRAGMA incremental_vacuum(248)
   37: } {}
   38: 
   39: do_execsql_test tkt-5e10420e8d.4 {
   40:   PRAGMA incremental_vacuum(1)
   41: } {}
   42: 
   43: db close
   44: sqlite3 db test.db
   45: 
   46: do_execsql_test tkt-5e10420e8d.5 {
   47:   PRAGMA integrity_check;
   48: } {ok}
   49: 
   50: finish_test