| 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 |