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