1# 2011 March 28 2# 3# The author disclaims copyright to this source code. In place of 4# a legal notice, here is a blessing: 5# 6# May you do good and not evil. 7# May you find forgiveness for yourself and forgive others. 8# May you share freely, never taking more than you give. 9# 10#*********************************************************************** 11# 12 13set testdir [file dirname $argv0] 14source $testdir/tester.tcl 15source $testdir/lock_common.tcl 16source $testdir/malloc_common.tcl 17 18if {[llength [info commands test_syscall]]==0} { 19 finish_test 20 return 21} 22 23set testprefix sysfault 24 25set FAULTSIM(vfsfault-transient) [list \ 26 -injectinstall vfsfault_install \ 27 -injectstart vfsfault_injectstart_t \ 28 -injectstop vfsfault_injectstop \ 29 -injecterrlist {} \ 30 -injectuninstall {test_syscall uninstall} \ 31] 32set FAULTSIM(vfsfault-persistent) [list \ 33 -injectinstall vfsfault_install \ 34 -injectstart vfsfault_injectstart_p \ 35 -injectstop vfsfault_injectstop \ 36 -injecterrlist {} \ 37 -injectuninstall {test_syscall uninstall} \ 38] 39 40proc vfsfault_injectstart_t {iFail} { test_syscall fault $iFail 0 } 41proc vfsfault_injectstart_p {iFail} { test_syscall fault $iFail 1 } 42proc vfsfault_injectstop {} { test_syscall fault } 43 44faultsim_save_and_close 45 46proc vfsfault_install {} { 47 test_syscall install {open getcwd} 48} 49 50do_faultsim_test 1 -faults vfsfault-* -prep { 51 faultsim_restore 52} -body { 53 sqlite3 db test.db 54 db eval { 55 CREATE TABLE t1(a, b); 56 INSERT INTO t1 VALUES(1, 2); 57 PRAGMA journal_mode = WAL; 58 INSERT INTO t1 VALUES(3, 4); 59 SELECT * FROM t1; 60 CREATE TEMP TABLE t2(x); 61 INSERT INTO t2 VALUES('y'); 62 } 63} -test { 64 faultsim_test_result {0 {wal 1 2 3 4}} \ 65 {1 {unable to open database file}} \ 66 {1 {attempt to write a readonly database}} 67} 68 69#------------------------------------------------------------------------- 70# Check that a single EINTR error does not affect processing. 71# 72proc vfsfault_install {} { 73 test_syscall reset 74 test_syscall install {open ftruncate close} 75} 76 77forcedelete test.db test.db2 78sqlite3 db test.db 79do_test 2.setup { 80 execsql { 81 CREATE TABLE t1(a, b, c, PRIMARY KEY(a)); 82 INSERT INTO t1 VALUES('abc', 'def', 'ghi'); 83 ATTACH 'test.db2' AS 'aux'; 84 CREATE TABLE aux.t2(x); 85 INSERT INTO t2 VALUES(1); 86 } 87 faultsim_save_and_close 88} {} 89 90do_faultsim_test 2.1 -faults vfsfault-transient -prep { 91 catch { db close } 92 faultsim_restore 93} -body { 94 test_syscall errno open EINTR 95 test_syscall errno ftruncate EINTR 96 test_syscall errno close EINTR 97 98 sqlite3 db test.db 99 set res [db eval { 100 ATTACH 'test.db2' AS 'aux'; 101 SELECT * FROM t1; 102 PRAGMA journal_mode = truncate; 103 BEGIN; 104 INSERT INTO t1 VALUES('jkl', 'mno', 'pqr'); 105 UPDATE t2 SET x = 2; 106 COMMIT; 107 SELECT * FROM t1; 108 SELECT * FROM t2; 109 }] 110 db close 111 set res 112} -test { 113 faultsim_test_result {0 {abc def ghi truncate abc def ghi jkl mno pqr 2}} 114} 115 116do_faultsim_test 2.2 -faults vfsfault-* -prep { 117 catch { db close } 118 faultsim_restore 119} -body { 120 sqlite3 db test.db 121 set res [db eval { 122 ATTACH 'test.db2' AS 'aux'; 123 SELECT * FROM t1; 124 PRAGMA journal_mode = truncate; 125 BEGIN; 126 INSERT INTO t1 VALUES('jkl', 'mno', 'pqr'); 127 UPDATE t2 SET x = 2; 128 COMMIT; 129 SELECT * FROM t1; 130 SELECT * FROM t2; 131 }] 132 db close 133 set res 134} -test { 135 faultsim_test_result {0 {abc def ghi truncate abc def ghi jkl mno pqr 2}} \ 136 {1 {unable to open database file}} \ 137 {1 {unable to open database: test.db2}} \ 138 {1 {attempt to write a readonly database}} \ 139 {1 {disk I/O error}} 140} 141 142 143finish_test 144 145