diff options
| author | bernard <[email protected]> | 2017-11-02 13:50:42 +0800 |
|---|---|---|
| committer | bernard <[email protected]> | 2017-11-02 13:50:42 +0800 |
| commit | b2057f506a09e2adef81fc77efd697d16ae14bec (patch) | |
| tree | 3affefabfe376a0ec1b3ac4a5eef957c1dd58dc8 /components/external/SQLite-3.8.1/test/ioerr6.test | |
| parent | 23582c8129228b4961ad35319cfd2d270039345f (diff) | |
[External] Remove external from RT-Thread
Diffstat (limited to 'components/external/SQLite-3.8.1/test/ioerr6.test')
| -rw-r--r-- | components/external/SQLite-3.8.1/test/ioerr6.test | 91 |
1 files changed, 0 insertions, 91 deletions
diff --git a/components/external/SQLite-3.8.1/test/ioerr6.test b/components/external/SQLite-3.8.1/test/ioerr6.test deleted file mode 100644 index d1847b2877..0000000000 --- a/components/external/SQLite-3.8.1/test/ioerr6.test +++ /dev/null @@ -1,91 +0,0 @@ -# 2012 December 18 -# -# 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. -# -#*********************************************************************** -# - -set testdir [file dirname $argv0] -source $testdir/tester.tcl -source $testdir/malloc_common.tcl -set ::testprefix ioerr6 - -ifcapable !atomicwrite { - puts "skipping tests - not compiled with SQLITE_ENABLE_ATOMIC_WRITE..." - finish_test - return -} - -if {[permutation]=="inmemory_journal"} { - # These tests will not work with in-memory journals (as persistent VFS - # errors commencing after a transaction has started to write to the db - # cannot be recovered from). - finish_test - return -} - -faultsim_save_and_close - -do_test 1.1 { - testvfs shmfault -default true - shmfault devchar atomic - sqlite3 db test.db - execsql { - CREATE TABLE t1(a, b); - CREATE INDEX i1 ON t1(a, b); - INSERT INTO t1 VALUES(1, 2); - INSERT INTO t1 VALUES(2, 4); - INSERT INTO t1 VALUES(3, 6); - INSERT INTO t1 VALUES(4, 8); - } - - # Cause the first call to xWrite() to fail with SQLITE_FULL. - shmfault full 2 1 - catchsql { INSERT INTO t1 VALUES(5, 10) } -} {1 {database or disk is full}} - -do_test 1.2 { - execsql { PRAGMA integrity_check } -} {ok} - -db close -shmfault delete - -do_faultsim_test 2 -faults full* -prep { - shmfault devchar atomic - faultsim_restore - sqlite3 db test.db -} -body { - db eval { - CREATE TABLE t1(x PRIMARY KEY); - INSERT INTO t1 VALUES('abc'); - } -} -test { - set res [db one { PRAGMA integrity_check }] - if {$res != "ok"} { - error "integrity check: $res" - } -} - -do_faultsim_test 3 -faults full* -prep { - shmfault devchar atomic - faultsim_restore - sqlite3 db test.db -} -body { - db eval { - CREATE TABLE t1(x); - CREATE TABLE t2(x); - } -} -test { - db eval { CREATE TABLE t3(x) } - if {[db one { PRAGMA integrity_check }] != "ok"} { - error "integrity check failed" - } -} - -finish_test |
