summaryrefslogtreecommitdiff
path: root/test/vacuum.test
diff options
context:
space:
mode:
Diffstat (limited to 'test/vacuum.test')
-rw-r--r--test/vacuum.test404
1 files changed, 404 insertions, 0 deletions
diff --git a/test/vacuum.test b/test/vacuum.test
new file mode 100644
index 0000000..57429c2
--- /dev/null
+++ b/test/vacuum.test
@@ -0,0 +1,404 @@
+# 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
generated by cgit v1.2.3 (git 2.25.1) at 2024-06-01 21:22:51 +0000