/ Hex Artifact Content
Login

Artifact b81dc3144901b123fe5674471adf5a47ca48a7c3:


0000: 23 20 32 30 30 37 20 44 65 63 65 6d 62 65 72 20  # 2007 December 
0010: 32 30 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f  20.#.# The autho
0020: 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79  r disclaims copy
0030: 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f  right to this so
0040: 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70  urce code.  In p
0050: 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61  lace of.# a lega
0060: 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69  l notice, here i
0070: 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a  s a blessing:.#.
0080: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20  #    May you do 
0090: 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69  good and not evi
00a0: 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  l..#    May you 
00b0: 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73  find forgiveness
00c0: 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e   for yourself an
00d0: 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73  d forgive others
00e0: 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73  ..#    May you s
00f0: 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76  hare freely, nev
0100: 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74  er taking more t
0110: 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a  han you give..#.
0120: 23 2a 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 0a 23 0a 23 20 24 49 64  ********.#.# $Id
0170: 3a 20 74 6b 74 32 38 35 34 2e 74 65 73 74 2c 76  : tkt2854.test,v
0180: 20 31 2e 34 20 32 30 30 39 2f 30 33 2f 31 36 20   1.4 2009/03/16 
0190: 31 33 3a 31 39 3a 33 36 20 64 61 6e 69 65 6c 6b  13:19:36 danielk
01a0: 31 39 37 37 20 45 78 70 20 24 0a 0a 73 65 74 20  1977 Exp $..set 
01b0: 74 65 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69  testdir [file di
01c0: 72 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f  rname $argv0].so
01d0: 75 72 63 65 20 24 74 65 73 74 64 69 72 2f 74 65  urce $testdir/te
01e0: 73 74 65 72 2e 74 63 6c 0a 64 62 20 63 6c 6f 73  ster.tcl.db clos
01f0: 65 0a 0a 69 66 63 61 70 61 62 6c 65 20 21 73 68  e..ifcapable !sh
0200: 61 72 65 64 5f 63 61 63 68 65 20 7b 0a 20 20 66  ared_cache {.  f
0210: 69 6e 69 73 68 5f 74 65 73 74 0a 20 20 72 65 74  inish_test.  ret
0220: 75 72 6e 0a 7d 0a 0a 73 65 74 20 3a 3a 65 6e 61  urn.}..set ::ena
0230: 62 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65  ble_shared_cache
0240: 20 5b 73 71 6c 69 74 65 33 5f 65 6e 61 62 6c 65   [sqlite3_enable
0250: 5f 73 68 61 72 65 64 5f 63 61 63 68 65 20 31 5d  _shared_cache 1]
0260: 0a 0a 23 20 4f 70 65 6e 20 33 20 64 61 74 61 62  ..# Open 3 datab
0270: 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2e  ase connections.
0280: 20 43 6f 6e 6e 65 63 74 69 6f 6e 20 22 64 62 22   Connection "db"
0290: 20 61 6e 64 20 22 64 62 32 22 20 73 68 61 72 65   and "db2" share
02a0: 20 61 20 63 61 63 68 65 2e 0a 23 20 43 6f 6e 6e   a cache..# Conn
02b0: 65 63 74 69 6f 6e 20 22 64 62 33 22 20 68 61 73  ection "db3" has
02c0: 20 69 74 73 20 6f 77 6e 20 63 61 63 68 65 2e 0a   its own cache..
02d0: 23 0a 64 6f 5f 74 65 73 74 20 74 6b 74 32 38 35  #.do_test tkt285
02e0: 34 2d 31 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65  4-1.1 {.  sqlite
02f0: 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20 73  3 db test.db.  s
0300: 71 6c 69 74 65 33 20 64 62 32 20 74 65 73 74 2e  qlite3 db2 test.
0310: 64 62 0a 0a 20 20 23 20 54 68 69 73 20 69 73 20  db..  # This is 
0320: 74 61 6b 65 6e 20 66 72 6f 6d 20 73 68 61 72 65  taken from share
0330: 64 2e 74 65 73 74 2e 20 20 54 68 65 20 57 69 6e  d.test.  The Win
0340: 64 6f 77 73 20 56 46 53 20 65 78 70 61 6e 64 73  dows VFS expands
0350: 20 0a 20 20 23 20 2e 2f 74 65 73 74 2e 64 62 20   .  # ./test.db 
0360: 28 61 6e 64 20 74 65 73 74 2e 64 62 29 20 74 6f  (and test.db) to
0370: 20 62 65 20 74 68 65 20 73 61 6d 65 20 74 68 69   be the same thi
0380: 6e 67 20 73 6f 20 74 68 65 20 70 61 74 68 0a 20  ng so the path. 
0390: 20 23 20 6d 61 74 63 68 65 73 20 61 6e 64 20 74   # matches and t
03a0: 68 65 79 20 73 68 61 72 65 20 61 20 63 61 63 68  hey share a cach
03b0: 65 2e 20 20 42 79 20 63 68 61 6e 67 69 6e 67 20  e.  By changing 
03c0: 74 68 65 20 63 61 73 65 20 0a 20 20 23 20 66 6f  the case .  # fo
03d0: 72 20 57 69 6e 64 6f 77 73 20 70 6c 61 74 66 6f  r Windows platfo
03e0: 72 6d 2c 20 77 65 20 67 65 74 20 61 72 6f 75 6e  rm, we get aroun
03f0: 64 20 74 68 69 73 20 61 6e 64 20 67 65 74 20 61  d this and get a
0400: 20 73 65 70 61 72 61 74 65 0a 20 20 23 20 63 6f   separate.  # co
0410: 6e 6e 65 63 74 69 6f 6e 2e 0a 20 20 69 66 20 7b  nnection..  if {
0420: 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28  $::tcl_platform(
0430: 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 75 6e 69 78  platform)=="unix
0440: 22 7d 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  "} {.    sqlite3
0450: 20 64 62 33 20 2e 2f 74 65 73 74 2e 64 62 0a 20   db3 ./test.db. 
0460: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 71   } else {.    sq
0470: 6c 69 74 65 33 20 64 62 33 20 54 45 53 54 2e 44  lite3 db3 TEST.D
0480: 42 0a 20 20 7d 0a 0a 20 20 64 62 20 65 76 61 6c  B.  }..  db eval
0490: 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41   {.    CREATE TA
04a0: 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29  BLE abc(a, b, c)
04b0: 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 0a 23 20 43 68  ;.  }.} {}..# Ch
04c0: 65 63 6b 20 74 68 61 74 20 61 6e 20 65 78 63 6c  eck that an excl
04d0: 75 73 69 76 65 20 6c 6f 63 6b 20 63 61 6e 6e 6f  usive lock canno
04e0: 74 20 62 65 20 6f 62 74 61 69 6e 65 64 20 69 66  t be obtained if
04f0: 20 73 6f 6d 65 20 6f 74 68 65 72 20 0a 23 20 73   some other .# s
0500: 68 61 72 65 64 2d 63 61 63 68 65 20 63 6f 6e 6e  hared-cache conn
0510: 65 63 74 69 6f 6e 20 68 61 73 20 61 20 72 65 61  ection has a rea
0520: 64 2d 6c 6f 63 6b 20 6f 6e 20 61 20 74 61 62 6c  d-lock on a tabl
0530: 65 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 74 6b 74  e..#.do_test tkt
0540: 32 38 35 34 2d 31 2e 32 20 7b 0a 20 20 65 78 65  2854-1.2 {.  exe
0550: 63 73 71 6c 20 7b 20 0a 20 20 20 20 42 45 47 49  csql { .    BEGI
0560: 4e 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20  N;.    SELECT * 
0570: 46 52 4f 4d 20 61 62 63 3b 0a 20 20 7d 20 64 62  FROM abc;.  } db
0580: 32 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 74  2.} {}.do_test t
0590: 6b 74 32 38 35 34 2d 31 2e 33 20 7b 0a 20 20 63  kt2854-1.3 {.  c
05a0: 61 74 63 68 73 71 6c 20 7b 20 42 45 47 49 4e 20  atchsql { BEGIN 
05b0: 45 58 43 4c 55 53 49 56 45 20 7d 20 64 62 0a 7d  EXCLUSIVE } db.}
05c0: 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 74 61   {1 {database ta
05d0: 62 6c 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a  ble is locked}}.
05e0: 64 6f 5f 74 65 73 74 20 74 6b 74 32 38 35 34 2d  do_test tkt2854-
05f0: 31 2e 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  1.4 {.  execsql 
0600: 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20  { SELECT * FROM 
0610: 61 62 63 20 7d 20 64 62 33 0a 7d 20 7b 7d 0a 64  abc } db3.} {}.d
0620: 6f 5f 74 65 73 74 20 74 6b 74 32 38 35 34 2d 31  o_test tkt2854-1
0630: 2e 35 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  .5 {.  catchsql 
0640: 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62  { INSERT INTO ab
0650: 63 20 56 41 4c 55 45 53 28 31 2c 20 32 2c 20 33  c VALUES(1, 2, 3
0660: 29 20 7d 20 64 62 33 0a 7d 20 7b 31 20 7b 64 61  ) } db3.} {1 {da
0670: 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64  tabase is locked
0680: 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 6b 74 32 38  }}.do_test tkt28
0690: 35 34 2d 31 2e 36 20 7b 0a 20 20 65 78 65 63 73  54-1.6 {.  execs
06a0: 71 6c 20 7b 20 43 4f 4d 4d 49 54 20 7d 20 64 62  ql { COMMIT } db
06b0: 32 0a 7d 20 7b 7d 0a 0a 23 20 43 68 65 63 6b 20  2.} {}..# Check 
06c0: 74 68 61 74 20 61 6e 20 65 78 63 6c 75 73 69 76  that an exclusiv
06d0: 65 20 6c 6f 63 6b 20 70 72 65 76 65 6e 74 73 20  e lock prevents 
06e0: 6f 74 68 65 72 20 73 68 61 72 65 64 2d 63 61 63  other shared-cac
06f0: 68 65 20 75 73 65 72 73 20 66 72 6f 6d 0a 23 20  he users from.# 
0700: 73 74 61 72 74 69 6e 67 20 61 20 74 72 61 6e 73  starting a trans
0710: 61 63 74 69 6f 6e 2e 0a 23 0a 64 6f 5f 74 65 73  action..#.do_tes
0720: 74 20 74 6b 74 32 38 35 34 2d 31 2e 37 20 7b 0a  t tkt2854-1.7 {.
0730: 20 20 73 65 74 20 3a 3a 44 42 32 20 5b 73 71 6c    set ::DB2 [sql
0740: 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f  ite3_connection_
0750: 70 6f 69 6e 74 65 72 20 64 62 32 5d 0a 20 20 73  pointer db2].  s
0760: 65 74 20 3a 3a 53 54 4d 54 31 20 5b 73 71 6c 69  et ::STMT1 [sqli
0770: 74 65 33 5f 70 72 65 70 61 72 65 20 24 44 42 32  te3_prepare $DB2
0780: 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   "SELECT * FROM 
0790: 61 62 63 22 20 2d 31 20 54 41 49 4c 5d 0a 20 20  abc" -1 TAIL].  
07a0: 73 65 74 20 3a 3a 53 54 4d 54 32 20 5b 73 71 6c  set ::STMT2 [sql
07b0: 69 74 65 33 5f 70 72 65 70 61 72 65 20 24 44 42  ite3_prepare $DB
07c0: 32 20 22 42 45 47 49 4e 20 45 58 43 4c 55 53 49  2 "BEGIN EXCLUSI
07d0: 56 45 22 20 2d 31 20 54 41 49 4c 5d 0a 20 20 73  VE" -1 TAIL].  s
07e0: 65 74 20 3a 3a 53 54 4d 54 33 20 5b 73 71 6c 69  et ::STMT3 [sqli
07f0: 74 65 33 5f 70 72 65 70 61 72 65 20 24 44 42 32  te3_prepare $DB2
0800: 20 22 42 45 47 49 4e 20 49 4d 4d 45 44 49 41 54   "BEGIN IMMEDIAT
0810: 45 22 20 2d 31 20 54 41 49 4c 5d 0a 20 20 73 65  E" -1 TAIL].  se
0820: 74 20 3a 3a 53 54 4d 54 34 20 5b 73 71 6c 69 74  t ::STMT4 [sqlit
0830: 65 33 5f 70 72 65 70 61 72 65 20 24 44 42 32 20  e3_prepare $DB2 
0840: 22 42 45 47 49 4e 22 20 2d 31 20 54 41 49 4c 5d  "BEGIN" -1 TAIL]
0850: 0a 20 20 73 65 74 20 3a 3a 53 54 4d 54 35 20 5b  .  set ::STMT5 [
0860: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20  sqlite3_prepare 
0870: 24 44 42 32 20 22 43 4f 4d 4d 49 54 22 20 2d 31  $DB2 "COMMIT" -1
0880: 20 54 41 49 4c 5d 0a 20 20 65 78 65 63 73 71 6c   TAIL].  execsql
0890: 20 7b 20 42 45 47 49 4e 20 45 58 43 4c 55 53 49   { BEGIN EXCLUSI
08a0: 56 45 20 7d 20 64 62 0a 7d 20 7b 7d 0a 64 6f 5f  VE } db.} {}.do_
08b0: 74 65 73 74 20 74 6b 74 32 38 35 34 2d 31 2e 38  test tkt2854-1.8
08c0: 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 20   {.  catchsql { 
08d0: 42 45 47 49 4e 20 45 58 43 4c 55 53 49 56 45 20  BEGIN EXCLUSIVE 
08e0: 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61 74 61  } db2.} {1 {data
08f0: 62 61 73 65 20 73 63 68 65 6d 61 20 69 73 20 6c  base schema is l
0900: 6f 63 6b 65 64 3a 20 6d 61 69 6e 7d 7d 0a 64 6f  ocked: main}}.do
0910: 5f 74 65 73 74 20 74 6b 74 32 38 35 34 2d 31 2e  _test tkt2854-1.
0920: 39 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  9 {.  catchsql {
0930: 20 42 45 47 49 4e 20 49 4d 4d 45 44 49 41 54 45   BEGIN IMMEDIATE
0940: 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61 74   } db2.} {1 {dat
0950: 61 62 61 73 65 20 73 63 68 65 6d 61 20 69 73 20  abase schema is 
0960: 6c 6f 63 6b 65 64 3a 20 6d 61 69 6e 7d 7d 0a 64  locked: main}}.d
0970: 6f 5f 74 65 73 74 20 74 6b 74 32 38 35 34 2d 31  o_test tkt2854-1
0980: 2e 31 30 20 7b 0a 20 20 23 20 54 68 69 73 20 66  .10 {.  # This f
0990: 61 69 6c 73 20 62 65 63 61 75 73 65 20 74 68 65  ails because the
09a0: 20 73 63 68 65 6d 61 20 6f 66 20 6d 61 69 6e 20   schema of main 
09b0: 63 61 6e 6e 6f 74 20 62 65 20 76 65 72 69 66 69  cannot be verifi
09c0: 65 64 2e 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  ed..  catchsql {
09d0: 20 42 45 47 49 4e 20 7d 20 64 62 32 0a 7d 20 7b   BEGIN } db2.} {
09e0: 31 20 7b 64 61 74 61 62 61 73 65 20 73 63 68 65  1 {database sche
09f0: 6d 61 20 69 73 20 6c 6f 63 6b 65 64 3a 20 6d 61  ma is locked: ma
0a00: 69 6e 7d 7d 0a 0a 23 20 43 68 65 63 6b 20 74 68  in}}..# Check th
0a10: 61 74 20 61 6e 20 65 78 63 6c 75 73 69 76 65 20  at an exclusive 
0a20: 6c 6f 63 6b 20 70 72 65 76 65 6e 74 73 20 6f 74  lock prevents ot
0a30: 68 65 72 20 73 68 61 72 65 64 2d 63 61 63 68 65  her shared-cache
0a40: 20 75 73 65 72 73 20 66 72 6f 6d 0a 23 20 72 65   users from.# re
0a50: 61 64 69 6e 67 20 74 68 65 20 64 61 74 61 62 61  ading the databa
0a60: 73 65 2e 20 55 73 65 20 73 74 6f 72 65 64 20 73  se. Use stored s
0a70: 74 61 74 65 6d 65 6e 74 73 20 73 6f 20 74 68 61  tatements so tha
0a80: 74 20 74 68 65 20 65 72 72 6f 72 20 6f 63 63 75  t the error occu
0a90: 72 73 0a 23 20 61 74 20 74 68 65 20 62 2d 74 72  rs.# at the b-tr
0aa0: 65 65 20 6c 65 76 65 6c 2c 20 6e 6f 74 20 74 68  ee level, not th
0ab0: 65 20 73 63 68 65 6d 61 20 6c 65 76 65 6c 2e 0a  e schema level..
0ac0: 23 0a 64 6f 5f 74 65 73 74 20 74 6b 74 32 38 35  #.do_test tkt285
0ad0: 34 2d 31 2e 31 31 20 7b 0a 20 20 6c 69 73 74 20  4-1.11 {.  list 
0ae0: 5b 73 71 6c 69 74 65 33 5f 73 74 65 70 20 24 3a  [sqlite3_step $:
0af0: 3a 53 54 4d 54 31 5d 20 5b 73 71 6c 69 74 65 33  :STMT1] [sqlite3
0b00: 5f 66 69 6e 61 6c 69 7a 65 20 24 3a 3a 53 54 4d  _finalize $::STM
0b10: 54 31 5d 0a 7d 20 7b 53 51 4c 49 54 45 5f 45 52  T1].} {SQLITE_ER
0b20: 52 4f 52 20 53 51 4c 49 54 45 5f 4c 4f 43 4b 45  ROR SQLITE_LOCKE
0b30: 44 7d 0a 64 6f 5f 74 65 73 74 20 74 6b 74 32 38  D}.do_test tkt28
0b40: 35 34 2d 31 2e 31 32 20 7b 0a 20 20 6c 69 73 74  54-1.12 {.  list
0b50: 20 5b 73 71 6c 69 74 65 33 5f 73 74 65 70 20 24   [sqlite3_step $
0b60: 3a 3a 53 54 4d 54 32 5d 20 5b 73 71 6c 69 74 65  ::STMT2] [sqlite
0b70: 33 5f 66 69 6e 61 6c 69 7a 65 20 24 3a 3a 53 54  3_finalize $::ST
0b80: 4d 54 32 5d 0a 7d 20 7b 53 51 4c 49 54 45 5f 45  MT2].} {SQLITE_E
0b90: 52 52 4f 52 20 53 51 4c 49 54 45 5f 4c 4f 43 4b  RROR SQLITE_LOCK
0ba0: 45 44 7d 0a 64 6f 5f 74 65 73 74 20 74 6b 74 32  ED}.do_test tkt2
0bb0: 38 35 34 2d 31 2e 31 33 20 7b 0a 20 20 6c 69 73  854-1.13 {.  lis
0bc0: 74 20 5b 73 71 6c 69 74 65 33 5f 73 74 65 70 20  t [sqlite3_step 
0bd0: 24 3a 3a 53 54 4d 54 33 5d 20 5b 73 71 6c 69 74  $::STMT3] [sqlit
0be0: 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 3a 3a 53  e3_finalize $::S
0bf0: 54 4d 54 33 5d 0a 7d 20 7b 53 51 4c 49 54 45 5f  TMT3].} {SQLITE_
0c00: 45 52 52 4f 52 20 53 51 4c 49 54 45 5f 4c 4f 43  ERROR SQLITE_LOC
0c10: 4b 45 44 7d 0a 64 6f 5f 74 65 73 74 20 74 6b 74  KED}.do_test tkt
0c20: 32 38 35 34 2d 31 2e 31 34 20 7b 0a 20 20 23 20  2854-1.14 {.  # 
0c30: 41 20 72 65 67 75 6c 61 72 20 22 42 45 47 49 4e  A regular "BEGIN
0c40: 22 20 64 6f 65 73 6e 27 74 20 74 6f 75 63 68 20  " doesn't touch 
0c50: 61 6e 79 20 64 61 74 61 62 61 73 65 73 2e 20 53  any databases. S
0c60: 6f 20 69 74 20 73 75 63 63 65 65 64 73 2e 0a 20  o it succeeds.. 
0c70: 20 6c 69 73 74 20 5b 73 71 6c 69 74 65 33 5f 73   list [sqlite3_s
0c80: 74 65 70 20 24 3a 3a 53 54 4d 54 34 5d 20 5b 73  tep $::STMT4] [s
0c90: 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20  qlite3_finalize 
0ca0: 24 3a 3a 53 54 4d 54 34 5d 0a 7d 20 7b 53 51 4c  $::STMT4].} {SQL
0cb0: 49 54 45 5f 44 4f 4e 45 20 53 51 4c 49 54 45 5f  ITE_DONE SQLITE_
0cc0: 4f 4b 7d 0a 64 6f 5f 74 65 73 74 20 74 6b 74 32  OK}.do_test tkt2
0cd0: 38 35 34 2d 31 2e 31 35 20 7b 0a 20 20 23 20 41  854-1.15 {.  # A
0ce0: 73 20 64 6f 65 73 20 61 20 43 4f 4d 4d 49 54 2e  s does a COMMIT.
0cf0: 0a 20 20 6c 69 73 74 20 5b 73 71 6c 69 74 65 33  .  list [sqlite3
0d00: 5f 73 74 65 70 20 24 3a 3a 53 54 4d 54 35 5d 20  _step $::STMT5] 
0d10: 5b 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a  [sqlite3_finaliz
0d20: 65 20 24 3a 3a 53 54 4d 54 35 5d 0a 7d 20 7b 53  e $::STMT5].} {S
0d30: 51 4c 49 54 45 5f 44 4f 4e 45 20 53 51 4c 49 54  QLITE_DONE SQLIT
0d40: 45 5f 4f 4b 7d 0a 0a 23 20 54 72 79 20 74 6f 20  E_OK}..# Try to 
0d50: 72 65 61 64 20 74 68 65 20 64 61 74 61 62 61 73  read the databas
0d60: 65 20 75 73 69 6e 67 20 63 6f 6e 6e 65 63 74 69  e using connecti
0d70: 6f 6e 20 22 64 62 33 22 20 28 77 68 69 63 68 20  on "db3" (which 
0d80: 64 6f 65 73 20 6e 6f 74 20 73 68 61 72 65 0a 23  does not share.#
0d90: 20 61 20 63 61 63 68 65 20 77 69 74 68 20 22 64   a cache with "d
0da0: 62 22 29 2e 20 54 68 65 20 64 61 74 61 62 61 73  b"). The databas
0db0: 65 20 73 68 6f 75 6c 64 20 62 65 20 6c 6f 63 6b  e should be lock
0dc0: 65 64 2e 0a 64 6f 5f 74 65 73 74 20 74 6b 74 32  ed..do_test tkt2
0dd0: 38 35 34 2d 31 2e 31 36 20 7b 0a 20 20 63 61 74  854-1.16 {.  cat
0de0: 63 68 73 71 6c 20 7b 20 53 45 4c 45 43 54 20 2a  chsql { SELECT *
0df0: 20 46 52 4f 4d 20 61 62 63 20 7d 20 64 62 33 0a   FROM abc } db3.
0e00: 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 69  } {1 {database i
0e10: 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64 6f 5f 74 65  s locked}}.do_te
0e20: 73 74 20 74 6b 74 32 38 35 34 2d 31 2e 31 37 20  st tkt2854-1.17 
0e30: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 43 4f  {.  execsql { CO
0e40: 4d 4d 49 54 20 7d 20 64 62 0a 7d 20 7b 7d 0a 64  MMIT } db.} {}.d
0e50: 6f 5f 74 65 73 74 20 74 6b 74 32 38 35 34 2d 31  o_test tkt2854-1
0e60: 2e 31 38 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  .18 {.  execsql 
0e70: 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20  { SELECT * FROM 
0e80: 61 62 63 20 7d 20 64 62 32 0a 7d 20 7b 7d 0a 0a  abc } db2.} {}..
0e90: 23 20 43 68 65 63 6b 20 74 68 61 74 20 69 66 20  # Check that if 
0ea0: 61 6e 20 61 74 74 65 6d 70 74 20 74 6f 20 6f 62  an attempt to ob
0eb0: 74 61 69 6e 20 61 6e 20 65 78 63 6c 75 73 69 76  tain an exclusiv
0ec0: 65 20 6c 6f 63 6b 20 66 61 69 6c 73 20 62 65 63  e lock fails bec
0ed0: 61 75 73 65 20 61 6e 0a 23 20 61 74 74 61 63 68  ause an.# attach
0ee0: 65 64 20 64 62 20 63 61 6e 6e 6f 74 20 62 65 20  ed db cannot be 
0ef0: 6c 6f 63 6b 65 64 2c 20 74 68 65 20 69 6e 74 65  locked, the inte
0f00: 72 6e 61 6c 20 65 78 63 6c 75 73 69 76 65 20 66  rnal exclusive f
0f10: 6c 61 67 20 75 73 65 64 20 62 79 0a 23 20 73 68  lag used by.# sh
0f20: 61 72 65 64 2d 63 61 63 68 65 20 75 73 65 72 73  ared-cache users
0f30: 20 69 73 20 63 6f 72 72 65 63 74 6c 79 20 63 6c   is correctly cl
0f40: 65 61 72 65 64 2e 0a 64 6f 5f 74 65 73 74 20 74  eared..do_test t
0f50: 6b 74 32 38 35 34 2d 31 2e 31 39 20 7b 0a 20 20  kt2854-1.19 {.  
0f60: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
0f70: 63 65 20 74 65 73 74 32 2e 64 62 20 74 65 73 74  ce test2.db test
0f80: 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20 73  2.db-journal.  s
0f90: 71 6c 69 74 65 33 20 64 62 34 20 74 65 73 74 32  qlite3 db4 test2
0fa0: 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 20  .db.  execsql { 
0fb0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 64 65 66  CREATE TABLE def
0fc0: 28 64 2c 20 65 2c 20 66 29 20 7d 20 64 62 34 0a  (d, e, f) } db4.
0fd0: 20 20 65 78 65 63 73 71 6c 20 7b 20 41 54 54 41    execsql { ATTA
0fe0: 43 48 20 27 74 65 73 74 32 2e 64 62 27 20 41 53  CH 'test2.db' AS
0ff0: 20 61 75 78 20 7d 20 64 62 0a 7d 20 7b 7d 0a 64   aux } db.} {}.d
1000: 6f 5f 74 65 73 74 20 74 6b 74 32 38 35 34 2d 31  o_test tkt2854-1
1010: 2e 32 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  .20 {.  execsql 
1020: 7b 42 45 47 49 4e 20 49 4d 4d 45 44 49 41 54 45  {BEGIN IMMEDIATE
1030: 7d 20 64 62 34 0a 20 20 63 61 74 63 68 73 71 6c  } db4.  catchsql
1040: 20 7b 42 45 47 49 4e 20 45 58 43 4c 55 53 49 56   {BEGIN EXCLUSIV
1050: 45 7d 20 64 62 0a 7d 20 7b 31 20 7b 64 61 74 61  E} db.} {1 {data
1060: 62 61 73 65 20 74 61 62 6c 65 20 69 73 20 6c 6f  base table is lo
1070: 63 6b 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 74  cked}}.do_test t
1080: 6b 74 32 38 35 34 2d 31 2e 32 31 20 7b 0a 20 20  kt2854-1.21 {.  
1090: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
10a0: 2a 20 46 52 4f 4d 20 61 62 63 7d 20 64 62 32 0a  * FROM abc} db2.
10b0: 7d 20 7b 7d 0a 0a 64 62 20 63 6c 6f 73 65 0a 64  } {}..db close.d
10c0: 62 32 20 63 6c 6f 73 65 0a 64 62 33 20 63 6c 6f  b2 close.db3 clo
10d0: 73 65 0a 64 62 34 20 63 6c 6f 73 65 0a 73 71 6c  se.db4 close.sql
10e0: 69 74 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72  ite3_enable_shar
10f0: 65 64 5f 63 61 63 68 65 20 24 3a 3a 65 6e 61 62  ed_cache $::enab
1100: 6c 65 5f 73 68 61 72 65 64 5f 63 61 63 68 65 0a  le_shared_cache.
1110: 66 69 6e 69 73 68 5f 74 65 73 74 0a              finish_test.