/ Hex Artifact Content
Login

Artifact 3d1855ba930732566f569d680e828656bd5b7f5c:


0000: 23 20 32 30 30 31 20 53 65 70 74 65 6d 62 65 72  # 2001 September
0010: 20 31 35 0a 23 0a 23 20 54 68 65 20 61 75 74 68   15.#.# The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67  place of.# a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20  al notice, here 
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23  is a blessing:.#
0080: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f  .#    May you do
0090: 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76   good and not ev
00a0: 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75  il..#    May you
00b0: 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73   find forgivenes
00c0: 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61  s for yourself a
00d0: 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72  nd forgive other
00e0: 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  s..#    May you 
00f0: 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65  share freely, ne
0100: 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20  ver taking more 
0110: 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23  than you give..#
0120: 0a 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .#**************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73  *********.# This
0170: 20 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73   file implements
0180: 20 72 65 67 72 65 73 73 69 6f 6e 20 74 65 73 74   regression test
0190: 73 20 66 6f 72 20 53 51 4c 69 74 65 20 6c 69 62  s for SQLite lib
01a0: 72 61 72 79 2e 20 20 54 68 65 0a 23 20 66 6f 63  rary.  The.# foc
01b0: 75 73 20 6f 66 20 74 68 69 73 20 73 63 72 69 70  us of this scrip
01c0: 74 20 69 73 20 64 61 74 61 62 61 73 65 20 6c 6f  t is database lo
01d0: 63 6b 73 2e 0a 23 0a 23 20 24 49 64 3a 20 6c 6f  cks..#.# $Id: lo
01e0: 63 6b 2e 74 65 73 74 2c 76 20 31 2e 31 39 20 32  ck.test,v 1.19 2
01f0: 30 30 34 2f 30 31 2f 31 35 20 31 33 3a 32 39 3a  004/01/15 13:29:
0200: 34 30 20 64 72 68 20 45 78 70 20 24 0a 0a 0a 73  40 drh Exp $...s
0210: 65 74 20 74 65 73 74 64 69 72 20 5b 66 69 6c 65  et testdir [file
0220: 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76 30 5d   dirname $argv0]
0230: 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 69 72  .source $testdir
0240: 2f 74 65 73 74 65 72 2e 74 63 6c 0a 0a 23 20 43  /tester.tcl..# C
0250: 72 65 61 74 65 20 61 6e 20 61 6c 74 65 72 6e 61  reate an alterna
0260: 74 69 76 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20  tive connection 
0270: 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 0a  to the database.
0280: 23 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 31  #.do_test lock-1
0290: 2e 30 20 7b 0a 20 20 73 71 6c 69 74 65 20 64 62  .0 {.  sqlite db
02a0: 32 20 2e 2f 74 65 73 74 2e 64 62 0a 20 20 73 65  2 ./test.db.  se
02b0: 74 20 64 75 6d 6d 79 20 7b 7d 0a 7d 20 7b 7d 0a  t dummy {}.} {}.
02c0: 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 31 2e 31  do_test lock-1.1
02d0: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45   {.  execsql {SE
02e0: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
02f0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57 48 45  qlite_master WHE
0300: 52 45 20 74 79 70 65 3d 27 74 61 62 6c 65 27 20  RE type='table' 
0310: 4f 52 44 45 52 20 42 59 20 6e 61 6d 65 7d 0a 7d  ORDER BY name}.}
0320: 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b   {}.do_test lock
0330: 2d 31 2e 32 20 7b 0a 20 20 65 78 65 63 73 71 6c  -1.2 {.  execsql
0340: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
0350: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
0360: 20 57 48 45 52 45 20 74 79 70 65 3d 27 74 61 62   WHERE type='tab
0370: 6c 65 27 20 4f 52 44 45 52 20 42 59 20 6e 61 6d  le' ORDER BY nam
0380: 65 7d 20 64 62 32 0a 7d 20 7b 7d 0a 64 6f 5f 74  e} db2.} {}.do_t
0390: 65 73 74 20 6c 6f 63 6b 2d 31 2e 33 20 7b 0a 20  est lock-1.3 {. 
03a0: 20 65 78 65 63 73 71 6c 20 7b 43 52 45 41 54 45   execsql {CREATE
03b0: 20 54 41 42 4c 45 20 74 31 28 61 20 69 6e 74 2c   TABLE t1(a int,
03c0: 20 62 20 69 6e 74 29 7d 0a 20 20 65 78 65 63 73   b int)}.  execs
03d0: 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20  ql {SELECT name 
03e0: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
03f0: 65 72 20 57 48 45 52 45 20 74 79 70 65 3d 27 74  er WHERE type='t
0400: 61 62 6c 65 27 20 4f 52 44 45 52 20 42 59 20 6e  able' ORDER BY n
0410: 61 6d 65 7d 0a 7d 20 7b 74 31 7d 0a 64 6f 5f 74  ame}.} {t1}.do_t
0420: 65 73 74 20 6c 6f 63 6b 2d 31 2e 34 20 7b 0a 20  est lock-1.4 {. 
0430: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
0440: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
0450: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 57   sqlite_master W
0460: 48 45 52 45 20 74 79 70 65 3d 27 74 61 62 6c 65  HERE type='table
0470: 27 20 4f 52 44 45 52 20 42 59 20 6e 61 6d 65 0a  ' ORDER BY name.
0480: 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61    } db2.} {1 {da
0490: 74 61 62 61 73 65 20 73 63 68 65 6d 61 20 68 61  tabase schema ha
04a0: 73 20 63 68 61 6e 67 65 64 7d 7d 0a 64 6f 5f 74  s changed}}.do_t
04b0: 65 73 74 20 6c 6f 63 6b 2d 31 2e 35 20 7b 0a 20  est lock-1.5 {. 
04c0: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
04d0: 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f   SELECT name FRO
04e0: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20  M sqlite_master 
04f0: 57 48 45 52 45 20 74 79 70 65 3d 27 74 61 62 6c  WHERE type='tabl
0500: 65 27 20 4f 52 44 45 52 20 42 59 20 6e 61 6d 65  e' ORDER BY name
0510: 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 30 20 74 31  .  } db2.} {0 t1
0520: 7d 0a 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d  }..do_test lock-
0530: 31 2e 36 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  1.6 {.  execsql 
0540: 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20  {INSERT INTO t1 
0550: 56 41 4c 55 45 53 28 31 2c 32 29 7d 0a 20 20 65  VALUES(1,2)}.  e
0560: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a  xecsql {SELECT *
0570: 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 31 20 32   FROM t1}.} {1 2
0580: 7d 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 31  }.do_test lock-1
0590: 2e 37 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .7 {.  execsql {
05a0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
05b0: 7d 20 64 62 32 0a 7d 20 7b 31 20 32 7d 0a 64 6f  } db2.} {1 2}.do
05c0: 5f 74 65 73 74 20 6c 6f 63 6b 2d 31 2e 38 20 7b  _test lock-1.8 {
05d0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 55 50 44 41  .  execsql {UPDA
05e0: 54 45 20 74 31 20 53 45 54 20 61 3d 62 2c 20 62  TE t1 SET a=b, b
05f0: 3d 61 7d 20 64 62 32 0a 20 20 65 78 65 63 73 71  =a} db2.  execsq
0600: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
0610: 20 74 31 7d 20 64 62 32 0a 7d 20 7b 32 20 31 7d   t1} db2.} {2 1}
0620: 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 31 2e  .do_test lock-1.
0630: 39 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  9 {.  execsql {S
0640: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d  ELECT * FROM t1}
0650: 0a 7d 20 7b 32 20 31 7d 0a 64 6f 5f 74 65 73 74  .} {2 1}.do_test
0660: 20 6c 6f 63 6b 2d 31 2e 31 30 20 7b 0a 20 20 65   lock-1.10 {.  e
0670: 78 65 63 73 71 6c 20 7b 42 45 47 49 4e 20 54 52  xecsql {BEGIN TR
0680: 41 4e 53 41 43 54 49 4f 4e 7d 0a 20 20 65 78 65  ANSACTION}.  exe
0690: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  csql {SELECT * F
06a0: 52 4f 4d 20 74 31 7d 0a 7d 20 7b 32 20 31 7d 0a  ROM t1}.} {2 1}.
06b0: 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 31 2e 31  do_test lock-1.1
06c0: 31 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  1 {.  catchsql {
06d0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
06e0: 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61 74 61  } db2.} {1 {data
06f0: 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d  base is locked}}
0700: 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 31 2e  .do_test lock-1.
0710: 31 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  12 {.  execsql {
0720: 52 4f 4c 4c 42 41 43 4b 7d 0a 20 20 63 61 74 63  ROLLBACK}.  catc
0730: 68 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  hsql {SELECT * F
0740: 52 4f 4d 20 74 31 7d 0a 7d 20 7b 30 20 7b 32 20  ROM t1}.} {0 {2 
0750: 31 7d 7d 0a 0a 64 6f 5f 74 65 73 74 20 6c 6f 63  1}}..do_test loc
0760: 6b 2d 31 2e 31 33 20 7b 0a 20 20 65 78 65 63 73  k-1.13 {.  execs
0770: 71 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45  ql {CREATE TABLE
0780: 20 74 32 28 78 20 69 6e 74 2c 20 79 20 69 6e 74   t2(x int, y int
0790: 29 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b 49 4e  )}.  execsql {IN
07a0: 53 45 52 54 20 49 4e 54 4f 20 74 32 20 56 41 4c  SERT INTO t2 VAL
07b0: 55 45 53 28 38 2c 39 29 7d 0a 20 20 65 78 65 63  UES(8,9)}.  exec
07c0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  sql {SELECT * FR
07d0: 4f 4d 20 74 32 7d 0a 7d 20 7b 38 20 39 7d 0a 64  OM t2}.} {8 9}.d
07e0: 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 31 2e 31 34  o_test lock-1.14
07f0: 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 53   {.  catchsql {S
0800: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d  ELECT * FROM t1}
0810: 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61 74 61 62   db2.} {1 {datab
0820: 61 73 65 20 73 63 68 65 6d 61 20 68 61 73 20 63  ase schema has c
0830: 68 61 6e 67 65 64 7d 7d 0a 64 6f 5f 74 65 73 74  hanged}}.do_test
0840: 20 6c 6f 63 6b 2d 31 2e 31 35 20 7b 0a 20 20 63   lock-1.15 {.  c
0850: 61 74 63 68 73 71 6c 20 7b 53 45 4c 45 43 54 20  atchsql {SELECT 
0860: 2a 20 46 52 4f 4d 20 74 32 7d 20 64 62 32 0a 7d  * FROM t2} db2.}
0870: 20 7b 30 20 7b 38 20 39 7d 7d 0a 0a 64 6f 5f 74   {0 {8 9}}..do_t
0880: 65 73 74 20 6c 6f 63 6b 2d 31 2e 31 36 20 7b 0a  est lock-1.16 {.
0890: 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43    db eval {SELEC
08a0: 54 20 2a 20 46 52 4f 4d 20 74 31 7d 20 71 76 20  T * FROM t1} qv 
08b0: 7b 0a 20 20 20 20 73 65 74 20 78 20 5b 64 62 20  {.    set x [db 
08c0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  eval {SELECT * F
08d0: 52 4f 4d 20 74 31 7d 5d 0a 20 20 7d 0a 20 20 73  ROM t1}].  }.  s
08e0: 65 74 20 78 0a 7d 20 7b 32 20 31 7d 0a 64 6f 5f  et x.} {2 1}.do_
08f0: 74 65 73 74 20 6c 6f 63 6b 2d 31 2e 31 37 20 7b  test lock-1.17 {
0900: 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  .  db eval {SELE
0910: 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d 20 71 76  CT * FROM t1} qv
0920: 20 7b 0a 20 20 20 20 73 65 74 20 78 20 5b 64 62   {.    set x [db
0930: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20   eval {SELECT * 
0940: 46 52 4f 4d 20 74 32 7d 5d 0a 20 20 7d 0a 20 20  FROM t2}].  }.  
0950: 73 65 74 20 78 0a 7d 20 7b 38 20 39 7d 0a 0a 23  set x.} {8 9}..#
0960: 20 59 6f 75 20 63 61 6e 6e 6f 74 20 55 50 44 41   You cannot UPDA
0970: 54 45 20 61 20 74 61 62 6c 65 20 66 72 6f 6d 20  TE a table from 
0980: 77 69 74 68 69 6e 20 74 68 65 20 63 61 6c 6c 62  within the callb
0990: 61 63 6b 20 6f 66 20 61 20 53 45 4c 45 43 54 0a  ack of a SELECT.
09a0: 23 20 6f 6e 20 74 68 61 74 20 73 61 6d 65 20 74  # on that same t
09b0: 61 62 6c 65 20 62 65 63 61 75 73 65 20 74 68 65  able because the
09c0: 20 53 45 4c 45 43 54 20 68 61 73 20 74 68 65 20   SELECT has the 
09d0: 74 61 62 6c 65 20 6c 6f 63 6b 65 64 2e 0a 23 0a  table locked..#.
09e0: 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 31 2e 31  do_test lock-1.1
09f0: 38 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 53  8 {.  db eval {S
0a00: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d  ELECT * FROM t1}
0a10: 20 71 76 20 7b 0a 20 20 20 20 73 65 74 20 72 20   qv {.    set r 
0a20: 5b 63 61 74 63 68 20 7b 64 62 20 65 76 61 6c 20  [catch {db eval 
0a30: 7b 55 50 44 41 54 45 20 74 31 20 53 45 54 20 61  {UPDATE t1 SET a
0a40: 3d 62 2c 20 62 3d 61 7d 7d 20 6d 73 67 5d 0a 20  =b, b=a}} msg]. 
0a50: 20 20 20 6c 61 70 70 65 6e 64 20 72 20 24 6d 73     lappend r $ms
0a60: 67 0a 20 20 7d 0a 20 20 73 65 74 20 72 0a 7d 20  g.  }.  set r.} 
0a70: 7b 31 20 7b 64 61 74 61 62 61 73 65 20 74 61 62  {1 {database tab
0a80: 6c 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 0a  le is locked}}..
0a90: 23 20 42 75 74 20 79 6f 75 20 63 61 6e 20 55 50  # But you can UP
0aa0: 44 41 54 45 20 61 20 64 69 66 66 65 72 65 6e 74  DATE a different
0ab0: 20 74 61 62 6c 65 20 66 72 6f 6d 20 74 68 65 20   table from the 
0ac0: 6f 6e 65 20 74 68 61 74 20 69 73 20 75 73 65 64  one that is used
0ad0: 20 69 6e 0a 23 20 74 68 65 20 53 45 4c 45 43 54   in.# the SELECT
0ae0: 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b  ..#.do_test lock
0af0: 2d 31 2e 31 39 20 7b 0a 20 20 64 62 20 65 76 61  -1.19 {.  db eva
0b00: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
0b10: 20 74 31 7d 20 71 76 20 7b 0a 20 20 20 20 73 65   t1} qv {.    se
0b20: 74 20 72 20 5b 63 61 74 63 68 20 7b 64 62 20 65  t r [catch {db e
0b30: 76 61 6c 20 7b 55 50 44 41 54 45 20 74 32 20 53  val {UPDATE t2 S
0b40: 45 54 20 78 3d 79 2c 20 79 3d 78 7d 7d 20 6d 73  ET x=y, y=x}} ms
0b50: 67 5d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 72  g].    lappend r
0b60: 20 24 6d 73 67 0a 20 20 7d 0a 20 20 73 65 74 20   $msg.  }.  set 
0b70: 72 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65  r.} {0 {}}.do_te
0b80: 73 74 20 6c 6f 63 6b 2d 31 2e 32 30 20 7b 0a 20  st lock-1.20 {. 
0b90: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
0ba0: 20 2a 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 39   * FROM t2}.} {9
0bb0: 20 38 7d 0a 0a 23 20 49 74 20 69 73 20 70 6f 73   8}..# It is pos
0bc0: 73 69 62 6c 65 20 74 6f 20 64 6f 20 61 20 53 45  sible to do a SE
0bd0: 4c 45 43 54 20 6f 66 20 74 68 65 20 73 61 6d 65  LECT of the same
0be0: 20 74 61 62 6c 65 20 77 69 74 68 69 6e 20 74 68   table within th
0bf0: 65 0a 23 20 63 61 6c 6c 62 61 63 6b 20 6f 66 20  e.# callback of 
0c00: 61 6e 6f 74 68 65 72 20 53 45 4c 45 43 54 20 6f  another SELECT o
0c10: 6e 20 74 68 61 74 20 73 61 6d 65 20 74 61 62 6c  n that same tabl
0c20: 65 20 62 65 63 61 75 73 65 20 74 77 6f 0a 23 20  e because two.# 
0c30: 6f 72 20 6d 6f 72 65 20 72 65 61 64 2d 6f 6e 6c  or more read-onl
0c40: 79 20 63 75 72 73 6f 72 73 20 63 61 6e 20 62 65  y cursors can be
0c50: 20 6f 70 65 6e 20 61 74 20 6f 6e 63 65 2e 0a 23   open at once..#
0c60: 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 31 2e  .do_test lock-1.
0c70: 32 31 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b  21 {.  db eval {
0c80: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
0c90: 7d 20 71 76 20 7b 0a 20 20 20 20 73 65 74 20 72  } qv {.    set r
0ca0: 20 5b 63 61 74 63 68 20 7b 64 62 20 65 76 61 6c   [catch {db eval
0cb0: 20 7b 53 45 4c 45 43 54 20 61 20 46 52 4f 4d 20   {SELECT a FROM 
0cc0: 74 31 7d 7d 20 6d 73 67 5d 0a 20 20 20 20 6c 61  t1}} msg].    la
0cd0: 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 20 20 7d  ppend r $msg.  }
0ce0: 0a 20 20 73 65 74 20 72 0a 7d 20 7b 30 20 32 7d  .  set r.} {0 2}
0cf0: 0a 0a 23 20 55 6e 64 65 72 20 55 4e 49 58 20 79  ..# Under UNIX y
0d00: 6f 75 20 63 61 6e 20 64 6f 20 74 77 6f 20 53 45  ou can do two SE
0d10: 4c 45 43 54 73 20 61 74 20 6f 6e 63 65 20 77 69  LECTs at once wi
0d20: 74 68 20 64 69 66 66 65 72 65 6e 74 20 64 61 74  th different dat
0d30: 61 62 61 73 65 0a 23 20 63 6f 6e 6e 65 63 74 69  abase.# connecti
0d40: 6f 6e 73 2c 20 62 65 63 61 75 73 65 20 55 4e 49  ons, because UNI
0d50: 58 20 73 75 70 70 6f 72 74 73 20 72 65 61 64 65  X supports reade
0d60: 72 2f 77 72 69 74 65 72 20 6c 6f 63 6b 73 2e 20  r/writer locks. 
0d70: 20 55 6e 64 65 72 20 77 69 6e 64 6f 77 73 2c 0a   Under windows,.
0d80: 23 20 74 68 69 73 20 69 73 20 6e 6f 74 20 70 6f  # this is not po
0d90: 73 73 69 62 6c 65 2e 0a 23 0a 69 66 20 7b 24 3a  ssible..#.if {$:
0da0: 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c  :tcl_platform(pl
0db0: 61 74 66 6f 72 6d 29 3d 3d 22 75 6e 69 78 22 7d  atform)=="unix"}
0dc0: 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 6c 6f 63   {.  do_test loc
0dd0: 6b 2d 31 2e 32 32 20 7b 0a 20 20 20 20 64 62 20  k-1.22 {.    db 
0de0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  eval {SELECT * F
0df0: 52 4f 4d 20 74 31 7d 20 71 76 20 7b 0a 20 20 20  ROM t1} qv {.   
0e00: 20 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20     set r [catch 
0e10: 7b 64 62 32 20 65 76 61 6c 20 7b 53 45 4c 45 43  {db2 eval {SELEC
0e20: 54 20 61 20 46 52 4f 4d 20 74 31 7d 7d 20 6d 73  T a FROM t1}} ms
0e30: 67 5d 0a 20 20 20 20 20 20 6c 61 70 70 65 6e 64  g].      lappend
0e40: 20 72 20 24 6d 73 67 0a 20 20 20 20 7d 0a 20 20   r $msg.    }.  
0e50: 20 20 73 65 74 20 72 0a 20 20 7d 20 7b 30 20 32    set r.  } {0 2
0e60: 7d 0a 7d 0a 69 6e 74 65 67 72 69 74 79 5f 63 68  }.}.integrity_ch
0e70: 65 63 6b 20 6c 6f 63 6b 2d 31 2e 32 33 0a 0a 23  eck lock-1.23..#
0e80: 20 49 66 20 6f 6e 65 20 74 68 72 65 61 64 20 68   If one thread h
0e90: 61 73 20 61 20 74 72 61 6e 73 61 63 74 69 6f 6e  as a transaction
0ea0: 20 61 6e 6f 74 68 65 72 20 74 68 72 65 61 64 20   another thread 
0eb0: 63 61 6e 6e 6f 74 20 73 74 61 72 74 0a 23 20 61  cannot start.# a
0ec0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 0a 23 0a   transaction..#.
0ed0: 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 32 2e 31  do_test lock-2.1
0ee0: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 42 45   {.  execsql {BE
0ef0: 47 49 4e 20 54 52 41 4e 53 41 43 54 49 4f 4e 7d  GIN TRANSACTION}
0f00: 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20  .  set r [catch 
0f10: 7b 65 78 65 63 73 71 6c 20 7b 42 45 47 49 4e 20  {execsql {BEGIN 
0f20: 54 52 41 4e 53 41 43 54 49 4f 4e 7d 20 64 62 32  TRANSACTION} db2
0f30: 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64  } msg].  lappend
0f40: 20 72 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 64 61   r $msg.} {1 {da
0f50: 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64  tabase is locked
0f60: 7d 7d 0a 0a 23 20 4e 6f 72 20 63 61 6e 20 74 68  }}..# Nor can th
0f70: 65 20 6f 74 68 65 72 20 74 68 72 65 61 64 20 64  e other thread d
0f80: 6f 20 61 20 71 75 65 72 79 2e 0a 23 0a 64 6f 5f  o a query..#.do_
0f90: 74 65 73 74 20 6c 6f 63 6b 2d 32 2e 32 20 7b 0a  test lock-2.2 {.
0fa0: 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20 7b    set r [catch {
0fb0: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
0fc0: 2a 20 46 52 4f 4d 20 74 32 7d 20 64 62 32 7d 20  * FROM t2} db2} 
0fd0: 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72  msg].  lappend r
0fe0: 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 64 61 74 61   $msg.} {1 {data
0ff0: 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d  base is locked}}
1000: 0a 0a 23 20 49 66 20 74 68 65 20 6f 74 68 65 72  ..# If the other
1010: 20 74 68 72 65 61 64 20 28 74 68 65 20 6f 6e 65   thread (the one
1020: 20 74 68 61 74 20 64 6f 65 73 20 6e 6f 74 20 68   that does not h
1030: 6f 6c 64 20 74 68 65 20 74 72 61 6e 73 61 63 74  old the transact
1040: 69 6f 6e 29 0a 23 20 74 72 69 65 73 20 74 6f 20  ion).# tries to 
1050: 73 74 61 72 74 20 61 20 74 72 61 6e 73 61 63 74  start a transact
1060: 69 6f 6e 2c 20 77 65 20 67 65 74 20 61 20 62 75  ion, we get a bu
1070: 73 79 20 63 61 6c 6c 62 61 63 6b 2e 0a 23 0a 64  sy callback..#.d
1080: 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 32 2e 33 20  o_test lock-2.3 
1090: 7b 0a 20 20 70 72 6f 63 20 63 61 6c 6c 62 61 63  {.  proc callbac
10a0: 6b 20 7b 61 72 67 73 7d 20 7b 0a 20 20 20 20 73  k {args} {.    s
10b0: 65 74 20 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61  et ::callback_va
10c0: 6c 75 65 20 24 61 72 67 73 0a 20 20 20 20 62 72  lue $args.    br
10d0: 65 61 6b 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a  eak.  }.  set ::
10e0: 63 61 6c 6c 62 61 63 6b 5f 76 61 6c 75 65 20 7b  callback_value {
10f0: 7d 0a 20 20 64 62 32 20 62 75 73 79 20 63 61 6c  }.  db2 busy cal
1100: 6c 62 61 63 6b 0a 20 20 73 65 74 20 72 20 5b 63  lback.  set r [c
1110: 61 74 63 68 20 7b 65 78 65 63 73 71 6c 20 7b 42  atch {execsql {B
1120: 45 47 49 4e 20 54 52 41 4e 53 41 43 54 49 4f 4e  EGIN TRANSACTION
1130: 7d 20 64 62 32 7d 20 6d 73 67 5d 0a 20 20 6c 61  } db2} msg].  la
1140: 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 20 20 6c  ppend r $msg.  l
1150: 61 70 70 65 6e 64 20 72 20 24 3a 3a 63 61 6c 6c  append r $::call
1160: 62 61 63 6b 5f 76 61 6c 75 65 0a 7d 20 7b 31 20  back_value.} {1 
1170: 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63  {database is loc
1180: 6b 65 64 7d 20 7b 7b 7d 20 31 7d 7d 0a 64 6f 5f  ked} {{} 1}}.do_
1190: 74 65 73 74 20 6c 6f 63 6b 2d 32 2e 34 20 7b 0a  test lock-2.4 {.
11a0: 20 20 70 72 6f 63 20 63 61 6c 6c 62 61 63 6b 20    proc callback 
11b0: 7b 66 69 6c 65 20 63 6f 75 6e 74 7d 20 7b 0a 20  {file count} {. 
11c0: 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 63 61 6c     lappend ::cal
11d0: 6c 62 61 63 6b 5f 76 61 6c 75 65 20 24 63 6f 75  lback_value $cou
11e0: 6e 74 0a 20 20 20 20 69 66 20 7b 24 63 6f 75 6e  nt.    if {$coun
11f0: 74 3e 34 7d 20 62 72 65 61 6b 0a 20 20 7d 0a 20  t>4} break.  }. 
1200: 20 73 65 74 20 3a 3a 63 61 6c 6c 62 61 63 6b 5f   set ::callback_
1210: 76 61 6c 75 65 20 7b 7d 0a 20 20 64 62 32 20 62  value {}.  db2 b
1220: 75 73 79 20 63 61 6c 6c 62 61 63 6b 0a 20 20 73  usy callback.  s
1230: 65 74 20 72 20 5b 63 61 74 63 68 20 7b 65 78 65  et r [catch {exe
1240: 63 73 71 6c 20 7b 42 45 47 49 4e 20 54 52 41 4e  csql {BEGIN TRAN
1250: 53 41 43 54 49 4f 4e 7d 20 64 62 32 7d 20 6d 73  SACTION} db2} ms
1260: 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24  g].  lappend r $
1270: 6d 73 67 0a 20 20 6c 61 70 70 65 6e 64 20 72 20  msg.  lappend r 
1280: 24 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c 75  $::callback_valu
1290: 65 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65  e.} {1 {database
12a0: 20 69 73 20 6c 6f 63 6b 65 64 7d 20 7b 31 20 32   is locked} {1 2
12b0: 20 33 20 34 20 35 7d 7d 0a 64 6f 5f 74 65 73 74   3 4 5}}.do_test
12c0: 20 6c 6f 63 6b 2d 32 2e 35 20 7b 0a 20 20 70 72   lock-2.5 {.  pr
12d0: 6f 63 20 63 61 6c 6c 62 61 63 6b 20 7b 66 69 6c  oc callback {fil
12e0: 65 20 63 6f 75 6e 74 7d 20 7b 0a 20 20 20 20 6c  e count} {.    l
12f0: 61 70 70 65 6e 64 20 3a 3a 63 61 6c 6c 62 61 63  append ::callbac
1300: 6b 5f 76 61 6c 75 65 20 24 63 6f 75 6e 74 0a 20  k_value $count. 
1310: 20 20 20 69 66 20 7b 24 63 6f 75 6e 74 3e 34 7d     if {$count>4}
1320: 20 62 72 65 61 6b 0a 20 20 7d 0a 20 20 73 65 74   break.  }.  set
1330: 20 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c 75   ::callback_valu
1340: 65 20 7b 7d 0a 20 20 64 62 32 20 62 75 73 79 20  e {}.  db2 busy 
1350: 63 61 6c 6c 62 61 63 6b 0a 20 20 73 65 74 20 72  callback.  set r
1360: 20 5b 63 61 74 63 68 20 7b 65 78 65 63 73 71 6c   [catch {execsql
1370: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
1380: 74 31 7d 20 64 62 32 7d 20 6d 73 67 5d 0a 20 20  t1} db2} msg].  
1390: 6c 61 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 20  lappend r $msg. 
13a0: 20 6c 61 70 70 65 6e 64 20 72 20 24 3a 3a 63 61   lappend r $::ca
13b0: 6c 6c 62 61 63 6b 5f 76 61 6c 75 65 0a 7d 20 7b  llback_value.} {
13c0: 31 20 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c  1 {database is l
13d0: 6f 63 6b 65 64 7d 20 7b 31 20 32 20 33 20 34 20  ocked} {1 2 3 4 
13e0: 35 7d 7d 0a 0a 23 20 49 6e 20 74 68 69 73 20 74  5}}..# In this t
13f0: 65 73 74 2c 20 74 68 65 20 33 72 64 20 69 6e 76  est, the 3rd inv
1400: 6f 63 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 62  ocation of the b
1410: 75 73 79 20 63 61 6c 6c 62 61 63 6b 20 63 61 75  usy callback cau
1420: 73 65 73 0a 23 20 74 68 65 20 66 69 72 73 74 20  ses.# the first 
1430: 74 68 72 65 61 64 20 74 6f 20 72 65 6c 65 61 73  thread to releas
1440: 65 20 69 74 73 20 74 72 61 6e 73 61 63 74 69 6f  e its transactio
1450: 6e 2e 20 20 54 68 61 74 20 61 6c 6c 6f 77 73 20  n.  That allows 
1460: 74 68 65 0a 23 20 73 65 63 6f 6e 64 20 74 68 72  the.# second thr
1470: 65 61 64 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2e  ead to continue.
1480: 0a 23 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d  .#.do_test lock-
1490: 32 2e 36 20 7b 0a 20 20 70 72 6f 63 20 63 61 6c  2.6 {.  proc cal
14a0: 6c 62 61 63 6b 20 7b 66 69 6c 65 20 63 6f 75 6e  lback {file coun
14b0: 74 7d 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64  t} {.    lappend
14c0: 20 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c 75   ::callback_valu
14d0: 65 20 24 63 6f 75 6e 74 0a 20 20 20 20 69 66 20  e $count.    if 
14e0: 7b 24 63 6f 75 6e 74 3e 32 7d 20 7b 0a 20 20 20  {$count>2} {.   
14f0: 20 20 20 65 78 65 63 73 71 6c 20 7b 52 4f 4c 4c     execsql {ROLL
1500: 42 41 43 4b 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a  BACK}.    }.  }.
1510: 20 20 73 65 74 20 3a 3a 63 61 6c 6c 62 61 63 6b    set ::callback
1520: 5f 76 61 6c 75 65 20 7b 7d 0a 20 20 64 62 32 20  _value {}.  db2 
1530: 62 75 73 79 20 63 61 6c 6c 62 61 63 6b 0a 20 20  busy callback.  
1540: 73 65 74 20 72 20 5b 63 61 74 63 68 20 7b 65 78  set r [catch {ex
1550: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20  ecsql {SELECT * 
1560: 46 52 4f 4d 20 74 32 7d 20 64 62 32 7d 20 6d 73  FROM t2} db2} ms
1570: 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24  g].  lappend r $
1580: 6d 73 67 0a 20 20 6c 61 70 70 65 6e 64 20 72 20  msg.  lappend r 
1590: 24 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c 75  $::callback_valu
15a0: 65 0a 7d 20 7b 30 20 7b 39 20 38 7d 20 7b 31 20  e.} {0 {9 8} {1 
15b0: 32 20 33 7d 7d 0a 64 6f 5f 74 65 73 74 20 6c 6f  2 3}}.do_test lo
15c0: 63 6b 2d 32 2e 37 20 7b 0a 20 20 65 78 65 63 73  ck-2.7 {.  execs
15d0: 71 6c 20 7b 42 45 47 49 4e 20 54 52 41 4e 53 41  ql {BEGIN TRANSA
15e0: 43 54 49 4f 4e 7d 0a 20 20 70 72 6f 63 20 63 61  CTION}.  proc ca
15f0: 6c 6c 62 61 63 6b 20 7b 66 69 6c 65 20 63 6f 75  llback {file cou
1600: 6e 74 7d 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e  nt} {.    lappen
1610: 64 20 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c  d ::callback_val
1620: 75 65 20 24 63 6f 75 6e 74 0a 20 20 20 20 69 66  ue $count.    if
1630: 20 7b 24 63 6f 75 6e 74 3e 32 7d 20 7b 0a 20 20   {$count>2} {.  
1640: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 52 4f 4c      execsql {ROL
1650: 4c 42 41 43 4b 7d 0a 20 20 20 20 7d 0a 20 20 7d  LBACK}.    }.  }
1660: 0a 20 20 73 65 74 20 3a 3a 63 61 6c 6c 62 61 63  .  set ::callbac
1670: 6b 5f 76 61 6c 75 65 20 7b 7d 0a 20 20 64 62 32  k_value {}.  db2
1680: 20 62 75 73 79 20 63 61 6c 6c 62 61 63 6b 0a 20   busy callback. 
1690: 20 73 65 74 20 72 20 5b 63 61 74 63 68 20 7b 65   set r [catch {e
16a0: 78 65 63 73 71 6c 20 7b 42 45 47 49 4e 20 54 52  xecsql {BEGIN TR
16b0: 41 4e 53 41 43 54 49 4f 4e 7d 20 64 62 32 7d 20  ANSACTION} db2} 
16c0: 6d 73 67 5d 0a 20 20 65 78 65 63 73 71 6c 20 7b  msg].  execsql {
16d0: 52 4f 4c 4c 42 41 43 4b 7d 20 64 62 32 0a 20 20  ROLLBACK} db2.  
16e0: 6c 61 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 20  lappend r $msg. 
16f0: 20 6c 61 70 70 65 6e 64 20 72 20 24 3a 3a 63 61   lappend r $::ca
1700: 6c 6c 62 61 63 6b 5f 76 61 6c 75 65 0a 7d 20 7b  llback_value.} {
1710: 30 20 7b 7d 20 7b 31 20 32 20 33 7d 7d 0a 0a 23  0 {} {1 2 3}}..#
1720: 20 54 65 73 74 20 74 68 65 20 62 75 69 6c 74 2d   Test the built-
1730: 69 6e 20 62 75 73 79 20 74 69 6d 65 6f 75 74 20  in busy timeout 
1740: 68 61 6e 64 6c 65 72 0a 23 0a 64 6f 5f 74 65 73  handler.#.do_tes
1750: 74 20 6c 6f 63 6b 2d 32 2e 38 20 7b 0a 20 20 64  t lock-2.8 {.  d
1760: 62 32 20 74 69 6d 65 6f 75 74 20 34 30 30 0a 20  b2 timeout 400. 
1770: 20 65 78 65 63 73 71 6c 20 42 45 47 49 4e 0a 20   execsql BEGIN. 
1780: 20 63 61 74 63 68 73 71 6c 20 42 45 47 49 4e 20   catchsql BEGIN 
1790: 64 62 32 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61  db2.} {1 {databa
17a0: 73 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64  se is locked}}.d
17b0: 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 32 2e 39 20  o_test lock-2.9 
17c0: 7b 0a 20 20 64 62 32 20 74 69 6d 65 6f 75 74 20  {.  db2 timeout 
17d0: 30 0a 20 20 65 78 65 63 73 71 6c 20 43 4f 4d 4d  0.  execsql COMM
17e0: 49 54 0a 7d 20 7b 7d 0a 69 6e 74 65 67 72 69 74  IT.} {}.integrit
17f0: 79 5f 63 68 65 63 6b 20 6c 6f 63 6b 2d 32 2e 31  y_check lock-2.1
1800: 30 0a 0a 23 20 54 72 79 20 74 6f 20 73 74 61 72  0..# Try to star
1810: 74 20 74 77 6f 20 74 72 61 6e 73 61 63 74 69 6f  t two transactio
1820: 6e 73 20 69 6e 20 61 20 72 6f 77 0a 23 0a 64 6f  ns in a row.#.do
1830: 5f 74 65 73 74 20 6c 6f 63 6b 2d 33 2e 31 20 7b  _test lock-3.1 {
1840: 0a 20 20 65 78 65 63 73 71 6c 20 7b 42 45 47 49  .  execsql {BEGI
1850: 4e 20 54 52 41 4e 53 41 43 54 49 4f 4e 7d 0a 20  N TRANSACTION}. 
1860: 20 73 65 74 20 72 20 5b 63 61 74 63 68 20 7b 65   set r [catch {e
1870: 78 65 63 73 71 6c 20 7b 42 45 47 49 4e 20 54 52  xecsql {BEGIN TR
1880: 41 4e 53 41 43 54 49 4f 4e 7d 7d 20 6d 73 67 5d  ANSACTION}} msg]
1890: 0a 20 20 65 78 65 63 73 71 6c 20 7b 52 4f 4c 4c  .  execsql {ROLL
18a0: 42 41 43 4b 7d 0a 20 20 6c 61 70 70 65 6e 64 20  BACK}.  lappend 
18b0: 72 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 63 61 6e  r $msg.} {1 {can
18c0: 6e 6f 74 20 73 74 61 72 74 20 61 20 74 72 61 6e  not start a tran
18d0: 73 61 63 74 69 6f 6e 20 77 69 74 68 69 6e 20 61  saction within a
18e0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 7d 7d 0a 69   transaction}}.i
18f0: 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 20 6c  ntegrity_check l
1900: 6f 63 6b 2d 33 2e 32 0a 0a 23 20 4d 61 6b 65 20  ock-3.2..# Make 
1910: 73 75 72 65 20 74 68 65 20 62 75 73 79 20 68 61  sure the busy ha
1920: 6e 64 6c 65 72 20 61 6e 64 20 65 72 72 6f 72 20  ndler and error 
1930: 6d 65 73 73 61 67 65 73 20 77 6f 72 6b 20 77 68  messages work wh
1940: 65 6e 0a 23 20 6f 70 65 6e 69 6e 67 20 61 20 6e  en.# opening a n
1950: 65 77 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 68  ew pointer to th
1960: 65 20 64 61 74 61 62 61 73 65 20 77 68 69 6c 65  e database while
1970: 20 61 6e 6f 74 68 65 72 20 70 6f 69 6e 74 65 72   another pointer
1980: 0a 23 20 68 61 73 20 74 68 65 20 64 61 74 61 62  .# has the datab
1990: 61 73 65 20 6c 6f 63 6b 65 64 2e 0a 23 0a 64 6f  ase locked..#.do
19a0: 5f 74 65 73 74 20 6c 6f 63 6b 2d 34 2e 31 20 7b  _test lock-4.1 {
19b0: 0a 20 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 63  .  db2 close.  c
19c0: 61 74 63 68 20 7b 64 62 20 65 76 61 6c 20 52 4f  atch {db eval RO
19d0: 4c 4c 42 41 43 4b 7d 0a 20 20 64 62 20 65 76 61  LLBACK}.  db eva
19e0: 6c 20 42 45 47 49 4e 0a 20 20 73 71 6c 69 74 65  l BEGIN.  sqlite
19f0: 20 64 62 32 20 2e 2f 74 65 73 74 2e 64 62 0a 20   db2 ./test.db. 
1a00: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
1a10: 64 62 32 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  db2 eval {SELECT
1a20: 20 2a 20 46 52 4f 4d 20 74 31 7d 7d 20 6d 73 67   * FROM t1}} msg
1a30: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 63 20 24  ].  lappend rc $
1a40: 6d 73 67 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61  msg.} {1 {databa
1a50: 73 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64  se is locked}}.d
1a60: 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 34 2e 32 20  o_test lock-4.2 
1a70: 7b 0a 20 20 73 65 74 20 3a 3a 63 61 6c 6c 62 61  {.  set ::callba
1a80: 63 6b 5f 76 61 6c 75 65 20 7b 7d 0a 20 20 73 65  ck_value {}.  se
1a90: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 64 62 32  t rc [catch {db2
1aa0: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20   eval {SELECT * 
1ab0: 46 52 4f 4d 20 74 31 7d 7d 20 6d 73 67 5d 0a 20  FROM t1}} msg]. 
1ac0: 20 6c 61 70 70 65 6e 64 20 72 63 20 24 6d 73 67   lappend rc $msg
1ad0: 20 24 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c   $::callback_val
1ae0: 75 65 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73  ue.} {1 {databas
1af0: 65 20 69 73 20 6c 6f 63 6b 65 64 7d 20 7b 7d 7d  e is locked} {}}
1b00: 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 34 2e  .do_test lock-4.
1b10: 33 20 7b 0a 20 20 70 72 6f 63 20 63 61 6c 6c 62  3 {.  proc callb
1b20: 61 63 6b 20 7b 66 69 6c 65 20 63 6f 75 6e 74 7d  ack {file count}
1b30: 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a   {.    lappend :
1b40: 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c 75 65 20  :callback_value 
1b50: 24 63 6f 75 6e 74 0a 20 20 20 20 69 66 20 7b 24  $count.    if {$
1b60: 63 6f 75 6e 74 3e 34 7d 20 62 72 65 61 6b 0a 20  count>4} break. 
1b70: 20 7d 0a 20 20 64 62 32 20 62 75 73 79 20 63 61   }.  db2 busy ca
1b80: 6c 6c 62 61 63 6b 0a 20 20 73 65 74 20 72 63 20  llback.  set rc 
1b90: 5b 63 61 74 63 68 20 7b 64 62 32 20 65 76 61 6c  [catch {db2 eval
1ba0: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
1bb0: 74 31 7d 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70  t1}} msg].  lapp
1bc0: 65 6e 64 20 72 63 20 24 6d 73 67 20 24 3a 3a 63  end rc $msg $::c
1bd0: 61 6c 6c 62 61 63 6b 5f 76 61 6c 75 65 0a 7d 20  allback_value.} 
1be0: 7b 31 20 7b 64 61 74 61 62 61 73 65 20 69 73 20  {1 {database is 
1bf0: 6c 6f 63 6b 65 64 7d 20 7b 31 20 32 20 33 20 34  locked} {1 2 3 4
1c00: 20 35 7d 7d 0a 65 78 65 63 73 71 6c 20 7b 52 4f   5}}.execsql {RO
1c10: 4c 4c 42 41 43 4b 7d 0a 0a 23 20 57 68 65 6e 20  LLBACK}..# When 
1c20: 6f 6e 65 20 74 68 72 65 61 64 20 69 73 20 77 72  one thread is wr
1c30: 69 74 69 6e 67 2c 20 6f 74 68 65 72 20 74 68 72  iting, other thr
1c40: 65 61 64 73 20 63 61 6e 6e 6f 74 20 72 65 61 64  eads cannot read
1c50: 2e 20 20 45 78 63 65 70 74 20 69 66 20 74 68 65  .  Except if the
1c60: 0a 23 20 77 72 69 74 69 6e 67 20 74 68 72 65 61  .# writing threa
1c70: 64 20 69 73 20 77 72 69 74 69 6e 67 20 74 6f 20  d is writing to 
1c80: 69 74 73 20 74 65 6d 70 6f 72 61 72 79 20 74 61  its temporary ta
1c90: 62 6c 65 73 2c 20 74 68 65 20 6f 74 68 65 72 20  bles, the other 
1ca0: 74 68 72 65 61 64 73 0a 23 20 63 61 6e 20 73 74  threads.# can st
1cb0: 69 6c 6c 20 72 65 61 64 2e 0a 23 0a 70 72 6f 63  ill read..#.proc
1cc0: 20 74 78 5f 65 78 65 63 20 7b 73 71 6c 7d 20 7b   tx_exec {sql} {
1cd0: 0a 20 20 64 62 32 20 65 76 61 6c 20 24 73 71 6c  .  db2 eval $sql
1ce0: 0a 7d 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d  .}.do_test lock-
1cf0: 35 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  5.1 {.  execsql 
1d00: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46  {.    SELECT * F
1d10: 52 4f 4d 20 74 31 0a 20 20 7d 0a 7d 20 7b 32 20  ROM t1.  }.} {2 
1d20: 31 7d 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d  1}.do_test lock-
1d30: 35 2e 32 20 7b 0a 20 20 64 62 20 66 75 6e 63 74  5.2 {.  db funct
1d40: 69 6f 6e 20 74 78 5f 65 78 65 63 20 74 78 5f 65  ion tx_exec tx_e
1d50: 78 65 63 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  xec.  catchsql {
1d60: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
1d70: 20 74 31 28 61 2c 62 29 20 53 45 4c 45 43 54 20   t1(a,b) SELECT 
1d80: 33 2c 20 74 78 5f 65 78 65 63 28 27 53 45 4c 45  3, tx_exec('SELE
1d90: 43 54 20 79 20 46 52 4f 4d 20 74 32 20 4c 49 4d  CT y FROM t2 LIM
1da0: 49 54 20 31 27 29 3b 0a 20 20 7d 0a 7d 20 7b 31  IT 1');.  }.} {1
1db0: 20 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f   {database is lo
1dc0: 63 6b 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 6c  cked}}.do_test l
1dd0: 6f 63 6b 2d 35 2e 33 20 7b 0a 20 20 65 78 65 63  ock-5.3 {.  exec
1de0: 73 71 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45  sql {.    CREATE
1df0: 20 54 45 4d 50 20 54 41 42 4c 45 20 74 33 28 78   TEMP TABLE t3(x
1e00: 29 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20  );.    SELECT * 
1e10: 46 52 4f 4d 20 74 33 3b 0a 20 20 7d 0a 7d 20 7b  FROM t3;.  }.} {
1e20: 7d 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 35  }.do_test lock-5
1e30: 2e 34 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  .4 {.  catchsql 
1e40: 7b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  {.    INSERT INT
1e50: 4f 20 74 33 20 53 45 4c 45 43 54 20 74 78 5f 65  O t3 SELECT tx_e
1e60: 78 65 63 28 27 53 45 4c 45 43 54 20 79 20 46 52  xec('SELECT y FR
1e70: 4f 4d 20 74 32 20 4c 49 4d 49 54 20 31 27 29 3b  OM t2 LIMIT 1');
1e80: 0a 20 20 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f  .  }.} {0 {}}.do
1e90: 5f 74 65 73 74 20 6c 6f 63 6b 2d 35 2e 35 20 7b  _test lock-5.5 {
1ea0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
1eb0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
1ec0: 33 3b 0a 20 20 7d 0a 7d 20 7b 38 7d 0a 64 6f 5f  3;.  }.} {8}.do_
1ed0: 74 65 73 74 20 6c 6f 63 6b 2d 35 2e 36 20 7b 0a  test lock-5.6 {.
1ee0: 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20    catchsql {.   
1ef0: 20 55 50 44 41 54 45 20 74 31 20 53 45 54 20 61   UPDATE t1 SET a
1f00: 3d 74 78 5f 65 78 65 63 28 27 53 45 4c 45 43 54  =tx_exec('SELECT
1f10: 20 78 20 46 52 4f 4d 20 74 32 27 29 3b 0a 20 20   x FROM t2');.  
1f20: 7d 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65  }.} {1 {database
1f30: 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64 6f 5f   is locked}}.do_
1f40: 74 65 73 74 20 6c 6f 63 6b 2d 35 2e 37 20 7b 0a  test lock-5.7 {.
1f50: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
1f60: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
1f70: 3b 0a 20 20 7d 0a 7d 20 7b 32 20 31 7d 0a 64 6f  ;.  }.} {2 1}.do
1f80: 5f 74 65 73 74 20 6c 6f 63 6b 2d 35 2e 38 20 7b  _test lock-5.8 {
1f90: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20  .  catchsql {.  
1fa0: 20 20 55 50 44 41 54 45 20 74 33 20 53 45 54 20    UPDATE t3 SET 
1fb0: 78 3d 74 78 5f 65 78 65 63 28 27 53 45 4c 45 43  x=tx_exec('SELEC
1fc0: 54 20 78 20 46 52 4f 4d 20 74 32 27 29 3b 0a 20  T x FROM t2');. 
1fd0: 20 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74   }.} {0 {}}.do_t
1fe0: 65 73 74 20 6c 6f 63 6b 2d 35 2e 39 20 7b 0a 20  est lock-5.9 {. 
1ff0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53   execsql {.    S
2000: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 33 3b  ELECT * FROM t3;
2010: 0a 20 20 7d 0a 7d 20 7b 39 7d 0a 0a 64 6f 5f 74  .  }.} {9}..do_t
2020: 65 73 74 20 6c 6f 63 6b 2d 39 39 39 2e 31 20 7b  est lock-999.1 {
2030: 0a 20 20 72 65 6e 61 6d 65 20 64 62 32 20 7b 7d  .  rename db2 {}
2040: 0a 7d 20 7b 7d 0a 0a 66 69 6e 69 73 68 5f 74 65  .} {}..finish_te
2050: 73 74 0a                                         st.