Import SQLite 3.8.7.4.

third_party/sqlite/src/test/crash4.test

 # 2008 January 8
 #
 # 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 45 matching lines @@
 # Close and reopen the database right before the UPDATE statement.
 # On each repetition, introduce database corruption typical of
 # what might be seen in a power loss or OS crash.  
 #
 # Slowly increase the delay before the crash, repeating the test
 # over and over.  Stop testing when the entire sequence of SQL
 # statements runs to completing without hitting the crash.
 #
 for {set cnt 1; set fin 0} {!$fin} {incr cnt} {
   db close
-  file delete -force test.db test.db-journal
+  forcedelete test.db test.db-journal
   do_test crash4-1.$cnt.1 {
     set seed [expr {int(abs(rand()*10000))}]
     set delay [expr {int($cnt/50)+1}]
     set file [expr {($cnt&1)?"test.db":"test.db-journal"}]
     set c [crashsql -delay $delay -file $file -seed $seed -tclbody {
       db eval {CREATE TABLE a(id INTEGER, name CHAR(50))}
       db eval {INSERT INTO a(id,name) VALUES(1,'one')}
       db eval {INSERT INTO a(id,name) VALUES(2,'two')}
       db eval {INSERT INTO a(id,name) VALUES(3,'three')}
       db eval {INSERT INTO a(id,name) VALUES(4,'four')}
@@ skipping 16 matching lines @@
   } {1 {child process exited abnormally}}
   sqlite3 db test.db
   integrity_check crash4-1.$cnt.2
   do_test crash4-1.$cnt.3 {
     set x [lsearch $::crash4_cksum_set [allcksum db]]
     expr {$x>=0}
   } {1}
 }
 
 finish_test