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 41 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
52 # | 52 # |
53 do_test 2.1.1 { test_syscall exists open } 1 | 53 do_test 2.1.1 { test_syscall exists open } 1 |
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 | 62 pread64 pwrite64 unlink openDirectory |
63 } { | 63 } { |
64 if {[test_syscall exists $s]} {lappend syscall_list $s} | 64 if {[test_syscall exists $s]} {lappend syscall_list $s} |
65 } | 65 } |
66 do_test 3.1 { lsort [test_syscall list] } [lsort $syscall_list] | 66 do_test 3.1 { lsort [test_syscall list] } [lsort $syscall_list] |
67 | 67 |
68 #------------------------------------------------------------------------- | 68 #------------------------------------------------------------------------- |
69 # This test verifies that if a call to open() fails and errno is set to | 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 | 70 # EINTR, the call is retried. If it succeeds, execution continues as if |
71 # nothing happened. | 71 # nothing happened. |
72 # | 72 # |
(...skipping 194 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
267 5 49 64 | 267 5 49 64 |
268 } { | 268 } { |
269 do_test 8.4.$tn { | 269 do_test 8.4.$tn { |
270 file_control_sizehint_test db main $hint | 270 file_control_sizehint_test db main $hint |
271 file size test.db | 271 file size test.db |
272 } $size | 272 } $size |
273 } | 273 } |
274 | 274 |
275 test_syscall reset | 275 test_syscall reset |
276 finish_test | 276 finish_test |
OLD | NEW |