Index: third_party/sqlite/sqlite-src-3070603/test/lock5.test |
diff --git a/third_party/sqlite/sqlite-src-3070603/test/lock5.test b/third_party/sqlite/sqlite-src-3070603/test/lock5.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..6ec86ba7e4e9af3cbaf51bda79bf0df598d67c6b |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3070603/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 |