# 2009 August 17 # # 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. # #*********************************************************************** # # Check that reading the database schema from within an active transaction # does not establish a SHARED lock on the database file if one is not # already held (or, more accurately, that the SHARED lock is released after # reading the database schema). # set testdir [file dirname $argv0] source $testdir/tester.tcl do_test lock7-1.1 { execsql { CREATE TABLE t1(a, b) } db close sqlite3 db1 test.db sqlite3 db2 test.db db1 eval {BEGIN} db2 eval {BEGIN} } {} do_test lock7-1.2 { execsql { PRAGMA lock_status } db1 } {main unlocked temp closed} do_test lock7-1.3 { execsql { PRAGMA lock_status } db2 } {main unlocked temp closed} do_test lock7-1.4 { catchsql { INSERT INTO t1 VALUES(1, 1) } db1 } {0 {}} do_test lock7-1.5 { catchsql { INSERT INTO t1 VALUES(2, 2) } db2 } {1 {database is locked}} do_test lock7-1.6 { execsql { PRAGMA lock_status } db1 } {main reserved temp closed} do_test lock7-1.7 { execsql { PRAGMA lock_status } db2 } {main unlocked temp closed} do_test lock7-1.8 { execsql { COMMIT } db1 } {} db1 close db2 close finish_test