forked from Mirrors/freeswitch
165f180162
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@3735 d0543943-73ff-0310-b7d9-9358b9ac24b2
360 lines
8.2 KiB
Plaintext
360 lines
8.2 KiB
Plaintext
# 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.38 2006/10/04 11:55:50 drh 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 1
|
|
proc 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 0 {
|
|
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
|
|
} $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 {
|
|
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
|
|
} $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
|
|
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
|
|
}
|
|
|
|
file delete -force {a'z.db}
|
|
|
|
finish_test
|