Return to wal7.test CVS log

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

sqlite3

    1: # 2011 May 16
    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: # This file implements regression tests for SQLite library.  The
   12: # focus of this file is testing the PRAGMA journal_size_limit when
   13: # in WAL mode.
   14: #
   15: 
   16: set testdir [file dirname $argv0]
   17: source $testdir/tester.tcl
   18: ifcapable !wal {finish_test ; return }
   19: 
   20: # Case 1:  No size limit.  Journal can get large.
   21: #
   22: do_test wal7-1.0 {
   23:   db close
   24:   forcedelete test.db
   25:   sqlite3 db test.db
   26:   db eval {
   27:     PRAGMA page_size=1024;
   28:     PRAGMA journal_mode=WAL;
   29:     PRAGMA wal_autocheckpoint=50;  -- 50 pages
   30:     CREATE TABLE t1(x, y UNIQUE);
   31:     INSERT INTO t1 VALUES(1,2);
   32:     INSERT INTO t1 VALUES(zeroblob(200000),4);
   33:     CREATE TABLE t2(z);
   34:     DELETE FROM t1;
   35:     INSERT INTO t2 SELECT x FROM t1;
   36:   }
   37:   expr {[file size test.db-wal]>50*1100}
   38: } 1
   39: do_test wal7-1.1 {
   40:   db eval {PRAGMA wal_checkpoint}
   41:   expr {[file size test.db-wal]>50*1100}
   42: } 1
   43: do_test wal7-1.2 {
   44:   db eval {INSERT INTO t2 VALUES('hi');}
   45:   expr {[file size test.db-wal]>50*1100}
   46: } 1
   47: 
   48: # Case 2:  Size limit at half the autocheckpoint size.
   49: #
   50: do_test wal7-2.0 {
   51:   db close
   52:   forcedelete test.db
   53:   sqlite3 db test.db
   54:   db eval {
   55:     PRAGMA page_size=1024;
   56:     PRAGMA journal_mode=WAL;
   57:     PRAGMA wal_autocheckpoint=50;  -- 50 pages
   58:     PRAGMA journal_size_limit=25000;
   59:     CREATE TABLE t1(x, y UNIQUE);
   60:     INSERT INTO t1 VALUES(1,2);
   61:     INSERT INTO t1 VALUES(zeroblob(200000),4);
   62:     CREATE TABLE t2(z);
   63:     DELETE FROM t1;
   64:     INSERT INTO t2 VALUES(1);
   65:   }
   66:   file size test.db-wal
   67: } 25000
   68: 
   69: 
   70: # Case 3:  Size limit of zero.
   71: #
   72: do_test wal7-3.0 {
   73:   db close
   74:   forcedelete test.db
   75:   sqlite3 db test.db
   76:   db eval {
   77:     PRAGMA page_size=1024;
   78:     PRAGMA journal_mode=WAL;
   79:     PRAGMA wal_autocheckpoint=50;  -- 50 pages
   80:     PRAGMA journal_size_limit=0;
   81:     CREATE TABLE t1(x, y UNIQUE);
   82:     INSERT INTO t1 VALUES(1,2);
   83:     INSERT INTO t1 VALUES(zeroblob(200000),4);
   84:     CREATE TABLE t2(z);
   85:     DELETE FROM t1;
   86:     INSERT INTO t2 VALUES(1);
   87:   }
   88:   set sz [file size test.db-wal]
   89:   expr {$sz>0 && $sz<13700}
   90: } 1
   91: 
   92: 
   93: # Case 4:  Size limit set before going WAL
   94: #
   95: do_test wal7-4.0 {
   96:   db close
   97:   forcedelete test.db
   98:   sqlite3 db test.db
   99:   db eval {
  100:     PRAGMA page_size=1024;
  101:     PRAGMA journal_size_limit=25000;
  102:     PRAGMA journal_mode=WAL;
  103:     PRAGMA wal_autocheckpoint=50;  -- 50 pages
  104:     CREATE TABLE t1(x, y UNIQUE);
  105:     INSERT INTO t1 VALUES(1,2);
  106:     INSERT INTO t1 VALUES(zeroblob(200000),4);
  107:     CREATE TABLE t2(z);
  108:     DELETE FROM t1;
  109:     INSERT INTO t2 VALUES(1);
  110:   }
  111:   set sz [file size test.db-wal]
  112: } 25000
  113: 
  114: 
  115: 
  116: 
  117: 
  118: finish_test