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 16set testdir [file dirname $argv0] 17source $testdir/tester.tcl 18ifcapable !wal {finish_test ; return } 19 20# Case 1: No size limit. Journal can get large. 21# 22do_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 39do_test wal7-1.1 { 40 db eval {PRAGMA wal_checkpoint} 41 expr {[file size test.db-wal]>50*1100} 42} 1 43do_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# 50do_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# 72do_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# 95do_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 118finish_test 119