test/lock7.test

   1 # 2009 August 17
   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 # Check that reading the database schema from within an active transaction
  13 # does not establish a SHARED lock on the database file if one is not
  14 # already held (or, more accurately, that the SHARED lock is released after
  15 # reading the database schema).
  16 #
  17
  18 set testdir [file dirname $argv0]
  19 source $testdir/tester.tcl
  20
  21 do_test lock7-1.1 {
  22   execsql { CREATE TABLE t1(a, b) }
  23   db close
  24
  25   sqlite3 db1 test.db
  26   sqlite3 db2 test.db
  27
  28   db1 eval {BEGIN}
  29   db2 eval {BEGIN}
  30 } {}
  31
  32 do_test lock7-1.2 {
  33   execsql { PRAGMA lock_status } db1
  34 } {main unlocked temp closed}
  35 do_test lock7-1.3 {
  36   execsql { PRAGMA lock_status } db2
  37 } {main unlocked temp closed}
  38
  39 do_test lock7-1.4 {
  40   catchsql { INSERT INTO t1 VALUES(1, 1) } db1
  41 } {0 {}}
  42 do_test lock7-1.5 {
  43   catchsql { INSERT INTO t1 VALUES(2, 2) } db2
  44 } {1 {database is locked}}
  45
  46 do_test lock7-1.6 {
  47   execsql { PRAGMA lock_status } db1
  48 } {main reserved temp closed}
  49 do_test lock7-1.7 {
  50   execsql { PRAGMA lock_status } db2
  51 } {main unlocked temp closed}
  52
  53 do_test lock7-1.8 {
  54   execsql { COMMIT } db1
  55 } {}
  56
  57 db1 close
  58 db2 close
  59
  60 finish_test