summaryrefslogtreecommitdiffstats
path: root/test/tkt3093.test
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-13 14:07:11 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-13 14:07:11 +0000
commit63847496f14c813a5d80efd5b7de0f1294ffe1e3 (patch)
tree01c7571c7c762ceee70638549a99834fdd7c411b /test/tkt3093.test
parentInitial commit. (diff)
downloadsqlite3-63847496f14c813a5d80efd5b7de0f1294ffe1e3.tar.xz
sqlite3-63847496f14c813a5d80efd5b7de0f1294ffe1e3.zip
Adding upstream version 3.45.1.upstream/3.45.1
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'test/tkt3093.test')
-rw-r--r--test/tkt3093.test86
1 files changed, 86 insertions, 0 deletions
diff --git a/test/tkt3093.test b/test/tkt3093.test
new file mode 100644
index 0000000..3be46d1
--- /dev/null
+++ b/test/tkt3093.test
@@ -0,0 +1,86 @@
+# 2008 May 2
+#
+# 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.
+#
+#***********************************************************************
+#
+# Ticket #3093
+#
+# Verify that a busy callback waiting on a reserved lock resolves
+# once the lock clears.
+#
+# $Id: tkt3093.test,v 1.2 2008/05/02 14:23:55 drh Exp $
+#
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+
+# Set up a test database
+#
+do_test tkt3093.1 {
+ db eval {
+ CREATE TABLE t1(x);
+ INSERT INTO t1 VALUES(1);
+ SELECT * FROM t1
+ }
+} {1}
+
+# Establish a separate, independent connection to that database.
+#
+do_test tkt3093.2 {
+ catch {sqlite3_enable_shared_cache 0}
+ sqlite3 db2 test.db
+ db2 eval {
+ SELECT * FROM t1
+ }
+} {1}
+
+# Make sure that clearing a lock allows a pending request for
+# a reserved lock to continue.
+#
+do_test tkt3093.3 {
+ # This will be the busy callback for connection db2. On the first
+ # busy callback, commit the transaction in db. This should clear
+ # the lock so that there should not be a second callback. If the
+ # busy handler is called a second time, then fail so that we get
+ # timeout.
+ proc busy_callback {cnt} {
+ if {$cnt==0} {
+ db eval COMMIT
+ return 0
+ } else {
+ return 1
+ }
+ }
+ db2 busy ::busy_callback
+
+ # Start a write transaction on db.
+ db eval {
+ BEGIN;
+ INSERT INTO t1 VALUES(2);
+ }
+
+ # Attempt to modify the database on db2
+ catchsql {
+ UPDATE t1 SET x=x+1;
+ } db2
+} {0 {}}
+
+# Verify that everything worked as expected. The db transaction should
+# have gone first and added entry 2. Then the db2 transaction would have
+# run and added one to each entry.
+#
+do_test tkt3093.4 {
+ db eval {SELECT * FROM t1}
+} {2 3}
+do_test tkt3093.5 {
+ db2 eval {SELECT * FROM t1}
+} {2 3}
+db2 close
+
+finish_test