| OLD | NEW |
| 1 # 2001 September 15 | 1 # 2001 September 15 |
| 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 391 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 402 fconfigure $f -encoding binary | 402 fconfigure $f -encoding binary |
| 403 seek $f [expr [file size test.db-journal] - 12] | 403 seek $f [expr [file size test.db-journal] - 12] |
| 404 puts -nonewline $f "\00\00\00\00" | 404 puts -nonewline $f "\00\00\00\00" |
| 405 close $f | 405 close $f |
| 406 } {} | 406 } {} |
| 407 do_test crash-7.2 { | 407 do_test crash-7.2 { |
| 408 signature | 408 signature |
| 409 } $sig | 409 } $sig |
| 410 | 410 |
| 411 finish_test | 411 finish_test |
| OLD | NEW |