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: memsubsys2.test,v 1.2 2008/08/12 15:21:12 drh Exp $ 15 16set testdir [file dirname $argv0] 17source $testdir/tester.tcl 18sqlite3_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# 25proc build_test_db {testname pragmas} { 26 catch {db close} 27 file delete -force test.db test.db-journal 28 sqlite3 db test.db 29 db eval $pragmas 30 db eval { 31 CREATE TABLE t1(x, y); 32 CREATE TABLE t2(a, b); 33 CREATE INDEX i1 ON t1(x,y); 34 INSERT INTO t1 VALUES(1, 100); 35 INSERT INTO t1 VALUES(2, 200); 36 } 37 for {set i 2} {$i<5000} {incr i $i} { 38 db eval {INSERT INTO t2 SELECT * FROM t1} 39 db eval {INSERT INTO t1 SELECT a+$i, a+b*100 FROM t2} 40 db eval {DELETE FROM t2} 41 } 42 do_test $testname.1 { 43 db eval {SELECT count(*) FROM t1} 44 } 8192 45 integrity_check $testname.2 46} 47 48# Reset all of the highwater marks. 49# 50proc reset_highwater_marks {} { 51 sqlite3_status SQLITE_STATUS_MEMORY_USED 1 52 sqlite3_status SQLITE_STATUS_MALLOC_SIZE 1 53 sqlite3_status SQLITE_STATUS_PAGECACHE_USED 1 54 sqlite3_status SQLITE_STATUS_PAGECACHE_OVERFLOW 1 55 sqlite3_status SQLITE_STATUS_PAGECACHE_SIZE 1 56 sqlite3_status SQLITE_STATUS_SCRATCH_USED 1 57 sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 1 58 sqlite3_status SQLITE_STATUS_SCRATCH_SIZE 1 59 sqlite3_status SQLITE_STATUS_PARSER_STACK 1 60} 61 62# Test 1: Verify that calling sqlite3_malloc(0) returns a NULL 63# pointer. 64# 65set highwater [sqlite3_memory_highwater 0] 66do_test memsubsys2-1.1 { 67 sqlite3_malloc 0 68} {0} 69do_test memsubsys2-1.2 { 70 sqlite3_memory_highwater 0 71} $highwater 72 73 74# Test 2: Verify that the highwater mark increases after a large 75# allocation. 76# 77sqlite3_memory_highwater 1 78set highwater [sqlite3_memory_highwater 0] 79do_test memsubsys2-2.1 { 80 sqlite3_free [set x [sqlite3_malloc 100000]] 81 expr {$x!="0"} 82} {1} 83do_test memsubsys2-2.2 { 84 expr {[sqlite3_memory_highwater 0]>=[sqlite3_memory_used]+$highwater} 85} {1} 86 87# Test 3: Verify that turning of memstatus disables the statistics 88# tracking. 89# 90db close 91sqlite3_shutdown 92sqlite3_config_memstatus 0 93sqlite3_initialize 94reset_highwater_marks 95set highwater [sqlite3_memory_highwater 0] 96do_test memsubsys2-3.1 { 97 set highwater 98} {0} 99do_test memsubsys2-3.2 { 100 sqlite3_malloc 0 101} {0} 102do_test memsubsys2-3.3 { 103 sqlite3_memory_highwater 0 104} {0} 105do_test memsubsys2-3.4 { 106 sqlite3_memory_used 107} {0} 108do_test memsubsys2-3.5 { 109 set ::allocation [sqlite3_malloc 100000] 110 expr {$::allocation!="0"} 111} {1} 112do_test memsubsys2-3.6 { 113 sqlite3_memory_highwater 0 114} {0} 115do_test memsubsys2-3.7 { 116 sqlite3_memory_used 117} {0} 118do_test memsubsys2-3.8 { 119 sqlite3_free $::allocation 120} {} 121do_test memsubsys2-3.9 { 122 sqlite3_free 0 123} {} 124 125 126# Test 4: Verify that turning on memstatus reenables the statistics 127# tracking. 128# 129sqlite3_shutdown 130sqlite3_config_memstatus 1 131sqlite3_initialize 132reset_highwater_marks 133set highwater [sqlite3_memory_highwater 0] 134do_test memsubsys2-4.1 { 135 set highwater 136} {0} 137do_test memsubsys2-4.2 { 138 sqlite3_malloc 0 139} {0} 140do_test memsubsys2-4.3 { 141 sqlite3_memory_highwater 0 142} {0} 143do_test memsubsys2-4.4 { 144 sqlite3_memory_used 145} {0} 146do_test memsubsys2-4.5 { 147 set ::allocation [sqlite3_malloc 100000] 148 expr {$::allocation!="0"} 149} {1} 150do_test memsubsys2-4.6 { 151 expr {[sqlite3_memory_highwater 0]>=100000} 152} {1} 153do_test memsubsys2-4.7 { 154 expr {[sqlite3_memory_used]>=100000} 155} {1} 156do_test memsubsys2-4.8 { 157 sqlite3_free $::allocation 158} {} 159do_test memsubsys2-4.9 { 160 sqlite3_free 0 161} {} 162do_test memsubsys2-4.10 { 163 expr {[sqlite3_memory_highwater 0]>=100000} 164} {1} 165do_test memsubsys2-4.11 { 166 sqlite3_memory_used 167} {0} 168 169 170 171 172autoinstall_test_functions 173finish_test 174