summaryrefslogtreecommitdiff
path: root/components/external/SQLite-3.8.1/test/ioerr6.test
diff options
context:
space:
mode:
authorbernard <[email protected]>2017-11-02 13:50:42 +0800
committerbernard <[email protected]>2017-11-02 13:50:42 +0800
commitb2057f506a09e2adef81fc77efd697d16ae14bec (patch)
tree3affefabfe376a0ec1b3ac4a5eef957c1dd58dc8 /components/external/SQLite-3.8.1/test/ioerr6.test
parent23582c8129228b4961ad35319cfd2d270039345f (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.test91
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