1# 2005 February 15 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 that the VACUUM statement correctly 13# frees any memory used for a temporary cache. 14# 15# TESTRUNNER: slow 16 17set testdir [file dirname $argv0] 18source $testdir/tester.tcl 19set testprefix vacuummem 20 21if {[permutation]=="memsubsys1"} { 22 finish_test 23 return 24} 25 26# If ENABLE_MEMORY_MANAGEMENT is defined, when VACUUM is run the temp db 27# is able to borrow space from the main db (and it does, because the 28# temp db is configure with a very small cache). When the VACUUM is 29# finished and the temp db closed, all the page-cache memory currently 30# assigned to the temp db is freed. If ENABLE_MEMORY_MANAGEMENT is defined 31# this causes the total memory usage to drop much more than expected, 32# causing tests in this file to fail. 33# 34ifcapable memorymanage { 35 finish_test 36 return 37} 38 39 40proc memory_used {} { 41 set stat [sqlite3_status SQLITE_STATUS_MEMORY_USED 1] 42 lindex $stat 1 43} 44 45do_execsql_test 1.0 { 46 PRAGMA cache_size = -2000; 47 CREATE TABLE t1(a, b, c); 48 49 WITH r(i) AS ( 50 SELECT 1 UNION ALL SELECT i+1 FROM r WHERE i<100000 51 ) 52 INSERT INTO t1 SELECT randomblob(100),randomblob(100),randomblob(100) FROM r; 53 54 CREATE INDEX t1a ON t1(a); 55 CREATE INDEX t1b ON t1(b); 56 CREATE INDEX t1c ON t1(c); 57} 58set ans "#/[memory_used]/" 59 60do_test 1.1 { memory_used } $ans 61 62do_execsql_test 1.2 VACUUM 63 64do_test 1.3 { memory_used } $ans 65 66do_execsql_test 1.4 { 67 SELECT count(*) FROM t1 WHERE +a IS NOT NULL 68} {100000} 69 70do_test 1.5 { memory_used } $ans 71 72 73 74finish_test 75