Index: third_party/sqlite/sqlite-src-3080704/test/indexfault.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/indexfault.test b/third_party/sqlite/sqlite-src-3080704/test/indexfault.test |
deleted file mode 100644 |
index efe493219edc907f8ef895842db7abbb8d2dea5a..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/indexfault.test |
+++ /dev/null |
@@ -1,342 +0,0 @@ |
-# 2011 August 08 |
-# |
-# 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/lock_common.tcl |
-source $testdir/malloc_common.tcl |
- |
-ifcapable !mergesort { |
- finish_test |
- return |
-} |
- |
-set testprefix indexfault |
- |
-# Set up the custom fault-injector. This is further configured by using |
-# different values for $::custom_filter and different implementations |
-# of Tcl proc [xCustom] for each test case. |
-# |
-proc install_custom_faultsim {} { |
- set ::FAULTSIM(custom) [list \ |
- -injectinstall custom_injectinstall \ |
- -injectstart custom_injectstart \ |
- -injectstop custom_injectstop \ |
- -injecterrlist {{1 {disk I/O error}}} \ |
- -injectuninstall custom_injectuninstall \ |
- ] |
- proc custom_injectinstall {} { |
- testvfs shmfault -default true |
- shmfault filter $::custom_filter |
- shmfault script xCustom |
- } |
- proc custom_injectuninstall {} { |
- catch {db close} |
- catch {db2 close} |
- shmfault delete |
- } |
- set ::custom_ifail -1 |
- set ::custom_nfail -1 |
- proc custom_injectstart {iFail} { |
- set ::custom_ifail $iFail |
- set ::custom_nfail 0 |
- } |
- proc custom_injectstop {} { |
- set ::custom_ifail -1 |
- return $::custom_nfail |
- } |
-} |
-proc uninstall_custom_faultsim {} { |
- unset -nocomplain ::FAULTSIM(custom) |
-} |
- |
- |
-#------------------------------------------------------------------------- |
-# These tests - indexfault-1.* - Build an index on a smallish table with |
-# all different kinds of fault-injection. The CREATE INDEX is run once |
-# with default options and once with a 50KB soft-heap-limit. |
-# |
-do_execsql_test 1.0 { |
- BEGIN; |
- CREATE TABLE t1(x); |
- INSERT INTO t1 VALUES(randomblob(202)); |
- INSERT INTO t1 SELECT randomblob(202) FROM t1; -- 2 |
- INSERT INTO t1 SELECT randomblob(202) FROM t1; -- 4 |
- INSERT INTO t1 SELECT randomblob(202) FROM t1; -- 8 |
- INSERT INTO t1 SELECT randomblob(202) FROM t1; -- 16 |
- INSERT INTO t1 SELECT randomblob(202) FROM t1; -- 32 |
- INSERT INTO t1 SELECT randomblob(202) FROM t1; -- 64 |
- INSERT INTO t1 SELECT randomblob(202) FROM t1; -- 128 |
- INSERT INTO t1 SELECT randomblob(202) FROM t1; -- 256 |
- COMMIT; |
-} |
-faultsim_save_and_close |
- |
-do_faultsim_test 1.1 -prep { |
- faultsim_restore_and_reopen |
-} -body { |
- execsql { CREATE INDEX i1 ON t1(x) } |
- faultsim_test_result {0 {}} |
- faultsim_integrity_check |
-} |
-ifcapable memorymanage { |
- set soft_limit [sqlite3_soft_heap_limit 50000] |
- do_faultsim_test 2.1 -prep { |
- faultsim_restore_and_reopen |
- } -body { |
- execsql { CREATE INDEX i1 ON t1(x) } |
- faultsim_test_result {0 {}} |
- } |
- sqlite3_soft_heap_limit $soft_limit |
-} |
- |
-#------------------------------------------------------------------------- |
-# These are similar to the indexfault-1.* tests, except they create an |
-# index with more than one column. |
-# |
-sqlite3 db test.db |
-do_execsql_test 2.0 { |
- BEGIN; |
- DROP TABLE IF EXISTS t1; |
- CREATE TABLE t1(t,u,v,w,x,y,z); |
- INSERT INTO t1 VALUES( |
- randomblob(30), randomblob(30), randomblob(30), randomblob(30), |
- randomblob(30), randomblob(30), randomblob(30) |
- ); |
- INSERT INTO t1 SELECT |
- randomblob(30), randomblob(30), randomblob(30), randomblob(30), |
- randomblob(30), randomblob(30), randomblob(30) FROM t1; -- 2 |
- INSERT INTO t1 SELECT |
- randomblob(30), randomblob(30), randomblob(30), randomblob(30), |
- randomblob(30), randomblob(30), randomblob(30) FROM t1; -- 4 |
- INSERT INTO t1 SELECT |
- randomblob(30), randomblob(30), randomblob(30), randomblob(30), |
- randomblob(30), randomblob(30), randomblob(30) FROM t1; -- 8 |
- INSERT INTO t1 SELECT |
- randomblob(30), randomblob(30), randomblob(30), randomblob(30), |
- randomblob(30), randomblob(30), randomblob(30) FROM t1; -- 16 |
- INSERT INTO t1 SELECT |
- randomblob(30), randomblob(30), randomblob(30), randomblob(30), |
- randomblob(30), randomblob(30), randomblob(30) FROM t1; -- 32 |
- INSERT INTO t1 SELECT |
- randomblob(30), randomblob(30), randomblob(30), randomblob(30), |
- randomblob(30), randomblob(30), randomblob(30) FROM t1; -- 64 |
- INSERT INTO t1 SELECT |
- randomblob(30), randomblob(30), randomblob(30), randomblob(30), |
- randomblob(30), randomblob(30), randomblob(30) FROM t1; -- 128 |
- COMMIT; |
-} |
-faultsim_save_and_close |
- |
-do_faultsim_test 2.1 -prep { |
- faultsim_restore_and_reopen |
-} -body { |
- execsql { CREATE INDEX i1 ON t1(t,u,v,w,x,y,z) } |
- faultsim_test_result {0 {}} |
- faultsim_integrity_check |
-} |
-ifcapable memorymanage { |
- set soft_limit [sqlite3_soft_heap_limit 50000] |
- do_faultsim_test 2.2 -prep { |
- faultsim_restore_and_reopen |
- } -body { |
- execsql { CREATE INDEX i1 ON t1(t,u,v,w,x,y,z) } |
- faultsim_test_result {0 {}} |
- } |
- sqlite3_soft_heap_limit $soft_limit |
-} |
- |
-#------------------------------------------------------------------------- |
-# The following tests - indexfault-2.* - all attempt to build a index |
-# on table t1 in the main database with injected IO errors. Individual |
-# test cases work as follows: |
-# |
-# 3.1: IO errors injected into xOpen() calls. |
-# 3.2: As 7.1, but with a low (50KB) soft-heap-limit. |
-# |
-# 3.3: IO errors injected into the first 200 write() calls made on the |
-# second temporary file. |
-# 3.4: As 7.3, but with a low (50KB) soft-heap-limit. |
-# |
-# 3.5: After a certain amount of data has been read from the main database |
-# file (and written into the temporary b-tree), sqlite3_release_memory() |
-# is called to free as much memory as possible. This causes the temp |
-# b-tree to be flushed to disk. So that before its contents can be |
-# transfered to a PMA they must be read back from disk - creating extra |
-# opportunities for IO errors. |
-# |
-install_custom_faultsim |
- |
-# Set up a table to build indexes on. Save the setup using the |
-# [faultsim_save_and_close] mechanism. |
-# |
-sqlite3 db test.db |
-do_execsql_test 3.0 { |
- BEGIN; |
- DROP TABLE IF EXISTS t1; |
- CREATE TABLE t1(x); |
- INSERT INTO t1 VALUES(randomblob(11000)); |
- INSERT INTO t1 SELECT randomblob(11001) FROM t1; -- 2 |
- INSERT INTO t1 SELECT randomblob(11002) FROM t1; -- 4 |
- INSERT INTO t1 SELECT randomblob(11003) FROM t1; -- 8 |
- INSERT INTO t1 SELECT randomblob(11004) FROM t1; -- 16 |
- INSERT INTO t1 SELECT randomblob(11005) FROM t1; -- 32 |
- INSERT INTO t1 SELECT randomblob(11006) FROM t1; -- 64 |
- INSERT INTO t1 SELECT randomblob(11007) FROM t1; -- 128 |
- INSERT INTO t1 SELECT randomblob(11008) FROM t1; -- 256 |
- INSERT INTO t1 SELECT randomblob(11009) FROM t1; -- 512 |
- COMMIT; |
-} |
-faultsim_save_and_close |
- |
-set ::custom_filter xOpen |
-proc xCustom {args} { |
- incr ::custom_ifail -1 |
- if {$::custom_ifail==0} { |
- incr ::custom_nfail |
- return "SQLITE_IOERR" |
- } |
- return "SQLITE_OK" |
-} |
-do_faultsim_test 3.1 -faults custom -prep { |
- faultsim_restore_and_reopen |
-} -body { |
- execsql { CREATE INDEX i1 ON t1(x) } |
- faultsim_test_result {0 {}} |
-} |
-ifcapable memorymanage { |
- set soft_limit [sqlite3_soft_heap_limit 50000] |
- do_faultsim_test 3.2 -faults custom -prep { |
- faultsim_restore_and_reopen |
- } -body { |
- execsql { CREATE INDEX i1 ON t1(x) } |
- faultsim_test_result {0 {}} |
- } |
- sqlite3_soft_heap_limit $soft_limit |
-} |
- |
-set ::custom_filter {xOpen xWrite} |
-proc xCustom {method args} { |
- if {$method == "xOpen"} { |
- if {[lindex $args 0] == ""} { |
- incr ::nTmpOpen 1 |
- if {$::nTmpOpen == 3} { return "failme" } |
- } |
- return "SQLITE_OK" |
- } |
- if {$::custom_ifail<200 && [lindex $args 1] == "failme"} { |
- incr ::custom_ifail -1 |
- if {$::custom_ifail==0} { |
- incr ::custom_nfail |
- return "SQLITE_IOERR" |
- } |
- } |
- return "SQLITE_OK" |
-} |
- |
-do_faultsim_test 3.3 -faults custom -prep { |
- faultsim_restore_and_reopen |
- set ::nTmpOpen 0 |
-} -body { |
- execsql { CREATE INDEX i1 ON t1(x) } |
- faultsim_test_result {0 {}} |
-} |
- |
-ifcapable memorymanage { |
- set soft_limit [sqlite3_soft_heap_limit 50000] |
- do_faultsim_test 3.4 -faults custom -prep { |
- faultsim_restore_and_reopen |
- set ::nTmpOpen 0 |
- } -body { |
- execsql { CREATE INDEX i1 ON t1(x) } |
- faultsim_test_result {0 {}} |
- } |
- sqlite3_soft_heap_limit $soft_limit |
-} |
- |
-uninstall_custom_faultsim |
- |
-#------------------------------------------------------------------------- |
-# Test 4: After a certain amount of data has been read from the main database |
-# file (and written into the temporary b-tree), sqlite3_release_memory() is |
-# called to free as much memory as possible. This causes the temp b-tree to be |
-# flushed to disk. So that before its contents can be transfered to a PMA they |
-# must be read back from disk - creating extra opportunities for IO errors. |
-# |
-install_custom_faultsim |
- |
-catch { db close } |
-forcedelete test.db |
-sqlite3 db test.db |
- |
-do_execsql_test 4.0 { |
- BEGIN; |
- DROP TABLE IF EXISTS t1; |
- CREATE TABLE t1(x); |
- INSERT INTO t1 VALUES(randomblob(11000)); |
- INSERT INTO t1 SELECT randomblob(11001) FROM t1; -- 2 |
- INSERT INTO t1 SELECT randomblob(11002) FROM t1; -- 4 |
- INSERT INTO t1 SELECT randomblob(11003) FROM t1; -- 8 |
- INSERT INTO t1 SELECT randomblob(11004) FROM t1; -- 16 |
- INSERT INTO t1 SELECT randomblob(11005) FROM t1; -- 32 |
- INSERT INTO t1 SELECT randomblob(11005) FROM t1; -- 64 |
- COMMIT; |
-} |
-faultsim_save_and_close |
- |
-testvfs tvfs |
-tvfs script xRead |
-tvfs filter xRead |
-set ::nRead 0 |
-proc xRead {method file args} { |
- if {[file tail $file] == "test.db"} { incr ::nRead } |
-} |
- |
-do_test 4.1 { |
- sqlite3 db test.db -vfs tvfs |
- execsql { CREATE INDEX i1 ON t1(x) } |
-} {} |
- |
-db close |
-tvfs delete |
- |
-set ::custom_filter xRead |
-proc xCustom {method file args} { |
- incr ::nReadCall |
- if {$::nReadCall >= ($::nRead/5)} { |
- if {$::nReadCall == ($::nRead/5)} { |
- set nByte [sqlite3_release_memory [expr 64*1024*1024]] |
- sqlite3_soft_heap_limit 20000 |
- } |
- if {$file == ""} { |
- incr ::custom_ifail -1 |
- if {$::custom_ifail==0} { |
- incr ::custom_nfail |
- return "SQLITE_IOERR" |
- } |
- } |
- } |
- return "SQLITE_OK" |
-} |
- |
-do_faultsim_test 4.2 -faults custom -prep { |
- faultsim_restore_and_reopen |
- set ::nReadCall 0 |
- sqlite3_soft_heap_limit 0 |
-} -body { |
- execsql { CREATE INDEX i1 ON t1(x) } |
- faultsim_test_result {0 {}} |
-} |
- |
-uninstall_custom_faultsim |
- |
-finish_test |