Import SQLite 3.8.7.4.

third_party/sqlite/src/test/memsubsys2.test

 # 2008 June 18
 #
 # 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 contains tests of the memory allocation subsystem.
 #
 # $Id: memsubsys2.test,v 1.2 2008/08/12 15:21:12 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 sqlite3_reset_auto_extension
 
 # This procedure constructs a new database in test.db.  It fills
 # this database with many small records (enough to force multiple
 # rebalance operations in the btree-layer and to require a large
 # page cache), verifies correct results, then returns.
 #
 proc build_test_db {testname pragmas} {
   catch {db close}
-  file delete -force test.db test.db-journal
+  forcedelete test.db test.db-journal
   sqlite3 db test.db
   db eval $pragmas
   db eval {
     CREATE TABLE t1(x, y);
     CREATE TABLE t2(a, b);
     CREATE INDEX i1 ON t1(x,y);
     INSERT INTO t1 VALUES(1, 100);
     INSERT INTO t1 VALUES(2, 200);
   }
   for {set i 2} {$i<5000} {incr i $i} {
@@ skipping 126 matching lines @@
 } {1}
 do_test memsubsys2-4.11 {
   sqlite3_memory_used
 } {0}
   
 
 
 
 autoinstall_test_functions
 finish_test