# 2001 September 15## 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 and the operation of the# DEFERRED, IMMEDIATE, and EXCLUSIVE keywords as modifiers to the# BEGIN command.## $Id: lock3.test,v 1.1 2004/10/05 02:41:43 drh Exp $set testdir [file dirname $argv0]source $testdir/tester.tcl# Establish two connections to the same database.  Put some# sample data into the database.#do_test lock3-1.1 {  sqlite3 db2 test.db  execsql {    CREATE TABLE t1(a);    INSERT INTO t1 VALUES(1);  }  execsql {    SELECT * FROM t1  } db2} 1# Get a deferred lock on the database using one connection.  The# other connection should still be able to write.#do_test lock3-2.1 {  execsql {BEGIN DEFERRED TRANSACTION}  execsql {INSERT INTO t1 VALUES(2)} db2  execsql {END TRANSACTION}  execsql {SELECT * FROM t1}} {1 2}# Get an immediate lock on the database using one connection.  The# other connection should be able to read the database but not write# it.#do_test lock3-3.1 {  execsql {BEGIN IMMEDIATE TRANSACTION}  catchsql {SELECT * FROM t1} db2} {0 {1 2}}do_test lock3-3.2 {  catchsql {INSERT INTO t1 VALUES(3)} db2} {1 {database is locked}}do_test lock3-3.3 {  execsql {END TRANSACTION}} {}# Get an exclusive lock on the database using one connection.  The# other connection should be unable to read or write the database.#do_test lock3-4.1 {  execsql {BEGIN EXCLUSIVE TRANSACTION}  catchsql {SELECT * FROM t1} db2} {1 {database is locked}}do_test lock3-4.2 {  catchsql {INSERT INTO t1 VALUES(3)} db2} {1 {database is locked}}do_test lock3-4.3 {  execsql {END TRANSACTION}} {}catch {db2 close}finish_test