Import SQLite 3.8.7.4.

third_party/sqlite/src/test/manydb.test

 # 2005 October 3
 #
 # 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 26 matching lines @@
 set filehandles {}
 catch {
   for {set i 0} {$i<($N * 3)} {incr i} {
     lappend filehandles [open testfile.1 w]
   }
 }
 foreach fd $filehandles {
   close $fd
 }
 catch {
-  file delete -force testfile.1
+  forcedelete testfile.1
 }
 set N [expr $i / $num_fd_per_openwrite_db]
 
 # Create a bunch of random database names
 #
 unset -nocomplain dbname
 unset -nocomplain used
 for {set i 0} {$i<$N} {incr i} {
   while 1 {
     set name test-[format %08x [expr {int(rand()*0x7fffffff)}]].db
@@ skipping 27 matching lines @@
     } db$i
   } {1 2}
 }
 
 
 # Close the databases and erase the files.
 #
 for {set i 0} {$i<$N} {incr i} {
   do_test manydb-3.$i {
     db$i close
-    file delete -force $dbname($i)
+    forcedelete $dbname($i)
   } {}
 }
 
 
 
 
 finish_test