Annotation of embedaddon/sqlite3/test/syscall.test, revision 1.1.1.1
1.1 misho 1: # 2011 March 29
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: if {[test_syscall defaultvfs] != "unix"} {
24: finish_test
25: return
26: }
27: set testprefix syscall
28:
29: #-------------------------------------------------------------------------
30: # Tests for the xSetSystemCall method.
31: #
32: do_test 1.1.1 {
33: list [catch { test_syscall reset open } msg] $msg
34: } {0 {}}
35: do_test 1.1.2 {
36: list [catch { test_syscall reset nosuchcall } msg] $msg
37: } {1 SQLITE_NOTFOUND}
38: do_test 1.1.3 {
39: list [catch { test_syscall reset open } msg] $msg
40: } {0 {}}
41: do_test 1.1.4 {
42: list [catch { test_syscall reset ""} msg] $msg
43: } {1 SQLITE_NOTFOUND}
44:
45: do_test 1.2 { test_syscall reset } {}
46:
47: do_test 1.3.1 { test_syscall install {open getcwd access} } {}
48: do_test 1.3.2 { test_syscall reset } {}
49:
50: #-------------------------------------------------------------------------
51: # Tests for the xGetSystemCall method.
52: #
53: do_test 2.1.1 { test_syscall exists open } 1
54: do_test 2.1.2 { test_syscall exists nosuchcall } 0
55:
56: #-------------------------------------------------------------------------
57: # Tests for the xNextSystemCall method.
58: #
59: foreach s {
60: open close access getcwd stat fstat ftruncate
61: fcntl read pread write pwrite fchmod fallocate
62: pread64 pwrite64 unlink openDirectory mkdir rmdir
63: statvfs
64: } {
65: if {[test_syscall exists $s]} {lappend syscall_list $s}
66: }
67: do_test 3.1 { lsort [test_syscall list] } [lsort $syscall_list]
68:
69: #-------------------------------------------------------------------------
70: # This test verifies that if a call to open() fails and errno is set to
71: # EINTR, the call is retried. If it succeeds, execution continues as if
72: # nothing happened.
73: #
74: test_syscall reset
75: forcedelete test.db2
76: do_execsql_test 4.1 {
77: CREATE TABLE t1(x, y);
78: INSERT INTO t1 VALUES(1, 2);
79: ATTACH 'test.db2' AS aux;
80: CREATE TABLE aux.t2(x, y);
81: INSERT INTO t2 VALUES(3, 4);
82: }
83:
84: db_save_and_close
85: test_syscall install open
86: foreach jrnl [list wal delete] {
87: for {set i 1} {$i < 20} {incr i} {
88: db_restore_and_reopen
89: test_syscall fault $i 0
90: test_syscall errno open EINTR
91:
92: do_test 4.2.$jrnl.$i {
93: sqlite3 db test.db
94: execsql { ATTACH 'test.db2' AS aux }
95: execsql "PRAGMA main.journal_mode = $jrnl"
96: execsql "PRAGMA aux.journal_mode = $jrnl"
97: execsql {
98: BEGIN;
99: INSERT INTO t1 VALUES(5, 6);
100: INSERT INTO t2 VALUES(7, 8);
101: COMMIT;
102: }
103:
104: db close
105: sqlite3 db test.db
106: execsql { ATTACH 'test.db2' AS aux }
107: execsql {
108: SELECT * FROM t1;
109: SELECT * FROM t2;
110: }
111: } {1 2 5 6 3 4 7 8}
112: }
113: }
114:
115: #-------------------------------------------------------------------------
116: # This test verifies that closing database handles does not drop locks
117: # held by other database handles in the same process on the same file.
118: #
119: # The os_unix.c module has to take precautions to prevent this as the
120: # close() system call drops locks held by other file-descriptors on the
121: # same file. From the Linux man page:
122: #
123: # close() closes a file descriptor, so that it no longer refers to any file
124: # and may be reused. Any record locks (see fcntl(2)) held on the file it
125: # was associated with, and owned by the process, are removed (regardless
126: # of the file descriptor that was used to obtain the lock).
127: #
128: catch { db close }
129: forcedelete test.db test.db2
130:
131: do_multiclient_test tn {
132: code1 {
133: sqlite3 dbX1 test.db
134: sqlite3 dbX2 test.db
135: }
136:
137: do_test syscall-5.$tn.1 {
138: sql1 {
139: CREATE TABLE t1(a, b);
140: INSERT INTO t1 VALUES(1, 2);
141: BEGIN;
142: INSERT INTO t1 VALUES(3, 4);
143: }
144: } {}
145:
146: do_test syscall-5.$tn.2 { sql2 { SELECT * FROM t1 } } {1 2}
147: do_test syscall-5.$tn.3 {
148: csql2 { INSERT INTO t1 VALUES(5, 6) }
149: } {1 {database is locked}}
150:
151: do_test syscall-5.$tn.4 {
152: code1 {
153: dbX1 close
154: dbX2 close
155: }
156: } {}
157:
158: do_test syscall-5.$tn.5 {
159: csql2 { INSERT INTO t1 VALUES(5, 6) }
160: } {1 {database is locked}}
161:
162: do_test syscall-5.$tn.6 { sql1 { COMMIT } } {}
163:
164: do_test syscall-5.$tn.7 {
165: csql2 { INSERT INTO t1 VALUES(5, 6) }
166: } {0 {}}
167: }
168:
169: catch {db close}
170: do_test 6.1 {
171: sqlite3 db1 test.db1
172: sqlite3 db2 test.db2
173: sqlite3 db3 test.db3
174: sqlite3 dbM ""
175:
176: db2 close
177: db3 close
178: dbM close
179: db1 close
180: } {}
181:
182: do_test 6.2 {
183: sqlite3 db test.db
184: execsql {
185: PRAGMA temp_store = file;
186:
187: PRAGMA main.cache_size = 10;
188: PRAGMA temp.cache_size = 10;
189: CREATE TABLE temp.tt(a, b);
190: INSERT INTO tt VALUES(randomblob(500), randomblob(600));
191: INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt;
192: INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt;
193: INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt;
194: INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt;
195: INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt;
196: INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt;
197: INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt;
198: INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt;
199: }
200:
201: db close
202: } {}
203:
204: #-------------------------------------------------------------------------
205: # Test that a database file a single byte in size is treated as an empty
206: # file. Whereas a file 2 bytes or larger might be considered corrupt.
207: #
208: catch { db close }
209: forcedelete test.db test.db2
210:
211: proc create_db_file {nByte} {
212: set fd [open test.db w]
213: fconfigure $fd -translation binary -encoding binary
214: puts -nonewline $fd [string range "xSQLite" 1 $nByte]
215: close $fd
216: }
217:
218: foreach {nByte res} {
219: 1 {0 {}}
220: 2 {1 {file is encrypted or is not a database}}
221: 3 {1 {file is encrypted or is not a database}}
222: } {
223: do_test 7.$nByte {
224: create_db_file $nByte
225: list [catch {
226: sqlite3 db test.db
227: execsql { CREATE TABLE t1(a, b) }
228: } msg] $msg
229: } $res
230: catch { db close }
231: }
232:
233: #-------------------------------------------------------------------------
234: #
235: catch { db close }
236: forcedelete test.db test.db2
237:
238: do_test 8.1 {
239: sqlite3 db test.db
240: file_control_chunksize_test db main 4096
241: file size test.db
242: } {0}
243: foreach {tn hint size} {
244: 1 1000 4096
245: 2 1000 4096
246: 3 3000 4096
247: 4 4096 4096
248: 5 4197 8192
249: } {
250: do_test 8.2.$tn {
251: file_control_sizehint_test db main $hint
252: file size test.db
253: } $size
254: }
255:
256: do_test 8.3 {
257: db close
258: forcedelete test.db test.db2
259: sqlite3 db test.db
260: file_control_chunksize_test db main 16
261: file size test.db
262: } {0}
263: foreach {tn hint size} {
264: 1 5 16
265: 2 13 16
266: 3 45 48
267: 4 48 48
268: 5 49 64
269: } {
270: do_test 8.4.$tn {
271: file_control_sizehint_test db main $hint
272: file size test.db
273: } $size
274: }
275:
276: test_syscall reset
277: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to syscall.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