paulhorn/sqlite
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Test script changes: Bug fix and cleanup on ioerr tests. Also, don't use TCL "file copy" command on windows. (CVS 2264)

Browse Source 
FossilOrigin-Name: 764b55adb5dff944db36d0d19ce5e7cc758b3a9e
This commit is contained in:
danielk1977
2005-01-22 03:39:39 +00:00
parent d89bd007ba
commit 32554c10d0
11 changed files with 291 additions and 340 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/autovacuum_ioerr2.test
+68 -145
View File
@@ -15,7 +15,7 @@
# The tests in this file use special facilities that are only
# available in the SQLite test fixture.
#
# $Id: autovacuum_ioerr2.test,v 1.3 2005/01/16 09:06:34 danielk1977 Exp $
# $Id: autovacuum_ioerr2.test,v 1.4 2005/01/22 03:39:39 danielk1977 Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@@ -27,169 +27,92 @@ ifcapable {!autovacuum} {
return
}
proc opendb {} {
catch {file delete -force test.db}
catch {file delete -force test.db-journal}
sqlite3 db test.db
execsql {pragma auto_vacuum = 1}
execsql {SELECT * FROM sqlite_master}
do_ioerr_test autovacuum-ioerr2-1 -sqlprep {
PRAGMA auto_vacuum = 1;
CREATE TABLE abc(a);
INSERT INTO abc VALUES(randstr(1500,1500));
} -sqlbody {
CREATE TABLE abc2(a);
BEGIN;
DELETE FROM abc;
INSERT INTO abc VALUES(randstr(1500,1500));
CREATE TABLE abc3(a);
COMMIT;
}
set ::go 1
for {set n 1} {$go} {incr n} {
do_test autovacuum-ioerr2-1.$n.1 {
set ::sqlite_io_error_pending 0
db close
opendb
execsql {
CREATE TABLE abc(a);
INSERT INTO abc VALUES(randstr(1500,1500));
}
expr [file size test.db]/1024
} {4}
do_test autovacuum-ioerr2-1.$n.2 [subst {
set ::sqlite_io_error_pending $n
}] $n
do_test autovacuum-ioerr2-1.$n.3 {
set r [catch {db eval {
CREATE TABLE abc2(a);
BEGIN;
DELETE FROM abc;
INSERT INTO abc VALUES(randstr(1500,1500));
CREATE TABLE abc3(a);
COMMIT;
}} msg]
set ::go [expr {$::sqlite_io_error_pending<=0}]
expr {$::sqlite_io_error_pending>0 || $r!=0}
} {1}
}
set ::sqlite_io_error_pending 0
set ::go 1
for {set n 1} {$go} {incr n} {
do_test autovacuum-ioerr2-2.$n.1 {
set ::sqlite_io_error_pending 0
db close
opendb
execsql {
PRAGMA cache_size = 10;
BEGIN;
CREATE TABLE abc(a);
INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 4 is overflow
INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 5 is overflow
}
for {set i 0} {$i<150} {incr i} {
execsql {
INSERT INTO abc VALUES(randstr(100,100));
}
}
execsql COMMIT
} {}
do_test autovacuum-ioerr2-2.$n.2 [subst {
set ::sqlite_io_error_pending $n
}] $n
do_test autovacuum-ioerr2-2.$n.3 {
set r [catch {db eval {
BEGIN;
DELETE FROM abc WHERE length(a)>100;
UPDATE abc SET a = randstr(90,90);
CREATE TABLE abc3(a);
COMMIT;
}} msg]
set ::go [expr {$::sqlite_io_error_pending<=0}]
expr {$::sqlite_io_error_pending>0 || $r!=0}
} {1}
}
set ::sqlite_io_error_pending 0
set ::go 1
for {set n 1} {$go} {incr n} {
do_test autovacuum-ioerr2-3.$n.1 {
set ::sqlite_io_error_pending 0
db close
opendb
execsql {
CREATE TABLE abc(a);
CREATE TABLE abc2(b);
}
} {}
do_test autovacuum-ioerr2-3.$n.2 [subst {
set ::sqlite_io_error_pending $n
}] $n
do_test autovacuum-ioerr2-3.$n.3 {
set r [catch {db eval {
BEGIN;
INSERT INTO abc2 VALUES(10);
DROP TABLE abc;
COMMIT;
DROP TABLE abc2;
}} msg]
set ::go [expr {$::sqlite_io_error_pending<=0}]
expr {$::sqlite_io_error_pending>0 || $r!=0}
} {1}
}
set ::sqlite_io_error_pending 0
do_test autovacuum-ioerr2.4.0 {
db close
opendb
do_ioerr_test autovacuum-ioerr2-2 -tclprep {
execsql {
PRAGMA auto_vacuum = 1;
PRAGMA cache_size = 10;
BEGIN;
CREATE TABLE abc(a);
INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 4 is overflow
INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 5 is overflow
}
for {set i 0} {$i<2500} {incr i} {
for {set i 0} {$i<150} {incr i} {
execsql {
INSERT INTO abc VALUES(randstr(100,100));
}
}
execsql COMMIT
file copy -force test.db backup.db
} {}
proc opendb2 {} {
catch {file delete -force test.db}
catch {file delete -force test.db-journal}
file copy backup.db test.db
sqlite3 db test.db
execsql {select * from sqlite_master}
execsql {PRAGMA cache_size = 10}
return ""
} -sqlbody {
BEGIN;
DELETE FROM abc WHERE length(a)>100;
UPDATE abc SET a = randstr(90,90);
CREATE TABLE abc3(a);
COMMIT;
}
set ::go 1
for {set n 1} {$go} {incr n} {
do_test autovacuum-ioerr2-4.$n.1 {
set ::sqlite_io_error_pending 0
db close
opendb2
} {}
do_test autovacuum-ioerr2-4.$n.2 [subst {
set ::sqlite_io_error_pending $n
}] $n
do_test autovacuum-ioerr2-4.$n.3 {
set r [catch {db eval {
do_ioerr_test autovacuum-ioerr2-3 -sqlprep {
PRAGMA auto_vacuum = 1;
CREATE TABLE abc(a);
CREATE TABLE abc2(b);
} -sqlbody {
BEGIN;
INSERT INTO abc2 VALUES(10);
DROP TABLE abc;
COMMIT;
DROP TABLE abc2;
}
file delete -force backup.db
do_ioerr_test autovacuum-ioerr2-4 -tclprep {
if {![file exists backup.db]} {
sqlite3 dbb backup.db
execsql {
PRAGMA auto_vacuum = 1;
BEGIN;
DELETE FROM abc WHERE oid < 3;
UPDATE abc SET a = randstr(100,100) WHERE oid > 2300;
UPDATE abc SET a = randstr(1100,1100) WHERE oid =
(select max(oid) from abc);
CREATE TABLE abc(a);
INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 4 is overflow
INSERT INTO abc VALUES(randstr(1100,1100)); -- Page 5 is overflow
} dbb
for {set i 0} {$i<2500} {incr i} {
execsql {
INSERT INTO abc VALUES(randstr(100,100));
} dbb
}
execsql {
COMMIT;
}} msg]
set ::go [expr {$::sqlite_io_error_pending<=0}]
expr {$::sqlite_io_error_pending>0 || $r!=0}
} {1}
PRAGMA cache_size = 10;
} dbb
dbb close
}
db close
file delete -force test.db
file delete -force test.db-journal
copy_file backup.db test.db
set ::DB [sqlite3 db test.db]
execsql {
PRAGMA cache_size = 10;
}
} -sqlbody {
BEGIN;
DELETE FROM abc WHERE oid < 3;
UPDATE abc SET a = randstr(100,100) WHERE oid > 2300;
UPDATE abc SET a = randstr(1100,1100) WHERE oid =
(select max(oid) from abc);
COMMIT;
}
set ::sqlite_io_error_pending 0
rename opendb ""
db close
catch {file delete -force test.db}
catch {file delete -force test.db-journal}
finish_test