database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Get VACUUM working again - with test cases. Some other minor cleanups. (CVS 931)

Browse Source 
FossilOrigin-Name: 5afb88008fed253e6d1fc0ed5172370b61d3727b
This commit is contained in:
drh
2003-04-25 02:43:08 +00:00
parent 5cf590c128
commit 45a304ee8c
7 changed files with 150 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

83
test/vacuum.test
View File

@ -11,12 +11,89 @@
# This file implements regression tests for SQLite library. The
# focus of this file is testing the VACUUM statement.
#
# $Id: vacuum.test,v 1.7 2002/03/03 02:49:52 drh Exp $
# $Id: vacuum.test,v 1.8 2003/04/25 02:43:08 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# The vacuum command no longer functions. There is
# nothing to test.
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
# finish_test