/trunk/test/walnoshm.test |
@@ -0,0 +1,184 @@ |
# 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 |