2001-09-16 04:13:26 +04:00
|
|
|
# 2001 September 15
|
2000-06-03 22:06:52 +04:00
|
|
|
#
|
2001-09-16 04:13:26 +04:00
|
|
|
# The author disclaims copyright to this source code. In place of
|
|
|
|
# a legal notice, here is a blessing:
|
2000-06-03 22:06:52 +04:00
|
|
|
#
|
2001-09-16 04:13:26 +04:00
|
|
|
# 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.
|
2000-06-03 22:06:52 +04:00
|
|
|
#
|
|
|
|
#***********************************************************************
|
|
|
|
# This file implements regression tests for SQLite library. The
|
|
|
|
# focus of this file is testing the VACUUM statement.
|
|
|
|
#
|
2003-04-25 06:43:08 +04:00
|
|
|
# $Id: vacuum.test,v 1.8 2003/04/25 02:43:08 drh Exp $
|
2000-06-03 22:06:52 +04:00
|
|
|
|
|
|
|
set testdir [file dirname $argv0]
|
|
|
|
source $testdir/tester.tcl
|
|
|
|
|
2003-04-25 06:43:08 +04:00
|
|
|
proc cksum {filename} {
|
|
|
|
set txt [db eval {SELECT name, type, sql FROM sqlite_master}]\n
|
|
|
|
foreach tbl [db eval {SELECT name FROM sqlite_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 fd [open $filename w]
|
|
|
|
# puts $fd $txt
|
|
|
|
# close $fd
|
|
|
|
return [string length $txt]-[md5 $txt]
|
|
|
|
}
|
|
|
|
|
|
|
|
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 vacuum1.txt]
|
|
|
|
expr {$::cksum!=""}
|
|
|
|
} {1}
|
|
|
|
do_test vacuum-1.2 {
|
|
|
|
execsql {
|
|
|
|
VACUUM;
|
|
|
|
}
|
|
|
|
cksum vacuum2.txt
|
|
|
|
} $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 vacuum3.txt]
|
|
|
|
expr {$::cksum!=""}
|
|
|
|
} {1}
|
|
|
|
do_test vacuum-1.5 {
|
|
|
|
execsql {
|
|
|
|
VACUUM;
|
|
|
|
}
|
|
|
|
cksum vacuum4.txt
|
|
|
|
} $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}}
|
|
|
|
execsql COMMIT
|
2001-09-14 07:24:23 +04:00
|
|
|
|
2002-03-03 05:49:51 +03:00
|
|
|
# finish_test
|