1# 2007 April 6 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# This file implements regression tests for SQLite library. The 12# focus of this script is database locks. 13# 14# $Id: lock4.test,v 1.10 2009/05/06 00:52:41 drh Exp $ 15 16 17set testdir [file dirname $argv0] 18source $testdir/tester.tcl 19 20do_not_use_codec 21 22# Initialize the test.db database so that it is non-empty 23# 24do_test lock4-1.1 { 25 db eval { 26 PRAGMA auto_vacuum=OFF; 27 CREATE TABLE t1(x); 28 } 29 file delete -force test2.db test2.db-journal 30 sqlite3 db2 test2.db 31 db2 eval { 32 PRAGMA auto_vacuum=OFF; 33 CREATE TABLE t2(x) 34 } 35 db2 close 36 list [file size test.db] [file size test2.db] 37} {2048 2048} 38 39# Create a script to drive a separate process that will 40# 41# 1. Create a second database test2.db 42# 2. Get an exclusive lock on test2.db 43# 3. Add an entry to test.db in table t1, waiting as necessary. 44# 4. Commit the change to test2.db. 45# 46# Meanwhile, this process will: 47# 48# A. Get an exclusive lock on test.db 49# B. Attempt to read from test2.db but get an SQLITE_BUSY error. 50# C. Commit the changes to test.db thus alloing the other process 51# to continue. 52# 53do_test lock4-1.2 { 54 55 # Create a script for the second process to run. 56 # 57 set out [open test2-script.tcl w] 58 puts $out "sqlite3_test_control_pending_byte [set sqlite_pending_byte]" 59 puts $out { 60 sqlite3 db2 test2.db 61 db2 eval { 62 BEGIN; 63 INSERT INTO t2 VALUES(2); 64 } 65 sqlite3 db test.db 66 db timeout 1000000 67 db eval { 68 INSERT INTO t1 VALUES(2); 69 } 70 db close 71 db2 eval COMMIT 72 exit 73 } 74 close $out 75 76 # Begin a transaction on test.db. 77 db eval { 78 BEGIN EXCLUSIVE; 79 INSERT INTO t1 VALUES(1); 80 } 81 82 # Kick off the second process. 83 exec [info nameofexec] ./test2-script.tcl & 84 85 # Wait until the second process has started its transaction on test2.db. 86 while {![file exists test2.db-journal]} { 87 after 10 88 } 89 90 # Try to write to test2.db. We are locked out. 91 sqlite3 db2 test2.db 92 catchsql { 93 INSERT INTO t2 VALUES(1) 94 } db2 95} {1 {database is locked}} 96do_test lock4-1.3 { 97 db eval { 98 COMMIT; 99 } 100 while {[file exists test2.db-journal]} { 101 after 10 102 } 103 # The other process has committed its transaction on test2.db by 104 # deleting the journal file. But it might retain the lock for a 105 # fraction longer 106 # 107 after 25 108 db2 eval { 109 SELECT * FROM t2 110 } 111} {2} 112 113 114do_test lock4-999.1 { 115 rename db2 {} 116} {} 117 118finish_test 119