Import SQLite 3.8.7.4.

third_party/sqlite/src/test/exclusive2.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.
 #
 # $Id: exclusive2.test,v 1.10 2008/11/27 02:22:11 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 # Do not use a codec for tests in this file, as the database file is
 # manipulated directly using tcl scripts (using the [hexio_write] command).
 #
 do_not_use_codec
 
 ifcapable {!pager_pragmas} {
   finish_test
   return
 }
 
+# Tests in this file verify that locking_mode=exclusive causes SQLite to
+# use cached pages even if the database is changed on disk. This doesn't
+# work with mmap.
+if {[permutation]=="mmap"} {
+  finish_test
+  return
+}
+
 # This module does not work right if the cache spills at unexpected
 # moments.  So disable the soft-heap-limit.
 #
 sqlite3_soft_heap_limit 0
 
 proc pagerChangeCounter {filename new {fd ""}} {
   if {$fd==""} {
     set fd [open $filename RDWR]
     fconfigure $fd -translation binary -encoding binary
     set needClose 1
@@ skipping 214 matching lines @@
 
 #--------------------------------------------------------------------
 # These tests - exclusive2-3.X - verify that the pager change-counter
 # is only incremented by the first change when in exclusive access
 # mode. In normal mode, the change-counter is incremented once
 # per write-transaction.
 #
 
 db close
 catch {close $::fd}
-file delete -force test.db
-file delete -force test.db-journal
+forcedelete test.db
+forcedelete test.db-journal
 
 do_test exclusive2-3.0 {
   sqlite3 db test.db
   execsql {
     BEGIN;
     CREATE TABLE t1(a UNIQUE);
     INSERT INTO t1 VALUES(randstr(200, 200));
     INSERT INTO t1 VALUES(randstr(200, 200));
     COMMIT;
   }
@@ skipping 12 matching lines @@
   readPagerChangeCounter test.db
 } {3}
 do_test exclusive2-3.3 {
   execsql {
     PRAGMA locking_mode = exclusive;
     INSERT INTO t1 VALUES(randstr(200, 200));
   }
   readPagerChangeCounter test.db
 } {4}
 do_test exclusive2-3.4 {
-breakpoint
   execsql {
     INSERT INTO t1 VALUES(randstr(200, 200));
   }
   readPagerChangeCounter test.db
 } {4}
 do_test exclusive2-3.5 {
   execsql {
     PRAGMA locking_mode = normal;
     INSERT INTO t1 VALUES(randstr(200, 200));
   }
   readPagerChangeCounter test.db
 } {4}
 do_test exclusive2-3.6 {
   execsql {
     INSERT INTO t1 VALUES(randstr(200, 200));
   }
   readPagerChangeCounter test.db
 } {5}
 sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)
 
 finish_test