Import SQLite 3.8.7.4.

third_party/sqlite/src/test/crash6.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.
 #
 #***********************************************************************
 # This file tests that rollback journals for databases that use a 
 # page-size other than the default page-size can be rolled back Ok.
 #
 # $Id: crash6.test,v 1.2 2008/04/14 15:27:19 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 ifcapable !crashtest {
   finish_test
   return
 }
 
 for {set ii 0} {$ii < 10} {incr ii} {
   catch {db close}
-  file delete -force test.db test.db-journal
+  forcedelete test.db test.db-journal
   crashsql -delay 2 -file test.db {
     PRAGMA auto_vacuum=OFF;
     PRAGMA page_size=4096;
     BEGIN;
     CREATE TABLE abc AS SELECT 1 AS a, 2 AS b, 3 AS c;
     COMMIT;
     BEGIN;
     CREATE TABLE def AS SELECT 1 AS d, 2 AS e, 3 AS f;
     COMMIT;
   }
   sqlite3 db test.db
   integrity_check crash6-1.$ii
 }
 
 for {set ii 0} {$ii < 10} {incr ii} {
   catch {db close}
-  file delete -force test.db test.db-journal
+  forcedelete test.db test.db-journal
   sqlite3 db test.db
   execsql {
     PRAGMA auto_vacuum=OFF;
     PRAGMA page_size=2048;
     BEGIN;
     CREATE TABLE abc AS SELECT 1 AS a, 2 AS b, 3 AS c;
     COMMIT;
   }
   db close
   crashsql -delay 1 -file test.db {
     INSERT INTO abc VALUES(5, 6, 7);
   }
   sqlite3 db test.db
   integrity_check crash6-2.$ii
 }
 
 proc signature {} {
   return [db eval {SELECT count(*), md5sum(a), md5sum(b), md5sum(c) FROM abc}]
 }
 
 # Test case for crashing during database sync with page-size values 
 # from 1024 to 8192.
 #
 for {set ii 0} {$ii < 30} {incr ii} {
   db close
-  file delete -force test.db
+  forcedelete test.db
   sqlite3 db test.db
 
   set pagesize [expr 1024 << ($ii % 4)]
   if {$pagesize>$::SQLITE_MAX_PAGE_SIZE} {
     set pagesize $::SQLITE_MAX_PAGE_SIZE
   }
   do_test crash6-3.$ii.0 {
     execsql "pragma page_size = $pagesize"
     execsql "pragma page_size"
   } $pagesize
@@ skipping 29 matching lines @@
      "
   } {1 {child process exited abnormally}}
 
   do_test crash6-3.$ii.3 {
     sqlite3 db test.db
     signature
   } $sig
 } 
 
 finish_test