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