From 18657a960e125336f704ea058e25c27bd3900dcb Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 5 May 2024 19:28:19 +0200 Subject: Adding upstream version 3.40.1. Signed-off-by: Daniel Baumann --- test/vacuum.test | 404 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 404 insertions(+) create mode 100644 test/vacuum.test (limited to 'test/vacuum.test') 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 -- cgit v1.2.3