wasCSharpSQLite – Blame information for rev 1
?pathlinks?
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | office | 1 | # 2008 May 2 |
| 2 | # |
||
| 3 | # The author disclaims copyright to this source code. In place of |
||
| 4 | # a legal notice, here is a blessing: |
||
| 5 | # |
||
| 6 | # May you do good and not evil. |
||
| 7 | # May you find forgiveness for yourself and forgive others. |
||
| 8 | # May you share freely, never taking more than you give. |
||
| 9 | # |
||
| 10 | #*********************************************************************** |
||
| 11 | # |
||
| 12 | # Ticket #3093 |
||
| 13 | # |
||
| 14 | # Verify that a busy callback waiting on a reserved lock resolves |
||
| 15 | # once the lock clears. |
||
| 16 | # |
||
| 17 | # $Id: tkt3093.test,v 1.2 2008/05/02 14:23:55 drh Exp $ |
||
| 18 | # |
||
| 19 | |||
| 20 | set testdir [file dirname $argv0] |
||
| 21 | source $testdir/tester.tcl |
||
| 22 | |||
| 23 | # Set up a test database |
||
| 24 | # |
||
| 25 | do_test tkt3093.1 { |
||
| 26 | db eval { |
||
| 27 | CREATE TABLE t1(x); |
||
| 28 | INSERT INTO t1 VALUES(1); |
||
| 29 | SELECT * FROM t1 |
||
| 30 | } |
||
| 31 | } {1} |
||
| 32 | |||
| 33 | # Establish a separate, independent connection to that database. |
||
| 34 | # |
||
| 35 | do_test tkt3093.2 { |
||
| 36 | catch {sqlite3_enable_shared_cache 0} |
||
| 37 | sqlite3 db2 test.db |
||
| 38 | db2 eval { |
||
| 39 | SELECT * FROM t1 |
||
| 40 | } |
||
| 41 | } {1} |
||
| 42 | |||
| 43 | # Make sure that clearing a lock allows a pending request for |
||
| 44 | # a reserved lock to continue. |
||
| 45 | # |
||
| 46 | do_test tkt3093.3 { |
||
| 47 | # This will be the busy callback for connection db2. On the first |
||
| 48 | # busy callback, commit the transaction in db. This should clear |
||
| 49 | # the lock so that there should not be a second callback. If the |
||
| 50 | # busy handler is called a second time, then fail so that we get |
||
| 51 | # timeout. |
||
| 52 | proc busy_callback {cnt} { |
||
| 53 | if {$cnt==0} { |
||
| 54 | db eval COMMIT |
||
| 55 | return 0 |
||
| 56 | } else { |
||
| 57 | return 1 |
||
| 58 | } |
||
| 59 | } |
||
| 60 | db2 busy ::busy_callback |
||
| 61 | |||
| 62 | # Start a write transaction on db. |
||
| 63 | db eval { |
||
| 64 | BEGIN; |
||
| 65 | INSERT INTO t1 VALUES(2); |
||
| 66 | } |
||
| 67 | |||
| 68 | # Attempt to modify the database on db2 |
||
| 69 | catchsql { |
||
| 70 | UPDATE t1 SET x=x+1; |
||
| 71 | } db2 |
||
| 72 | } {0 {}} |
||
| 73 | |||
| 74 | # Verify that everything worked as expected. The db transaction should |
||
| 75 | # have gone first and added entry 2. Then the db2 transaction would have |
||
| 76 | # run and added one to each entry. |
||
| 77 | # |
||
| 78 | do_test tkt3093.4 { |
||
| 79 | db eval {SELECT * FROM t1} |
||
| 80 | } {2 3} |
||
| 81 | do_test tkt3093.5 { |
||
| 82 | db2 eval {SELECT * FROM t1} |
||
| 83 | } {2 3} |
||
| 84 | db2 close |
||
| 85 | |||
| 86 | finish_test |