Import SQLite 3.8.7.4.

third_party/sqlite/src/test/crash.test

 # 2001 September 15
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
@@ skipping 101 matching lines @@
     DELETE FROM abc WHERE a = 4;
   }
 } {0 {}}
 do_test crash-1.11 {
   catchsql {
     SELECT * FROM abc;
   }
 } {0 {}}
 
 #--------------------------------------------------------------------------
-# The following tests test recovery when both the database file and the the
+# The following tests test recovery when both the database file and the
 # journal file contain corrupt data. This can happen after pages are
 # written to the database file before a transaction is committed due to
 # cache-pressure.
 #
 # crash-2.1: Insert 18 pages of data into the database.
 # crash-2.2: Check the database file size looks ok.
 # crash-2.3: Delete 15 or so pages (with a 10 page page-cache), then crash.
 # crash-2.4: Ensure the database is in the same state as after crash-2.1.
 #
 # Test cases crash-2.5 and crash-2.6 check that the database is OK if the 
@@ skipping 75 matching lines @@
 #
 # crash-4.1.*: Test recovery when crash occurs during sync() of the 
 #              main database journal file.
 # crash-4.2.*: Test recovery when crash occurs during sync() of an 
 #              attached database journal file.
 # crash-4.3.*: Test recovery when crash occurs during sync() of the master
 #              journal file. 
 #
 ifcapable attach {
   do_test crash-4.0 {
-    file delete -force test2.db
-    file delete -force test2.db-journal
+    forcedelete test2.db
+    forcedelete test2.db-journal
     execsql {
       ATTACH 'test2.db' AS aux;
       PRAGMA aux.default_cache_size = 10;
       CREATE TABLE aux.abc2 AS SELECT 2*a as a, 2*b as b, 2*c as c FROM abc;
     }
     expr ([file size test2.db] / 1024) > 450
   } {1}
   
   set fin 0
   for {set i 1} {$i<$repeats} {incr i} {
@@ skipping 81 matching lines @@
   }
 }
 
 #--------------------------------------------------------------------------
 # The following test cases - crash-5.* - exposes a bug that existed in the
 # sqlite3pager_movepage() API used by auto-vacuum databases.
 # database when a crash occurs during a multi-file transaction. See comments
 # in test crash-5.3 for details.
 #
 db close
-file delete -force test.db
+forcedelete test.db
 sqlite3 db test.db
 do_test crash-5.1 {
   execsql {
     CREATE TABLE abc(a, b, c);                          -- Root page 3
     INSERT INTO abc VALUES(randstr(1500,1500), 0, 0);   -- Overflow page 4
     INSERT INTO abc SELECT * FROM abc;
     INSERT INTO abc SELECT * FROM abc;
     INSERT INTO abc SELECT * FROM abc;
   }
 } {}
@@ skipping 70 matching lines @@
   fconfigure $f -encoding binary
   seek $f [expr [file size test.db-journal] - 12]
   puts -nonewline $f "\00\00\00\00"
   close $f
 } {}
 do_test crash-7.2 {
   signature
 } $sig
 
 finish_test