| Index: third_party/sqlite/src/test/crash5.test
|
| diff --git a/third_party/sqlite/src/test/crash5.test b/third_party/sqlite/src/test/crash5.test
|
| index e8faa01b1721c8ee17d6e38d54d134cd723daa57..83d1647a84696d0a45b530efde4d08640b63b568 100644
|
| --- a/third_party/sqlite/src/test/crash5.test
|
| +++ b/third_party/sqlite/src/test/crash5.test
|
| @@ -34,7 +34,7 @@ for {set ii 0} {$ii < 10} {incr ii} {
|
| # Set up the database so that it is an auto-vacuum database
|
| # containing a single table (root page 3) with a single row.
|
| # The row has an overflow page (page 4).
|
| - file delete -force test.db test.db-journal
|
| + forcedelete test.db test.db-journal
|
| sqlite3 db test.db
|
| set c [string repeat 3 1500]
|
| db eval {
|
| @@ -47,7 +47,7 @@ for {set ii 0} {$ii < 10} {incr ii} {
|
| do_test crash5-$ii.$jj.1 {
|
| crashsql -delay 1 -file test.db-journal -seed $ii -tclbody [join [list \
|
| [list set iFail $jj] {
|
| - sqlite3_crashparams 0 [file join [pwd] test.db-journal]
|
| + sqlite3_crashparams 0 [file join [get_pwd] test.db-journal]
|
|
|
| # Begin a transaction and evaluate a "CREATE INDEX" statement
|
| # with the iFail'th malloc() set to fail. This operation will
|
| @@ -65,7 +65,7 @@ for {set ii 0} {$ii < 10} {incr ii} {
|
| # puts "$n $msg ac=[sqlite3_get_autocommit db]"
|
|
|
| # If the transaction is still active (it may not be if the malloc()
|
| - # failure occured in the OS layer), write to the database. Make sure
|
| + # failure occurred in the OS layer), write to the database. Make sure
|
| # page 4 is among those written.
|
| #
|
| if {![sqlite3_get_autocommit db]} {
|
| @@ -89,7 +89,7 @@ for {set ii 0} {$ii < 10} {incr ii} {
|
| # by writing page 4 out to the db file. If it crashes later on,
|
| # before syncing the journal... Corruption!
|
| #
|
| - sqlite3_crashparams 1 [file join [pwd] test.db-journal]
|
| + sqlite3_crashparams 1 [file join [get_pwd] test.db-journal]
|
| sqlite3_release_memory 8092
|
| }]] {}
|
| expr 1
|
|
|