Import SQLite 3.8.7.4.

third_party/sqlite/src/test/tkt-f3e5abed55.test

 # 2010 July 29
 #
 # 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.
 #
 #***********************************************************************
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 source $testdir/malloc_common.tcl
 
-foreach f [glob -nocomplain test.db*mj*] { file delete -force $f }
-file delete -force test.db2
+foreach f [glob -nocomplain test.db*mj*] { forcedelete $f }
+forcedelete test.db2
 
 do_test tkt-f3e5abed55-1.1 {
   execsql {
     ATTACH 'test.db2' AS aux;
     CREATE TABLE main.t1(a, b);
     CREATE TABLE aux.t2(c, d);
   }
 } {}
 
 do_test tkt-f3e5abed55-1.2 {
@@ skipping 15 matching lines @@
 } {1 {database is locked}}
 
 do_test tkt-f3e5abed55-1.5 {
   execsql COMMIT db2
   execsql COMMIT
 } {}
 
 do_test tkt-f3e5abed55-1.6 {
   glob -nocomplain test.db*mj*
 } {}
-foreach f [glob -nocomplain test.db*mj*] { file delete -force $f }
+foreach f [glob -nocomplain test.db*mj*] { forcedelete $f }
 db close
 db2 close
 
 
 
 # Set up a testvfs so that the next time SQLite tries to delete the
 # file "test.db-journal", a snapshot of the current file-system contents
 # is taken.
 #
 # This test will not work with an in-memory journal.
@@ skipping 42 matching lines @@
     execsql {
       ATTACH 'test.db2' AS aux;
       SELECT * FROM t1;
       SELECT * FROM t2;
     }
   } {1 2 3 4 1 2 3 4}
 }
 
 
 finish_test
-