test/walnoshm.test

   1 # 2010 November 1
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 # This file implements regression tests for SQLite library.  The
  12 # focus of this file is testing that WAL databases may be accessed without
  13 # using the xShm primitives if the connection is in exclusive-mode.
  14 #
  15
  16 set testdir [file dirname $argv0]
  17 source $testdir/tester.tcl
  18 set testprefix walnoshm
  19 ifcapable !wal {finish_test ; return }
  20
  21 db close
  22 testvfs tvfsshm
  23 testvfs tvfs -default 1 -iversion 1
  24 sqlite3 db test.db
  25
  26 #--------------------------------------------------------------------------
  27 # Test that when using a version 1 VFS, a database can only be converted
  28 # to WAL mode after setting locking_mode=EXCLUSIVE. Also, test that if a
  29 # WAL database is opened using heap-memory for the WAL index, the connection
  30 # cannot change back to locking_mode=NORMAL while the database is still in
  31 # WAL mode.
  32 #
  33 do_execsql_test 1.1 {
  34   CREATE TABLE t1(x, y);
  35   INSERT INTO t1 VALUES(1, 2);
  36 }
  37
  38 do_execsql_test 1.2 {
  39   PRAGMA journal_mode = WAL;
  40   SELECT * FROM t1;
  41 } {delete 1 2}
  42 do_test 1.3 { file exists test.db-wal } {0}
  43
  44 do_execsql_test 1.4 {
  45   PRAGMA locking_mode = exclusive;
  46   PRAGMA journal_mode = WAL;
  47   SELECT * FROM t1;
  48 } {exclusive wal 1 2}
  49 do_test 1.5 { file exists test.db-wal } {1}
  50
  51 do_execsql_test 1.6 { INSERT INTO t1 VALUES(3, 4) }
  52
  53 do_execsql_test 1.7 {
  54   PRAGMA locking_mode = normal;
  55 } {exclusive}
  56 do_execsql_test 1.8 {
  57   PRAGMA journal_mode = delete;
  58   PRAGMA main.locking_mode;
  59 } {delete exclusive}
  60 do_execsql_test 1.9 {
  61   PRAGMA locking_mode = normal;
  62 } {normal}
  63 do_execsql_test 1.10 {
  64   SELECT * FROM t1;
  65 } {1 2 3 4}
  66 do_test 1.11 { file exists test.db-wal } {0}
  67
  68 #-------------------------------------------------------------------------
  69 #
  70 # 2.1.*: Test that a connection using a version 1 VFS can open a WAL database
  71 #        and convert it to rollback mode if it is set to use
  72 #        locking_mode=exclusive.
  73 #
  74 # 2.2.*: Test that if the exclusive lock cannot be obtained while attempting
  75 #        the above, the operation fails and the WAL file is not opened.
  76 #
  77 do_execsql_test 2.1.1 {
  78   CREATE TABLE t2(x, y);
  79   INSERT INTO t2 VALUES('a', 'b');
  80   INSERT INTO t2 VALUES('c', 'd');
  81 }
  82 do_execsql_test 2.1.2 {
  83   PRAGMA locking_mode = exclusive;
  84   PRAGMA journal_mode = WAL;
  85   INSERT INTO t2 VALUES('e', 'f');
  86   INSERT INTO t2 VALUES('g', 'h');
  87 } {exclusive wal}
  88
  89 do_test 2.1.3 {
  90   forcecopy test.db     test2.db
  91   forcecopy test.db-wal test2.db-wal
  92   sqlite3 db2 test2.db
  93   catchsql { SELECT * FROM t2 } db2
  94 } {1 {unable to open database file}}
  95 do_test 2.1.4 {
  96   catchsql { PRAGMA journal_mode = delete } db2
  97 } {1 {unable to open database file}}
  98 do_test 2.1.5 {
  99   execsql {
 100     PRAGMA locking_mode = exclusive;
 101     PRAGMA journal_mode = delete;
 102     SELECT * FROM t2;
 103   } db2
 104 } {exclusive delete a b c d e f g h}
 105
 106 do_test 2.2.1 {
 107   forcecopy test.db     test2.db
 108   forcecopy test.db-wal test2.db-wal
 109   sqlite3 db3 test2.db -vfs tvfsshm
 110   sqlite3 db2 test2.db
 111   execsql { SELECT * FROM t2 } db3
 112 } {a b c d e f g h}
 113
 114 do_test 2.2.2 {
 115   execsql  { PRAGMA locking_mode = exclusive }  db2
 116   catchsql { PRAGMA journal_mode = delete } db2
 117 } {1 {database is locked}}
 118
 119 do_test 2.2.3 {
 120   # This is to test that [db2] is not holding a PENDING lock (which can
 121   # happen when an attempt to obtain an EXCLUSIVE lock fails).
 122   sqlite3 db4 test2.db -vfs tvfsshm
 123   execsql { SELECT * FROM t2 } db4
 124 } {a b c d e f g h}
 125
 126 do_test 2.2.4 {
 127   catchsql { SELECT * FROM t2 } db2
 128 } {1 {database is locked}}
 129
 130 do_test 2.2.5 {
 131   db4 close
 132   sqlite3 db4 test2.db -vfs tvfsshm
 133   execsql { SELECT * FROM t2 } db4
 134 } {a b c d e f g h}
 135
 136 do_test 2.2.6 {
 137   db3 close
 138   db4 close
 139   execsql { SELECT * FROM t2 } db2
 140 } {a b c d e f g h}
 141
 142 db2 close
 143 db close
 144
 145 #-------------------------------------------------------------------------
 146 #
 147 # 3.1: Test that if locking_mode=EXCLUSIVE is set after the wal file is
 148 #      opened, it is possible to drop back to locking_mode=NORMAL.
 149 #
 150 # 3.2: Test that if locking_mode=EXCLUSIVE is set before the wal file is
 151 #      opened, it is not.
 152 #
 153 do_test 3.1 {
 154   sqlite3 db test.db -vfs tvfsshm
 155   execsql {
 156     SELECT * FROM t1;
 157     PRAGMA locking_mode = EXCLUSIVE;
 158     INSERT INTO t1 VALUES(5, 6);
 159     PRAGMA locking_mode = NORMAL;
 160     INSERT INTO t1 VALUES(7, 8);
 161   }
 162   sqlite3 db2 test.db -vfs tvfsshm
 163   execsql { SELECT * FROM t1 } db2
 164 } {1 2 3 4 5 6 7 8}
 165 db close
 166 db2 close
 167 do_test 3.2 {
 168   sqlite3 db  test.db -vfs tvfsshm
 169   execsql {
 170     PRAGMA locking_mode = EXCLUSIVE;
 171     INSERT INTO t1 VALUES(9, 10);
 172     PRAGMA locking_mode = NORMAL;
 173     INSERT INTO t1 VALUES(11, 12);
 174   }
 175   sqlite3 db2 test.db -vfs tvfsshm
 176   catchsql { SELECT * FROM t1 } db2
 177 } {1 {database is locked}}
 178 db close
 179 db2 close
 180
 181 tvfs delete
 182 tvfsshm delete
 183
 184 finish_test