OLD | NEW |
1 # 2011 February 19 | 1 # 2011 February 19 |
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 77 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
88 | 88 |
89 # Test a failure in open() due to the path not existing. | 89 # Test a failure in open() due to the path not existing. |
90 # | 90 # |
91 do_test 1.4.1 { | 91 do_test 1.4.1 { |
92 set ::log [list] | 92 set ::log [list] |
93 list [catch { sqlite3 dbh /root/test.db } msg] $msg | 93 list [catch { sqlite3 dbh /root/test.db } msg] $msg |
94 } {1 {unable to open database file}} | 94 } {1 {unable to open database file}} |
95 | 95 |
96 do_re_test 1.4.2 { | 96 do_re_test 1.4.2 { |
97 lindex $::log 0 | 97 lindex $::log 0 |
98 } {^os_unix.c:\d*: \(\d+\) (open|readlink)\(.*test.db\) - } | 98 } {^os_unix.c:\d*: \(\d+\) (open|readlink|lstat)\(.*test.db\) - } |
99 | 99 |
100 #-------------------------------------------------------------------------- | 100 #-------------------------------------------------------------------------- |
101 # Tests oserror-1.* test failures in the unlink() system call. | 101 # Tests oserror-1.* test failures in the unlink() system call. |
102 # | 102 # |
103 ifcapable wal { | 103 ifcapable wal { |
104 do_test 2.1.1 { | 104 do_test 2.1.1 { |
105 set ::log [list] | 105 set ::log [list] |
106 file mkdir test.db-wal | 106 file mkdir test.db-wal |
107 forcedelete test.db | 107 forcedelete test.db |
108 list [catch { | 108 list [catch { |
(...skipping 10 matching lines...) Expand all Loading... |
119 forcedelete test.db-wal | 119 forcedelete test.db-wal |
120 } {} | 120 } {} |
121 } | 121 } |
122 | 122 |
123 | 123 |
124 test_syscall reset | 124 test_syscall reset |
125 sqlite3_shutdown | 125 sqlite3_shutdown |
126 test_sqlite3_log | 126 test_sqlite3_log |
127 sqlite3_initialize | 127 sqlite3_initialize |
128 finish_test | 128 finish_test |
OLD | NEW |