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:
13: set testdir [file dirname $argv0]
14: source $testdir/tester.tcl
15: source $testdir/lock_common.tcl
16: source $testdir/malloc_common.tcl
17:
18: if {[llength [info commands test_syscall]]==0} {
19: finish_test
20: return
21: }
22:
23: set testprefix sysfault
24:
25: set 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: ]
32: set 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:
40: proc vfsfault_injectstart_t {iFail} { test_syscall fault $iFail 0 }
41: proc vfsfault_injectstart_p {iFail} { test_syscall fault $iFail 1 }
42: proc vfsfault_injectstop {} { test_syscall fault }
43:
44: faultsim_save_and_close
45:
46:
47: set open_and_write_body {
48: sqlite3 db test.db
49: db eval {
50: CREATE TABLE t1(a, b);
51: INSERT INTO t1 VALUES(1, 2);
52: PRAGMA journal_mode = WAL;
53: INSERT INTO t1 VALUES(3, 4);
54: SELECT * FROM t1;
55: CREATE TEMP TABLE t2(x);
56: INSERT INTO t2 VALUES('y');
57: }
58: }
59:
60: proc vfsfault_install {} { test_syscall install {open getcwd} }
61: do_faultsim_test 1 -faults vfsfault-* -prep {
62: faultsim_restore
63: } -body $open_and_write_body -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: # Errors in the fstat() function when opening and writing a file. Cases
71: # where fstat() fails and sets errno to ENOMEM and EOVERFLOW are both
72: # tested. EOVERFLOW is interpreted as meaning that a file on disk is
73: # too large to be opened by the OS.
74: #
75: foreach {tn errno errlist} {
76: 1 ENOMEM {{disk I/O error}}
77: 2 EOVERFLOW {{disk I/O error} {large file support is disabled}}
78: } {
79: proc vfsfault_install {} { test_syscall install fstat }
80: set errs [list]
81: foreach e $errlist { lappend errs [list 1 $e] }
82: do_faultsim_test 1.2.$tn -faults vfsfault-* -prep {
83: faultsim_restore
84: } -body "
85: test_syscall errno fstat $errno
86: $open_and_write_body
87: " -test "
88: faultsim_test_result {0 {wal 1 2 3 4}} $errs
89: "
90: }
91:
92: #-------------------------------------------------------------------------
93: # Various errors in locking functions.
94: #
95: foreach vfs {unix unix-excl} {
96: foreach {tn errno errlist} {
97: 1 EAGAIN {{database is locked} {disk I/O error}}
98: 2 ETIMEDOUT {{database is locked} {disk I/O error}}
99: 3 EBUSY {{database is locked} {disk I/O error}}
100: 4 EINTR {{database is locked} {disk I/O error}}
101: 5 ENOLCK {{database is locked} {disk I/O error}}
102: 6 EACCES {{database is locked} {disk I/O error}}
103: 7 EPERM {{access permission denied} {disk I/O error}}
104: 8 EDEADLK {{disk I/O error}}
105: 9 ENOMEM {{disk I/O error}}
106: } {
107: proc vfsfault_install {} { test_syscall install fcntl }
108: set errs [list]
109: foreach e $errlist { lappend errs [list 1 $e] }
110:
111: set body [string map [list %VFS% $vfs] {
112: sqlite3 db test.db
113: db eval {
114: CREATE TABLE t1(a, b);
115: INSERT INTO t1 VALUES(1, 2);
116: }
117: set fd [open test.db-journal w]
118: puts $fd "hello world"
119: close $fd
120: sqlite3 db test.db -vfs %VFS%
121: db eval {
122: SELECT * FROM t1;
123: }
124: }]
125:
126: do_faultsim_test 1.3.$vfs.$tn -faults vfsfault-* -prep {
127: faultsim_restore
128: } -body "
129: test_syscall errno fcntl $errno
130: $body
131: " -test "
132: faultsim_test_result {0 {1 2}} $errs
133: "
134: }
135: }
136:
137: #-------------------------------------------------------------------------
138: # Check that a single EINTR error does not affect processing.
139: #
140: proc vfsfault_install {} {
141: test_syscall reset
142: test_syscall install {open ftruncate close read pread pread64 write fallocate}
143: }
144:
145: forcedelete test.db test.db2
146: sqlite3 db test.db
147: do_test 2.setup {
148: execsql {
149: CREATE TABLE t1(a, b, c, PRIMARY KEY(a));
150: INSERT INTO t1 VALUES('abc', 'def', 'ghi');
151: ATTACH 'test.db2' AS 'aux';
152: CREATE TABLE aux.t2(x);
153: INSERT INTO t2 VALUES(1);
154: }
155: faultsim_save_and_close
156: } {}
157:
158: do_faultsim_test 2.1 -faults vfsfault-transient -prep {
159: catch { db close }
160: faultsim_restore
161: } -body {
162: test_syscall errno open EINTR
163: test_syscall errno ftruncate EINTR
164: test_syscall errno close EINTR
165: test_syscall errno read EINTR
166: test_syscall errno pread EINTR
167: test_syscall errno pread64 EINTR
168: test_syscall errno write EINTR
169: test_syscall errno fallocate EINTR
170:
171: sqlite3 db test.db
172: file_control_chunksize_test db main 8192
173:
174: set res [db eval {
175: ATTACH 'test.db2' AS 'aux';
176: SELECT * FROM t1;
177: PRAGMA journal_mode = truncate;
178: BEGIN;
179: INSERT INTO t1 VALUES('jkl', 'mno', 'pqr');
180: INSERT INTO t1 VALUES(randomblob(10000), 0, 0);
181: UPDATE t2 SET x = 2;
182: COMMIT;
183: DELETE FROM t1 WHERE length(a)>3;
184: SELECT * FROM t1;
185: SELECT * FROM t2;
186: }]
187: db close
188: set res
189: } -test {
190: faultsim_test_result {0 {abc def ghi truncate abc def ghi jkl mno pqr 2}}
191: }
192:
193: do_faultsim_test 2.2 -faults vfsfault-* -prep {
194: catch { db close }
195: faultsim_restore
196: } -body {
197: sqlite3 db test.db
198: set res [db eval {
199: ATTACH 'test.db2' AS 'aux';
200: SELECT * FROM t1;
201: PRAGMA journal_mode = truncate;
202: BEGIN;
203: INSERT INTO t1 VALUES('jkl', 'mno', 'pqr');
204: UPDATE t2 SET x = 2;
205: COMMIT;
206: SELECT * FROM t1;
207: SELECT * FROM t2;
208: }]
209: db close
210: set res
211: } -test {
212: faultsim_test_result {0 {abc def ghi truncate abc def ghi jkl mno pqr 2}} \
213: {1 {unable to open database file}} \
214: {1 {unable to open database: test.db2}} \
215: {1 {attempt to write a readonly database}} \
216: {1 {disk I/O error}}
217: }
218:
219: #-------------------------------------------------------------------------
220:
221: proc vfsfault_install {} {
222: test_syscall reset
223: test_syscall install {fstat fallocate}
224: }
225: do_faultsim_test 3 -faults vfsfault-* -prep {
226: faultsim_delete_and_reopen
227: file_control_chunksize_test db main 8192
228: execsql {
229: CREATE TABLE t1(a, b);
230: BEGIN;
231: SELECT * FROM t1;
232: }
233: } -body {
234: test_syscall errno fstat EIO
235: test_syscall errno fallocate EIO
236:
237: execsql {
238: INSERT INTO t1 VALUES(randomblob(10000), randomblob(10000));
239: SELECT length(a) + length(b) FROM t1;
240: COMMIT;
241: }
242: } -test {
243: faultsim_test_result {0 20000}
244: }
245:
246: finish_test
247:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to sysfault.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test