| Index: third_party/sqlite/src/test/lock5.test
|
| diff --git a/third_party/sqlite/src/test/lock5.test b/third_party/sqlite/src/test/lock5.test
|
| new file mode 100644
|
| index 0000000000000000000000000000000000000000..6ec86ba7e4e9af3cbaf51bda79bf0df598d67c6b
|
| --- /dev/null
|
| +++ b/third_party/sqlite/src/test/lock5.test
|
| @@ -0,0 +1,195 @@
|
| +# 2008 June 28
|
| +#
|
| +# 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 script is database locks.
|
| +#
|
| +# $Id: lock5.test,v 1.6 2008/12/04 12:34:16 drh Exp $
|
| +
|
| +set testdir [file dirname $argv0]
|
| +source $testdir/tester.tcl
|
| +
|
| +# This file is only run if using the unix backend compiled with the
|
| +# SQLITE_ENABLE_LOCKING_STYLE macro.
|
| +db close
|
| +if {[catch {sqlite3 db test.db -vfs unix-none} msg]} {
|
| + finish_test
|
| + return
|
| +}
|
| +db close
|
| +file delete -force test.db.lock
|
| +
|
| +ifcapable lock_proxy_pragmas {
|
| + set ::using_proxy 0
|
| + foreach {name value} [array get env SQLITE_FORCE_PROXY_LOCKING] {
|
| + set ::using_proxy $value
|
| + }
|
| + # Disable the proxy locking for these tests
|
| + set env(SQLITE_FORCE_PROXY_LOCKING) "0"
|
| +}
|
| +
|
| +
|
| +do_test lock5-dotfile.1 {
|
| + sqlite3 db test.db -vfs unix-dotfile
|
| + execsql {
|
| + BEGIN;
|
| + CREATE TABLE t1(a, b);
|
| + }
|
| +} {}
|
| +
|
| +do_test lock5-dotfile.2 {
|
| + file exists test.db.lock
|
| +} {1}
|
| +
|
| +do_test lock5-dotfile.3 {
|
| + execsql COMMIT
|
| + file exists test.db.lock
|
| +} {0}
|
| +
|
| +do_test lock5-dotfile.4 {
|
| + sqlite3 db2 test.db -vfs unix-dotfile
|
| + execsql {
|
| + INSERT INTO t1 VALUES('a', 'b');
|
| + SELECT * FROM t1;
|
| + } db2
|
| +} {a b}
|
| +
|
| +do_test lock5-dotfile.5 {
|
| + execsql {
|
| + BEGIN;
|
| + SELECT * FROM t1;
|
| + } db2
|
| +} {a b}
|
| +
|
| +do_test lock5-dotfile.6 {
|
| + file exists test.db.lock
|
| +} {1}
|
| +
|
| +do_test lock5-dotfile.7 {
|
| + catchsql { SELECT * FROM t1; }
|
| +} {1 {database is locked}}
|
| +
|
| +do_test lock5-dotfile.8 {
|
| + execsql {
|
| + SELECT * FROM t1;
|
| + ROLLBACK;
|
| + } db2
|
| +} {a b}
|
| +
|
| +do_test lock5-dotfile.9 {
|
| + catchsql { SELECT * FROM t1; }
|
| +} {0 {a b}}
|
| +
|
| +do_test lock5-dotfile.10 {
|
| + file exists test.db.lock
|
| +} {0}
|
| +
|
| +do_test lock5-dotfile.X {
|
| + db2 close
|
| + execsql {BEGIN EXCLUSIVE}
|
| + db close
|
| + file exists test.db.lock
|
| +} {0}
|
| +
|
| +#####################################################################
|
| +
|
| +file delete -force test.db
|
| +if {[catch {sqlite3 db test.db -vfs unix-flock} msg]} {
|
| + finish_test
|
| + return
|
| +}
|
| +
|
| +do_test lock5-flock.1 {
|
| + sqlite3 db test.db -vfs unix-flock
|
| + execsql {
|
| + CREATE TABLE t1(a, b);
|
| + BEGIN;
|
| + INSERT INTO t1 VALUES(1, 2);
|
| + }
|
| +} {}
|
| +
|
| +# Make sure we are not accidentally using the dotfile locking scheme.
|
| +do_test lock5-flock.2 {
|
| + file exists test.db.lock
|
| +} {0}
|
| +
|
| +do_test lock5-flock.3 {
|
| + catch { sqlite3 db2 test.db -vfs unix-flock }
|
| + catchsql { SELECT * FROM t1 } db2
|
| +} {1 {database is locked}}
|
| +
|
| +do_test lock5-flock.4 {
|
| + execsql COMMIT
|
| + catchsql { SELECT * FROM t1 } db2
|
| +} {0 {1 2}}
|
| +
|
| +do_test lock5-flock.5 {
|
| + execsql BEGIN
|
| + catchsql { SELECT * FROM t1 } db2
|
| +} {0 {1 2}}
|
| +
|
| +do_test lock5-flock.6 {
|
| + execsql {SELECT * FROM t1}
|
| + catchsql { SELECT * FROM t1 } db2
|
| +} {1 {database is locked}}
|
| +
|
| +do_test lock5-flock.7 {
|
| + db close
|
| + catchsql { SELECT * FROM t1 } db2
|
| +} {0 {1 2}}
|
| +
|
| +do_test lock5-flock.8 {
|
| + db2 close
|
| +} {}
|
| +
|
| +#####################################################################
|
| +
|
| +do_test lock5-none.1 {
|
| + sqlite3 db test.db -vfs unix-none
|
| + sqlite3 db2 test.db -vfs unix-none
|
| + execsql {
|
| + BEGIN;
|
| + INSERT INTO t1 VALUES(3, 4);
|
| + }
|
| +} {}
|
| +do_test lock5-none.2 {
|
| + execsql { SELECT * FROM t1 }
|
| +} {1 2 3 4}
|
| +do_test lock5-flock.3 {
|
| + execsql { SELECT * FROM t1 } db2
|
| +} {1 2}
|
| +do_test lock5-none.4 {
|
| + execsql {
|
| + BEGIN;
|
| + SELECT * FROM t1;
|
| + } db2
|
| +} {1 2}
|
| +do_test lock5-none.5 {
|
| + execsql COMMIT
|
| + execsql {SELECT * FROM t1} db2
|
| +} {1 2}
|
| +
|
| +ifcapable memorymanage {
|
| + do_test lock5-none.6 {
|
| + sqlite3_release_memory 1000000
|
| + execsql {SELECT * FROM t1} db2
|
| + } {1 2 3 4}
|
| +}
|
| +
|
| +do_test lock5-flock.X {
|
| + db close
|
| + db2 close
|
| +} {}
|
| +
|
| +ifcapable lock_proxy_pragmas {
|
| + set env(SQLITE_FORCE_PROXY_LOCKING) $::using_proxy
|
| +}
|
| +
|
| +finish_test
|
|
|