OLD | NEW |
1 # 2011 March 29 | 1 # 2011 March 29 |
2 # | 2 # |
3 # The author disclaims copyright to this source code. In place of | 3 # The author disclaims copyright to this source code. In place of |
4 # a legal notice, here is a blessing: | 4 # a legal notice, here is a blessing: |
5 # | 5 # |
6 # May you do good and not evil. | 6 # May you do good and not evil. |
7 # May you find forgiveness for yourself and forgive others. | 7 # May you find forgiveness for yourself and forgive others. |
8 # May you share freely, never taking more than you give. | 8 # May you share freely, never taking more than you give. |
9 # | 9 # |
10 #*********************************************************************** | 10 #*********************************************************************** |
(...skipping 43 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
54 do_test 2.1.2 { test_syscall exists nosuchcall } 0 | 54 do_test 2.1.2 { test_syscall exists nosuchcall } 0 |
55 | 55 |
56 #------------------------------------------------------------------------- | 56 #------------------------------------------------------------------------- |
57 # Tests for the xNextSystemCall method. | 57 # Tests for the xNextSystemCall method. |
58 # | 58 # |
59 foreach s { | 59 foreach s { |
60 open close access getcwd stat fstat ftruncate | 60 open close access getcwd stat fstat ftruncate |
61 fcntl read pread write pwrite fchmod fallocate | 61 fcntl read pread write pwrite fchmod fallocate |
62 pread64 pwrite64 unlink openDirectory mkdir rmdir | 62 pread64 pwrite64 unlink openDirectory mkdir rmdir |
63 statvfs fchown geteuid umask mmap munmap mremap | 63 statvfs fchown geteuid umask mmap munmap mremap |
64 getpagesize readlink | 64 getpagesize readlink lstat |
65 } { | 65 } { |
66 if {[test_syscall exists $s]} {lappend syscall_list $s} | 66 if {[test_syscall exists $s]} {lappend syscall_list $s} |
67 } | 67 } |
68 do_test 3.1 { lsort [test_syscall list] } [lsort $syscall_list] | 68 do_test 3.1 { lsort [test_syscall list] } [lsort $syscall_list] |
69 | 69 |
70 #------------------------------------------------------------------------- | 70 #------------------------------------------------------------------------- |
71 # This test verifies that if a call to open() fails and errno is set to | 71 # This test verifies that if a call to open() fails and errno is set to |
72 # EINTR, the call is retried. If it succeeds, execution continues as if | 72 # EINTR, the call is retried. If it succeeds, execution continues as if |
73 # nothing happened. | 73 # nothing happened. |
74 # | 74 # |
(...skipping 194 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
269 5 49 64 | 269 5 49 64 |
270 } { | 270 } { |
271 do_test 8.4.$tn { | 271 do_test 8.4.$tn { |
272 file_control_sizehint_test db main $hint | 272 file_control_sizehint_test db main $hint |
273 file size test.db | 273 file size test.db |
274 } $size | 274 } $size |
275 } | 275 } |
276 | 276 |
277 test_syscall reset | 277 test_syscall reset |
278 finish_test | 278 finish_test |
OLD | NEW |