177 lines
4.3 KiB
Text
177 lines
4.3 KiB
Text
|
# 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 7 2007-02-03 13:34:17Z gburd $
|
||
|
|
||
|
set testdir [file dirname $argv0]
|
||
|
source $testdir/tester.tcl
|
||
|
|
||
|
proc cksum {{db db}} {
|
||
|
set txt [$db eval {SELECT name, type, sql FROM master}]\n
|
||
|
foreach tbl [$db eval {SELECT name FROM master WHERE type='table'}] {
|
||
|
append txt [$db eval "SELECT * FROM $tbl"]\n
|
||
|
}
|
||
|
foreach prag {default_synchronous default_cache_size} {
|
||
|
append txt $prag-[$db eval "PRAGMA $prag"]\n
|
||
|
}
|
||
|
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 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
|
||
|
do_test vacuum-1.3 {
|
||
|
expr {[file size test.db]<$::size1}
|
||
|
} {1}
|
||
|
do_test vacuum-1.4 {
|
||
|
execsql {
|
||
|
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;
|
||
|
}
|
||
|
set ::size1 [file size test.db]
|
||
|
set ::cksum [cksum]
|
||
|
expr {$::cksum!=""}
|
||
|
} {1}
|
||
|
do_test vacuum-1.5 {
|
||
|
execsql {
|
||
|
VACUUM;
|
||
|
}
|
||
|
cksum
|
||
|
} $cksum
|
||
|
do_test vacuum-1.6 {
|
||
|
expr {[file size test.db]<$::size1}
|
||
|
} {1}
|
||
|
|
||
|
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 {
|
||
|
dbsql 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
|
||
|
}
|
||
|
} {1 {database schema has changed}}
|
||
|
do_test vacuum-2.3 {
|
||
|
execsql {
|
||
|
VACUUM;
|
||
|
}
|
||
|
cksum
|
||
|
} $cksum
|
||
|
do_test vacuum-2.4 {
|
||
|
catch {db2 eval {SELECT count(*) FROM master}}
|
||
|
cksum db2
|
||
|
} $cksum
|
||
|
|
||
|
# 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
|
||
|
dbsql db test.db
|
||
|
execsql {
|
||
|
PRAGMA empty_result_callbacks=on;
|
||
|
VACUUM;
|
||
|
}
|
||
|
} {}
|
||
|
|
||
|
# Ticket #464. Make sure VACUUM works with the dbsql_compile() API.
|
||
|
#
|
||
|
do_test vacuum-4.1 {
|
||
|
db close
|
||
|
set DB [dbsql db test.db]
|
||
|
set VM [dbsql_compile $DB {VACUUM} TAIL]
|
||
|
dbsql_step $VM N VALUES COLNAMES
|
||
|
} {DBSQL_DONE}
|
||
|
do_test vacuum-4.2 {
|
||
|
dbsql_close_sqlvm $VM
|
||
|
} {}
|
||
|
|
||
|
# Ticket #515. VACUUM after deleting and recreating the table that
|
||
|
# a view refers to.
|
||
|
#
|
||
|
do_test vacuum-5.1 {
|
||
|
db close
|
||
|
file delete -force test.db
|
||
|
dbsql 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 TEMP 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;
|
||
|
COMMIT;
|
||
|
VACUUM;
|
||
|
}
|
||
|
} {0 {}}
|
||
|
do_test vacuum-5.2 {
|
||
|
catchsql {
|
||
|
VACUUM;
|
||
|
}
|
||
|
} {0 {}}
|
||
|
|
||
|
# finish_test
|