Return to tkt3093.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/tkt3093.test, revision 1.1

1.1     ! misho       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