Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Add a test case for ticket #3093. (CVS 5077) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
288a7655c9a876abf53d92dc6599a930 |
User & Date: | drh 2008-05-02 14:08:56.000 |
Context
2008-05-02
| ||
14:23 | Make sure that when a connection is blocking on a RESERVED lock that it continues after the lock is released. Ticket #3093. (CVS 5078) (check-in: 3dc334aa4a user: drh tags: trunk) | |
14:08 | Add a test case for ticket #3093. (CVS 5077) (check-in: 288a7655c9 user: drh tags: trunk) | |
02:00 | Add another test case to verify that ticket #3092 has been fixed. (CVS 5076) (check-in: 1906d2dadc user: drh tags: trunk) | |
Changes
Added test/tkt3093.test.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 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.1 2008/05/02 14:08:56 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 |