2014-10-22 19:33:12 +04:00
|
|
|
# 2014 October 22
|
|
|
|
#
|
|
|
|
# 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.
|
|
|
|
#
|
|
|
|
#***********************************************************************
|
|
|
|
#
|
|
|
|
|
|
|
|
if {![info exists testdir]} {
|
|
|
|
set testdir [file join [file dirname [info script]] .. .. test]
|
|
|
|
}
|
|
|
|
source $testdir/tester.tcl
|
|
|
|
source $testdir/malloc_common.tcl
|
|
|
|
set ::testprefix otafault
|
|
|
|
|
2015-02-17 23:49:42 +03:00
|
|
|
proc copy_if_exists {src target} {
|
|
|
|
if {[file exists $src]} {
|
|
|
|
forcecopy $src $target
|
|
|
|
} else {
|
|
|
|
forcedelete $target
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
foreach {tn2 setup sql expect} {
|
|
|
|
1 {
|
2014-10-22 19:33:12 +04:00
|
|
|
CREATE TABLE t1(a INTEGER PRIMARY KEY, b, c);
|
|
|
|
CREATE INDEX t1cb ON t1(c, b);
|
|
|
|
INSERT INTO t1 VALUES(1, 1, 1);
|
|
|
|
INSERT INTO t1 VALUES(2, 2, 2);
|
|
|
|
INSERT INTO t1 VALUES(3, 3, 3);
|
|
|
|
|
|
|
|
CREATE TABLE ota.data_t1(a, b, c, ota_control);
|
|
|
|
INSERT INTO data_t1 VALUES(2, NULL, NULL, 1);
|
|
|
|
INSERT INTO data_t1 VALUES(3, 'three', NULL, '.x.');
|
|
|
|
INSERT INTO data_t1 VALUES(4, 4, 4, 0);
|
2015-02-17 23:49:42 +03:00
|
|
|
} {SELECT * FROM t1} {1 1 1 3 three 3 4 4 4}
|
|
|
|
|
|
|
|
2 {
|
|
|
|
CREATE TABLE t2(a PRIMARY KEY, b, c) WITHOUT ROWID;
|
|
|
|
CREATE INDEX t2cb ON t2(c, b);
|
|
|
|
INSERT INTO t2 VALUES('a', 'a', 'a');
|
|
|
|
INSERT INTO t2 VALUES('b', 'b', 'b');
|
|
|
|
INSERT INTO t2 VALUES('c', 'c', 'c');
|
2014-10-22 19:33:12 +04:00
|
|
|
|
2015-02-17 23:49:42 +03:00
|
|
|
CREATE TABLE ota.data_t2(a, b, c, ota_control);
|
2014-10-22 19:33:12 +04:00
|
|
|
INSERT INTO data_t2 VALUES('b', NULL, NULL, 1);
|
|
|
|
INSERT INTO data_t2 VALUES('c', 'see', NULL, '.x.');
|
|
|
|
INSERT INTO data_t2 VALUES('d', 'd', 'd', 0);
|
2015-02-17 23:49:42 +03:00
|
|
|
} {SELECT * FROM t2} {a a a c see c d d d}
|
|
|
|
|
|
|
|
3 {
|
|
|
|
CREATE TABLE t1(a INTEGER PRIMARY KEY, b, c);
|
|
|
|
CREATE TABLE t2(a PRIMARY KEY, b, c) WITHOUT ROWID;
|
|
|
|
CREATE INDEX t1cb ON t1(c, b);
|
|
|
|
CREATE INDEX t2cb ON t2(c, b);
|
|
|
|
|
|
|
|
CREATE TABLE ota.data_t1(a, b, c, ota_control);
|
|
|
|
CREATE TABLE ota.data_t2(a, b, c, ota_control);
|
|
|
|
INSERT INTO data_t1 VALUES(1, 2, 3, 0);
|
|
|
|
INSERT INTO data_t2 VALUES(4, 5, 6, 0);
|
|
|
|
} {SELECT * FROM t1 UNION ALL SELECT * FROM t2} {1 2 3 4 5 6}
|
|
|
|
|
|
|
|
} {
|
|
|
|
catch {db close}
|
|
|
|
forcedelete ota.db test.db
|
|
|
|
sqlite3 db test.db
|
|
|
|
execsql {
|
|
|
|
PRAGMA encoding = utf16;
|
|
|
|
ATTACH 'ota.db' AS ota;
|
2014-10-22 19:33:12 +04:00
|
|
|
}
|
2015-02-17 23:49:42 +03:00
|
|
|
execsql $setup
|
2014-10-22 19:33:12 +04:00
|
|
|
db close
|
|
|
|
|
|
|
|
forcecopy test.db test.db.bak
|
|
|
|
forcecopy ota.db ota.db.bak
|
2015-02-17 23:49:42 +03:00
|
|
|
|
|
|
|
foreach {tn f reslist} {
|
|
|
|
1 oom-tra* {
|
|
|
|
{0 SQLITE_DONE}
|
|
|
|
{1 {SQLITE_NOMEM - out of memory}}
|
|
|
|
{1 SQLITE_NOMEM}
|
|
|
|
{1 SQLITE_IOERR_NOMEM}
|
|
|
|
{1 {SQLITE_NOMEM - unable to open a temporary database file for storing temporary tables}}
|
|
|
|
}
|
2015-02-17 00:13:19 +03:00
|
|
|
|
2015-02-17 23:49:42 +03:00
|
|
|
2 ioerr-* {
|
|
|
|
{0 SQLITE_DONE}
|
|
|
|
{1 {SQLITE_IOERR - disk I/O error}}
|
|
|
|
{1 SQLITE_IOERR}
|
|
|
|
{1 SQLITE_IOERR_WRITE}
|
|
|
|
{1 SQLITE_IOERR_READ}
|
|
|
|
{1 SQLITE_IOERR_FSYNC}
|
|
|
|
{1 {SQLITE_ERROR - SQL logic error or missing database}}
|
|
|
|
{1 {SQLITE_ERROR - unable to open database: ota.db}}
|
|
|
|
{1 {SQLITE_IOERR - unable to open database: ota.db}}
|
|
|
|
}
|
|
|
|
} {
|
|
|
|
|
|
|
|
catch {db close}
|
|
|
|
sqlite3_shutdown
|
|
|
|
set lookaside_config [sqlite3_config_lookaside 0 0]
|
|
|
|
sqlite3_initialize
|
|
|
|
autoinstall_test_functions
|
|
|
|
|
|
|
|
do_faultsim_test 2.$tn2 -faults $::f -prep {
|
|
|
|
catch { db close }
|
|
|
|
forcedelete test.db-journal test.db-wal ota.db-journal ota.db-wal
|
|
|
|
forcecopy test.db.bak test.db
|
|
|
|
forcecopy ota.db.bak ota.db
|
|
|
|
} -body {
|
|
|
|
sqlite3ota ota test.db ota.db
|
|
|
|
while {[ota step]=="SQLITE_OK"} {}
|
|
|
|
ota close
|
|
|
|
} -test {
|
|
|
|
faultsim_test_result {*}$::reslist
|
|
|
|
if {$testrc==0} {
|
|
|
|
sqlite3 db test.db
|
|
|
|
faultsim_integrity_check
|
|
|
|
set res [db eval $::sql]
|
|
|
|
if {$res != [list {*}$::expect]} {
|
|
|
|
puts ""
|
|
|
|
puts "res: $res"
|
|
|
|
puts "exp: $expect"
|
|
|
|
error "data not as expected!"
|
|
|
|
}
|
2015-02-17 00:13:19 +03:00
|
|
|
}
|
2014-10-22 19:33:12 +04:00
|
|
|
}
|
|
|
|
|
2015-02-17 23:49:42 +03:00
|
|
|
catch {db close}
|
|
|
|
sqlite3_shutdown
|
|
|
|
sqlite3_config_lookaside {*}$lookaside_config
|
|
|
|
sqlite3_initialize
|
|
|
|
autoinstall_test_functions
|
2015-02-17 00:13:19 +03:00
|
|
|
|
2014-10-22 19:33:12 +04:00
|
|
|
|
2015-02-17 23:49:42 +03:00
|
|
|
}
|
2014-10-22 19:33:12 +04:00
|
|
|
|
2015-02-17 23:49:42 +03:00
|
|
|
for {set iStep 0} {$iStep<=21} {incr iStep} {
|
|
|
|
|
2014-10-22 19:33:12 +04:00
|
|
|
forcedelete test.db-journal test.db-wal ota.db-journal ota.db-wal
|
2015-02-17 23:49:42 +03:00
|
|
|
|
|
|
|
copy_if_exists test.db.bak test.db
|
|
|
|
copy_if_exists ota.db.bak ota.db
|
|
|
|
|
2014-10-22 19:33:12 +04:00
|
|
|
sqlite3ota ota test.db ota.db
|
2015-02-17 23:49:42 +03:00
|
|
|
for {set x 0} {$x < $::iStep} {incr x} { ota step }
|
2014-10-22 19:33:12 +04:00
|
|
|
ota close
|
|
|
|
|
2015-02-17 23:49:42 +03:00
|
|
|
copy_if_exists test.db test.db.bak.2
|
|
|
|
copy_if_exists test.db-wal test.db.bak.2-wal
|
|
|
|
copy_if_exists test.db-oal test.db.bak.2-oal
|
|
|
|
copy_if_exists ota.db ota.db.bak.2
|
2014-10-22 19:33:12 +04:00
|
|
|
|
2015-02-17 23:49:42 +03:00
|
|
|
do_faultsim_test 3.$tn.$iStep -faults $::f -prep {
|
|
|
|
catch { db close }
|
|
|
|
forcedelete test.db-journal test.db-wal ota.db-journal ota.db-wal
|
|
|
|
copy_if_exists test.db.bak.2 test.db
|
|
|
|
copy_if_exists test.db.bak.2-wal test.db-wal
|
|
|
|
copy_if_exists test.db.bak.2-oal test.db-oal
|
|
|
|
copy_if_exists ota.db.bak.2 ota.db
|
|
|
|
} -body {
|
|
|
|
sqlite3ota ota test.db ota.db
|
|
|
|
while {[ota step] == "SQLITE_OK"} {}
|
|
|
|
ota close
|
|
|
|
} -test {
|
|
|
|
faultsim_test_result {*}$::reslist
|
|
|
|
|
|
|
|
if {$testrc==0} {
|
|
|
|
sqlite3 db test.db
|
|
|
|
faultsim_integrity_check
|
|
|
|
set res [db eval $::sql]
|
|
|
|
if {$res != [list {*}$::expect]} {
|
|
|
|
puts ""
|
|
|
|
puts "res: $res"
|
|
|
|
puts "exp: $expected"
|
|
|
|
error "data not as expected!"
|
|
|
|
}
|
2014-10-22 19:33:12 +04:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
finish_test
|
|
|
|
|