test/vacuummem.test

   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
  16 set testdir [file dirname $argv0]
  17 source $testdir/tester.tcl
  18 set testprefix vacuummem
  19
  20 if {[permutation]=="memsubsys1"} {
  21   finish_test
  22   return
  23 }
  24
  25
  26 proc memory_used {} {
  27   set stat [sqlite3_status SQLITE_STATUS_MEMORY_USED 1]
  28   lindex $stat 1
  29 }
  30
  31 do_execsql_test 1.0 {
  32   PRAGMA cache_size = -2000;
  33   CREATE TABLE t1(a, b, c);
  34
  35   WITH r(i) AS (
  36     SELECT 1 UNION ALL SELECT i+1 FROM r WHERE i<100000
  37   )
  38   INSERT INTO t1 SELECT randomblob(100),randomblob(100),randomblob(100) FROM r;
  39
  40   CREATE INDEX t1a ON t1(a);
  41   CREATE INDEX t1b ON t1(b);
  42   CREATE INDEX t1c ON t1(c);
  43 }
  44 set ans "#/[memory_used]/"
  45
  46 do_test 1.1 { memory_used } $ans
  47
  48 do_execsql_test 1.2 VACUUM
  49
  50 do_test 1.3 { memory_used } $ans
  51
  52 do_execsql_test 1.4 {
  53   SELECT count(*) FROM t1 WHERE +a IS NOT NULL
  54 } {100000}
  55
  56 do_test 1.5 { memory_used } $ans
  57
  58
  59
  60 finish_test