xref: /sqlite-3.40.0/test/wal7.test (revision 518d6565) 
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