AryaWu/sqlite

1# 2009 July 22#3# The author disclaims copyright to this source code.  In place of4# 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# $Id: sharedlock.test,v 1.1 2009/07/02 17:21:58 danielk1977 Exp $13 14set testdir [file dirname $argv0]15source $testdir/tester.tcl16set testprefix sharedlock17db close18 19ifcapable !shared_cache {20  finish_test21  return22}23 24set ::enable_shared_cache [sqlite3_enable_shared_cache 1]25sqlite3 db  test.db26sqlite3 db2 test.db27 28do_test sharedlock-1.1 {29  execsql {30    CREATE TABLE t1(a, b);31    INSERT INTO t1 VALUES(1, 'one');32    INSERT INTO t1 VALUES(2, 'two');33  }34} {}35 36do_test sharedlock-1.2 {37  set res [list]38  db eval { SELECT * FROM t1 ORDER BY rowid } {39    lappend res $a $b40    if {$a == 1} { catch { db  eval "INSERT INTO t1 VALUES(3, 'three')" } }41 42    # This should fail. Connection [db] has a read-lock on t1, which should43    # prevent connection [db2] from obtaining the write-lock it needs to44    # modify t1. At one point there was a bug causing the previous INSERT45    # to drop the read-lock belonging to [db].46    if {$a == 2} { catch { db2 eval "INSERT INTO t1 VALUES(4, 'four')"  } }47  }48  set res49} {1 one 2 two 3 three}50 51 52#-------------------------------------------------------------------------53# Test that a write-lock is taken on a table when its entire contents54# are deleted using the OP_Clear optimization.55#56foreach {tn delete_sql} {57  1 { DELETE FROM t2 WHERE 1 }58  2 { DELETE FROM t2 }59} {60  do_execsql_test 2.1 {61    DROP TABLE IF EXISTS t2;62    CREATE TABLE t2(x, y);63    INSERT INTO t2 VALUES(1, 2);64    INSERT INTO t2 VALUES(3, 4);65  }66 67  do_test 2.2 { execsql { SELECT * FROM t2 } db2 } {1 2 3 4}68 69  do_execsql_test 2.3 " BEGIN; $delete_sql; "70 71  do_test 2.4 { 72    catchsql { SELECT * FROM t2 } db2 73  } {1 {database table is locked: t2}}74 75  do_execsql_test 2.5 COMMIT76}77 78 79db close80db2 close81sqlite3_enable_shared_cache $::enable_shared_cache82finish_test83