# 2008 July 14

 #

 # 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.

 #

 #***********************************************************************

 #

 # Test the btree mutex protocol for shared cache mode.

 #

 # $Id: shared4.test,v 1.2 2008/08/04 03:51:24 danielk1977 Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 db close

 puts hello

 # This script is only valid if we are running shared-cache mode in a

 # threadsafe-capable database engine.

 #

 ifcapable !shared_cache||!compound {

   finish_test

   return

 }

 set ::enable_shared_cache [sqlite3_enable_shared_cache 1]

 # Prepare multiple databases in shared cache mode.

 #

 do_test shared4-1.1 {

   file delete -force test1.db test1.db-journal

   file delete -force test2.db test2.db-journal

   file delete -force test3.db test3.db-journal

   file delete -force test4.db test4.db-journal

   sqlite3 db1 test1.db

   sqlite3 db2 test2.db

   sqlite3 db3 test3.db

   sqlite3 db4 test4.db

   db1 eval {

     CREATE TABLE t1(a);

     INSERT INTO t1 VALUES(111);

   }

   db2 eval {

     CREATE TABLE t2(b);

     INSERT INTO t2 VALUES(222);

   }

   db3 eval {

     CREATE TABLE t3(c);

     INSERT INTO t3 VALUES(333);

   }

   db4 eval {

     CREATE TABLE t4(d);

     INSERT INTO t4 VALUES(444);

   }

   db1 eval {

     ATTACH DATABASE 'test2.db' AS two;

     ATTACH DATABASE 'test3.db' AS three;

     ATTACH DATABASE 'test4.db' AS four;

   }

   db2 eval {

     ATTACH DATABASE 'test4.db' AS four;

     ATTACH DATABASE 'test3.db' AS three;

     ATTACH DATABASE 'test1.db' AS one;

   }

   db3 eval {

     ATTACH DATABASE 'test1.db' AS one;

     ATTACH DATABASE 'test2.db' AS two;

     ATTACH DATABASE 'test4.db' AS four;

   }

   db4 eval {

     ATTACH DATABASE 'test3.db' AS three;

     ATTACH DATABASE 'test2.db' AS two;

     ATTACH DATABASE 'test1.db' AS one;

   }

   db1 eval {

      SELECT a FROM t1 UNION ALL

      SELECT b FROM t2 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT d FROM t4;

   }

 } {111 222 333 444}

 do_test shared4-1.2 {

   db2 eval {

      SELECT a FROM t1 UNION ALL

      SELECT b FROM t2 UNION ALL

      SELECT d FROM t4 UNION ALL

      SELECT c FROM t3;

   }

 } {111 222 444 333}

 do_test shared4-1.3 {

   db3 eval {

      SELECT a FROM t1 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT b FROM t2 UNION ALL

      SELECT d FROM t4;

   }

 } {111 333 222 444}

 do_test shared4-1.4 {

   db4 eval {

      SELECT a FROM t1 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT d FROM t4 UNION ALL

      SELECT b FROM t2;

   }

 } {111 333 444 222}

 do_test shared4-1.5 {

   db3 eval {

      SELECT a FROM t1 UNION ALL

      SELECT d FROM t4 UNION ALL

      SELECT b FROM t2 UNION ALL

      SELECT c FROM t3;

   }

 } {111 444 222 333}

 do_test shared4-1.6 {

   db4 eval {

      SELECT a FROM t1 UNION ALL

      SELECT d FROM t4 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT b FROM t2;

   }

 } {111 444 333 222}

 do_test shared4-1.7 {

   db1 eval {

      SELECT b FROM t2 UNION ALL

      SELECT a FROM t1 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT d FROM t4;

   }

 } {222 111 333 444}

 do_test shared4-1.8 {

   db2 eval {

      SELECT b FROM t2 UNION ALL

      SELECT a FROM t1 UNION ALL

      SELECT d FROM t4 UNION ALL

      SELECT c FROM t3;

   }

 } {222 111 444 333}

 do_test shared4-1.9 {

   db3 eval {

      SELECT b FROM t2 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT a FROM t1 UNION ALL

      SELECT d FROM t4;

   }

 } {222 333 111 444}

 do_test shared4-1.10 {

   db4 eval {

      SELECT b FROM t2 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT d FROM t4 UNION ALL

      SELECT a FROM t1;

   }

 } {222 333 444 111}

 do_test shared4-1.11 {

   db1 eval {

      SELECT c FROM t3 UNION ALL

      SELECT a FROM t1 UNION ALL

      SELECT b FROM t2 UNION ALL

      SELECT d FROM t4;

   }

 } {333 111 222 444}

 do_test shared4-1.12 {

   db2 eval {

      SELECT c FROM t3 UNION ALL

      SELECT a FROM t1 UNION ALL

      SELECT d FROM t4 UNION ALL

      SELECT b FROM t2;

   }

 } {333 111 444 222}

 do_test shared4-2.1 {

   db1 eval {

     UPDATE t1 SET a=a+1000;

     UPDATE t2 SET b=b+2000;

     UPDATE t3 SET c=c+3000;

     UPDATE t4 SET d=d+4000;

   }

   db2 eval {

     UPDATE t1 SET a=a+10000;

     UPDATE t2 SET b=b+20000;

     UPDATE t3 SET c=c+30000;

     UPDATE t4 SET d=d+40000;

   }

   db3 eval {

     UPDATE t1 SET a=a+100000;

     UPDATE t2 SET b=b+200000;

     UPDATE t3 SET c=c+300000;

     UPDATE t4 SET d=d+400000;

   }

   db4 eval {

     UPDATE t1 SET a=a+1000000;

     UPDATE t2 SET b=b+2000000;

     UPDATE t3 SET c=c+3000000;

     UPDATE t4 SET d=d+4000000;

   }

   db1 eval {

      SELECT a FROM t1 UNION ALL

      SELECT b FROM t2 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT d FROM t4;

   }

 } {1111111 2222222 3333333 4444444}

 do_test shared4-2.2 {

   db2 eval {

      SELECT a FROM t1 UNION ALL

      SELECT b FROM t2 UNION ALL

      SELECT d FROM t4 UNION ALL

      SELECT c FROM t3;

   }

 } {1111111 2222222 4444444 3333333}

 do_test shared4-2.3 {

   db3 eval {

      SELECT a FROM t1 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT b FROM t2 UNION ALL

      SELECT d FROM t4;

   }

 } {1111111 3333333 2222222 4444444}

 do_test shared4-2.4 {

   db4 eval {

      SELECT a FROM t1 UNION ALL

      SELECT c FROM t3 UNION ALL

      SELECT d FROM t4 UNION ALL

      SELECT b FROM t2;

   }

 } {1111111 3333333 4444444 2222222}

 db1 close

 db2 close

 db3 close

 db4 close

 sqlite3_enable_shared_cache $::enable_shared_cache

 finish_test