Import SQLite 3.8.7.4.

third_party/sqlite/src/test/exclusive.test

 # 2007 March 24
 #
 # 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 implements regression tests for SQLite library. The focus
 # of these tests is exclusive access mode (i.e. the thing activated by 
 # "PRAGMA locking_mode = EXCLUSIVE").
 #
 # $Id: exclusive.test,v 1.15 2009/06/26 12:30:40 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 ifcapable {!pager_pragmas} {
   finish_test
   return
 }
 
-file delete -force test2.db-journal
-file delete -force test2.db
-file delete -force test3.db-journal
-file delete -force test3.db
-file delete -force test4.db-journal
-file delete -force test4.db
+forcedelete test2.db-journal
+forcedelete test2.db
+forcedelete test3.db-journal
+forcedelete test3.db
+forcedelete test4.db-journal
+forcedelete test4.db
 
 #----------------------------------------------------------------------
 # Test cases exclusive-1.X test the PRAGMA logic.
 #
 do_test exclusive-1.0 {
   execsql {
     pragma locking_mode;
     pragma main.locking_mode;
     pragma temp.locking_mode;
   } 
@@ skipping 433 matching lines @@
 do_execsql_test exclusive-6.1 {
   CREATE TABLE t4(a, b);
   INSERT INTO t4 VALUES('Eden', 1955);
   BEGIN;
     INSERT INTO t4 VALUES('Macmillan', 1957);
     INSERT INTO t4 VALUES('Douglas-Home', 1963);
     INSERT INTO t4 VALUES('Wilson', 1964);
 }
 do_test exclusive-6.2 {
   forcedelete test2.db test2.db-journal
-  file copy test.db test2.db
-  file copy test.db-journal test2.db-journal
+  copy_file test.db test2.db
+  copy_file test.db-journal test2.db-journal
   sqlite3 db test2.db
 } {}
 
 do_execsql_test exclusive-6.3 {
   PRAGMA locking_mode = EXCLUSIVE;
   SELECT * FROM t4;
 } {exclusive Eden 1955}
 
 do_test exclusive-6.4 {
   db close
   forcedelete test.db test.db-journal
   set fd [open test.db-journal w]
   puts $fd x
   close $fd
   sqlite3 db test.db
 } {}
 
 do_execsql_test exclusive-6.5 {
   PRAGMA locking_mode = EXCLUSIVE;
   SELECT * FROM sqlite_master;
 } {exclusive}
 
 finish_test
-