/ Hex Artifact Content
Login

Artifact 3fcfd46a73119f6a18094673328a32c7b3047a8f:


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 34 20 32  ck.test,v 1.14 2
01f0: 30 30 32 2f 30 35 2f 31 30 20 31 33 3a 31 34 3a  002/05/10 13:14:
0200: 30 38 20 64 72 68 20 45 78 70 20 24 0a 0a 0a 73  08 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 0a 23 20 49 66 20 6f 6e 65 20 74 68  }.}..# If one th
0e70: 72 65 61 64 20 68 61 73 20 61 20 74 72 61 6e 73  read has a trans
0e80: 61 63 74 69 6f 6e 20 61 6e 6f 74 68 65 72 20 74  action another t
0e90: 68 72 65 61 64 20 63 61 6e 6e 6f 74 20 73 74 61  hread cannot sta
0ea0: 72 74 0a 23 20 61 20 74 72 61 6e 73 61 63 74 69  rt.# a transacti
0eb0: 6f 6e 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 6c 6f  on..#.do_test lo
0ec0: 63 6b 2d 32 2e 31 20 7b 0a 20 20 65 78 65 63 73  ck-2.1 {.  execs
0ed0: 71 6c 20 7b 42 45 47 49 4e 20 54 52 41 4e 53 41  ql {BEGIN TRANSA
0ee0: 43 54 49 4f 4e 7d 0a 20 20 73 65 74 20 72 20 5b  CTION}.  set r [
0ef0: 63 61 74 63 68 20 7b 65 78 65 63 73 71 6c 20 7b  catch {execsql {
0f00: 42 45 47 49 4e 20 54 52 41 4e 53 41 43 54 49 4f  BEGIN TRANSACTIO
0f10: 4e 7d 20 64 62 32 7d 20 6d 73 67 5d 0a 20 20 6c  N} db2} msg].  l
0f20: 61 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 7d 20  append r $msg.} 
0f30: 7b 31 20 7b 64 61 74 61 62 61 73 65 20 69 73 20  {1 {database is 
0f40: 6c 6f 63 6b 65 64 7d 7d 0a 0a 23 20 4e 6f 72 20  locked}}..# Nor 
0f50: 63 61 6e 20 74 68 65 20 6f 74 68 65 72 20 74 68  can the other th
0f60: 72 65 61 64 20 64 6f 20 61 20 71 75 65 72 79 2e  read do a query.
0f70: 0a 23 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d  .#.do_test lock-
0f80: 32 2e 32 20 7b 0a 20 20 73 65 74 20 72 20 5b 63  2.2 {.  set r [c
0f90: 61 74 63 68 20 7b 65 78 65 63 73 71 6c 20 7b 53  atch {execsql {S
0fa0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d  ELECT * FROM t2}
0fb0: 20 64 62 32 7d 20 6d 73 67 5d 0a 20 20 6c 61 70   db2} msg].  lap
0fc0: 70 65 6e 64 20 72 20 24 6d 73 67 0a 7d 20 7b 31  pend r $msg.} {1
0fd0: 20 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f   {database is lo
0fe0: 63 6b 65 64 7d 7d 0a 0a 23 20 49 66 20 74 68 65  cked}}..# If the
0ff0: 20 6f 74 68 65 72 20 74 68 72 65 61 64 20 28 74   other thread (t
1000: 68 65 20 6f 6e 65 20 74 68 61 74 20 64 6f 65 73  he one that does
1010: 20 6e 6f 74 20 68 6f 6c 64 20 74 68 65 20 74 72   not hold the tr
1020: 61 6e 73 61 63 74 69 6f 6e 29 0a 23 20 74 72 69  ansaction).# tri
1030: 65 73 20 74 6f 20 73 74 61 72 74 20 61 20 74 72  es to start a tr
1040: 61 6e 73 61 63 74 69 6f 6e 2c 20 77 65 20 67 65  ansaction, we ge
1050: 74 20 61 20 62 75 73 79 20 63 61 6c 6c 62 61 63  t a busy callbac
1060: 6b 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 6c 6f 63  k..#.do_test loc
1070: 6b 2d 32 2e 33 20 7b 0a 20 20 70 72 6f 63 20 63  k-2.3 {.  proc c
1080: 61 6c 6c 62 61 63 6b 20 7b 61 72 67 73 7d 20 7b  allback {args} {
1090: 0a 20 20 20 20 73 65 74 20 3a 3a 63 61 6c 6c 62  .    set ::callb
10a0: 61 63 6b 5f 76 61 6c 75 65 20 24 61 72 67 73 0a  ack_value $args.
10b0: 20 20 20 20 62 72 65 61 6b 0a 20 20 7d 0a 20 20      break.  }.  
10c0: 73 65 74 20 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76  set ::callback_v
10d0: 61 6c 75 65 20 7b 7d 0a 20 20 64 62 32 20 62 75  alue {}.  db2 bu
10e0: 73 79 20 63 61 6c 6c 62 61 63 6b 0a 20 20 73 65  sy callback.  se
10f0: 74 20 72 20 5b 63 61 74 63 68 20 7b 65 78 65 63  t r [catch {exec
1100: 73 71 6c 20 7b 42 45 47 49 4e 20 54 52 41 4e 53  sql {BEGIN TRANS
1110: 41 43 54 49 4f 4e 7d 20 64 62 32 7d 20 6d 73 67  ACTION} db2} msg
1120: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24 6d  ].  lappend r $m
1130: 73 67 0a 20 20 6c 61 70 70 65 6e 64 20 72 20 24  sg.  lappend r $
1140: 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c 75 65  ::callback_value
1150: 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20  .} {1 {database 
1160: 69 73 20 6c 6f 63 6b 65 64 7d 20 7b 7b 7d 20 31  is locked} {{} 1
1170: 7d 7d 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d  }}.do_test lock-
1180: 32 2e 34 20 7b 0a 20 20 70 72 6f 63 20 63 61 6c  2.4 {.  proc cal
1190: 6c 62 61 63 6b 20 7b 66 69 6c 65 20 63 6f 75 6e  lback {file coun
11a0: 74 7d 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64  t} {.    lappend
11b0: 20 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c 75   ::callback_valu
11c0: 65 20 24 63 6f 75 6e 74 0a 20 20 20 20 69 66 20  e $count.    if 
11d0: 7b 24 63 6f 75 6e 74 3e 34 7d 20 62 72 65 61 6b  {$count>4} break
11e0: 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 63 61 6c  .  }.  set ::cal
11f0: 6c 62 61 63 6b 5f 76 61 6c 75 65 20 7b 7d 0a 20  lback_value {}. 
1200: 20 64 62 32 20 62 75 73 79 20 63 61 6c 6c 62 61   db2 busy callba
1210: 63 6b 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63  ck.  set r [catc
1220: 68 20 7b 65 78 65 63 73 71 6c 20 7b 42 45 47 49  h {execsql {BEGI
1230: 4e 20 54 52 41 4e 53 41 43 54 49 4f 4e 7d 20 64  N TRANSACTION} d
1240: 62 32 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65  b2} msg].  lappe
1250: 6e 64 20 72 20 24 6d 73 67 0a 20 20 6c 61 70 70  nd r $msg.  lapp
1260: 65 6e 64 20 72 20 24 3a 3a 63 61 6c 6c 62 61 63  end r $::callbac
1270: 6b 5f 76 61 6c 75 65 0a 7d 20 7b 31 20 7b 64 61  k_value.} {1 {da
1280: 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64  tabase is locked
1290: 7d 20 7b 31 20 32 20 33 20 34 20 35 7d 7d 0a 64  } {1 2 3 4 5}}.d
12a0: 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 32 2e 35 20  o_test lock-2.5 
12b0: 7b 0a 20 20 70 72 6f 63 20 63 61 6c 6c 62 61 63  {.  proc callbac
12c0: 6b 20 7b 66 69 6c 65 20 63 6f 75 6e 74 7d 20 7b  k {file count} {
12d0: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 63  .    lappend ::c
12e0: 61 6c 6c 62 61 63 6b 5f 76 61 6c 75 65 20 24 63  allback_value $c
12f0: 6f 75 6e 74 0a 20 20 20 20 69 66 20 7b 24 63 6f  ount.    if {$co
1300: 75 6e 74 3e 34 7d 20 62 72 65 61 6b 0a 20 20 7d  unt>4} break.  }
1310: 0a 20 20 73 65 74 20 3a 3a 63 61 6c 6c 62 61 63  .  set ::callbac
1320: 6b 5f 76 61 6c 75 65 20 7b 7d 0a 20 20 64 62 32  k_value {}.  db2
1330: 20 62 75 73 79 20 63 61 6c 6c 62 61 63 6b 0a 20   busy callback. 
1340: 20 73 65 74 20 72 20 5b 63 61 74 63 68 20 7b 65   set r [catch {e
1350: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a  xecsql {SELECT *
1360: 20 46 52 4f 4d 20 74 31 7d 20 64 62 32 7d 20 6d   FROM t1} db2} m
1370: 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 20  sg].  lappend r 
1380: 24 6d 73 67 0a 20 20 6c 61 70 70 65 6e 64 20 72  $msg.  lappend r
1390: 20 24 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c   $::callback_val
13a0: 75 65 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73  ue.} {1 {databas
13b0: 65 20 69 73 20 6c 6f 63 6b 65 64 7d 20 7b 31 20  e is locked} {1 
13c0: 32 20 33 20 34 20 35 7d 7d 0a 0a 23 20 49 6e 20  2 3 4 5}}..# In 
13d0: 74 68 69 73 20 74 65 73 74 2c 20 74 68 65 20 33  this test, the 3
13e0: 72 64 20 69 6e 76 6f 63 61 74 69 6f 6e 20 6f 66  rd invocation of
13f0: 20 74 68 65 20 62 75 73 79 20 63 61 6c 6c 62 61   the busy callba
1400: 63 6b 20 63 61 75 73 65 73 0a 23 20 74 68 65 20  ck causes.# the 
1410: 66 69 72 73 74 20 74 68 72 65 61 64 20 74 6f 20  first thread to 
1420: 72 65 6c 65 61 73 65 20 69 74 73 20 74 72 61 6e  release its tran
1430: 73 61 63 74 69 6f 6e 2e 20 20 54 68 61 74 20 61  saction.  That a
1440: 6c 6c 6f 77 73 20 74 68 65 0a 23 20 73 65 63 6f  llows the.# seco
1450: 6e 64 20 74 68 72 65 61 64 20 74 6f 20 63 6f 6e  nd thread to con
1460: 74 69 6e 75 65 2e 0a 23 0a 64 6f 5f 74 65 73 74  tinue..#.do_test
1470: 20 6c 6f 63 6b 2d 32 2e 36 20 7b 0a 20 20 70 72   lock-2.6 {.  pr
1480: 6f 63 20 63 61 6c 6c 62 61 63 6b 20 7b 66 69 6c  oc callback {fil
1490: 65 20 63 6f 75 6e 74 7d 20 7b 0a 20 20 20 20 6c  e count} {.    l
14a0: 61 70 70 65 6e 64 20 3a 3a 63 61 6c 6c 62 61 63  append ::callbac
14b0: 6b 5f 76 61 6c 75 65 20 24 63 6f 75 6e 74 0a 20  k_value $count. 
14c0: 20 20 20 69 66 20 7b 24 63 6f 75 6e 74 3e 32 7d     if {$count>2}
14d0: 20 7b 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c   {.      execsql
14e0: 20 7b 52 4f 4c 4c 42 41 43 4b 7d 0a 20 20 20 20   {ROLLBACK}.    
14f0: 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 63 61  }.  }.  set ::ca
1500: 6c 6c 62 61 63 6b 5f 76 61 6c 75 65 20 7b 7d 0a  llback_value {}.
1510: 20 20 64 62 32 20 62 75 73 79 20 63 61 6c 6c 62    db2 busy callb
1520: 61 63 6b 0a 20 20 73 65 74 20 72 20 5b 63 61 74  ack.  set r [cat
1530: 63 68 20 7b 65 78 65 63 73 71 6c 20 7b 53 45 4c  ch {execsql {SEL
1540: 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d 20 64  ECT * FROM t2} d
1550: 62 32 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65  b2} msg].  lappe
1560: 6e 64 20 72 20 24 6d 73 67 0a 20 20 6c 61 70 70  nd r $msg.  lapp
1570: 65 6e 64 20 72 20 24 3a 3a 63 61 6c 6c 62 61 63  end r $::callbac
1580: 6b 5f 76 61 6c 75 65 0a 7d 20 7b 30 20 7b 39 20  k_value.} {0 {9 
1590: 38 7d 20 7b 31 20 32 20 33 7d 7d 0a 64 6f 5f 74  8} {1 2 3}}.do_t
15a0: 65 73 74 20 6c 6f 63 6b 2d 32 2e 37 20 7b 0a 20  est lock-2.7 {. 
15b0: 20 65 78 65 63 73 71 6c 20 7b 42 45 47 49 4e 20   execsql {BEGIN 
15c0: 54 52 41 4e 53 41 43 54 49 4f 4e 7d 0a 20 20 70  TRANSACTION}.  p
15d0: 72 6f 63 20 63 61 6c 6c 62 61 63 6b 20 7b 66 69  roc callback {fi
15e0: 6c 65 20 63 6f 75 6e 74 7d 20 7b 0a 20 20 20 20  le count} {.    
15f0: 6c 61 70 70 65 6e 64 20 3a 3a 63 61 6c 6c 62 61  lappend ::callba
1600: 63 6b 5f 76 61 6c 75 65 20 24 63 6f 75 6e 74 0a  ck_value $count.
1610: 20 20 20 20 69 66 20 7b 24 63 6f 75 6e 74 3e 32      if {$count>2
1620: 7d 20 7b 0a 20 20 20 20 20 20 65 78 65 63 73 71  } {.      execsq
1630: 6c 20 7b 52 4f 4c 4c 42 41 43 4b 7d 0a 20 20 20  l {ROLLBACK}.   
1640: 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 63   }.  }.  set ::c
1650: 61 6c 6c 62 61 63 6b 5f 76 61 6c 75 65 20 7b 7d  allback_value {}
1660: 0a 20 20 64 62 32 20 62 75 73 79 20 63 61 6c 6c  .  db2 busy call
1670: 62 61 63 6b 0a 20 20 73 65 74 20 72 20 5b 63 61  back.  set r [ca
1680: 74 63 68 20 7b 65 78 65 63 73 71 6c 20 7b 42 45  tch {execsql {BE
1690: 47 49 4e 20 54 52 41 4e 53 41 43 54 49 4f 4e 7d  GIN TRANSACTION}
16a0: 20 64 62 32 7d 20 6d 73 67 5d 0a 20 20 65 78 65   db2} msg].  exe
16b0: 63 73 71 6c 20 7b 52 4f 4c 4c 42 41 43 4b 7d 20  csql {ROLLBACK} 
16c0: 64 62 32 0a 20 20 6c 61 70 70 65 6e 64 20 72 20  db2.  lappend r 
16d0: 24 6d 73 67 0a 20 20 6c 61 70 70 65 6e 64 20 72  $msg.  lappend r
16e0: 20 24 3a 3a 63 61 6c 6c 62 61 63 6b 5f 76 61 6c   $::callback_val
16f0: 75 65 0a 7d 20 7b 30 20 7b 7d 20 7b 31 20 32 20  ue.} {0 {} {1 2 
1700: 33 7d 7d 0a 0a 23 20 54 72 79 20 74 6f 20 73 74  3}}..# Try to st
1710: 61 72 74 20 74 77 6f 20 74 72 61 6e 73 61 63 74  art two transact
1720: 69 6f 6e 73 20 69 6e 20 61 20 72 6f 77 0a 23 0a  ions in a row.#.
1730: 64 6f 5f 74 65 73 74 20 6c 6f 63 6b 2d 33 2e 31  do_test lock-3.1
1740: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 42 45   {.  execsql {BE
1750: 47 49 4e 20 54 52 41 4e 53 41 43 54 49 4f 4e 7d  GIN TRANSACTION}
1760: 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20  .  set r [catch 
1770: 7b 65 78 65 63 73 71 6c 20 7b 42 45 47 49 4e 20  {execsql {BEGIN 
1780: 54 52 41 4e 53 41 43 54 49 4f 4e 7d 7d 20 6d 73  TRANSACTION}} ms
1790: 67 5d 0a 20 20 65 78 65 63 73 71 6c 20 7b 52 4f  g].  execsql {RO
17a0: 4c 4c 42 41 43 4b 7d 0a 20 20 6c 61 70 70 65 6e  LLBACK}.  lappen
17b0: 64 20 72 20 24 6d 73 67 0a 7d 20 7b 30 20 7b 7d  d r $msg.} {0 {}
17c0: 7d 0a 0a 0a 64 6f 5f 74 65 73 74 20 6c 6f 63 6b  }...do_test lock
17d0: 2d 39 39 39 2e 31 20 7b 0a 20 20 72 65 6e 61 6d  -999.1 {.  renam
17e0: 65 20 64 62 32 20 7b 7d 0a 7d 20 7b 7d 0a 0a 66  e db2 {}.} {}..f
17f0: 69 6e 69 73 68 5f 74 65 73 74 0a                 inish_test.