1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TclScript/memsubsys1.test Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,263 @@
1.4 +# 2008 June 18
1.5 +#
1.6 +# The author disclaims copyright to this source code. In place of
1.7 +# a legal notice, here is a blessing:
1.8 +#
1.9 +# May you do good and not evil.
1.10 +# May you find forgiveness for yourself and forgive others.
1.11 +# May you share freely, never taking more than you give.
1.12 +#
1.13 +#***********************************************************************
1.14 +#
1.15 +# This file contains tests of the memory allocation subsystem
1.16 +#
1.17 +# $Id: memsubsys1.test,v 1.12 2008/09/30 00:31:38 drh Exp $
1.18 +
1.19 +set testdir [file dirname $argv0]
1.20 +source $testdir/tester.tcl
1.21 +sqlite3_reset_auto_extension
1.22 +
1.23 +# This procedure constructs a new database in test.db. It fills
1.24 +# this database with many small records (enough to force multiple
1.25 +# rebalance operations in the btree-layer and to require a large
1.26 +# page cache), verifies correct results, then returns.
1.27 +#
1.28 +proc build_test_db {testname pragmas} {
1.29 + catch {db close}
1.30 + file delete -force test.db test.db-journal
1.31 + sqlite3 db test.db
1.32 + sqlite3_db_config_lookaside db 0 0 0
1.33 + db eval $pragmas
1.34 + db eval {
1.35 + CREATE TABLE t1(x, y);
1.36 + CREATE TABLE t2(a, b);
1.37 + CREATE INDEX i1 ON t1(x,y);
1.38 + INSERT INTO t1 VALUES(1, 100);
1.39 + INSERT INTO t1 VALUES(2, 200);
1.40 + }
1.41 + for {set i 2} {$i<5000} {incr i $i} {
1.42 + db eval {INSERT INTO t2 SELECT * FROM t1}
1.43 + db eval {INSERT INTO t1 SELECT a+$i, a+b*100 FROM t2}
1.44 + db eval {DELETE FROM t2}
1.45 + }
1.46 + do_test $testname.1 {
1.47 + db eval {SELECT count(*) FROM t1}
1.48 + } 8192
1.49 + integrity_check $testname.2
1.50 +}
1.51 +
1.52 +# Reset all of the highwater marks.
1.53 +#
1.54 +proc reset_highwater_marks {} {
1.55 + sqlite3_status SQLITE_STATUS_MEMORY_USED 1
1.56 + sqlite3_status SQLITE_STATUS_MALLOC_SIZE 1
1.57 + sqlite3_status SQLITE_STATUS_PAGECACHE_USED 1
1.58 + sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 1
1.59 + sqlite3_status SQLITE_STATUS_PAGECACHE_SIZE 1
1.60 + sqlite3_status SQLITE_STATUS_SCRATCH_USED 1
1.61 + sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 1
1.62 + sqlite3_status SQLITE_STATUS_SCRATCH_SIZE 1
1.63 + sqlite3_status SQLITE_STATUS_PARSER_STACK 1
1.64 +}
1.65 +
1.66 +set xtra_size 256
1.67 +
1.68 +# Test 1: Both PAGECACHE and SCRATCH are shut down.
1.69 +#
1.70 +db close
1.71 +sqlite3_shutdown
1.72 +sqlite3_config_lookaside 0 0
1.73 +sqlite3_initialize
1.74 +reset_highwater_marks
1.75 +build_test_db memsubsys1-1 {PRAGMA page_size=1024}
1.76 +do_test memsubsys1-1.3 {
1.77 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.78 +} 0
1.79 +do_test memsubsys1-1.4 {
1.80 + set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
1.81 +} 0
1.82 +set max_pagecache [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
1.83 +#show_memstats
1.84 +
1.85 +# Test 2: Activate PAGECACHE with 20 pages
1.86 +#
1.87 +db close
1.88 +sqlite3_shutdown
1.89 +sqlite3_config_pagecache [expr 1024+$xtra_size] 20
1.90 +sqlite3_initialize
1.91 +reset_highwater_marks
1.92 +build_test_db memsubsys1-2 {PRAGMA page_size=1024}
1.93 +#show_memstats
1.94 +do_test memsubsys1-2.3 {
1.95 + set pg_ovfl [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
1.96 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.97 + expr {
1.98 + ($pg_used*1024 + $pg_ovfl) < $max_pagecache &&
1.99 + ($pg_used*(1024+$xtra_size) + $pg_ovfl) >= $max_pagecache
1.100 + }
1.101 +} 1
1.102 +do_test memsubsys1-2.4 {
1.103 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.104 +} 19
1.105 +do_test memsubsys1-2.5 {
1.106 + set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
1.107 +} 0
1.108 +
1.109 +# Test 3: Activate PAGECACHE with 20 pages but use the wrong page size
1.110 +# so that PAGECACHE is not used.
1.111 +#
1.112 +db close
1.113 +sqlite3_shutdown
1.114 +sqlite3_config_pagecache [expr 512+$xtra_size] 20
1.115 +sqlite3_initialize
1.116 +reset_highwater_marks
1.117 +build_test_db memsubsys1-3.1 {PRAGMA page_size=1024}
1.118 +#show_memstats
1.119 +do_test memsubsys1-3.1.3 {
1.120 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.121 +} 0
1.122 +do_test memsubsys1-3.1.4 {
1.123 + set overflow [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
1.124 +} $max_pagecache
1.125 +do_test memsubsys1-3.1.5 {
1.126 + set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
1.127 +} 0
1.128 +db close
1.129 +sqlite3_shutdown
1.130 +sqlite3_config_pagecache [expr 2048+$xtra_size] 20
1.131 +sqlite3_initialize
1.132 +reset_highwater_marks
1.133 +build_test_db memsubsys1-3.2 {PRAGMA page_size=2048}
1.134 +#show_memstats
1.135 +do_test memsubsys1-3.2.3 {
1.136 + db eval {PRAGMA page_size}
1.137 +} 2048
1.138 +do_test memsubsys1-3.2.4 {
1.139 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.140 +} 19
1.141 +do_test memsubsys1-3.2.5 {
1.142 + set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
1.143 +} 0
1.144 +
1.145 +# Test 4: Activate both PAGECACHE and SCRATCH.
1.146 +#
1.147 +db close
1.148 +sqlite3_shutdown
1.149 +sqlite3_config_pagecache [expr 1024+$xtra_size] 50
1.150 +sqlite3_config_scratch 6000 2
1.151 +sqlite3_initialize
1.152 +reset_highwater_marks
1.153 +build_test_db memsubsys1-4 {PRAGMA page_size=1024}
1.154 +#show_memstats
1.155 +do_test memsubsys1-4.3 {
1.156 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.157 +} 49
1.158 +do_test memsubsys1-4.4 {
1.159 + set pg_ovfl [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
1.160 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.161 + expr {
1.162 + ($pg_used*1024 + $pg_ovfl) < $max_pagecache &&
1.163 + ($pg_used*(1024+$xtra_size) + $pg_ovfl) >= $max_pagecache
1.164 + }
1.165 +} 1
1.166 +do_test memsubsys1-4.5 {
1.167 + set maxreq [lindex [sqlite3_status SQLITE_STATUS_MALLOC_SIZE 0] 2]
1.168 + expr {$maxreq<7000}
1.169 +} 1
1.170 +do_test memsubsys1-4.6 {
1.171 + set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
1.172 +} 1
1.173 +
1.174 +# Test 5: Activate both PAGECACHE and SCRATCH. But make the page size
1.175 +# such that the SCRATCH allocations are too small.
1.176 +#
1.177 +db close
1.178 +sqlite3_shutdown
1.179 +sqlite3_config_pagecache [expr 4096+$xtra_size] 24
1.180 +sqlite3_config_scratch 6000 2
1.181 +sqlite3_initialize
1.182 +reset_highwater_marks
1.183 +build_test_db memsubsys1-5 {PRAGMA page_size=4096}
1.184 +#show_memstats
1.185 +do_test memsubsys1-5.3 {
1.186 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.187 +} 23
1.188 +do_test memsubsys1-5.4 {
1.189 + set maxreq [lindex [sqlite3_status SQLITE_STATUS_MALLOC_SIZE 0] 2]
1.190 + expr {$maxreq>4096}
1.191 +} 1
1.192 +do_test memsubsys1-5.5 {
1.193 + set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
1.194 +} 0
1.195 +do_test memsubsys1-5.6 {
1.196 + set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2]
1.197 + expr {$s_ovfl>6000}
1.198 +} 1
1.199 +
1.200 +# Test 6: Activate both PAGECACHE and SCRATCH with a 4k page size.
1.201 +# Make it so that SCRATCH is large enough
1.202 +#
1.203 +db close
1.204 +sqlite3_shutdown
1.205 +sqlite3_config_pagecache [expr 4096+$xtra_size] 24
1.206 +sqlite3_config_scratch 25000 1
1.207 +sqlite3_initialize
1.208 +reset_highwater_marks
1.209 +build_test_db memsubsys1-6 {PRAGMA page_size=4096}
1.210 +#show_memstats
1.211 +do_test memsubsys1-6.3 {
1.212 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.213 +} 23
1.214 +do_test memsubsys1-6.4 {
1.215 + set maxreq [lindex [sqlite3_status SQLITE_STATUS_MALLOC_SIZE 0] 2]
1.216 + expr {$maxreq>4096 && $maxreq<=(4096+$xtra_size)}
1.217 +} 1
1.218 +do_test memsubsys1-6.5 {
1.219 + set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
1.220 +} 1
1.221 +do_test memsubsys1-6.6 {
1.222 + set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2]
1.223 +} 0
1.224 +
1.225 +# Test 7: Activate both PAGECACHE and SCRATCH with a 4k page size.
1.226 +# Set cache_size small so that no PAGECACHE overflow occurs. Verify
1.227 +# that maximum allocation size is small.
1.228 +#
1.229 +db close
1.230 +sqlite3_shutdown
1.231 +sqlite3_config_pagecache [expr 4096+$xtra_size] 24
1.232 +sqlite3_config_scratch 25000 1
1.233 +sqlite3_initialize
1.234 +reset_highwater_marks
1.235 +build_test_db memsubsys1-7 {
1.236 + PRAGMA page_size=4096;
1.237 + PRAGMA cache_size=10;
1.238 + PRAGMA temp_store=memory;
1.239 +}
1.240 +#show_memstats
1.241 +do_test memsubsys1-7.3 {
1.242 + set pg_used [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 2]
1.243 + expr {$pg_used<24}
1.244 +} 1
1.245 +do_test memsubsys1-7.4 {
1.246 + set pg_ovfl [lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 0] 2]
1.247 +} 0
1.248 +do_test memsubsys1-7.5 {
1.249 + set maxreq [lindex [sqlite3_status SQLITE_STATUS_MALLOC_SIZE 0] 2]
1.250 + expr {$maxreq<4000}
1.251 +} 1
1.252 +do_test memsubsys1-7.6 {
1.253 + set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2]
1.254 +} 1
1.255 +do_test memsubsys1-7.7 {
1.256 + set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2]
1.257 +} 0
1.258 +
1.259 +db close
1.260 +sqlite3_shutdown
1.261 +sqlite3_config_pagecache 0 0
1.262 +sqlite3_config_scratch 0 0
1.263 +sqlite3_config_lookaside 100 500
1.264 +sqlite3_initialize
1.265 +autoinstall_test_functions
1.266 +finish_test