Import SQLite 3.8.7.4.

third_party/sqlite/src/test/pcache2.test

 # 2008 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 is focused on testing the pcache module.
 #
 # $Id: pcache2.test,v 1.5 2009/07/18 14:36:24 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
-
 # Set up a pcache memory pool so that we can easily track how many
 # pages are being used for cache.
 #
 do_test pcache2-1.1 {
   db close
   sqlite3_reset_auto_extension
   sqlite3_shutdown
   sqlite3_config_pagecache 6000 100
   sqlite3_initialize
   autoinstall_test_functions
   sqlite3_status SQLITE_STATUS_PAGECACHE_USED 1
   sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0
 } {0 0 0}
 
 # Open up two database connections to separate files.
 #
 do_test pcache2-1.2 {
-  file delete -force test.db test.db-journal
+  forcedelete test.db test.db-journal
   sqlite3 db test.db
   db eval {PRAGMA cache_size=10}
   lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 1
 } {2}
 do_test pcache2-1.3 {
-  file delete -force test2.db test2.db-journal
+  forcedelete test2.db test2.db-journal
   sqlite3 db2 test2.db
   db2 eval {PRAGMA cache_size=50}
   lindex [sqlite3_status SQLITE_STATUS_PAGECACHE_USED 0] 1
 } {4}
 
 
 # Make lots of changes on the first connection.  Verify that the
 # page cache usage does not grow to consume the page space set aside
 # for the second connection.
 #
@@ skipping 17 matching lines @@
 
 db close
 catch {db2 close}
 sqlite3_reset_auto_extension
 sqlite3_shutdown
 sqlite3_config_pagecache 0 0
 sqlite3_initialize
 autoinstall_test_functions
 
 finish_test