blob: 257edb901989f1df29d0847112520c60388f25c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
# 2007 May 04
#
# The author disclaims copyright to this source code. In place of
# a legal notice, here is a blessing:
#
# May you do good and not evil.
# May you find forgiveness for yourself and forgive others.
# May you share freely, never taking more than you give.
#
#***********************************************************************
# This file implements regression tests for SQLite library. The
# focus of this file is testing the incremental vacuum feature.
#
# $Id: incrvacuum2.test,v 1.5 2008/05/07 07:13:16 danielk1977 Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# If this build of the library does not support auto-vacuum, omit this
# whole file.
ifcapable {!autovacuum || !pragma} {
finish_test
return
}
# If the OMIT_INCRBLOB symbol was defined at compile time, there
# is no zeroblob() function available. So create a similar
# function here using Tcl. It doesn't return a blob, but it returns
# data of the required length, which is good enough for this
# test file.
ifcapable !incrblob {
proc zeroblob {n} { string repeat 0 $n }
db function zeroblob zeroblob
}
# Create a database in incremental vacuum mode that has many
# pages on the freelist.
#
do_test incrvacuum2-1.1 {
execsql {
PRAGMA page_size=1024;
PRAGMA auto_vacuum=incremental;
CREATE TABLE t1(x);
INSERT INTO t1 VALUES(zeroblob(30000));
DELETE FROM t1;
}
file size test.db
} {32768}
# Vacuum off a single page.
#
do_test incrvacuum2-1.2 {
execsql {
PRAGMA incremental_vacuum(1);
}
file size test.db
} {31744}
# Vacuum off five pages
#
do_test incrvacuum2-1.3 {
execsql {
PRAGMA incremental_vacuum(5);
}
file size test.db
} {26624}
# Vacuum off all the rest
#
do_test incrvacuum2-1.4 {
execsql {
PRAGMA incremental_vacuum(1000);
}
file size test.db
} {3072}
# Make sure incremental vacuum works on attached databases.
#
ifcapable attach {
do_test incrvacuum2-2.1 {
file delete -force test2.db test2.db-journal
execsql {
ATTACH DATABASE 'test2.db' AS aux;
PRAGMA aux.auto_vacuum=incremental;
CREATE TABLE aux.t2(x);
INSERT INTO t2 VALUES(zeroblob(30000));
INSERT INTO t1 SELECT * FROM t2;
DELETE FROM t2;
DELETE FROM t1;
}
list [file size test.db] [file size test2.db]
} {32768 32768}
do_test incrvacuum2-2.2 {
execsql {
PRAGMA aux.incremental_vacuum(1)
}
list [file size test.db] [file size test2.db]
} {32768 31744}
do_test incrvacuum2-2.3 {
execsql {
PRAGMA aux.incremental_vacuum(5)
}
list [file size test.db] [file size test2.db]
} {32768 26624}
do_test incrvacuum2-2.4 {
execsql {
PRAGMA main.incremental_vacuum(5)
}
list [file size test.db] [file size test2.db]
} {27648 26624}
do_test incrvacuum2-2.5 {
execsql {
PRAGMA aux.incremental_vacuum
}
list [file size test.db] [file size test2.db]
} {27648 3072}
do_test incrvacuum2-2.6 {
execsql {
PRAGMA incremental_vacuum(1)
}
list [file size test.db] [file size test2.db]
} {26624 3072}
}
do_test incrvacuum2-3.1 {
execsql {
PRAGMA auto_vacuum = 'full';
BEGIN;
CREATE TABLE abc(a);
INSERT INTO abc VALUES(randstr(1500,1500));
COMMIT;
}
} {}
do_test incrvacuum2-3.2 {
execsql {
BEGIN;
DELETE FROM abc;
PRAGMA incremental_vacuum;
COMMIT;
}
} {}
integrity_check incremental2-3.3
finish_test
|
