# 2010 November 1 # # 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 this file is testing that WAL databases may be accessed without # using the xShm primitives if the connection is in exclusive-mode. # set testdir [file dirname $argv0] source $testdir/tester.tcl set testprefix walnoshm ifcapable !wal {finish_test ; return } db close testvfs tvfsshm testvfs tvfs -default 1 -iversion 1 sqlite3 db test.db #-------------------------------------------------------------------------- # Test that when using a version 1 VFS, a database can only be converted # to WAL mode after setting locking_mode=EXCLUSIVE. Also, test that if a # WAL database is opened using heap-memory for the WAL index, the connection # cannot change back to locking_mode=NORMAL while the database is still in # WAL mode. # do_execsql_test 1.1 { CREATE TABLE t1(x, y); INSERT INTO t1 VALUES(1, 2); } do_execsql_test 1.2 { PRAGMA journal_mode = WAL; SELECT * FROM t1; } {delete 1 2} do_test 1.3 { file exists test.db-wal } {0} do_execsql_test 1.4 { PRAGMA locking_mode = exclusive; PRAGMA journal_mode = WAL; SELECT * FROM t1; } {exclusive wal 1 2} do_test 1.5 { file exists test.db-wal } {1} do_execsql_test 1.6 { INSERT INTO t1 VALUES(3, 4) } do_execsql_test 1.7 { PRAGMA locking_mode = normal; } {exclusive} do_execsql_test 1.8 { PRAGMA journal_mode = delete; PRAGMA main.locking_mode; } {delete exclusive} do_execsql_test 1.9 { PRAGMA locking_mode = normal; } {normal} do_execsql_test 1.10 { SELECT * FROM t1; } {1 2 3 4} do_test 1.11 { file exists test.db-wal } {0} #------------------------------------------------------------------------- # # 2.1.*: Test that a connection using a version 1 VFS can open a WAL database # and convert it to rollback mode if it is set to use # locking_mode=exclusive. # # 2.2.*: Test that if the exclusive lock cannot be obtained while attempting # the above, the operation fails and the WAL file is not opened. # do_execsql_test 2.1.1 { CREATE TABLE t2(x, y); INSERT INTO t2 VALUES('a', 'b'); INSERT INTO t2 VALUES('c', 'd'); } do_execsql_test 2.1.2 { PRAGMA locking_mode = exclusive; PRAGMA journal_mode = WAL; INSERT INTO t2 VALUES('e', 'f'); INSERT INTO t2 VALUES('g', 'h'); } {exclusive wal} do_test 2.1.3 { file copy -force test.db test2.db file copy -force test.db-wal test2.db-wal sqlite3 db2 test2.db catchsql { SELECT * FROM t2 } db2 } {1 {unable to open database file}} do_test 2.1.4 { catchsql { PRAGMA journal_mode = delete } db2 } {1 {unable to open database file}} do_test 2.1.5 { execsql { PRAGMA locking_mode = exclusive; PRAGMA journal_mode = delete; SELECT * FROM t2; } db2 } {exclusive delete a b c d e f g h} do_test 2.2.1 { file copy -force test.db test2.db file copy -force test.db-wal test2.db-wal sqlite3 db3 test2.db -vfs tvfsshm sqlite3 db2 test2.db execsql { SELECT * FROM t2 } db3 } {a b c d e f g h} do_test 2.2.2 { execsql { PRAGMA locking_mode = exclusive } db2 catchsql { PRAGMA journal_mode = delete } db2 } {1 {database is locked}} do_test 2.2.3 { # This is to test that [db2] is not holding a PENDING lock (which can # happen when an attempt to obtain an EXCLUSIVE lock fails). sqlite3 db4 test2.db -vfs tvfsshm execsql { SELECT * FROM t2 } db4 } {a b c d e f g h} do_test 2.2.4 { catchsql { SELECT * FROM t2 } db2 } {1 {database is locked}} do_test 2.2.5 { db4 close sqlite3 db4 test2.db -vfs tvfsshm execsql { SELECT * FROM t2 } db4 } {a b c d e f g h} do_test 2.2.6 { db3 close db4 close execsql { SELECT * FROM t2 } db2 } {a b c d e f g h} db2 close db close #------------------------------------------------------------------------- # # 3.1: Test that if locking_mode=EXCLUSIVE is set after the wal file is # opened, it is possible to drop back to locking_mode=NORMAL. # # 3.2: Test that if locking_mode=EXCLUSIVE is set before the wal file is # opened, it is not. # do_test 3.1 { sqlite3 db test.db -vfs tvfsshm execsql { SELECT * FROM t1; PRAGMA locking_mode = EXCLUSIVE; INSERT INTO t1 VALUES(5, 6); PRAGMA locking_mode = NORMAL; INSERT INTO t1 VALUES(7, 8); } sqlite3 db2 test.db -vfs tvfsshm execsql { SELECT * FROM t1 } db2 } {1 2 3 4 5 6 7 8} db close db2 close do_test 3.2 { sqlite3 db test.db -vfs tvfsshm execsql { PRAGMA locking_mode = EXCLUSIVE; INSERT INTO t1 VALUES(9, 10); PRAGMA locking_mode = NORMAL; INSERT INTO t1 VALUES(11, 12); } sqlite3 db2 test.db -vfs tvfsshm catchsql { SELECT * FROM t1 } db2 } {1 {database is locked}} db close db2 close tvfs delete tvfsshm delete finish_test