# 2001 September 15## The author disclaims copyright to this source code.  In place of# a legal notice, here is a blessing:##    May you do good and not evil.#    May you find forgiveness for yourself and forgive others.#    May you share freely, never taking more than you give.##***********************************************************************# This file implements regression tests for SQLite library.  The# focus of this file is testing the VACUUM statement.## $Id: vacuum.test,v 1.37 2006/01/11 14:09:32 danielk1977 Exp $set testdir [file dirname $argv0]source $testdir/tester.tcl# If the VACUUM statement is disabled in the current build, skip all# the tests in this file.#ifcapable {!vacuum} {  finish_test  return}if $AUTOVACUUM {  finish_test  return}set fcnt 1proc cksum {{db db}} {  set sql "SELECT name, type, sql FROM sqlite_master ORDER BY name, type"  set txt [$db eval $sql]\n  set sql "SELECT name FROM sqlite_master WHERE type='table' ORDER BY name"  foreach tbl [$db eval $sql] {    append txt [$db eval "SELECT * FROM $tbl"]\n  }  foreach prag {default_cache_size} {    append txt $prag-[$db eval "PRAGMA $prag"]\n  }  if 1 {    global fcnt    set fd [open dump$fcnt.txt w]    puts -nonewline $fd $txt    close $fd    incr fcnt  }  set cksum [string length $txt]-[md5 $txt]  # puts $cksum-[file size test.db]  return $cksum}do_test vacuum-1.1 {  execsql {    BEGIN;    CREATE TABLE t1(a INTEGER PRIMARY KEY, b, c);    INSERT INTO t1 VALUES(NULL,randstr(10,100),randstr(5,50));    INSERT INTO t1 VALUES(123456,randstr(10,100),randstr(5,50));    INSERT INTO t1 SELECT NULL, b||'-'||rowid, c||'-'||rowid FROM t1;    INSERT INTO t1 SELECT NULL, b||'-'||rowid, c||'-'||rowid FROM t1;    INSERT INTO t1 SELECT NULL, b||'-'||rowid, c||'-'||rowid FROM t1;    INSERT INTO t1 SELECT NULL, b||'-'||rowid, c||'-'||rowid FROM t1;    INSERT INTO t1 SELECT NULL, b||'-'||rowid, c||'-'||rowid FROM t1;    INSERT INTO t1 SELECT NULL, b||'-'||rowid, c||'-'||rowid FROM t1;    INSERT INTO t1 SELECT NULL, b||'-'||rowid, c||'-'||rowid FROM t1;    CREATE INDEX i1 ON t1(b,c);    CREATE UNIQUE INDEX i2 ON t1(c,a);    CREATE TABLE t2 AS SELECT * FROM t1;    COMMIT;    DROP TABLE t2;  }  set ::size1 [file size test.db]  set ::cksum [cksum]  expr {$::cksum!=""}} {1}do_test vacuum-1.2 {  execsql {    VACUUM;  }  cksum} $cksumifcapable vacuum {  do_test vacuum-1.3 {    expr {[file size test.db]<$::size1}  } {1}}do_test vacuum-1.4 {  set sql_script {    BEGIN;    CREATE TABLE t2 AS SELECT * FROM t1;    CREATE TABLE t3 AS SELECT * FROM t1;    CREATE VIEW v1 AS SELECT b, c FROM t3;    CREATE TRIGGER r1 AFTER DELETE ON t2 BEGIN SELECT 1; END;    COMMIT;    DROP TABLE t2;  }  # If the library was compiled to omit view support, comment out the  # create view in the script $sql_script before executing it. Similarly,  # if triggers are not supported, comment out the trigger definition.  ifcapable !view {    regsub {CREATE VIEW} $sql_script {-- CREATE VIEW} sql_script  }  ifcapable !trigger {    regsub {CREATE TRIGGER} $sql_script {-- CREATE TRIGGER} sql_script  }  execsql $sql_script  set ::size1 [file size test.db]  set ::cksum [cksum]  expr {$::cksum!=""}} {1}do_test vacuum-1.5 {  execsql {    VACUUM;  }  cksum} $cksumifcapable vacuum {  do_test vacuum-1.6 {    expr {[file size test.db]<$::size1}  } {1}}ifcapable vacuum {  do_test vacuum-2.1 {    catchsql {      BEGIN;      VACUUM;      COMMIT;    }  } {1 {cannot VACUUM from within a transaction}}  catch {db eval COMMIT}}do_test vacuum-2.2 {  sqlite3 db2 test.db  execsql {    BEGIN;    CREATE TABLE t4 AS SELECT * FROM t1;    CREATE TABLE t5 AS SELECT * FROM t1;    COMMIT;    DROP TABLE t4;    DROP TABLE t5;  } db2  set ::cksum [cksum db2]  catchsql {    VACUUM  }} {0 {}}do_test vacuum-2.3 {  cksum} $cksumdo_test vacuum-2.4 {  catch {db2 eval {SELECT count(*) FROM sqlite_master}}  cksum db2} $cksum# Make sure the schema cookie is incremented by vacuum.#do_test vacuum-2.5 {  execsql {    BEGIN;    CREATE TABLE t6 AS SELECT * FROM t1;    CREATE TABLE t7 AS SELECT * FROM t1;    COMMIT;  }  sqlite3 db3 test.db  execsql {    -- The "SELECT * FROM sqlite_master" statement ensures that this test    -- works when shared-cache is enabled. If shared-cache is enabled, then    -- db3 shares a cache with db2 (but not db - it was opened as     -- "./test.db").    SELECT * FROM sqlite_master;    SELECT * FROM t7 LIMIT 1  } db3  execsql {    VACUUM;  }  execsql {    INSERT INTO t7 VALUES(1234567890,'hello','world');  } db3  execsql {    SELECT * FROM t7 WHERE a=1234567890  }} {1234567890 hello world}integrity_check vacuum-2.6do_test vacuum-2.7 {  execsql {    SELECT * FROM t7 WHERE a=1234567890  } db3} {1234567890 hello world}do_test vacuum-2.8 {  execsql {    INSERT INTO t7 SELECT * FROM t6;    SELECT count(*) FROM t7;  }} 513integrity_check vacuum-2.9do_test vacuum-2.10 {  execsql {    DELETE FROM t7;    SELECT count(*) FROM t7;  } db3} 0integrity_check vacuum-2.11db3 close # Ticket #427.  Make sure VACUUM works when the EMPTY_RESULT_CALLBACKS# pragma is turned on.#do_test vacuum-3.1 {  db close  db2 close  file delete test.db  sqlite3 db test.db  execsql {    PRAGMA empty_result_callbacks=on;    VACUUM;  }} {}# Ticket #464.  Make sure VACUUM works with the sqlite3_prepare() API.#do_test vacuum-4.1 {  db close  sqlite3 db test.db; set DB [sqlite3_connection_pointer db]  set VM [sqlite3_prepare $DB {VACUUM} -1 TAIL]  sqlite3_step $VM} {SQLITE_DONE}do_test vacuum-4.2 {  sqlite3_finalize $VM} SQLITE_OK# Ticket #515.  VACUUM after deleting and recreating the table that# a view refers to. Omit this test if the library is not view-enabled.#ifcapable view {do_test vacuum-5.1 {  db close  file delete -force test.db  sqlite3 db test.db  catchsql {    CREATE TABLE Test (TestID int primary key);    INSERT INTO Test VALUES (NULL);    CREATE VIEW viewTest AS SELECT * FROM Test;    BEGIN;    CREATE TABLE tempTest (TestID int primary key, Test2 int NULL);    INSERT INTO tempTest SELECT TestID, 1 FROM Test;    DROP TABLE Test;    CREATE TABLE Test(TestID int primary key, Test2 int NULL);    INSERT INTO Test SELECT * FROM tempTest;    DROP TABLE tempTest;    COMMIT;    VACUUM;  }} {0 {}}do_test vacuum-5.2 {  catchsql {    VACUUM;  }} {0 {}}} ;# ifcapable view# Ensure vacuum works with complicated tables names.do_test vacuum-6.1 {  execsql {    CREATE TABLE "abc abc"(a, b, c);    INSERT INTO "abc abc" VALUES(1, 2, 3);    VACUUM;  }} {}do_test vacuum-6.2 {  execsql {    select * from "abc abc";  }} {1 2 3}# Also ensure that blobs survive a vacuum.ifcapable {bloblit} {  do_test vacuum-6.3 {    execsql {      DELETE FROM "abc abc";      INSERT INTO "abc abc" VALUES(X'00112233', NULL, NULL);      VACUUM;    }  } {}  do_test vacuum-6.4 {    execsql {      select count(*) from "abc abc" WHERE a = X'00112233';    }  } {1}}# Check what happens when an in-memory database is vacuumed. The# [file delete] command covers us in case the library was compiled# without in-memory database support.#file delete -force :memory:do_test vacuum-7.0 {  sqlite3 db2 :memory:  execsql {    CREATE TABLE t1(t);    VACUUM;  } db2} {}db2 close# Ticket #873.  VACUUM a database that has ' in its name.#do_test vacuum-8.1 {  file delete -force a'z.db  file delete -force a'z.db-journal  sqlite3 db2 a'z.db  execsql {    CREATE TABLE t1(t);    VACUUM;  } db2} {}db2 close# Ticket #1095:  Vacuum a table that uses AUTOINCREMENT#ifcapable {autoinc} {  do_test vacuum-9.1 {    execsql {      DROP TABLE 'abc abc';      CREATE TABLE autoinc(a INTEGER PRIMARY KEY AUTOINCREMENT, b);      INSERT INTO autoinc(b) VALUES('hi');      INSERT INTO autoinc(b) VALUES('there');      DELETE FROM autoinc;    }    set ::cksum [cksum]    expr {$::cksum!=""}  } {1}  do_test vacuum-9.2 {    execsql {      VACUUM;    }    cksum  } $::cksum  do_test vacuum-9.3 {    execsql {      INSERT INTO autoinc(b) VALUES('one');      INSERT INTO autoinc(b) VALUES('two');    }    set ::cksum [cksum]    expr {$::cksum!=""}  } {1}  do_test vacuum-9.4 {    execsql {      VACUUM;    }    cksum  } $::cksum}finish_test