← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/likewise-open/oneiric

« back to all changes in this revision

Viewing changes to sqlite/test/memsubsys1.test

  • Committer: Bazaar Package Importer
  • Author(s): Scott Salley
  • Date: 2010-11-22 12:06:00 UTC
  • mfrom: (1.1.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20101122120600-8lba1fpceot71wlb
Tags: 6.0.0.53010-1
Likewise Open 6.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
sqlite/test/memsubsys1.test
 
1
# 2008 June 18
 
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
# This file contains tests of the memory allocation subsystem
 
13
#
 
14
# $Id: memsubsys1.test,v 1.17 2009/07/18 14:36:24 danielk1977 Exp $
 
15
 
 
16
set testdir [file dirname $argv0]
 
17
source $testdir/tester.tcl
 
18
sqlite3_reset_auto_extension
 
19
 
 
20
# This procedure constructs a new database in test.db.  It fills
 
21
# this database with many small records (enough to force multiple
 
22
# rebalance operations in the btree-layer and to require a large
 
23
# page cache), verifies correct results, then returns.
 
24
#
 
25
proc build_test_db {testname pragmas} {
 
26
  catch {db close}
 
27
  file delete -force test.db test.db-journal
 
28
  sqlite3 db test.db
 
29
  sqlite3_db_config_lookaside db 0 0 0
 
30
  db eval $pragmas
 
31
  db eval {
 
32
    CREATE TABLE t1(x, y);
 
33
    CREATE TABLE t2(a, b);
 
34
    CREATE INDEX i1 ON t1(x,y);
 
35
    INSERT INTO t1 VALUES(1, 100);
 
36
    INSERT INTO t1 VALUES(2, 200);
 
37
  }
 
38
  for {set i 2} {$i<5000} {incr i $i} {
 
39
    db eval {INSERT INTO t2 SELECT * FROM t1}
 
40
    db eval {INSERT INTO t1 SELECT a+$i, a+b*100 FROM t2}
 
41
    db eval {DELETE FROM t2}
 
42
  }
 
43
  do_test $testname.1 {
 
44
    db eval {SELECT count(*) FROM t1}
 
45
  } 8192
 
46
  integrity_check $testname.2
 
47
}
 
48
 
 
49
# Reset all of the highwater marks.
 
50
#
 
51
proc reset_highwater_marks {} {
 
52
  sqlite3_status SQLITE_STATUS_MEMORY_USED 1
 
53
  sqlite3_status SQLITE_STATUS_MALLOC_SIZE 1
 
54
  sqlite3_status SQLITE_STATUS_PAGECACHE_USED 1
 
55
  sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 1
 
56
  sqlite3_status SQLITE_STATUS_PAGECACHE_SIZE 1
 
57
  sqlite3_status SQLITE_STATUS_SCRATCH_USED 1
 
58
  sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 1
 
59
  sqlite3_status SQLITE_STATUS_SCRATCH_SIZE 1
 
60
  sqlite3_status SQLITE_STATUS_PARSER_STACK 1
 
61
}
 
62
 
 
63
set xtra_size 256
 
64
 
 
65
# Test 1:  Both PAGECACHE and SCRATCH are shut down.
 
66
#
 
67
db close
 
68
sqlite3_shutdown
 
69
sqlite3_config_lookaside 0 0
 
70
sqlite3_initialize
 
71
reset_highwater_marks
 
72
build_test_db memsubsys1-1 {PRAGMA page_size=1024}
 
73
do_test memsubsys1-1.3 {
 
74
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
75
} 0
 
76
do_test memsubsys1-1.4 {
 
77
  set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
 
78
} 0
 
79
set max_pagecache [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
 
80
#show_memstats
 
81
 
 
82
# Test 2:  Activate PAGECACHE with 20 pages
 
83
#
 
84
db close
 
85
sqlite3_shutdown
 
86
sqlite3_config_pagecache [expr 1024+$xtra_size] 20
 
87
sqlite3_initialize
 
88
reset_highwater_marks
 
89
build_test_db memsubsys1-2 {PRAGMA page_size=1024}
 
90
#show_memstats
 
91
do_test memsubsys1-2.3 {
 
92
  set pg_ovfl [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
 
93
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
94
  expr {
 
95
    ($pg_used*1024 + $pg_ovfl) < $max_pagecache &&
 
96
    ($pg_used*(1024+$xtra_size) + $pg_ovfl) >= $max_pagecache
 
97
  }
 
98
} 1
 
99
do_test memsubsys1-2.4 {
 
100
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
101
} 19
 
102
do_test memsubsys1-2.5 {
 
103
  set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
 
104
} 0
 
105
 
 
106
# Test 3:  Activate PAGECACHE with 20 pages but use the wrong page size
 
107
# so that PAGECACHE is not used.
 
108
#
 
109
db close
 
110
sqlite3_shutdown
 
111
sqlite3_config_pagecache [expr 512+$xtra_size] 20
 
112
sqlite3_initialize
 
113
reset_highwater_marks
 
114
build_test_db memsubsys1-3.1 {PRAGMA page_size=1024}
 
115
#show_memstats
 
116
do_test memsubsys1-3.1.3 {
 
117
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
118
} 0
 
119
do_test memsubsys1-3.1.4 {
 
120
  set overflow [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
 
121
} $max_pagecache
 
122
do_test memsubsys1-3.1.5 {
 
123
  set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
 
124
} 0
 
125
db close
 
126
sqlite3_shutdown
 
127
sqlite3_config_pagecache [expr 2048+$xtra_size] 20
 
128
sqlite3_initialize
 
129
reset_highwater_marks
 
130
build_test_db memsubsys1-3.2 {PRAGMA page_size=2048}
 
131
#show_memstats
 
132
do_test memsubsys1-3.2.3 {
 
133
  db eval {PRAGMA page_size}
 
134
} 2048
 
135
do_test memsubsys1-3.2.4 {
 
136
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
137
} 19
 
138
do_test memsubsys1-3.2.5 {
 
139
  set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
 
140
} 0
 
141
 
 
142
# Test 4:  Activate both PAGECACHE and SCRATCH.
 
143
#
 
144
db close
 
145
sqlite3_shutdown
 
146
sqlite3_config_pagecache [expr 1024+$xtra_size] 50
 
147
sqlite3_config_scratch 6000 2
 
148
sqlite3_initialize
 
149
reset_highwater_marks
 
150
build_test_db memsubsys1-4 {PRAGMA page_size=1024}
 
151
#show_memstats
 
152
do_test memsubsys1-4.3 {
 
153
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
154
} 49
 
155
do_test memsubsys1-4.4 {
 
156
  set pg_ovfl [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
 
157
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
158
  expr {
 
159
    ($pg_used*1024 + $pg_ovfl) < $max_pagecache &&
 
160
    ($pg_used*(1024+$xtra_size) + $pg_ovfl) >= $max_pagecache
 
161
  }
 
162
} 1
 
163
do_test memsubsys1-4.5 {
 
164
  set maxreq [lindex [sqlite3_status SQLITE_STATUS_MALLOC_SIZE 0] 2]
 
165
  expr {$maxreq<7000}
 
166
} 1
 
167
do_test memsubsys1-4.6 {
 
168
  set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
 
169
} 1
 
170
 
 
171
# Test 5:  Activate both PAGECACHE and SCRATCH.  But make the page size
 
172
# such that the SCRATCH allocations are too small.
 
173
#
 
174
db close
 
175
sqlite3_shutdown
 
176
sqlite3_config_pagecache [expr 4096+$xtra_size] 24
 
177
sqlite3_config_scratch 6000 2
 
178
sqlite3_initialize
 
179
reset_highwater_marks
 
180
build_test_db memsubsys1-5 {PRAGMA page_size=4096}
 
181
#show_memstats
 
182
do_test memsubsys1-5.3 {
 
183
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
184
} 23
 
185
do_test memsubsys1-5.4 {
 
186
  set maxreq [lindex [sqlite3_status SQLITE_STATUS_MALLOC_SIZE 0] 2]
 
187
  expr {$maxreq>4096}
 
188
} 1
 
189
do_test memsubsys1-5.5 {
 
190
  set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
 
191
} 0
 
192
do_test memsubsys1-5.6 {
 
193
  set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2]
 
194
  expr {$s_ovfl>6000}
 
195
} 1
 
196
 
 
197
# Test 6:  Activate both PAGECACHE and SCRATCH with a 4k page size.
 
198
# Make it so that SCRATCH is large enough
 
199
#
 
200
db close
 
201
sqlite3_shutdown
 
202
sqlite3_config_pagecache [expr 4096+$xtra_size] 24
 
203
sqlite3_config_scratch 25300 1
 
204
sqlite3_initialize
 
205
reset_highwater_marks
 
206
build_test_db memsubsys1-6 {PRAGMA page_size=4096}
 
207
#show_memstats
 
208
do_test memsubsys1-6.3 {
 
209
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
210
} 23
 
211
do_test memsubsys1-6.4 {
 
212
  set maxreq [lindex [sqlite3_status SQLITE_STATUS_MALLOC_SIZE 0] 2]
 
213
  expr {$maxreq>4096 && $maxreq<=(4096+$xtra_size)}
 
214
} 1
 
215
do_test memsubsys1-6.5 {
 
216
  set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
 
217
} 1
 
218
do_test memsubsys1-6.6 {
 
219
  set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2]
 
220
} 0
 
221
 
 
222
# Test 7:  Activate both PAGECACHE and SCRATCH with a 4k page size.
 
223
# Set cache_size small so that no PAGECACHE overflow occurs.  Verify
 
224
# that maximum allocation size is small.
 
225
#
 
226
db close
 
227
sqlite3_shutdown
 
228
sqlite3_config_pagecache [expr 4096+$xtra_size] 24
 
229
sqlite3_config_scratch 25300 1
 
230
sqlite3_initialize
 
231
reset_highwater_marks
 
232
build_test_db memsubsys1-7 {
 
233
  PRAGMA page_size=4096;
 
234
  PRAGMA cache_size=10;
 
235
  PRAGMA temp_store=memory;
 
236
}
 
237
#show_memstats
 
238
do_test memsubsys1-7.3 {
 
239
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
 
240
  expr {$pg_used<24}
 
241
} 1
 
242
do_test memsubsys1-7.4 {
 
243
  set pg_ovfl [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
 
244
} 0
 
245
do_test memsubsys1-7.5 {
 
246
  set maxreq [lindex [sqlite3_status SQLITE_STATUS_MALLOC_SIZE 0] 2]
 
247
  expr {$maxreq<4100}
 
248
} 1
 
249
do_test memsubsys1-7.6 {
 
250
  set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
 
251
} 1
 
252
do_test memsubsys1-7.7 {
 
253
  set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2]
 
254
} 0
 
255
 
 
256
# Test 8:  Disable PAGECACHE.  Make available SCRATCH zero.  Verify that
 
257
# the SCRATCH overflow logic works.
 
258
#
 
259
db close
 
260
sqlite3_shutdown
 
261
sqlite3_config_pagecache 0 0
 
262
sqlite3_config_scratch 25000 0
 
263
sqlite3_initialize
 
264
reset_highwater_marks
 
265
do_test memsubsys1-8.1 {
 
266
  set pg_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
 
267
} 0
 
268
do_test memsubsys1-8.2 {
 
269
  set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2]
 
270
} 0
 
271
do_test memsubsys1-8.3 {
 
272
  sqlite3 db :memory:
 
273
  db eval {
 
274
    CREATE TABLE t1(x);
 
275
    INSERT INTO t1 VALUES(zeroblob(400));
 
276
    INSERT INTO t1 VALUES(zeroblob(400));
 
277
    INSERT INTO t1 SELECT * FROM t1;
 
278
    INSERT INTO t1 SELECT * FROM t1;
 
279
    INSERT INTO t1 SELECT * FROM t1;
 
280
  }
 
281
  expr {[lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2]>0}
 
282
} 1
 
283
db close
 
284
sqlite3_shutdown
 
285
sqlite3_config_memstatus 0
 
286
sqlite3_initialize
 
287
do_test memsubsys1-8.4 {
 
288
  sqlite3 db :memory:
 
289
  db eval {
 
290
    CREATE TABLE t1(x);
 
291
    INSERT INTO t1 VALUES(zeroblob(400));
 
292
    INSERT INTO t1 VALUES(zeroblob(400));
 
293
    INSERT INTO t1 SELECT * FROM t1;
 
294
    INSERT INTO t1 SELECT * FROM t1;
 
295
    INSERT INTO t1 SELECT * FROM t1;
 
296
    SELECT rowid FROM t1;
 
297
  }
 
298
} {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16}
 
299
 
 
300
 
 
301
db close
 
302
sqlite3_shutdown
 
303
sqlite3_config_memstatus 1
 
304
sqlite3_config_pagecache 0 0
 
305
sqlite3_config_scratch 0 0
 
306
sqlite3_config_lookaside 100 500
 
307
sqlite3_initialize
 
308
autoinstall_test_functions
 
309
finish_test