Import SQLite 3.7.6.3.

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
 }
 
 # This module does not work right if the cache spills at unexpected
 # moments.  So disable the soft-heap-limit.
 #
 sqlite3_soft_heap_limit 0
 
@@ skipping 48 matching lines @@
   execsql {SELECT count(*), md5sum(a) FROM t1} $db
 }
 do_test exclusive2-1.0 {
   readPagerChangeCounter test.db
 } {0}
 
 #-----------------------------------------------------------------------
 # The following tests - exclusive2-1.X - check that:
 #
 # 1-3:   Build a database with connection 1, calculate a signature.
-# 4-9:   Modify the database using a second connection in a way that
+# 4-7:   Modify the database using a second connection in a way that
 #        does not modify the freelist, then reset the pager change-counter
 #        to the value it had before the modifications.
 # 8:     Check that using the first connection, the database signature
 #        is still the same. This is because it uses the in-memory cache.
 #        It can't tell the db has changed because we reset the change-counter.
 # 9:     Increment the change-counter.
 # 10:    Ensure that the first connection now sees the updated database. It
 #        sees the change-counter has been incremented and discards the 
 #        invalid in-memory cache.
 #
 # This will only work if the database cache is large enough to hold 
 # the entire database. In the case of 1024 byte pages, this means
 # the cache size must be at least 17. Otherwise, some pages will be
 # loaded from the database file in step 8.
 #
+# For similar reasons, this test does not work with the memsubsys1 permutation.
+# Permutation memsubsys1 configures the pcache subsystem to use a static
+# allocation of 24 pages (shared between all pagers). This is not enough for
+# this test.
+#
 do_test exclusive2-1.1 {
   execsql {
     BEGIN;
     CREATE TABLE t1(a, b);
     INSERT INTO t1(a) VALUES(randstr(10, 400));
     INSERT INTO t1(a) VALUES(randstr(10, 400));
     INSERT INTO t1(a) SELECT randstr(10, 400) FROM t1;
     INSERT INTO t1(a) SELECT randstr(10, 400) FROM t1;
     INSERT INTO t1(a) SELECT randstr(10, 400) FROM t1;
     INSERT INTO t1(a) SELECT randstr(10, 400) FROM t1;
@@ skipping 27 matching lines @@
     UPDATE t1 SET b=a, a=NULL;
   } db2
   expr {[t1sig db2] eq $::sig}
 } 0
 do_test exclusive2-1.6 {
   readPagerChangeCounter test.db
 } {2}
 do_test exclusive2-1.7 {
   pagerChangeCounter test.db 1
 } {1}
-do_test exclusive2-1.9 {
-  t1sig
-  expr {[t1sig] eq $::sig}
-} {1}
+if {[permutation] != "memsubsys1"} {
+  do_test exclusive2-1.9 {
+    t1sig
+    expr {[t1sig] eq $::sig}
+  } {1}
+}
 do_test exclusive2-1.10 {
   pagerChangeCounter test.db 2
 } {2}
 do_test exclusive2-1.11 {
   expr {[t1sig] eq $::sig}
 } {0}
+db2 close
 
 #--------------------------------------------------------------------
 # These tests - exclusive2-2.X - are similar to exclusive2-1.X, 
 # except that they are run with locking_mode=EXCLUSIVE.
 #
 # 1-3:   Build a database with exclusive-access connection 1, 
 #        calculate a signature.
 # 4:     Corrupt the database by writing 10000 bytes of garbage
 #        starting at the beginning of page 2. Check that connection 1
 #        still works. It should be accessing the in-memory cache.
@@ skipping 69 matching lines @@
 } {1 {database disk image is malformed}}
 
 #--------------------------------------------------------------------
 # 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
-db2 close
 catch {close $::fd}
 file delete -force test.db
 file delete -force test.db-journal
 
 do_test exclusive2-3.0 {
   sqlite3 db test.db
   execsql {
     BEGIN;
     CREATE TABLE t1(a UNIQUE);
-    INSERT INTO t1 VALUES(randstr(10, 400));
-    INSERT INTO t1 VALUES(randstr(10, 400));
+    INSERT INTO t1 VALUES(randstr(200, 200));
+    INSERT INTO t1 VALUES(randstr(200, 200));
     COMMIT;
   }
   readPagerChangeCounter test.db
 } {1}
 do_test exclusive2-3.1 {
   execsql {
-    INSERT INTO t1 VALUES(randstr(10, 400));
+    INSERT INTO t1 VALUES(randstr(200, 200));
   }
   readPagerChangeCounter test.db
 } {2}
 do_test exclusive2-3.2 {
   execsql {
-    INSERT INTO t1 VALUES(randstr(10, 400));
+    INSERT INTO t1 VALUES(randstr(200, 200));
   }
   readPagerChangeCounter test.db
 } {3}
 do_test exclusive2-3.3 {
   execsql {
     PRAGMA locking_mode = exclusive;
-    INSERT INTO t1 VALUES(randstr(10, 400));
+    INSERT INTO t1 VALUES(randstr(200, 200));
   }
   readPagerChangeCounter test.db
 } {4}
 do_test exclusive2-3.4 {
+breakpoint
   execsql {
-    INSERT INTO t1 VALUES(randstr(10, 400));
+    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(10, 400));
+    INSERT INTO t1 VALUES(randstr(200, 200));
   }
   readPagerChangeCounter test.db
 } {4}
 do_test exclusive2-3.6 {
   execsql {
-    INSERT INTO t1 VALUES(randstr(10, 400));
+    INSERT INTO t1 VALUES(randstr(200, 200));
   }
   readPagerChangeCounter test.db
 } {5}
-sqlite3_soft_heap_limit $soft_limit
+sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)
 
 finish_test