[sqlite] Remove obsolete reference version 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/test/vacuum.test

-# 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.43 2009/01/31 14:54:07 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} {
-  omit_test vacuum.test {Compiled with SQLITE_OMIT_VACUUM}
-  finish_test
-  return
-}
-if $AUTOVACUUM {
-  omit_test vacuum.test {Auto-vacuum is enabled}
-  finish_test
-  return
-}
-
-set fcnt 1
-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}
-
-# Create bogus application-defined functions for functions used 
-# internally by VACUUM, to ensure that VACUUM falls back
-# to the built-in functions.
-#
-proc failing_app_func {args} {error "bad function"}
-do_test vacuum-1.1b {
-  db func substr failing_app_func
-  db func like failing_app_func
-  db func quote failing_app_func
-  catchsql {SELECT substr(name,1,3) FROM sqlite_master}
-} {1 {bad function}}
-
-do_test vacuum-1.2 {
-  execsql {
-    VACUUM;
-  }
-  cksum
-} $cksum
-ifcapable 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
-} $cksum
-
-ifcapable vacuum {
-  do_test vacuum-1.6 {
-    expr {[file size test.db]<$::size1}
-  } {1}
-}
-ifcapable vacuum {
-  do_test vacuum-2.1.1 {
-    catchsql {
-      BEGIN;
-      VACUUM;
-    }
-  } {1 {cannot VACUUM from within a transaction}}
-  do_test vacuum-2.1.2 {
-    sqlite3_get_autocommit db
-  } {0}
-  do_test vacuum-2.1.3 {
-    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
-} $cksum
-do_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.6
-do_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;
-  }
-} 513
-integrity_check vacuum-2.9
-do_test vacuum-2.10 {
-  execsql {
-    DELETE FROM t7;
-    SELECT count(*) FROM t7;
-  } db3
-} 0
-integrity_check vacuum-2.11
-db3 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
-  delete_file 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
-  forcedelete 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
-# [delete_file] command covers us in case the library was compiled
-# without in-memory database support.
-#
-forcedelete :memory:
-do_test vacuum-7.0 {
-  sqlite3 db2 :memory:
-  execsql {
-    CREATE TABLE t1(t);
-    VACUUM;
-  } db2
-} {}
-do_test vacuum-7.1 {
-  execsql {
-    CREATE TABLE t2(t);
-    CREATE TABLE t3(t);
-    DROP TABLE t2;
-    PRAGMA freelist_count;
-  }
-} {1}
-do_test vacuum-7.2 {
-  execsql {
-    VACUUM;
-    pragma integrity_check;
-  } db2
-} {ok}
-do_test vacuum-7.3 {
-  execsql { PRAGMA freelist_count; } db2
-} {0}
-ifcapable autovacuum {
-  do_test vacuum-7.4 {
-    execsql { PRAGMA auto_vacuum } db2
-  } {0}
-  do_test vacuum-7.5 {
-    execsql { PRAGMA auto_vacuum = 1} db2
-    execsql { PRAGMA auto_vacuum } db2
-  } {0}
-  do_test vacuum-7.6 {
-    execsql { PRAGMA auto_vacuum = 1} db2
-    execsql { VACUUM } db2
-    execsql { PRAGMA auto_vacuum } db2
-  } {1}
-}
-db2 close
-
-# Ticket #873.  VACUUM a database that has ' in its name.
-#
-do_test vacuum-8.1 {
-  forcedelete a'z.db
-  forcedelete 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
-}
-
-forcedelete {a'z.db}
-
-# Test that "PRAGMA count_changes" does not interfere with VACUUM or cause
-# it to return any rows to the user.
-#
-do_test vacuum-10.1 {
-  db close
-  forcedelete test.db
-  sqlite3 db test.db
-  execsql {
-    CREATE TABLE t8(a, b);
-    INSERT INTO t8 VALUES('a', 'b');
-    INSERT INTO t8 VALUES('c', 'd');
-    PRAGMA count_changes = 1;
-  }
-} {}
-do_test vacuum-10.2 { execsql VACUUM } {}
-
-finish_test