Import SQLite 3.8.7.4.

third_party/sqlite/src/test/delete.test

 # 2001 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.
 #
 #***********************************************************************
@@ skipping 257 matching lines @@
 # from a read-only database.  Ticket #304.
 #
 do_test delete-8.0 {
   execsql {
     PRAGMA count_changes=OFF;
     INSERT INTO t3 VALUES(123);
     SELECT * FROM t3;
   }
 } {123}
 db close
-catch {file delete -force test.db-journal}
+catch {forcedelete test.db-journal}
 catch {file attributes test.db -permissions 0444}
 catch {file attributes test.db -readonly 1}
 sqlite3 db test.db
 set ::DB [sqlite3_connection_pointer db]
 do_test delete-8.1 {
   catchsql {
     DELETE FROM t3;
   }
 } {1 {attempt to write a readonly database}}
 do_test delete-8.2 {
@@ skipping 16 matching lines @@
     DELETE FROM t3 WHERE a<100;
   }
 # v2 result: {0 {}}
 } {1 {attempt to write a readonly database}}
 do_test delete-8.6 {
   execsql {SELECT * FROM t3}
 } {123}
 integrity_check delete-8.7
 
 # Need to do the following for tcl 8.5 on mac. On that configuration, the
-# -readonly flag is taken so seriously that a subsequent [file delete -force]
+# -readonly flag is taken so seriously that a subsequent [forcedelete]
 # (required before the next test file can be executed) will fail.
 #
 catch {file attributes test.db -readonly 0}
 db close
-file delete -force test.db test.db-journal
+forcedelete test.db test.db-journal
 
 # The following tests verify that SQLite correctly handles the case
 # where an index B-Tree is being scanned, the rowid column being read
 # from each index entry and another statement deletes some rows from
 # the index B-Tree. At one point this (obscure) scenario was causing 
 # SQLite to return spurious SQLITE_CORRUPT errors and arguably incorrect
 # query results. 
 #
 do_test delete-9.1 {
   sqlite3 db test.db
@@ skipping 54 matching lines @@
   set res [list]
   db eval { SELECT t5.rowid AS r, c, d FROM t5, t6 ORDER BY a } {
     if {$r==2} { db eval { DELETE FROM t5 WHERE rowid = 3 } }
     lappend res $r $c $d
   }
   set res
 } {1 a b 1 c d 2 a b 2 c d}
 
 
 finish_test