Import SQLite 3.8.7.4.

third_party/sqlite/src/test/pageropt.test

 # 2007 April 12
 #
 # 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 the tests in this file are to verify that the
 # pager optimizations implemented in version 3.3.14 work.
 #
 # $Id: pageropt.test,v 1.5 2008/08/20 14:49:25 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
-ifcapable {!pager_pragmas||secure_delete} {
+ifcapable {!pager_pragmas||secure_delete||direct_read} {
   finish_test
   return
 }
 
 # Run the SQL statement supplied by the argument and return
 # the results.  Prepend four integers to the beginning of the
 # result which are
 #
 #     (1)  The number of page reads from the database
 #     (2)  The number of page writes to the database
@@ skipping 49 matching lines @@
 set blobcontent [db2 one {SELECT hex(x) FROM t1}]
 do_test pageropt-1.4 {
   pagercount_sql {
     SELECT hex(x) FROM t1
   }
 } [list 0 0 0 $blobcontent]
 
 # But if the other thread modifies the database, then the cache
 # must refill.
 #
+ifcapable mmap {
+  set x [expr {[permutation]=="mmap" ? 1 : 6}]
+} else {
+  set x 6
+}
 do_test pageropt-1.5 {
   db2 eval {CREATE TABLE t2(y)}
   pagercount_sql {
     SELECT hex(x) FROM t1
   }
-} [list 6 0 0 $blobcontent]
+} [list $x 0 0 $blobcontent]
 do_test pageropt-1.6 {
   pagercount_sql {
     SELECT hex(x) FROM t1
   }
 } [list 0 0 0 $blobcontent]
 
 # Verify that the last page of an overflow chain is not read from
 # disk when deleting a row.  The one row of t1(x) has four pages
 # of overflow.  So deleting that row from t1 should involve reading
 # the sqlite_master table (1 page) the main page of t1 (1 page) and
@@ skipping 84 matching lines @@
   db close
   sqlite3 db test.db
   pagercount_sql {
     DELETE FROM t1
   }
 } {12 3 3}
 
 sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)
 catch {db2 close}
 finish_test