/ Hex Artifact Content
Login

Artifact 3f27bca85ba3c032c346f895d42d4110cb5288e6:


0000: 23 20 32 30 30 35 20 44 65 63 65 6d 62 65 72 20  # 2005 December 
0010: 33 30 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f  30.#.# 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 73 68 61 72 65 64 2e 74 65 73 74 2c 76 20  : shared.test,v 
0180: 31 2e 32 37 20 32 30 30 37 2f 30 39 2f 31 32 20  1.27 2007/09/12 
0190: 31 37 3a 30 31 3a 34 35 20 64 61 6e 69 65 6c 6b  17:01:45 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 66 6f 72 65 61 63 68 20 61 76 20 5b 6c 69  ..foreach av [li
0270: 73 74 20 30 20 31 5d 20 7b 0a 0a 23 20 4f 70 65  st 0 1] {..# Ope
0280: 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 20 63  n the database c
0290: 6f 6e 6e 65 63 74 69 6f 6e 20 61 6e 64 20 65 78  onnection and ex
02a0: 65 63 75 74 65 20 74 68 65 20 61 75 74 6f 2d 76  ecute the auto-v
02b0: 61 63 75 75 6d 20 70 72 61 67 6d 61 0a 66 69 6c  acuum pragma.fil
02c0: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
02d0: 74 65 73 74 2e 64 62 0a 73 71 6c 69 74 65 33 20  test.db.sqlite3 
02e0: 64 62 20 74 65 73 74 2e 64 62 0a 0a 69 66 63 61  db test.db..ifca
02f0: 70 61 62 6c 65 20 61 75 74 6f 76 61 63 75 75 6d  pable autovacuum
0300: 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 73 68 61   {.  do_test sha
0310: 72 65 64 2d 5b 65 78 70 72 20 24 61 76 2b 31 5d  red-[expr $av+1]
0320: 2e 31 2e 30 20 7b 0a 20 20 20 20 65 78 65 63 73  .1.0 {.    execs
0330: 71 6c 20 22 70 72 61 67 6d 61 20 61 75 74 6f 5f  ql "pragma auto_
0340: 76 61 63 75 75 6d 3d 24 3a 3a 61 76 22 0a 20 20  vacuum=$::av".  
0350: 20 20 65 78 65 63 73 71 6c 20 7b 70 72 61 67 6d    execsql {pragm
0360: 61 20 61 75 74 6f 5f 76 61 63 75 75 6d 7d 0a 20  a auto_vacuum}. 
0370: 20 7d 20 22 24 61 76 22 0a 7d 20 65 6c 73 65 20   } "$av".} else 
0380: 7b 0a 20 20 69 66 20 7b 24 61 76 7d 20 7b 0a 20  {.  if {$av} {. 
0390: 20 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 20 20     db close.    
03a0: 62 72 65 61 6b 0a 20 20 7d 0a 7d 0a 0a 23 20 24  break.  }.}..# $
03b0: 61 76 20 69 73 20 63 75 72 72 65 6e 74 6c 79 20  av is currently 
03c0: 30 20 69 66 20 74 68 69 73 20 6c 6f 6f 70 20 69  0 if this loop i
03d0: 74 65 72 61 74 69 6f 6e 20 69 73 20 74 6f 20 74  teration is to t
03e0: 65 73 74 20 77 69 74 68 20 61 75 74 6f 2d 76 61  est with auto-va
03f0: 63 75 75 6d 20 74 75 72 6e 65 64 0a 23 20 6f 66  cuum turned.# of
0400: 66 2c 20 61 6e 64 20 31 20 69 66 20 69 74 20 69  f, and 1 if it i
0410: 73 20 74 75 72 6e 65 64 20 6f 6e 2e 20 49 6e 63  s turned on. Inc
0420: 72 65 6d 65 6e 74 20 69 74 20 73 6f 20 74 68 61  rement it so tha
0430: 74 20 28 31 20 2d 3e 20 6e 6f 20 61 75 74 6f 2d  t (1 -> no auto-
0440: 76 61 63 75 75 6d 29 20 0a 23 20 61 6e 64 20 28  vacuum) .# and (
0450: 32 20 2d 3e 20 61 75 74 6f 2d 76 61 63 75 75 6d  2 -> auto-vacuum
0460: 29 2e 20 54 68 65 20 73 6f 6c 65 20 72 65 61 73  ). The sole reas
0470: 6f 6e 20 66 6f 72 20 74 68 69 73 20 69 73 20 73  on for this is s
0480: 6f 20 74 68 61 74 20 69 74 20 6c 6f 6f 6b 73 20  o that it looks 
0490: 6e 69 63 65 72 0a 23 20 77 68 65 6e 20 77 65 20  nicer.# when we 
04a0: 75 73 65 20 74 68 69 73 20 76 61 72 69 61 62 6c  use this variabl
04b0: 65 20 61 73 20 70 61 72 74 20 6f 66 20 74 65 73  e as part of tes
04c0: 74 2d 63 61 73 65 20 6e 61 6d 65 73 2e 0a 23 0a  t-case names..#.
04d0: 69 6e 63 72 20 61 76 0a 0a 23 20 54 65 73 74 20  incr av..# Test 
04e0: 6f 72 67 61 6e 69 7a 61 74 69 6f 6e 3a 0a 23 0a  organization:.#.
04f0: 23 20 73 68 61 72 65 64 2d 31 2e 2a 3a 20 53 69  # shared-1.*: Si
0500: 6d 70 6c 65 20 74 65 73 74 20 74 6f 20 76 65 72  mple test to ver
0510: 69 66 79 20 62 61 73 69 63 20 73 61 6e 69 74 79  ify basic sanity
0520: 20 6f 66 20 74 61 62 6c 65 20 6c 65 76 65 6c 20   of table level 
0530: 6c 6f 63 6b 69 6e 67 20 77 68 65 6e 0a 23 20 20  locking when.#  
0540: 20 20 20 20 20 20 20 20 20 20 20 74 77 6f 20 63             two c
0550: 6f 6e 6e 65 63 74 69 6f 6e 73 20 73 68 61 72 65  onnections share
0560: 20 61 20 70 61 67 65 72 20 63 61 63 68 65 2e 0a   a pager cache..
0570: 23 20 73 68 61 72 65 64 2d 32 2e 2a 3a 20 54 65  # shared-2.*: Te
0580: 73 74 20 74 68 61 74 20 61 20 72 65 61 64 20 74  st that a read t
0590: 72 61 6e 73 61 63 74 69 6f 6e 20 63 61 6e 20 63  ransaction can c
05a0: 6f 2d 65 78 69 73 74 20 77 69 74 68 20 61 20 0a  o-exist with a .
05b0: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72  #             wr
05c0: 69 74 65 2d 74 72 61 6e 73 61 63 74 69 6f 6e 2c  ite-transaction,
05d0: 20 69 6e 63 6c 75 64 69 6e 67 20 61 20 73 69 6d   including a sim
05e0: 70 6c 65 20 74 65 73 74 20 74 6f 20 65 6e 73 75  ple test to ensu
05f0: 72 65 20 74 68 65 20 0a 23 20 20 20 20 20 20 20  re the .#       
0600: 20 20 20 20 20 20 65 78 74 65 72 6e 61 6c 20 6c        external l
0610: 6f 63 6b 69 6e 67 20 70 72 6f 74 6f 63 6f 6c 20  ocking protocol 
0620: 69 73 20 73 74 69 6c 6c 20 77 6f 72 6b 69 6e 67  is still working
0630: 2e 0a 23 20 73 68 61 72 65 64 2d 33 2e 2a 3a 20  ..# shared-3.*: 
0640: 53 69 6d 70 6c 65 20 74 65 73 74 20 6f 66 20 72  Simple test of r
0650: 65 61 64 2d 75 6e 63 6f 6d 6d 69 74 74 65 64 20  ead-uncommitted 
0660: 6d 6f 64 65 2e 0a 23 20 73 68 61 72 65 64 2d 34  mode..# shared-4
0670: 2e 2a 3a 20 43 68 65 63 6b 20 74 68 61 74 20 74  .*: Check that t
0680: 68 65 20 73 63 68 65 6d 61 20 69 73 20 6c 6f 63  he schema is loc
0690: 6b 65 64 20 61 6e 64 20 75 6e 6c 6f 63 6b 65 64  ked and unlocked
06a0: 20 63 6f 72 72 65 63 74 6c 79 2e 0a 23 20 73 68   correctly..# sh
06b0: 61 72 65 64 2d 35 2e 2a 3a 20 54 65 73 74 20 74  ared-5.*: Test t
06c0: 68 61 74 20 63 72 65 61 74 69 6e 67 2f 64 72 6f  hat creating/dro
06d0: 70 70 69 6e 67 20 73 63 68 65 6d 61 20 69 74 65  pping schema ite
06e0: 6d 73 20 77 6f 72 6b 73 20 77 68 65 6e 20 64 61  ms works when da
06f0: 74 61 62 61 73 65 73 0a 23 20 20 20 20 20 20 20  tabases.#       
0700: 20 20 20 20 20 20 61 72 65 20 61 74 74 61 63 68        are attach
0710: 65 64 20 69 6e 20 64 69 66 66 65 72 65 6e 74 20  ed in different 
0720: 6f 72 64 65 72 73 20 74 6f 20 64 69 66 66 65 72  orders to differ
0730: 65 6e 74 20 68 61 6e 64 6c 65 73 2e 0a 23 20 73  ent handles..# s
0740: 68 61 72 65 64 2d 36 2e 2a 3a 20 4c 6f 63 6b 69  hared-6.*: Locki
0750: 6e 67 2c 20 55 4e 49 4f 4e 20 41 4c 4c 20 71 75  ng, UNION ALL qu
0760: 65 72 69 65 73 20 61 6e 64 20 73 75 62 2d 71 75  eries and sub-qu
0770: 65 72 69 65 73 2e 0a 23 20 73 68 61 72 65 64 2d  eries..# shared-
0780: 37 2e 2a 3a 20 41 75 74 6f 76 61 63 75 75 6d 20  7.*: Autovacuum 
0790: 61 6e 64 20 73 68 61 72 65 64 2d 63 61 63 68 65  and shared-cache
07a0: 2e 0a 23 20 73 68 61 72 65 64 2d 38 2e 2a 3a 20  ..# shared-8.*: 
07b0: 54 65 73 74 73 20 72 65 6c 61 74 65 64 20 74 6f  Tests related to
07c0: 20 74 68 65 20 74 65 78 74 20 65 6e 63 6f 64 69   the text encodi
07d0: 6e 67 20 6f 66 20 73 68 61 72 65 64 2d 63 61 63  ng of shared-cac
07e0: 68 65 20 64 61 74 61 62 61 73 65 73 2e 0a 23 20  he databases..# 
07f0: 73 68 61 72 65 64 2d 39 2e 2a 3a 20 54 45 4d 50  shared-9.*: TEMP
0800: 20 74 72 69 67 67 65 72 73 20 61 6e 64 20 73 68   triggers and sh
0810: 61 72 65 64 2d 63 61 63 68 65 20 64 61 74 61 62  ared-cache datab
0820: 61 73 65 73 2e 0a 23 20 73 68 61 72 65 64 2d 31  ases..# shared-1
0830: 30 2e 2a 3a 20 54 65 73 74 73 20 6f 66 20 73 71  0.*: Tests of sq
0840: 6c 69 74 65 33 5f 63 6c 6f 73 65 28 29 2e 0a 23  lite3_close()..#
0850: 20 73 68 61 72 65 64 2d 31 31 2e 2a 3a 20 54 65   shared-11.*: Te
0860: 73 74 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 6c  st transaction l
0870: 6f 63 6b 69 6e 67 2e 0a 23 0a 0a 64 6f 5f 74 65  ocking..#..do_te
0880: 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 31 2e  st shared-$av.1.
0890: 31 20 7b 0a 20 20 23 20 4f 70 65 6e 20 61 20 73  1 {.  # Open a s
08a0: 65 63 6f 6e 64 20 64 61 74 61 62 61 73 65 20 6f  econd database o
08b0: 6e 20 74 68 65 20 66 69 6c 65 20 74 65 73 74 2e  n the file test.
08c0: 64 62 2e 20 49 74 20 73 68 6f 75 6c 64 20 75 73  db. It should us
08d0: 65 20 74 68 65 20 73 61 6d 65 20 70 61 67 65 72  e the same pager
08e0: 0a 20 20 23 20 63 61 63 68 65 20 61 6e 64 20 73  .  # cache and s
08f0: 63 68 65 6d 61 20 61 73 20 74 68 65 20 6f 72 69  chema as the ori
0900: 67 69 6e 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e  ginal connection
0910: 2e 20 56 65 72 69 66 79 20 74 68 61 74 20 6f 6e  . Verify that on
0920: 6c 79 20 31 20 66 69 6c 65 20 69 73 20 0a 20 20  ly 1 file is .  
0930: 23 20 6f 70 65 6e 65 64 2e 0a 20 20 73 71 6c 69  # opened..  sqli
0940: 74 65 33 20 64 62 32 20 74 65 73 74 2e 64 62 0a  te3 db2 test.db.
0950: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 6f    set ::sqlite_o
0960: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 7d  pen_file_count.}
0970: 20 7b 31 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61   {1}.do_test sha
0980: 72 65 64 2d 24 61 76 2e 31 2e 32 20 7b 0a 20 20  red-$av.1.2 {.  
0990: 23 20 41 64 64 20 61 20 74 61 62 6c 65 20 61 6e  # Add a table an
09a0: 64 20 61 20 73 69 6e 67 6c 65 20 72 6f 77 20 6f  d a single row o
09b0: 66 20 64 61 74 61 20 76 69 61 20 74 68 65 20 66  f data via the f
09c0: 69 72 73 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e  irst connection.
09d0: 20 0a 20 20 23 20 45 6e 73 75 72 65 20 74 68 61   .  # Ensure tha
09e0: 74 20 74 68 65 20 73 65 63 6f 6e 64 20 63 6f 6e  t the second con
09f0: 6e 65 63 74 69 6f 6e 20 63 61 6e 20 73 65 65 20  nection can see 
0a00: 74 68 65 6d 2e 0a 20 20 65 78 65 63 73 71 6c 20  them..  execsql 
0a10: 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  {.    CREATE TAB
0a20: 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29 3b  LE abc(a, b, c);
0a30: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
0a40: 20 61 62 63 20 56 41 4c 55 45 53 28 31 2c 20 32   abc VALUES(1, 2
0a50: 2c 20 33 29 3b 0a 20 20 7d 20 64 62 0a 20 20 65  , 3);.  } db.  e
0a60: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c  xecsql {.    SEL
0a70: 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 3b 0a  ECT * FROM abc;.
0a80: 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 32 20 33    } db2.} {1 2 3
0a90: 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64  }.do_test shared
0aa0: 2d 24 61 76 2e 31 2e 33 20 7b 0a 20 20 23 20 48  -$av.1.3 {.  # H
0ab0: 61 76 65 20 74 68 65 20 66 69 72 73 74 20 63 6f  ave the first co
0ac0: 6e 6e 65 63 74 69 6f 6e 20 62 65 67 69 6e 20 61  nnection begin a
0ad0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 61 6e 64   transaction and
0ae0: 20 6f 62 74 61 69 6e 20 61 20 72 65 61 64 2d 6c   obtain a read-l
0af0: 6f 63 6b 0a 20 20 23 20 6f 6e 20 74 61 62 6c 65  ock.  # on table
0b00: 20 61 62 63 2e 20 54 68 69 73 20 73 68 6f 75 6c   abc. This shoul
0b10: 64 20 6e 6f 74 20 70 72 65 76 65 6e 74 20 74 68  d not prevent th
0b20: 65 20 73 65 63 6f 6e 64 20 63 6f 6e 6e 65 63 74  e second connect
0b30: 69 6f 6e 20 66 72 6f 6d 20 0a 20 20 23 20 71 75  ion from .  # qu
0b40: 65 72 79 69 6e 67 20 61 62 63 2e 0a 20 20 65 78  erying abc..  ex
0b50: 65 63 73 71 6c 20 7b 0a 20 20 20 20 42 45 47 49  ecsql {.    BEGI
0b60: 4e 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20  N;.    SELECT * 
0b70: 46 52 4f 4d 20 61 62 63 3b 0a 20 20 7d 0a 20 20  FROM abc;.  }.  
0b80: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45  execsql {.    SE
0b90: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 3b  LECT * FROM abc;
0ba0: 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 32 20  .  } db2.} {1 2 
0bb0: 33 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65  3}.do_test share
0bc0: 64 2d 24 61 76 2e 31 2e 34 20 7b 0a 20 20 23 20  d-$av.1.4 {.  # 
0bd0: 54 72 79 20 74 6f 20 69 6e 73 65 72 74 20 61 20  Try to insert a 
0be0: 72 6f 77 20 69 6e 74 6f 20 61 62 63 20 76 69 61  row into abc via
0bf0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 32 2e 20 54   connection 2. T
0c00: 68 69 73 20 73 68 6f 75 6c 64 20 66 61 69 6c 20  his should fail 
0c10: 62 65 63 61 75 73 65 0a 20 20 23 20 6f 66 20 74  because.  # of t
0c20: 68 65 20 72 65 61 64 2d 6c 6f 63 6b 20 63 6f 6e  he read-lock con
0c30: 6e 65 63 74 69 6f 6e 20 31 20 69 73 20 68 6f 6c  nection 1 is hol
0c40: 64 69 6e 67 20 6f 6e 20 74 61 62 6c 65 20 61 62  ding on table ab
0c50: 63 20 28 6f 62 74 61 69 6e 65 64 20 69 6e 20 74  c (obtained in t
0c60: 68 65 0a 20 20 23 20 70 72 65 76 69 6f 75 73 20  he.  # previous 
0c70: 74 65 73 74 20 63 61 73 65 29 2e 0a 20 20 63 61  test case)..  ca
0c80: 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53  tchsql {.    INS
0c90: 45 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c  ERT INTO abc VAL
0ca0: 55 45 53 28 34 2c 20 35 2c 20 36 29 3b 0a 20 20  UES(4, 5, 6);.  
0cb0: 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61 74 61  } db2.} {1 {data
0cc0: 62 61 73 65 20 74 61 62 6c 65 20 69 73 20 6c 6f  base table is lo
0cd0: 63 6b 65 64 3a 20 61 62 63 7d 7d 0a 64 6f 5f 74  cked: abc}}.do_t
0ce0: 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 31  est shared-$av.1
0cf0: 2e 35 20 7b 0a 20 20 23 20 55 73 69 6e 67 20 63  .5 {.  # Using c
0d00: 6f 6e 6e 65 63 74 69 6f 6e 20 32 20 28 74 68 65  onnection 2 (the
0d10: 20 6f 6e 65 20 77 69 74 68 6f 75 74 20 74 68 65   one without the
0d20: 20 6f 70 65 6e 20 74 72 61 6e 73 61 63 74 69 6f   open transactio
0d30: 6e 29 2c 20 74 72 79 20 74 6f 20 63 72 65 61 74  n), try to creat
0d40: 65 0a 20 20 23 20 61 20 6e 65 77 20 74 61 62 6c  e.  # a new tabl
0d50: 65 2e 20 54 68 69 73 20 73 68 6f 75 6c 64 20 66  e. This should f
0d60: 61 69 6c 20 62 65 63 61 75 73 65 20 6f 66 20 74  ail because of t
0d70: 68 65 20 6f 70 65 6e 20 72 65 61 64 20 74 72 61  he open read tra
0d80: 6e 73 61 63 74 69 6f 6e 20 0a 20 20 23 20 68 65  nsaction .  # he
0d90: 6c 64 20 62 79 20 63 6f 6e 6e 65 63 74 69 6f 6e  ld by connection
0da0: 20 31 2e 0a 20 20 63 61 74 63 68 73 71 6c 20 7b   1..  catchsql {
0db0: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
0dc0: 45 20 64 65 66 28 64 2c 20 65 2c 20 66 29 3b 0a  E def(d, e, f);.
0dd0: 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61    } db2.} {1 {da
0de0: 74 61 62 61 73 65 20 74 61 62 6c 65 20 69 73 20  tabase table is 
0df0: 6c 6f 63 6b 65 64 3a 20 73 71 6c 69 74 65 5f 6d  locked: sqlite_m
0e00: 61 73 74 65 72 7d 7d 0a 64 6f 5f 74 65 73 74 20  aster}}.do_test 
0e10: 73 68 61 72 65 64 2d 24 61 76 2e 31 2e 36 20 7b  shared-$av.1.6 {
0e20: 0a 20 20 23 20 55 70 67 72 61 64 65 20 63 6f 6e  .  # Upgrade con
0e30: 6e 65 63 74 69 6f 6e 20 31 27 73 20 74 72 61 6e  nection 1's tran
0e40: 73 61 63 74 69 6f 6e 20 74 6f 20 61 20 77 72 69  saction to a wri
0e50: 74 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 20  te transaction. 
0e60: 43 72 65 61 74 65 0a 20 20 23 20 61 20 6e 65 77  Create.  # a new
0e70: 20 74 61 62 6c 65 20 2d 20 64 65 66 20 2d 20 61   table - def - a
0e80: 6e 64 20 69 6e 73 65 72 74 20 61 20 72 6f 77 20  nd insert a row 
0e90: 69 6e 74 6f 20 69 74 2e 20 42 65 63 61 75 73 65  into it. Because
0ea0: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20   the connection 
0eb0: 31 0a 20 20 23 20 74 72 61 6e 73 61 63 74 69 6f  1.  # transactio
0ec0: 6e 20 6d 6f 64 69 66 69 65 73 20 74 68 65 20 73  n modifies the s
0ed0: 63 68 65 6d 61 2c 20 69 74 20 73 68 6f 75 6c 64  chema, it should
0ee0: 20 6e 6f 74 20 62 65 20 70 6f 73 73 69 62 6c 65   not be possible
0ef0: 20 66 6f 72 20 0a 20 20 23 20 63 6f 6e 6e 65 63   for .  # connec
0f00: 74 69 6f 6e 20 32 20 74 6f 20 61 63 63 65 73 73  tion 2 to access
0f10: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 61 74   the database at
0f20: 20 61 6c 6c 20 75 6e 74 69 6c 20 74 68 65 20 63   all until the c
0f30: 6f 6e 6e 65 63 74 69 6f 6e 20 31 20 0a 20 20 23  onnection 1 .  #
0f40: 20 68 61 73 20 66 69 6e 69 73 68 65 64 20 74 68   has finished th
0f50: 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 0a 20  e transaction.. 
0f60: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43   execsql {.    C
0f70: 52 45 41 54 45 20 54 41 42 4c 45 20 64 65 66 28  REATE TABLE def(
0f80: 64 2c 20 65 2c 20 66 29 3b 0a 20 20 20 20 49 4e  d, e, f);.    IN
0f90: 53 45 52 54 20 49 4e 54 4f 20 64 65 66 20 56 41  SERT INTO def VA
0fa0: 4c 55 45 53 28 27 49 56 27 2c 20 27 56 27 2c 20  LUES('IV', 'V', 
0fb0: 27 56 49 27 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a  'VI');.  }.} {}.
0fc0: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
0fd0: 61 76 2e 31 2e 37 20 7b 0a 20 20 23 20 52 65 61  av.1.7 {.  # Rea
0fe0: 64 20 66 72 6f 6d 20 74 68 65 20 73 71 6c 69 74  d from the sqlit
0ff0: 65 5f 6d 61 73 74 65 72 20 74 61 62 6c 65 20 77  e_master table w
1000: 69 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 31  ith connection 1
1010: 20 28 69 6e 73 69 64 65 20 74 68 65 20 0a 20 20   (inside the .  
1020: 23 20 74 72 61 6e 73 61 63 74 69 6f 6e 29 2e 20  # transaction). 
1030: 54 68 65 6e 20 74 65 73 74 20 74 68 61 74 20 77  Then test that w
1040: 65 20 63 61 6e 20 6e 6f 74 20 64 6f 20 74 68 69  e can not do thi
1050: 73 20 77 69 74 68 20 63 6f 6e 6e 65 63 74 69 6f  s with connectio
1060: 6e 20 32 2e 20 54 68 69 73 0a 20 20 23 20 69 73  n 2. This.  # is
1070: 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 65 20   because of the 
1080: 73 63 68 65 6d 61 2d 6d 6f 64 69 66 69 65 64 20  schema-modified 
1090: 6c 6f 63 6b 20 65 73 74 61 62 6c 69 73 68 65 64  lock established
10a0: 20 62 79 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 31   by connection 1
10b0: 20 0a 20 20 23 20 69 6e 20 74 68 65 20 70 72 65   .  # in the pre
10c0: 76 69 6f 75 73 20 74 65 73 74 20 63 61 73 65 2e  vious test case.
10d0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
10e0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73   SELECT * FROM s
10f0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20  qlite_master;.  
1100: 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20  }.  catchsql {. 
1110: 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d     SELECT * FROM
1120: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a   sqlite_master;.
1130: 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61    } db2.} {1 {da
1140: 74 61 62 61 73 65 20 73 63 68 65 6d 61 20 69 73  tabase schema is
1150: 20 6c 6f 63 6b 65 64 3a 20 6d 61 69 6e 7d 7d 0a   locked: main}}.
1160: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
1170: 61 76 2e 31 2e 38 20 7b 0a 20 20 23 20 43 6f 6d  av.1.8 {.  # Com
1180: 6d 69 74 20 74 68 65 20 63 6f 6e 6e 65 63 74 69  mit the connecti
1190: 6f 6e 20 31 20 74 72 61 6e 73 61 63 74 69 6f 6e  on 1 transaction
11a0: 2e 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  ..  execsql {.  
11b0: 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d 0a 7d 20    COMMIT;.  }.} 
11c0: 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20 73 68 61 72  {}..do_test shar
11d0: 65 64 2d 24 61 76 2e 32 2e 31 20 7b 0a 20 20 23  ed-$av.2.1 {.  #
11e0: 20 4f 70 65 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e   Open connection
11f0: 20 64 62 33 20 74 6f 20 74 68 65 20 64 61 74 61   db3 to the data
1200: 62 61 73 65 2e 20 55 73 65 20 61 20 64 69 66 66  base. Use a diff
1210: 65 72 65 6e 74 20 70 61 74 68 20 74 6f 20 74 68  erent path to th
1220: 65 20 73 61 6d 65 0a 20 20 23 20 66 69 6c 65 20  e same.  # file 
1230: 73 6f 20 74 68 61 74 20 64 62 33 20 64 6f 65 73  so that db3 does
1240: 20 2a 6e 6f 74 2a 20 73 68 61 72 65 20 74 68 65   *not* share the
1250: 20 73 61 6d 65 20 70 61 67 65 72 20 63 61 63 68   same pager cach
1260: 65 20 61 73 20 64 62 20 61 6e 64 20 64 62 32 0a  e as db and db2.
1270: 20 20 23 20 28 74 68 65 72 65 20 73 68 6f 75 6c    # (there shoul
1280: 64 20 62 65 20 74 77 6f 20 6f 70 65 6e 20 66 69  d be two open fi
1290: 6c 65 20 68 61 6e 64 6c 65 73 29 2e 0a 20 20 69  le handles)..  i
12a0: 66 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f  f {$::tcl_platfo
12b0: 72 6d 28 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 75  rm(platform)=="u
12c0: 6e 69 78 22 7d 20 7b 0a 20 20 20 20 73 71 6c 69  nix"} {.    sqli
12d0: 74 65 33 20 64 62 33 20 2e 2f 74 65 73 74 2e 64  te3 db3 ./test.d
12e0: 62 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  b.  } else {.   
12f0: 20 73 71 6c 69 74 65 33 20 64 62 33 20 54 45 53   sqlite3 db3 TES
1300: 54 2e 44 42 0a 20 20 7d 0a 20 20 73 65 74 20 3a  T.DB.  }.  set :
1310: 3a 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c  :sqlite_open_fil
1320: 65 5f 63 6f 75 6e 74 0a 7d 20 7b 32 7d 0a 64 6f  e_count.} {2}.do
1330: 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24 61 76  _test shared-$av
1340: 2e 32 2e 32 20 7b 0a 20 20 23 20 53 74 61 72 74  .2.2 {.  # Start
1350: 20 72 65 61 64 20 74 72 61 6e 73 61 63 74 69 6f   read transactio
1360: 6e 73 20 6f 6e 20 64 62 20 61 6e 64 20 64 62 32  ns on db and db2
1370: 20 28 74 68 65 20 73 68 61 72 65 64 20 70 61 67   (the shared pag
1380: 65 72 20 63 61 63 68 65 29 2e 20 45 6e 73 75 72  er cache). Ensur
1390: 65 0a 20 20 23 20 64 62 33 20 63 61 6e 6e 6f 74  e.  # db3 cannot
13a0: 20 77 72 69 74 65 20 74 6f 20 74 68 65 20 64 61   write to the da
13b0: 74 61 62 61 73 65 2e 0a 20 20 65 78 65 63 73 71  tabase..  execsq
13c0: 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20  l {.    BEGIN;. 
13d0: 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d     SELECT * FROM
13e0: 20 61 62 63 3b 0a 20 20 7d 0a 20 20 65 78 65 63   abc;.  }.  exec
13f0: 73 71 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e 3b  sql {.    BEGIN;
1400: 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52  .    SELECT * FR
1410: 4f 4d 20 61 62 63 3b 0a 20 20 7d 20 64 62 32 0a  OM abc;.  } db2.
1420: 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20    catchsql {.   
1430: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63   INSERT INTO abc
1440: 20 56 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29   VALUES(1, 2, 3)
1450: 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b  ;.  } db2.} {1 {
1460: 64 61 74 61 62 61 73 65 20 74 61 62 6c 65 20 69  database table i
1470: 73 20 6c 6f 63 6b 65 64 3a 20 61 62 63 7d 7d 0a  s locked: abc}}.
1480: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
1490: 61 76 2e 32 2e 33 20 7b 0a 20 20 23 20 54 75 72  av.2.3 {.  # Tur
14a0: 6e 20 64 62 27 73 20 74 72 61 6e 73 61 63 74 69  n db's transacti
14b0: 6f 6e 20 69 6e 74 6f 20 61 20 77 72 69 74 65 2d  on into a write-
14c0: 74 72 61 6e 73 61 63 74 69 6f 6e 2e 20 64 62 33  transaction. db3
14d0: 20 73 68 6f 75 6c 64 20 73 74 69 6c 6c 20 62 65   should still be
14e0: 0a 20 20 23 20 61 62 6c 65 20 74 6f 20 72 65 61  .  # able to rea
14f0: 64 20 66 72 6f 6d 20 74 61 62 6c 65 20 64 65 66  d from table def
1500: 20 28 62 75 74 20 77 69 6c 6c 20 6e 6f 74 20 73   (but will not s
1510: 65 65 20 74 68 65 20 6e 65 77 20 72 6f 77 29 2e  ee the new row).
1520: 20 43 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 23 20   Connection.  # 
1530: 64 62 32 20 73 68 6f 75 6c 64 20 6e 6f 74 20 62  db2 should not b
1540: 65 20 61 62 6c 65 20 74 6f 20 72 65 61 64 20 64  e able to read d
1550: 65 66 20 28 62 65 63 61 75 73 65 20 6f 66 20 74  ef (because of t
1560: 68 65 20 77 72 69 74 65 2d 6c 6f 63 6b 29 2e 0a  he write-lock)..
1570: 0a 23 20 54 6f 64 6f 3a 20 54 68 65 20 66 61 69  .# Todo: The fai
1580: 6c 65 64 20 22 49 4e 53 45 52 54 20 49 4e 54 4f  led "INSERT INTO
1590: 20 61 62 63 20 2e 2e 2e 22 20 73 74 61 74 65 6d   abc ..." statem
15a0: 65 6e 74 20 69 6e 20 74 68 65 20 61 62 6f 76 65  ent in the above
15b0: 20 74 65 73 74 0a 23 20 68 61 73 20 73 74 61 72   test.# has star
15c0: 74 65 64 20 61 20 77 72 69 74 65 2d 74 72 61 6e  ted a write-tran
15d0: 73 61 63 74 69 6f 6e 20 6f 6e 20 64 62 32 20 28  saction on db2 (
15e0: 73 68 6f 75 6c 64 20 74 68 69 73 20 62 65 20 73  should this be s
15f0: 6f 3f 29 2e 20 54 68 69 73 20 0a 23 20 77 6f 75  o?). This .# wou
1600: 6c 64 20 70 72 65 76 65 6e 74 20 63 6f 6e 6e 65  ld prevent conne
1610: 63 74 69 6f 6e 20 64 62 20 66 72 6f 6d 20 73 74  ction db from st
1620: 61 72 74 69 6e 67 20 61 20 77 72 69 74 65 2d 74  arting a write-t
1630: 72 61 6e 73 61 63 74 69 6f 6e 2e 20 53 6f 20 72  ransaction. So r
1640: 6f 6c 6c 20 74 68 65 0a 23 20 64 62 32 20 74 72  oll the.# db2 tr
1650: 61 6e 73 61 63 74 69 6f 6e 20 62 61 63 6b 20 61  ansaction back a
1660: 6e 64 20 72 65 70 6c 61 63 65 20 69 74 20 77 69  nd replace it wi
1670: 74 68 20 61 20 6e 65 77 20 72 65 61 64 20 74 72  th a new read tr
1680: 61 6e 73 61 63 74 69 6f 6e 2e 0a 20 20 65 78 65  ansaction..  exe
1690: 63 73 71 6c 20 7b 0a 20 20 20 20 52 4f 4c 4c 42  csql {.    ROLLB
16a0: 41 43 4b 3b 0a 20 20 20 20 42 45 47 49 4e 3b 0a  ACK;.    BEGIN;.
16b0: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
16c0: 4d 20 61 62 63 3b 0a 20 20 7d 20 64 62 32 0a 0a  M abc;.  } db2..
16d0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
16e0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 64 65 66 20  INSERT INTO def 
16f0: 56 41 4c 55 45 53 28 27 56 49 49 27 2c 20 27 56  VALUES('VII', 'V
1700: 49 49 49 27 2c 20 27 49 58 27 29 3b 0a 20 20 7d  III', 'IX');.  }
1710: 0a 20 20 63 6f 6e 63 61 74 20 5b 0a 20 20 20 20  .  concat [.    
1720: 63 61 74 63 68 73 71 6c 20 7b 20 53 45 4c 45 43  catchsql { SELEC
1730: 54 20 2a 20 46 52 4f 4d 20 64 65 66 3b 20 7d 20  T * FROM def; } 
1740: 64 62 33 0a 20 20 5d 20 5b 0a 20 20 20 20 63 61  db3.  ] [.    ca
1750: 74 63 68 73 71 6c 20 7b 20 53 45 4c 45 43 54 20  tchsql { SELECT 
1760: 2a 20 46 52 4f 4d 20 64 65 66 3b 20 7d 20 64 62  * FROM def; } db
1770: 32 0a 20 20 5d 0a 7d 20 7b 30 20 7b 49 56 20 56  2.  ].} {0 {IV V
1780: 20 56 49 7d 20 31 20 7b 64 61 74 61 62 61 73 65   VI} 1 {database
1790: 20 74 61 62 6c 65 20 69 73 20 6c 6f 63 6b 65 64   table is locked
17a0: 3a 20 64 65 66 7d 7d 0a 64 6f 5f 74 65 73 74 20  : def}}.do_test 
17b0: 73 68 61 72 65 64 2d 24 61 76 2e 32 2e 34 20 7b  shared-$av.2.4 {
17c0: 0a 20 20 23 20 43 6f 6d 6d 69 74 20 74 68 65 20  .  # Commit the 
17d0: 6f 70 65 6e 20 74 72 61 6e 73 61 63 74 69 6f 6e  open transaction
17e0: 20 6f 6e 20 64 62 2e 20 64 62 32 20 73 74 69 6c   on db. db2 stil
17f0: 6c 20 68 6f 6c 64 73 20 61 20 72 65 61 64 2d 74  l holds a read-t
1800: 72 61 6e 73 61 63 74 69 6f 6e 2e 0a 20 20 23 20  ransaction..  # 
1810: 54 68 69 73 20 73 68 6f 75 6c 64 20 70 72 65 76  This should prev
1820: 65 6e 74 20 64 62 33 20 66 72 6f 6d 20 77 72 69  ent db3 from wri
1830: 74 69 6e 67 20 74 6f 20 74 68 65 20 64 61 74 61  ting to the data
1840: 62 61 73 65 2c 20 62 75 74 20 6e 6f 74 20 66 72  base, but not fr
1850: 6f 6d 20 0a 20 20 23 20 72 65 61 64 69 6e 67 2e  om .  # reading.
1860: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
1870: 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d 0a 20 20 63   COMMIT;.  }.  c
1880: 6f 6e 63 61 74 20 5b 0a 20 20 20 20 63 61 74 63  oncat [.    catc
1890: 68 73 71 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20  hsql { SELECT * 
18a0: 46 52 4f 4d 20 64 65 66 3b 20 7d 20 64 62 33 0a  FROM def; } db3.
18b0: 20 20 5d 20 5b 0a 20 20 20 20 63 61 74 63 68 73    ] [.    catchs
18c0: 71 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f  ql { INSERT INTO
18d0: 20 64 65 66 20 56 41 4c 55 45 53 28 27 58 27 2c   def VALUES('X',
18e0: 20 27 58 49 27 2c 20 27 58 49 49 27 29 3b 20 7d   'XI', 'XII'); }
18f0: 20 64 62 33 0a 20 20 5d 0a 7d 20 7b 30 20 7b 49   db3.  ].} {0 {I
1900: 56 20 56 20 56 49 20 56 49 49 20 56 49 49 49 20  V V VI VII VIII 
1910: 49 58 7d 20 31 20 7b 64 61 74 61 62 61 73 65 20  IX} 1 {database 
1920: 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 0a 63 61 74  is locked}}..cat
1930: 63 68 73 71 6c 20 43 4f 4d 4d 49 54 20 64 62 32  chsql COMMIT db2
1940: 0a 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64  ..do_test shared
1950: 2d 24 61 76 2e 33 2e 31 2e 31 20 7b 0a 20 20 23  -$av.3.1.1 {.  #
1960: 20 54 68 69 73 20 74 65 73 74 20 63 61 73 65 20   This test case 
1970: 73 74 61 72 74 73 20 61 20 6c 69 6e 65 61 72 20  starts a linear 
1980: 73 63 61 6e 20 6f 66 20 74 61 62 6c 65 20 27 73  scan of table 's
1990: 65 71 27 20 75 73 69 6e 67 20 61 20 0a 20 20 23  eq' using a .  #
19a0: 20 72 65 61 64 2d 75 6e 63 6f 6d 6d 69 74 74 65   read-uncommitte
19b0: 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 49 6e  d connection. In
19c0: 20 74 68 65 20 6d 69 64 64 6c 65 20 6f 66 20 74   the middle of t
19d0: 68 65 20 73 63 61 6e 2c 20 72 6f 77 73 20 61 72  he scan, rows ar
19e0: 65 20 61 64 64 65 64 0a 20 20 23 20 74 6f 20 74  e added.  # to t
19f0: 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 73 65  he end of the se
1a00: 71 20 74 61 62 6c 65 20 28 61 68 65 61 64 20 6f  q table (ahead o
1a10: 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 63 75  f the current cu
1a20: 72 73 6f 72 20 70 6f 73 69 74 69 6f 6e 29 2e 0a  rsor position)..
1a30: 20 20 23 20 54 68 65 20 75 6e 63 6f 6d 6d 69 74    # The uncommit
1a40: 74 65 64 20 72 6f 77 73 20 73 68 6f 75 6c 64 20  ted rows should 
1a50: 62 65 20 69 6e 63 6c 75 64 65 64 20 69 6e 20 74  be included in t
1a60: 68 65 20 72 65 73 75 6c 74 73 20 6f 66 20 74 68  he results of th
1a70: 65 20 73 63 61 6e 2e 0a 20 20 65 78 65 63 73 71  e scan..  execsq
1a80: 6c 20 22 0a 20 20 20 20 43 52 45 41 54 45 20 54  l ".    CREATE T
1a90: 41 42 4c 45 20 73 65 71 28 69 20 50 52 49 4d 41  ABLE seq(i PRIMA
1aa0: 52 59 20 4b 45 59 2c 20 78 29 3b 0a 20 20 20 20  RY KEY, x);.    
1ab0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 73 65 71 20  INSERT INTO seq 
1ac0: 56 41 4c 55 45 53 28 31 2c 20 27 5b 73 74 72 69  VALUES(1, '[stri
1ad0: 6e 67 20 72 65 70 65 61 74 20 58 20 35 30 30 5d  ng repeat X 500]
1ae0: 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  ');.    INSERT I
1af0: 4e 54 4f 20 73 65 71 20 56 41 4c 55 45 53 28 32  NTO seq VALUES(2
1b00: 2c 20 27 5b 73 74 72 69 6e 67 20 72 65 70 65 61  , '[string repea
1b10: 74 20 58 20 35 30 30 5d 27 29 3b 0a 20 20 22 0a  t X 500]');.  ".
1b20: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
1b30: 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  T * FROM sqlite_
1b40: 6d 61 73 74 65 72 7d 20 64 62 32 0a 20 20 65 78  master} db2.  ex
1b50: 65 63 73 71 6c 20 7b 50 52 41 47 4d 41 20 72 65  ecsql {PRAGMA re
1b60: 61 64 5f 75 6e 63 6f 6d 6d 69 74 74 65 64 20 3d  ad_uncommitted =
1b70: 20 31 7d 20 64 62 32 0a 0a 20 20 73 65 74 20 72   1} db2..  set r
1b80: 65 74 20 5b 6c 69 73 74 5d 0a 20 20 64 62 32 20  et [list].  db2 
1b90: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 69 20 46  eval {SELECT i F
1ba0: 52 4f 4d 20 73 65 71 20 4f 52 44 45 52 20 42 59  ROM seq ORDER BY
1bb0: 20 69 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 69   i} {.    if {$i
1bc0: 20 3c 20 34 7d 20 7b 0a 20 20 20 20 20 20 73 65   < 4} {.      se
1bd0: 74 20 6d 61 78 20 5b 65 78 65 63 73 71 6c 20 7b  t max [execsql {
1be0: 53 45 4c 45 43 54 20 6d 61 78 28 69 29 20 46 52  SELECT max(i) FR
1bf0: 4f 4d 20 73 65 71 7d 5d 0a 20 20 20 20 20 20 64  OM seq}].      d
1c00: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20 20 20  b eval {.       
1c10: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 73 65 71   INSERT INTO seq
1c20: 20 53 45 4c 45 43 54 20 69 20 2b 20 3a 6d 61 78   SELECT i + :max
1c30: 2c 20 78 20 46 52 4f 4d 20 73 65 71 3b 0a 20 20  , x FROM seq;.  
1c40: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20      }.    }.    
1c50: 6c 61 70 70 65 6e 64 20 72 65 74 20 24 69 0a 20  lappend ret $i. 
1c60: 20 7d 0a 20 20 73 65 74 20 72 65 74 0a 7d 20 7b   }.  set ret.} {
1c70: 31 20 32 20 33 20 34 20 35 20 36 20 37 20 38 20  1 2 3 4 5 6 7 8 
1c80: 39 20 31 30 20 31 31 20 31 32 20 31 33 20 31 34  9 10 11 12 13 14
1c90: 20 31 35 20 31 36 7d 0a 64 6f 5f 74 65 73 74 20   15 16}.do_test 
1ca0: 73 68 61 72 65 64 2d 24 61 76 2e 33 2e 31 2e 32  shared-$av.3.1.2
1cb0: 20 7b 0a 20 20 23 20 41 6e 6f 74 68 65 72 20 6c   {.  # Another l
1cc0: 69 6e 65 61 72 20 73 63 61 6e 20 74 68 72 6f 75  inear scan throu
1cd0: 67 68 20 74 61 62 6c 65 20 73 65 71 20 75 73 69  gh table seq usi
1ce0: 6e 67 20 61 20 72 65 61 64 2d 75 6e 63 6f 6d 6d  ng a read-uncomm
1cf0: 69 74 74 65 64 20 63 6f 6e 6e 65 63 74 69 6f 6e  itted connection
1d00: 2e 0a 20 20 23 20 54 68 69 73 20 74 69 6d 65 2c  ..  # This time,
1d10: 20 64 65 6c 65 74 65 20 65 61 63 68 20 72 6f 77   delete each row
1d20: 20 61 73 20 69 74 20 69 73 20 72 65 61 64 2e 20   as it is read. 
1d30: 53 68 6f 75 6c 64 20 6e 6f 74 20 61 66 66 65 63  Should not affec
1d40: 74 20 74 68 65 20 72 65 73 75 6c 74 73 20 6f 66  t the results of
1d50: 0a 20 20 23 20 74 68 65 20 73 63 61 6e 2c 20 62  .  # the scan, b
1d60: 75 74 20 74 68 65 20 74 61 62 6c 65 20 73 68 6f  ut the table sho
1d70: 75 6c 64 20 62 65 20 65 6d 70 74 79 20 61 66 74  uld be empty aft
1d80: 65 72 20 74 68 65 20 73 63 61 6e 20 69 73 20 63  er the scan is c
1d90: 6f 6e 63 6c 75 64 65 64 20 0a 20 20 23 20 28 74  oncluded .  # (t
1da0: 65 73 74 20 33 2e 31 2e 33 20 76 65 72 69 66 69  est 3.1.3 verifi
1db0: 65 73 20 74 68 69 73 29 2e 0a 20 20 73 65 74 20  es this)..  set 
1dc0: 72 65 74 20 5b 6c 69 73 74 5d 0a 20 20 64 62 32  ret [list].  db2
1dd0: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 69 20   eval {SELECT i 
1de0: 46 52 4f 4d 20 73 65 71 7d 20 7b 0a 20 20 20 20  FROM seq} {.    
1df0: 64 62 20 65 76 61 6c 20 7b 44 45 4c 45 54 45 20  db eval {DELETE 
1e00: 46 52 4f 4d 20 73 65 71 20 57 48 45 52 45 20 69  FROM seq WHERE i
1e10: 20 3d 20 3a 69 7d 0a 20 20 20 20 6c 61 70 70 65   = :i}.    lappe
1e20: 6e 64 20 72 65 74 20 24 69 0a 20 20 7d 0a 20 20  nd ret $i.  }.  
1e30: 73 65 74 20 72 65 74 0a 7d 20 7b 31 20 32 20 33  set ret.} {1 2 3
1e40: 20 34 20 35 20 36 20 37 20 38 20 39 20 31 30 20   4 5 6 7 8 9 10 
1e50: 31 31 20 31 32 20 31 33 20 31 34 20 31 35 20 31  11 12 13 14 15 1
1e60: 36 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65  6}.do_test share
1e70: 64 2d 24 61 76 2e 33 2e 31 2e 33 20 7b 0a 20 20  d-$av.3.1.3 {.  
1e80: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45  execsql {.    SE
1e90: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 65 71 3b  LECT * FROM seq;
1ea0: 0a 20 20 7d 0a 7d 20 7b 7d 0a 0a 63 61 74 63 68  .  }.} {}..catch
1eb0: 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 63 61 74 63   {db close}.catc
1ec0: 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 63 61  h {db2 close}.ca
1ed0: 74 63 68 20 7b 64 62 33 20 63 6c 6f 73 65 7d 0a  tch {db3 close}.
1ee0: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
1ef0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1f20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54  ------------.# T
1f30: 65 73 74 73 20 73 68 61 72 65 64 2d 34 2e 2a 20  ests shared-4.* 
1f40: 74 65 73 74 20 74 68 61 74 20 74 68 65 20 73 63  test that the sc
1f50: 68 65 6d 61 20 6c 6f 63 6b 69 6e 67 20 72 75 6c  hema locking rul
1f60: 65 73 20 61 72 65 20 61 70 70 6c 69 65 64 20 0a  es are applied .
1f70: 23 20 63 6f 72 72 65 63 74 6c 79 2e 20 69 2e 65  # correctly. i.e
1f80: 2e 3a 0a 23 0a 23 20 31 2e 20 41 6c 6c 20 74 72  .:.#.# 1. All tr
1f90: 61 6e 73 61 63 74 69 6f 6e 73 20 72 65 71 75 69  ansactions requi
1fa0: 72 65 20 61 20 72 65 61 64 2d 6c 6f 63 6b 20 6f  re a read-lock o
1fb0: 6e 20 74 68 65 20 73 63 68 65 6d 61 73 20 6f 66  n the schemas of
1fc0: 20 64 61 74 61 62 61 73 65 73 20 74 68 65 79 0a   databases they.
1fd0: 23 20 20 20 20 61 63 63 65 73 73 2e 0a 23 20 32  #    access..# 2
1fe0: 2e 20 54 72 61 6e 73 61 63 74 69 6f 6e 73 20 74  . Transactions t
1ff0: 68 61 74 20 6d 6f 64 69 66 79 20 61 20 64 61 74  hat modify a dat
2000: 61 62 61 73 65 20 73 63 68 65 6d 61 20 72 65 71  abase schema req
2010: 75 69 72 65 20 61 20 77 72 69 74 65 2d 6c 6f 63  uire a write-loc
2020: 6b 20 6f 6e 20 74 68 61 74 0a 23 20 20 20 20 73  k on that.#    s
2030: 63 68 65 6d 61 2e 0a 23 20 33 2e 20 49 74 20 69  chema..# 3. It i
2040: 73 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20 74  s not possible t
2050: 6f 20 63 6f 6d 70 69 6c 65 20 61 20 73 74 61 74  o compile a stat
2060: 65 6d 65 6e 74 20 77 68 69 6c 65 20 61 6e 6f 74  ement while anot
2070: 68 65 72 20 68 61 6e 64 6c 65 20 68 61 73 20 61  her handle has a
2080: 20 0a 23 20 20 20 20 77 72 69 74 65 2d 6c 6f 63   .#    write-loc
2090: 6b 20 6f 6e 20 74 68 65 20 73 63 68 65 6d 61 2e  k on the schema.
20a0: 0a 23 0a 0a 23 20 4f 70 65 6e 20 74 77 6f 20 64  .#..# Open two d
20b0: 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 73 20  atabase handles 
20c0: 64 62 20 61 6e 64 20 64 62 32 2e 20 45 61 63 68  db and db2. Each
20d0: 20 68 61 73 20 61 20 73 69 6e 67 6c 65 20 61 74   has a single at
20e0: 74 61 63 68 20 64 61 74 61 62 61 73 65 0a 23 20  tach database.# 
20f0: 28 61 73 20 77 65 6c 6c 20 61 73 20 6d 61 69 6e  (as well as main
2100: 29 3a 0a 23 0a 23 20 20 20 20 20 64 62 2e 6d 61  ):.#.#     db.ma
2110: 69 6e 20 20 20 2d 3e 20 20 20 2e 2f 74 65 73 74  in   ->   ./test
2120: 2e 64 62 0a 23 20 20 20 20 20 64 62 2e 74 65 73  .db.#     db.tes
2130: 74 32 20 20 2d 3e 20 20 20 2e 2f 74 65 73 74 32  t2  ->   ./test2
2140: 2e 64 62 0a 23 20 20 20 20 20 64 62 32 2e 6d 61  .db.#     db2.ma
2150: 69 6e 20 20 2d 3e 20 20 20 2e 2f 74 65 73 74 32  in  ->   ./test2
2160: 2e 64 62 0a 23 20 20 20 20 20 64 62 32 2e 74 65  .db.#     db2.te
2170: 73 74 20 20 2d 3e 20 20 20 2e 2f 74 65 73 74 2e  st  ->   ./test.
2180: 64 62 0a 23 0a 66 69 6c 65 20 64 65 6c 65 74 65  db.#.file delete
2190: 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 0a   -force test.db.
21a0: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
21b0: 63 65 20 74 65 73 74 32 2e 64 62 0a 66 69 6c 65  ce test2.db.file
21c0: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74   delete -force t
21d0: 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a  est2.db-journal.
21e0: 73 71 6c 69 74 65 33 20 64 62 20 20 74 65 73 74  sqlite3 db  test
21f0: 2e 64 62 0a 73 71 6c 69 74 65 33 20 64 62 32 20  .db.sqlite3 db2 
2200: 74 65 73 74 32 2e 64 62 0a 64 6f 5f 74 65 73 74  test2.db.do_test
2210: 20 73 68 61 72 65 64 2d 24 61 76 2e 34 2e 31 2e   shared-$av.4.1.
2220: 31 20 7b 0a 20 20 73 65 74 20 73 71 6c 69 74 65  1 {.  set sqlite
2230: 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74  _open_file_count
2240: 0a 7d 20 7b 32 7d 0a 64 6f 5f 74 65 73 74 20 73  .} {2}.do_test s
2250: 68 61 72 65 64 2d 24 61 76 2e 34 2e 31 2e 32 20  hared-$av.4.1.2 
2260: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 41 54 54  {.  execsql {ATT
2270: 41 43 48 20 27 74 65 73 74 32 2e 64 62 27 20 41  ACH 'test2.db' A
2280: 53 20 74 65 73 74 32 7d 0a 20 20 73 65 74 20 73  S test2}.  set s
2290: 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f  qlite_open_file_
22a0: 63 6f 75 6e 74 0a 7d 20 7b 32 7d 0a 64 6f 5f 74  count.} {2}.do_t
22b0: 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 34  est shared-$av.4
22c0: 2e 31 2e 33 20 7b 0a 20 20 65 78 65 63 73 71 6c  .1.3 {.  execsql
22d0: 20 7b 41 54 54 41 43 48 20 27 74 65 73 74 2e 64   {ATTACH 'test.d
22e0: 62 27 20 41 53 20 74 65 73 74 7d 20 64 62 32 0a  b' AS test} db2.
22f0: 20 20 73 65 74 20 73 71 6c 69 74 65 5f 6f 70 65    set sqlite_ope
2300: 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 7d 20 7b  n_file_count.} {
2310: 32 7d 0a 0a 23 20 53 61 6e 69 74 79 20 63 68 65  2}..# Sanity che
2320: 63 6b 3a 20 43 72 65 61 74 65 20 61 20 74 61 62  ck: Create a tab
2330: 6c 65 20 69 6e 20 2e 2f 74 65 73 74 2e 64 62 20  le in ./test.db 
2340: 76 69 61 20 68 61 6e 64 6c 65 20 64 62 2c 20 61  via handle db, a
2350: 6e 64 20 74 65 73 74 20 74 68 61 74 20 68 61 6e  nd test that han
2360: 64 6c 65 0a 23 20 64 62 32 20 63 61 6e 20 22 73  dle.# db2 can "s
2370: 65 65 22 20 74 68 65 20 6e 65 77 20 74 61 62 6c  ee" the new tabl
2380: 65 20 69 6d 6d 65 64 69 61 74 65 6c 79 2e 20 41  e immediately. A
2390: 20 68 61 6e 64 6c 65 20 75 73 69 6e 67 20 61 20   handle using a 
23a0: 73 65 70 65 72 61 74 65 20 70 61 67 65 72 0a 23  seperate pager.#
23b0: 20 63 61 63 68 65 20 77 6f 75 6c 64 20 68 61 76   cache would hav
23c0: 65 20 74 6f 20 72 65 6c 6f 61 64 20 74 68 65 20  e to reload the 
23d0: 64 61 74 61 62 61 73 65 20 73 63 68 65 6d 61 20  database schema 
23e0: 62 65 66 6f 72 65 20 74 68 69 73 20 77 65 72 65  before this were
23f0: 20 70 6f 73 73 69 62 6c 65 2e 0a 23 0a 64 6f 5f   possible..#.do_
2400: 74 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e  test shared-$av.
2410: 34 2e 32 2e 31 20 7b 0a 20 20 65 78 65 63 73 71  4.2.1 {.  execsq
2420: 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54  l {.    CREATE T
2430: 41 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63  ABLE abc(a, b, c
2440: 29 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  );.    CREATE TA
2450: 42 4c 45 20 64 65 66 28 64 2c 20 65 2c 20 66 29  BLE def(d, e, f)
2460: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
2470: 4f 20 61 62 63 20 56 41 4c 55 45 53 28 27 69 27  O abc VALUES('i'
2480: 2c 20 27 69 69 27 2c 20 27 69 69 69 27 29 3b 0a  , 'ii', 'iii');.
2490: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
24a0: 64 65 66 20 56 41 4c 55 45 53 28 27 49 27 2c 20  def VALUES('I', 
24b0: 27 49 49 27 2c 20 27 49 49 49 27 29 3b 0a 20 20  'II', 'III');.  
24c0: 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 73  }.} {}.do_test s
24d0: 68 61 72 65 64 2d 24 61 76 2e 34 2e 32 2e 32 20  hared-$av.4.2.2 
24e0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  {.  execsql {.  
24f0: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
2500: 74 65 73 74 2e 61 62 63 3b 0a 20 20 7d 20 64 62  test.abc;.  } db
2510: 32 0a 7d 20 7b 69 20 69 69 20 69 69 69 7d 0a 0a  2.} {i ii iii}..
2520: 23 20 4f 70 65 6e 20 61 20 72 65 61 64 2d 74 72  # Open a read-tr
2530: 61 6e 73 61 63 74 69 6f 6e 20 61 6e 64 20 72 65  ansaction and re
2540: 61 64 20 66 72 6f 6d 20 74 61 62 6c 65 20 61 62  ad from table ab
2550: 63 20 76 69 61 20 68 61 6e 64 6c 65 20 32 2e 20  c via handle 2. 
2560: 43 68 65 63 6b 20 74 68 61 74 0a 23 20 68 61 6e  Check that.# han
2570: 64 6c 65 20 31 20 63 61 6e 20 72 65 61 64 20 74  dle 1 can read t
2580: 61 62 6c 65 20 61 62 63 2e 20 43 68 65 63 6b 20  able abc. Check 
2590: 74 68 61 74 20 68 61 6e 64 6c 65 20 31 20 63 61  that handle 1 ca
25a0: 6e 6e 6f 74 20 6d 6f 64 69 66 79 20 74 61 62 6c  nnot modify tabl
25b0: 65 20 61 62 63 0a 23 20 6f 72 20 74 68 65 20 64  e abc.# or the d
25c0: 61 74 61 62 61 73 65 20 73 63 68 65 6d 61 2e 20  atabase schema. 
25d0: 54 68 65 6e 20 63 68 65 63 6b 20 74 68 61 74 20  Then check that 
25e0: 68 61 6e 64 6c 65 20 31 20 63 61 6e 20 6d 6f 64  handle 1 can mod
25f0: 69 66 79 20 74 61 62 6c 65 20 64 65 66 2e 0a 23  ify table def..#
2600: 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d  .do_test shared-
2610: 24 61 76 2e 34 2e 33 2e 31 20 7b 0a 20 20 65 78  $av.4.3.1 {.  ex
2620: 65 63 73 71 6c 20 7b 0a 20 20 20 20 42 45 47 49  ecsql {.    BEGI
2630: 4e 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20  N;.    SELECT * 
2640: 46 52 4f 4d 20 74 65 73 74 2e 61 62 63 3b 0a 20  FROM test.abc;. 
2650: 20 7d 20 64 62 32 0a 7d 20 7b 69 20 69 69 20 69   } db2.} {i ii i
2660: 69 69 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61 72  ii}.do_test shar
2670: 65 64 2d 24 61 76 2e 34 2e 33 2e 32 20 7b 0a 20  ed-$av.4.3.2 {. 
2680: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
2690: 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20  INSERT INTO abc 
26a0: 56 41 4c 55 45 53 28 27 69 76 27 2c 20 27 76 27  VALUES('iv', 'v'
26b0: 2c 20 27 76 69 27 29 3b 0a 20 20 7d 0a 7d 20 7b  , 'vi');.  }.} {
26c0: 31 20 7b 64 61 74 61 62 61 73 65 20 74 61 62 6c  1 {database tabl
26d0: 65 20 69 73 20 6c 6f 63 6b 65 64 3a 20 61 62 63  e is locked: abc
26e0: 7d 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65  }}.do_test share
26f0: 64 2d 24 61 76 2e 34 2e 33 2e 33 20 7b 0a 20 20  d-$av.4.3.3 {.  
2700: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 43  catchsql {.    C
2710: 52 45 41 54 45 20 54 41 42 4c 45 20 67 68 69 28  REATE TABLE ghi(
2720: 67 2c 20 68 2c 20 69 29 3b 0a 20 20 7d 0a 7d 20  g, h, i);.  }.} 
2730: 7b 31 20 7b 64 61 74 61 62 61 73 65 20 74 61 62  {1 {database tab
2740: 6c 65 20 69 73 20 6c 6f 63 6b 65 64 3a 20 73 71  le is locked: sq
2750: 6c 69 74 65 5f 6d 61 73 74 65 72 7d 7d 0a 64 6f  lite_master}}.do
2760: 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24 61 76  _test shared-$av
2770: 2e 34 2e 33 2e 33 20 7b 0a 20 20 63 61 74 63 68  .4.3.3 {.  catch
2780: 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53 45 52 54  sql {.    INSERT
2790: 20 49 4e 54 4f 20 64 65 66 20 56 41 4c 55 45 53   INTO def VALUES
27a0: 28 27 49 56 27 2c 20 27 56 27 2c 20 27 56 49 27  ('IV', 'V', 'VI'
27b0: 29 3b 0a 20 20 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a  );.  }.} {0 {}}.
27c0: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
27d0: 61 76 2e 34 2e 33 2e 34 20 7b 0a 20 20 23 20 43  av.4.3.4 {.  # C
27e0: 6c 65 61 6e 75 70 3a 20 63 6f 6d 6d 69 74 20 74  leanup: commit t
27f0: 68 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 6f  he transaction o
2800: 70 65 6e 65 64 20 62 79 20 64 62 32 2e 0a 20 20  pened by db2..  
2810: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 4f  execsql {.    CO
2820: 4d 4d 49 54 0a 20 20 7d 20 64 62 32 0a 7d 20 7b  MMIT.  } db2.} {
2830: 7d 0a 0a 23 20 4f 70 65 6e 20 61 20 77 72 69 74  }..# Open a writ
2840: 65 2d 74 72 61 6e 73 61 63 74 69 6f 6e 20 75 73  e-transaction us
2850: 69 6e 67 20 68 61 6e 64 6c 65 20 31 20 61 6e 64  ing handle 1 and
2860: 20 6d 6f 64 69 66 79 20 74 68 65 20 64 61 74 61   modify the data
2870: 62 61 73 65 20 73 63 68 65 6d 61 2e 0a 23 20 54  base schema..# T
2880: 68 65 6e 20 74 72 79 20 74 6f 20 65 78 65 63 75  hen try to execu
2890: 74 65 20 61 20 63 6f 6d 70 69 6c 65 64 20 73 74  te a compiled st
28a0: 61 74 65 6d 65 6e 74 20 74 6f 20 72 65 61 64 20  atement to read 
28b0: 66 72 6f 6d 20 74 68 65 20 73 61 6d 65 20 0a 23  from the same .#
28c0: 20 64 61 74 61 62 61 73 65 20 76 69 61 20 68 61   database via ha
28d0: 6e 64 6c 65 20 32 20 28 66 61 69 6c 73 20 74 6f  ndle 2 (fails to
28e0: 20 67 65 74 20 74 68 65 20 6c 6f 63 6b 20 6f 6e   get the lock on
28f0: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 29 2e   sqlite_master).
2900: 20 41 6c 73 6f 0a 23 20 74 72 79 20 74 6f 20 63   Also.# try to c
2910: 6f 6d 70 69 6c 65 20 61 20 72 65 61 64 20 6f 66  ompile a read of
2920: 20 74 68 65 20 73 61 6d 65 20 64 61 74 61 62 61   the same databa
2930: 73 65 20 75 73 69 6e 67 20 68 61 6e 64 6c 65 20  se using handle 
2940: 32 20 28 61 6c 73 6f 20 66 61 69 6c 73 29 2e 0a  2 (also fails)..
2950: 23 20 46 69 6e 61 6c 6c 79 2c 20 63 6f 6d 70 69  # Finally, compi
2960: 6c 65 20 61 20 72 65 61 64 20 6f 66 20 74 68 65  le a read of the
2970: 20 6f 74 68 65 72 20 64 61 74 61 62 61 73 65 20   other database 
2980: 75 73 69 6e 67 20 68 61 6e 64 6c 65 20 32 2e 20  using handle 2. 
2990: 54 68 69 73 0a 23 20 73 68 6f 75 6c 64 20 61 6c  This.# should al
29a0: 73 6f 20 66 61 69 6c 2e 0a 23 0a 69 66 63 61 70  so fail..#.ifcap
29b0: 61 62 6c 65 20 63 6f 6d 70 6f 75 6e 64 20 7b 0a  able compound {.
29c0: 20 20 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64    do_test shared
29d0: 2d 24 61 76 2e 34 2e 34 2e 31 2e 32 20 7b 0a 20  -$av.4.4.1.2 {. 
29e0: 20 20 20 23 20 53 61 6e 69 74 79 20 63 68 65 63     # Sanity chec
29f0: 6b 20 31 3a 20 43 68 65 63 6b 20 74 68 61 74 20  k 1: Check that 
2a00: 74 68 65 20 73 63 68 65 6d 61 20 69 73 20 77 68  the schema is wh
2a10: 61 74 20 77 65 20 74 68 69 6e 6b 20 69 74 20 69  at we think it i
2a20: 73 20 77 68 65 6e 20 76 69 65 77 65 64 0a 20 20  s when viewed.  
2a30: 20 20 23 20 76 69 61 20 68 61 6e 64 6c 65 20 31    # via handle 1
2a40: 2e 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a  ..    execsql {.
2a50: 20 20 20 20 20 20 43 52 45 41 54 45 20 54 41 42        CREATE TAB
2a60: 4c 45 20 74 65 73 74 32 2e 67 68 69 28 67 2c 20  LE test2.ghi(g, 
2a70: 68 2c 20 69 29 3b 0a 20 20 20 20 20 20 53 45 4c  h, i);.      SEL
2a80: 45 43 54 20 27 74 65 73 74 2e 64 62 3a 27 7c 7c  ECT 'test.db:'||
2a90: 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65  name FROM sqlite
2aa0: 5f 6d 61 73 74 65 72 20 0a 20 20 20 20 20 20 55  _master .      U
2ab0: 4e 49 4f 4e 20 41 4c 4c 0a 20 20 20 20 20 20 53  NION ALL.      S
2ac0: 45 4c 45 43 54 20 27 74 65 73 74 32 2e 64 62 3a  ELECT 'test2.db:
2ad0: 27 7c 7c 6e 61 6d 65 20 46 52 4f 4d 20 74 65 73  '||name FROM tes
2ae0: 74 32 2e 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  t2.sqlite_master
2af0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 74 65 73  ;.    }.  } {tes
2b00: 74 2e 64 62 3a 61 62 63 20 74 65 73 74 2e 64 62  t.db:abc test.db
2b10: 3a 64 65 66 20 74 65 73 74 32 2e 64 62 3a 67 68  :def test2.db:gh
2b20: 69 7d 0a 20 20 64 6f 5f 74 65 73 74 20 73 68 61  i}.  do_test sha
2b30: 72 65 64 2d 24 61 76 2e 34 2e 34 2e 31 2e 32 20  red-$av.4.4.1.2 
2b40: 7b 0a 20 20 20 20 23 20 53 61 6e 69 74 79 20 63  {.    # Sanity c
2b50: 68 65 63 6b 20 32 3a 20 43 68 65 63 6b 20 74 68  heck 2: Check th
2b60: 61 74 20 74 68 65 20 73 63 68 65 6d 61 20 69 73  at the schema is
2b70: 20 77 68 61 74 20 77 65 20 74 68 69 6e 6b 20 69   what we think i
2b80: 74 20 69 73 20 77 68 65 6e 20 76 69 65 77 65 64  t is when viewed
2b90: 0a 20 20 20 20 23 20 76 69 61 20 68 61 6e 64 6c  .    # via handl
2ba0: 65 20 32 2e 0a 20 20 20 20 65 78 65 63 73 71 6c  e 2..    execsql
2bb0: 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20   {.      SELECT 
2bc0: 27 74 65 73 74 32 2e 64 62 3a 27 7c 7c 6e 61 6d  'test2.db:'||nam
2bd0: 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61  e FROM sqlite_ma
2be0: 73 74 65 72 20 0a 20 20 20 20 20 20 55 4e 49 4f  ster .      UNIO
2bf0: 4e 20 41 4c 4c 0a 20 20 20 20 20 20 53 45 4c 45  N ALL.      SELE
2c00: 43 54 20 27 74 65 73 74 2e 64 62 3a 27 7c 7c 6e  CT 'test.db:'||n
2c10: 61 6d 65 20 46 52 4f 4d 20 74 65 73 74 2e 73 71  ame FROM test.sq
2c20: 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20 20  lite_master;.   
2c30: 20 7d 20 64 62 32 0a 20 20 7d 20 7b 74 65 73 74   } db2.  } {test
2c40: 32 2e 64 62 3a 67 68 69 20 74 65 73 74 2e 64 62  2.db:ghi test.db
2c50: 3a 61 62 63 20 74 65 73 74 2e 64 62 3a 64 65 66  :abc test.db:def
2c60: 7d 0a 7d 0a 0a 64 6f 5f 74 65 73 74 20 73 68 61  }.}..do_test sha
2c70: 72 65 64 2d 24 61 76 2e 34 2e 34 2e 32 20 7b 0a  red-$av.4.4.2 {.
2c80: 20 20 73 65 74 20 3a 3a 44 42 32 20 5b 73 71 6c    set ::DB2 [sql
2c90: 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f  ite3_connection_
2ca0: 70 6f 69 6e 74 65 72 20 64 62 32 5d 0a 20 20 73  pointer db2].  s
2cb0: 65 74 20 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a  et sql {SELECT *
2cc0: 20 46 52 4f 4d 20 61 62 63 7d 0a 20 20 73 65 74   FROM abc}.  set
2cd0: 20 3a 3a 53 54 4d 54 31 20 5b 73 71 6c 69 74 65   ::STMT1 [sqlite
2ce0: 33 5f 70 72 65 70 61 72 65 20 24 3a 3a 44 42 32  3_prepare $::DB2
2cf0: 20 24 73 71 6c 20 2d 31 20 44 55 4d 4d 59 5d 0a   $sql -1 DUMMY].
2d00: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
2d10: 42 45 47 49 4e 3b 0a 20 20 20 20 43 52 45 41 54  BEGIN;.    CREAT
2d20: 45 20 54 41 42 4c 45 20 6a 6b 6c 28 6a 2c 20 6b  E TABLE jkl(j, k
2d30: 2c 20 6c 29 3b 0a 20 20 7d 0a 20 20 73 71 6c 69  , l);.  }.  sqli
2d40: 74 65 33 5f 73 74 65 70 20 24 3a 3a 53 54 4d 54  te3_step $::STMT
2d50: 31 0a 7d 20 7b 53 51 4c 49 54 45 5f 45 52 52 4f  1.} {SQLITE_ERRO
2d60: 52 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65  R}.do_test share
2d70: 64 2d 24 61 76 2e 34 2e 34 2e 33 20 7b 0a 20 20  d-$av.4.4.3 {.  
2d80: 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65  sqlite3_finalize
2d90: 20 24 3a 3a 53 54 4d 54 31 0a 7d 20 7b 53 51 4c   $::STMT1.} {SQL
2da0: 49 54 45 5f 4c 4f 43 4b 45 44 7d 0a 64 6f 5f 74  ITE_LOCKED}.do_t
2db0: 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 34  est shared-$av.4
2dc0: 2e 34 2e 34 20 7b 0a 20 20 73 65 74 20 72 63 20  .4.4 {.  set rc 
2dd0: 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 73 65 74  [catch {.    set
2de0: 20 3a 3a 53 54 4d 54 31 20 5b 73 71 6c 69 74 65   ::STMT1 [sqlite
2df0: 33 5f 70 72 65 70 61 72 65 20 24 3a 3a 44 42 32  3_prepare $::DB2
2e00: 20 24 73 71 6c 20 2d 31 20 44 55 4d 4d 59 5d 0a   $sql -1 DUMMY].
2e10: 20 20 7d 20 6d 73 67 5d 0a 20 20 6c 69 73 74 20    } msg].  list 
2e20: 24 72 63 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 28  $rc $msg.} {1 {(
2e30: 36 29 20 64 61 74 61 62 61 73 65 20 73 63 68 65  6) database sche
2e40: 6d 61 20 69 73 20 6c 6f 63 6b 65 64 3a 20 74 65  ma is locked: te
2e50: 73 74 7d 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61  st}}.do_test sha
2e60: 72 65 64 2d 24 61 76 2e 34 2e 34 2e 35 20 7b 0a  red-$av.4.4.5 {.
2e70: 20 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20    set rc [catch 
2e80: 7b 0a 20 20 20 20 73 65 74 20 3a 3a 53 54 4d 54  {.    set ::STMT
2e90: 31 20 5b 73 71 6c 69 74 65 33 5f 70 72 65 70 61  1 [sqlite3_prepa
2ea0: 72 65 20 24 3a 3a 44 42 32 20 22 53 45 4c 45 43  re $::DB2 "SELEC
2eb0: 54 20 2a 20 46 52 4f 4d 20 67 68 69 22 20 2d 31  T * FROM ghi" -1
2ec0: 20 44 55 4d 4d 59 5d 0a 20 20 7d 20 6d 73 67 5d   DUMMY].  } msg]
2ed0: 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d 73 67  .  list $rc $msg
2ee0: 0a 7d 20 7b 31 20 7b 28 36 29 20 64 61 74 61 62  .} {1 {(6) datab
2ef0: 61 73 65 20 73 63 68 65 6d 61 20 69 73 20 6c 6f  ase schema is lo
2f00: 63 6b 65 64 3a 20 74 65 73 74 7d 7d 0a 0a 0a 63  cked: test}}...c
2f10: 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d  atch {db2 close}
2f20: 0a 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65  .catch {db close
2f30: 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  }..#------------
2f40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23  --------------.#
2f80: 20 54 65 73 74 73 20 73 68 61 72 65 64 2d 35 2e   Tests shared-5.
2f90: 2a 20 0a 23 0a 66 6f 72 65 61 63 68 20 64 62 20  * .#.foreach db 
2fa0: 5b 6c 69 73 74 20 74 65 73 74 2e 64 62 20 74 65  [list test.db te
2fb0: 73 74 31 2e 64 62 20 74 65 73 74 32 2e 64 62 20  st1.db test2.db 
2fc0: 74 65 73 74 33 2e 64 62 5d 20 7b 0a 20 20 66 69  test3.db] {.  fi
2fd0: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
2fe0: 20 24 64 62 20 24 7b 64 62 7d 2d 6a 6f 75 72 6e   $db ${db}-journ
2ff0: 61 6c 0a 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61  al.}.do_test sha
3000: 72 65 64 2d 24 61 76 2e 35 2e 31 2e 31 20 7b 0a  red-$av.5.1.1 {.
3010: 20 20 73 71 6c 69 74 65 33 20 64 62 31 20 74 65    sqlite3 db1 te
3020: 73 74 2e 64 62 0a 20 20 73 71 6c 69 74 65 33 20  st.db.  sqlite3 
3030: 64 62 32 20 74 65 73 74 2e 64 62 0a 20 20 65 78  db2 test.db.  ex
3040: 65 63 73 71 6c 20 7b 0a 20 20 20 20 41 54 54 41  ecsql {.    ATTA
3050: 43 48 20 27 74 65 73 74 31 2e 64 62 27 20 41 53  CH 'test1.db' AS
3060: 20 74 65 73 74 31 3b 0a 20 20 20 20 41 54 54 41   test1;.    ATTA
3070: 43 48 20 27 74 65 73 74 32 2e 64 62 27 20 41 53  CH 'test2.db' AS
3080: 20 74 65 73 74 32 3b 0a 20 20 20 20 41 54 54 41   test2;.    ATTA
3090: 43 48 20 27 74 65 73 74 33 2e 64 62 27 20 41 53  CH 'test3.db' AS
30a0: 20 74 65 73 74 33 3b 0a 20 20 7d 20 64 62 31 0a   test3;.  } db1.
30b0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
30c0: 41 54 54 41 43 48 20 27 74 65 73 74 33 2e 64 62  ATTACH 'test3.db
30d0: 27 20 41 53 20 74 65 73 74 33 3b 0a 20 20 20 20  ' AS test3;.    
30e0: 41 54 54 41 43 48 20 27 74 65 73 74 32 2e 64 62  ATTACH 'test2.db
30f0: 27 20 41 53 20 74 65 73 74 32 3b 0a 20 20 20 20  ' AS test2;.    
3100: 41 54 54 41 43 48 20 27 74 65 73 74 31 2e 64 62  ATTACH 'test1.db
3110: 27 20 41 53 20 74 65 73 74 31 3b 0a 20 20 7d 20  ' AS test1;.  } 
3120: 64 62 32 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74  db2.} {}.do_test
3130: 20 73 68 61 72 65 64 2d 24 61 76 2e 35 2e 31 2e   shared-$av.5.1.
3140: 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  2 {.  execsql {.
3150: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
3160: 20 74 65 73 74 31 2e 74 31 28 61 2c 20 62 29 3b   test1.t1(a, b);
3170: 0a 20 20 20 20 43 52 45 41 54 45 20 49 4e 44 45  .    CREATE INDE
3180: 58 20 74 65 73 74 31 2e 69 31 20 4f 4e 20 74 31  X test1.i1 ON t1
3190: 28 61 2c 20 62 29 3b 0a 20 20 7d 20 64 62 31 0a  (a, b);.  } db1.
31a0: 7d 20 7b 7d 0a 69 66 63 61 70 61 62 6c 65 20 76  } {}.ifcapable v
31b0: 69 65 77 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20  iew {.  do_test 
31c0: 73 68 61 72 65 64 2d 24 61 76 2e 35 2e 31 2e 33  shared-$av.5.1.3
31d0: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b   {.    execsql {
31e0: 0a 20 20 20 20 20 20 43 52 45 41 54 45 20 56 49  .      CREATE VI
31f0: 45 57 20 74 65 73 74 31 2e 76 31 20 41 53 20 53  EW test1.v1 AS S
3200: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 3b  ELECT * FROM t1;
3210: 0a 20 20 20 20 7d 20 64 62 31 0a 20 20 7d 20 7b  .    } db1.  } {
3220: 7d 0a 7d 0a 69 66 63 61 70 61 62 6c 65 20 74 72  }.}.ifcapable tr
3230: 69 67 67 65 72 20 7b 0a 20 20 64 6f 5f 74 65 73  igger {.  do_tes
3240: 74 20 73 68 61 72 65 64 2d 24 61 76 2e 35 2e 31  t shared-$av.5.1
3250: 2e 34 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c  .4 {.    execsql
3260: 20 7b 0a 20 20 20 20 20 20 43 52 45 41 54 45 20   {.      CREATE 
3270: 54 52 49 47 47 45 52 20 74 65 73 74 31 2e 74 72  TRIGGER test1.tr
3280: 69 67 31 20 41 46 54 45 52 20 49 4e 53 45 52 54  ig1 AFTER INSERT
3290: 20 4f 4e 20 74 31 20 42 45 47 49 4e 0a 20 20 20   ON t1 BEGIN.   
32a0: 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f       INSERT INTO
32b0: 20 74 31 20 56 41 4c 55 45 53 28 6e 65 77 2e 61   t1 VALUES(new.a
32c0: 2c 20 6e 65 77 2e 62 29 3b 0a 20 20 20 20 20 20  , new.b);.      
32d0: 45 4e 44 3b 0a 20 20 20 20 7d 20 64 62 31 0a 20  END;.    } db1. 
32e0: 20 7d 20 7b 7d 0a 7d 0a 64 6f 5f 74 65 73 74 20   } {}.}.do_test 
32f0: 73 68 61 72 65 64 2d 24 61 76 2e 35 2e 31 2e 35  shared-$av.5.1.5
3300: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   {.  execsql {. 
3310: 20 20 20 44 52 4f 50 20 49 4e 44 45 58 20 69 31     DROP INDEX i1
3320: 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 7d 0a 69  ;.  } db2.} {}.i
3330: 66 63 61 70 61 62 6c 65 20 76 69 65 77 20 7b 0a  fcapable view {.
3340: 20 20 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64    do_test shared
3350: 2d 24 61 76 2e 35 2e 31 2e 36 20 7b 0a 20 20 20  -$av.5.1.6 {.   
3360: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20   execsql {.     
3370: 20 44 52 4f 50 20 56 49 45 57 20 76 31 3b 0a 20   DROP VIEW v1;. 
3380: 20 20 20 7d 20 64 62 32 0a 20 20 7d 20 7b 7d 0a     } db2.  } {}.
3390: 7d 0a 69 66 63 61 70 61 62 6c 65 20 74 72 69 67  }.ifcapable trig
33a0: 67 65 72 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20  ger {.  do_test 
33b0: 73 68 61 72 65 64 2d 24 61 76 2e 35 2e 31 2e 37  shared-$av.5.1.7
33c0: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b   {.    execsql {
33d0: 0a 20 20 20 20 20 20 44 52 4f 50 20 54 52 49 47  .      DROP TRIG
33e0: 47 45 52 20 74 72 69 67 31 3b 0a 20 20 20 20 7d  GER trig1;.    }
33f0: 20 64 62 32 0a 20 20 7d 20 7b 7d 0a 7d 0a 64 6f   db2.  } {}.}.do
3400: 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24 61 76  _test shared-$av
3410: 2e 35 2e 31 2e 38 20 7b 0a 20 20 65 78 65 63 73  .5.1.8 {.  execs
3420: 71 6c 20 7b 0a 20 20 20 20 44 52 4f 50 20 54 41  ql {.    DROP TA
3430: 42 4c 45 20 74 31 3b 0a 20 20 7d 20 64 62 32 0a  BLE t1;.  } db2.
3440: 7d 20 7b 7d 0a 69 66 63 61 70 61 62 6c 65 20 63  } {}.ifcapable c
3450: 6f 6d 70 6f 75 6e 64 20 7b 0a 20 20 64 6f 5f 74  ompound {.  do_t
3460: 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 35  est shared-$av.5
3470: 2e 31 2e 39 20 7b 0a 20 20 20 20 65 78 65 63 73  .1.9 {.    execs
3480: 71 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43  ql {.      SELEC
3490: 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  T * FROM sqlite_
34a0: 6d 61 73 74 65 72 20 55 4e 49 4f 4e 20 41 4c 4c  master UNION ALL
34b0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
34c0: 65 73 74 31 2e 73 71 6c 69 74 65 5f 6d 61 73 74  est1.sqlite_mast
34d0: 65 72 0a 20 20 20 20 7d 20 64 62 31 0a 20 20 7d  er.    } db1.  }
34e0: 20 7b 7d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d   {}.}..#--------
34f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3510: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3530: 2d 2d 0a 23 20 54 65 73 74 73 20 73 68 61 72 65  --.# Tests share
3540: 64 2d 36 2e 2a 20 74 65 73 74 20 74 68 61 74 20  d-6.* test that 
3550: 61 20 71 75 65 72 79 20 6f 62 74 61 69 6e 73 20  a query obtains 
3560: 61 6c 6c 20 74 68 65 20 72 65 61 64 2d 6c 6f 63  all the read-loc
3570: 6b 73 20 69 74 20 6e 65 65 64 73 0a 23 20 62 65  ks it needs.# be
3580: 66 6f 72 65 20 73 74 61 72 74 69 6e 67 20 65 78  fore starting ex
3590: 65 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 71  ecution of the q
35a0: 75 65 72 79 2e 20 54 68 69 73 20 6d 65 61 6e 73  uery. This means
35b0: 20 74 68 61 74 20 74 68 65 72 65 20 69 73 20 6e   that there is n
35c0: 6f 20 63 68 61 6e 63 65 0a 23 20 73 6f 6d 65 20  o chance.# some 
35d0: 72 6f 77 73 20 6f 66 20 64 61 74 61 20 77 69 6c  rows of data wil
35e0: 6c 20 62 65 20 72 65 74 75 72 6e 65 64 20 62 65  l be returned be
35f0: 66 6f 72 65 20 61 20 6c 6f 63 6b 20 66 61 69 6c  fore a lock fail
3600: 73 20 61 6e 64 20 53 51 4c 49 54 45 5f 4c 4f 43  s and SQLITE_LOC
3610: 4b 0a 23 20 69 73 20 72 65 74 75 72 6e 65 64 2e  K.# is returned.
3620: 0a 23 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65  .#.do_test share
3630: 64 2d 24 61 76 2e 36 2e 31 2e 31 20 7b 0a 20 20  d-$av.6.1.1 {.  
3640: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 52  execsql {.    CR
3650: 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 61 2c  EATE TABLE t1(a,
3660: 20 62 29 3b 0a 20 20 20 20 43 52 45 41 54 45 20   b);.    CREATE 
3670: 54 41 42 4c 45 20 74 32 28 61 2c 20 62 29 3b 0a  TABLE t2(a, b);.
3680: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
3690: 74 31 20 56 41 4c 55 45 53 28 31 2c 20 32 29 3b  t1 VALUES(1, 2);
36a0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
36b0: 20 74 32 20 56 41 4c 55 45 53 28 33 2c 20 34 29   t2 VALUES(3, 4)
36c0: 3b 0a 20 20 7d 20 64 62 31 0a 7d 20 7b 7d 0a 69  ;.  } db1.} {}.i
36d0: 66 63 61 70 61 62 6c 65 20 63 6f 6d 70 6f 75 6e  fcapable compoun
36e0: 64 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 73 68  d {.  do_test sh
36f0: 61 72 65 64 2d 24 61 76 2e 36 2e 31 2e 32 20 7b  ared-$av.6.1.2 {
3700: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  .    execsql {. 
3710: 20 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52       SELECT * FR
3720: 4f 4d 20 74 31 20 55 4e 49 4f 4e 20 41 4c 4c 20  OM t1 UNION ALL 
3730: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32  SELECT * FROM t2
3740: 3b 0a 20 20 20 20 7d 20 64 62 32 0a 20 20 7d 20  ;.    } db2.  } 
3750: 7b 31 20 32 20 33 20 34 7d 0a 7d 0a 64 6f 5f 74  {1 2 3 4}.}.do_t
3760: 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 36  est shared-$av.6
3770: 2e 31 2e 33 20 7b 0a 20 20 23 20 45 73 74 61 62  .1.3 {.  # Estab
3780: 6c 69 73 68 20 61 20 77 72 69 74 65 20 6c 6f 63  lish a write loc
3790: 6b 20 6f 6e 20 74 61 62 6c 65 20 74 32 20 76 69  k on table t2 vi
37a0: 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 64 62 32  a connection db2
37b0: 2e 20 54 68 65 6e 20 6d 61 6b 65 20 61 20 0a 20  . Then make a . 
37c0: 20 23 20 55 4e 49 4f 4e 20 61 6c 6c 20 71 75 65   # UNION all que
37d0: 72 79 20 75 73 69 6e 67 20 63 6f 6e 6e 65 63 74  ry using connect
37e0: 69 6f 6e 20 64 62 31 20 74 68 61 74 20 66 69 72  ion db1 that fir
37f0: 73 74 20 61 63 63 65 73 73 65 73 20 74 31 2c 20  st accesses t1, 
3800: 66 6f 6c 6c 6f 77 65 64 20 0a 20 20 23 20 62 79  followed .  # by
3810: 20 74 32 2e 20 49 66 20 74 68 65 20 6c 6f 63 6b   t2. If the lock
3820: 73 20 61 72 65 20 67 72 61 62 62 65 64 20 61 74  s are grabbed at
3830: 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68   the start of th
3840: 65 20 73 74 61 74 65 6d 65 6e 74 20 28 61 73 20  e statement (as 
3850: 0a 20 20 23 20 74 68 65 79 20 73 68 6f 75 6c 64  .  # they should
3860: 20 62 65 29 2c 20 6e 6f 20 72 6f 77 73 20 61 72   be), no rows ar
3870: 65 20 72 65 74 75 72 6e 65 64 2e 20 49 66 20 28  e returned. If (
3880: 61 73 20 77 61 73 20 70 72 65 76 69 6f 75 73 6c  as was previousl
3890: 79 20 74 68 65 20 63 61 73 65 29 0a 20 20 23 20  y the case).  # 
38a0: 74 68 65 79 20 61 72 65 20 67 72 61 62 62 65 64  they are grabbed
38b0: 20 61 73 20 74 68 65 20 74 61 62 6c 65 73 20 61   as the tables a
38c0: 72 65 20 61 63 63 65 73 73 65 64 2c 20 74 68 65  re accessed, the
38d0: 20 74 31 20 72 6f 77 73 20 77 69 6c 6c 20 62 65   t1 rows will be
38e0: 20 0a 20 20 23 20 72 65 74 75 72 6e 65 64 20 62   .  # returned b
38f0: 65 66 6f 72 65 20 74 68 65 20 71 75 65 72 79 20  efore the query 
3900: 66 61 69 6c 73 2e 0a 20 20 23 0a 20 20 65 78 65  fails..  #.  exe
3910: 63 73 71 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e  csql {.    BEGIN
3920: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
3930: 4f 20 74 32 20 56 41 4c 55 45 53 28 35 2c 20 36  O t2 VALUES(5, 6
3940: 29 3b 0a 20 20 7d 20 64 62 32 0a 20 20 73 65 74  );.  } db2.  set
3950: 20 72 65 74 20 5b 6c 69 73 74 5d 0a 20 20 63 61   ret [list].  ca
3960: 74 63 68 20 7b 0a 20 20 20 20 64 62 31 20 65 76  tch {.    db1 ev
3970: 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  al {SELECT * FRO
3980: 4d 20 74 31 20 55 4e 49 4f 4e 20 41 4c 4c 20 53  M t1 UNION ALL S
3990: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d  ELECT * FROM t2}
39a0: 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e 64   {.      lappend
39b0: 20 72 65 74 20 24 61 20 24 62 0a 20 20 20 20 7d   ret $a $b.    }
39c0: 0a 20 20 7d 0a 20 20 73 65 74 20 72 65 74 0a 7d  .  }.  set ret.}
39d0: 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61 72   {}.do_test shar
39e0: 65 64 2d 24 61 76 2e 36 2e 31 2e 34 20 7b 0a 20  ed-$av.6.1.4 {. 
39f0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43   execsql {.    C
3a00: 4f 4d 4d 49 54 3b 0a 20 20 20 20 42 45 47 49 4e  OMMIT;.    BEGIN
3a10: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
3a20: 4f 20 74 31 20 56 41 4c 55 45 53 28 37 2c 20 38  O t1 VALUES(7, 8
3a30: 29 3b 0a 20 20 7d 20 64 62 32 0a 20 20 73 65 74  );.  } db2.  set
3a40: 20 72 65 74 20 5b 6c 69 73 74 5d 0a 20 20 63 61   ret [list].  ca
3a50: 74 63 68 20 7b 0a 20 20 20 20 64 62 31 20 65 76  tch {.    db1 ev
3a60: 61 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43  al {.      SELEC
3a70: 54 20 28 43 41 53 45 20 57 48 45 4e 20 61 3e 34  T (CASE WHEN a>4
3a80: 20 54 48 45 4e 20 28 53 45 4c 45 43 54 20 61 20   THEN (SELECT a 
3a90: 46 52 4f 4d 20 74 31 29 20 45 4c 53 45 20 30 20  FROM t1) ELSE 0 
3aa0: 45 4e 44 29 20 41 53 20 64 20 46 52 4f 4d 20 74  END) AS d FROM t
3ab0: 32 3b 0a 20 20 20 20 7d 20 7b 0a 20 20 20 20 20  2;.    } {.     
3ac0: 20 6c 61 70 70 65 6e 64 20 72 65 74 20 24 64 0a   lappend ret $d.
3ad0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74 20      }.  }.  set 
3ae0: 72 65 74 0a 7d 20 7b 7d 0a 0a 63 61 74 63 68 20  ret.} {}..catch 
3af0: 7b 64 62 31 20 63 6c 6f 73 65 7d 0a 63 61 74 63  {db1 close}.catc
3b00: 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 66 6f  h {db2 close}.fo
3b10: 72 65 61 63 68 20 66 20 5b 6c 69 73 74 20 74 65  reach f [list te
3b20: 73 74 2e 64 62 20 74 65 73 74 32 2e 64 62 5d 20  st.db test2.db] 
3b30: 7b 0a 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20  {.  file delete 
3b40: 2d 66 6f 72 63 65 20 24 66 20 24 7b 66 7d 2d 6a  -force $f ${f}-j
3b50: 6f 75 72 6e 61 6c 0a 7d 0a 0a 23 2d 2d 2d 2d 2d  ournal.}..#-----
3b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ba0: 2d 2d 2d 2d 2d 0a 23 20 54 65 73 74 73 20 73 68  -----.# Tests sh
3bb0: 61 72 65 64 2d 37 2e 2a 20 74 65 73 74 20 61 75  ared-7.* test au
3bc0: 74 6f 2d 76 61 63 75 75 6d 20 64 6f 65 73 20 6e  to-vacuum does n
3bd0: 6f 74 20 69 6e 76 61 6c 69 64 61 74 65 20 63 75  ot invalidate cu
3be0: 72 73 6f 72 73 20 66 72 6f 6d 0a 23 20 6f 74 68  rsors from.# oth
3bf0: 65 72 20 73 68 61 72 65 64 2d 63 61 63 68 65 20  er shared-cache 
3c00: 75 73 65 72 73 20 77 68 65 6e 20 69 74 20 72 65  users when it re
3c10: 6f 72 67 61 6e 69 7a 65 73 20 74 68 65 20 64 61  organizes the da
3c20: 74 61 62 61 73 65 20 6f 6e 20 0a 23 20 43 4f 4d  tabase on .# COM
3c30: 4d 49 54 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 73  MIT..#.do_test s
3c40: 68 61 72 65 64 2d 24 61 76 2e 37 2e 31 20 7b 0a  hared-$av.7.1 {.
3c50: 20 20 23 20 54 68 69 73 20 74 65 73 74 20 63 61    # This test ca
3c60: 73 65 20 73 65 74 73 20 75 70 20 61 20 74 65 73  se sets up a tes
3c70: 74 20 64 61 74 61 62 61 73 65 20 69 6e 20 61 75  t database in au
3c80: 74 6f 2d 76 61 63 75 75 6d 20 6d 6f 64 65 20 63  to-vacuum mode c
3c90: 6f 6e 73 69 73 74 69 6e 67 20 0a 20 20 23 20 6f  onsisting .  # o
3ca0: 66 20 74 77 6f 20 74 61 62 6c 65 73 2c 20 74 31  f two tables, t1
3cb0: 20 61 6e 64 20 74 32 2e 20 42 6f 74 68 20 68 61   and t2. Both ha
3cc0: 76 65 20 61 20 73 69 6e 67 6c 65 20 69 6e 64 65  ve a single inde
3cd0: 78 2e 20 54 61 62 6c 65 20 74 31 20 69 73 20 0a  x. Table t1 is .
3ce0: 20 20 23 20 70 6f 70 75 6c 61 74 65 64 20 66 69    # populated fi
3cf0: 72 73 74 20 28 73 6f 20 63 6f 6e 73 69 73 74 73  rst (so consists
3d00: 20 6f 66 20 70 61 67 65 73 20 74 6f 77 61 72 64   of pages toward
3d10: 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 74 68   the start of th
3d20: 65 20 64 62 20 66 69 6c 65 29 2c 20 0a 20 20 23  e db file), .  #
3d30: 20 74 32 20 73 65 63 6f 6e 64 20 28 70 61 67 65   t2 second (page
3d40: 73 20 74 6f 77 61 72 64 20 74 68 65 20 65 6e 64  s toward the end
3d50: 20 6f 66 20 74 68 65 20 66 69 6c 65 29 2e 20 0a   of the file). .
3d60: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73    sqlite3 db tes
3d70: 74 2e 64 62 0a 20 20 73 71 6c 69 74 65 33 20 64  t.db.  sqlite3 d
3d80: 62 32 20 74 65 73 74 2e 64 62 0a 20 20 65 78 65  b2 test.db.  exe
3d90: 63 73 71 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e  csql {.    BEGIN
3da0: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ;.    CREATE TAB
3db0: 4c 45 20 74 31 28 61 20 50 52 49 4d 41 52 59 20  LE t1(a PRIMARY 
3dc0: 4b 45 59 2c 20 62 29 3b 0a 20 20 20 20 43 52 45  KEY, b);.    CRE
3dd0: 41 54 45 20 54 41 42 4c 45 20 74 32 28 61 20 50  ATE TABLE t2(a P
3de0: 52 49 4d 41 52 59 20 4b 45 59 2c 20 62 29 3b 0a  RIMARY KEY, b);.
3df0: 20 20 7d 0a 20 20 73 65 74 20 3a 3a 63 6f 6e 74    }.  set ::cont
3e00: 65 6e 74 73 20 7b 7d 0a 20 20 66 6f 72 20 7b 73  ents {}.  for {s
3e10: 65 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 31 30  et i 0} {$i < 10
3e20: 30 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20  0} {incr i} {.  
3e30: 20 20 73 65 74 20 61 20 5b 73 74 72 69 6e 67 20    set a [string 
3e40: 72 65 70 65 61 74 20 22 24 69 20 22 20 32 30 5d  repeat "$i " 20]
3e50: 0a 20 20 20 20 73 65 74 20 62 20 5b 73 74 72 69  .    set b [stri
3e60: 6e 67 20 72 65 70 65 61 74 20 22 24 69 20 22 20  ng repeat "$i " 
3e70: 32 30 5d 0a 20 20 20 20 64 62 20 65 76 61 6c 20  20].    db eval 
3e80: 7b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49  {.      INSERT I
3e90: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 3a 61  NTO t1 VALUES(:a
3ea0: 2c 20 3a 62 29 3b 0a 20 20 20 20 7d 0a 20 20 20  , :b);.    }.   
3eb0: 20 6c 61 70 70 65 6e 64 20 3a 3a 63 6f 6e 74 65   lappend ::conte
3ec0: 6e 74 73 20 5b 6c 69 73 74 20 5b 65 78 70 72 20  nts [list [expr 
3ed0: 24 69 2b 31 5d 20 24 61 20 24 62 5d 0a 20 20 7d  $i+1] $a $b].  }
3ee0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
3ef0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 20   INSERT INTO t2 
3f00: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
3f10: 3b 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20  ;.    COMMIT;.  
3f20: 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 73  }.} {}.do_test s
3f30: 68 61 72 65 64 2d 24 61 76 2e 37 2e 32 20 7b 0a  hared-$av.7.2 {.
3f40: 20 20 23 20 54 68 69 73 20 74 65 73 74 20 63 61    # This test ca
3f50: 73 65 20 64 65 6c 65 74 65 73 20 74 68 65 20 63  se deletes the c
3f60: 6f 6e 74 65 6e 74 73 20 6f 66 20 74 61 62 6c 65  ontents of table
3f70: 20 74 31 20 28 74 68 65 20 6f 6e 65 20 61 74 20   t1 (the one at 
3f80: 74 68 65 20 73 74 61 72 74 20 6f 66 0a 20 20 23  the start of.  #
3f90: 20 74 68 65 20 66 69 6c 65 29 20 77 68 69 6c 65   the file) while
3fa0: 20 6d 61 6e 79 20 63 75 72 73 6f 72 73 20 61 72   many cursors ar
3fb0: 65 20 6f 70 65 6e 20 6f 6e 20 74 61 62 6c 65 20  e open on table 
3fc0: 74 32 20 61 6e 64 20 69 74 27 73 20 69 6e 64 65  t2 and it's inde
3fd0: 78 2e 20 41 6c 6c 20 6f 66 0a 20 20 23 20 74 68  x. All of.  # th
3fe0: 65 20 6e 6f 6e 2d 72 6f 6f 74 20 70 61 67 65 73  e non-root pages
3ff0: 20 77 69 6c 6c 20 62 65 20 6d 6f 76 65 64 20 66   will be moved f
4000: 72 6f 6d 20 74 68 65 20 65 6e 64 20 74 6f 20 74  rom the end to t
4010: 68 65 20 73 74 61 72 74 20 6f 66 20 74 68 65 20  he start of the 
4020: 66 69 6c 65 0a 20 20 23 20 77 68 65 6e 20 74 68  file.  # when th
4030: 65 20 44 45 4c 45 54 45 20 69 73 20 63 6f 6d 6d  e DELETE is comm
4040: 69 74 74 65 64 20 2d 20 74 68 69 73 20 74 65 73  itted - this tes
4050: 74 20 76 65 72 69 66 69 65 73 20 74 68 61 74 20  t verifies that 
4060: 6d 6f 76 69 6e 67 20 74 68 65 20 70 61 67 65 73  moving the pages
4070: 0a 20 20 23 20 64 6f 65 73 20 6e 6f 74 20 64 69  .  # does not di
4080: 73 74 75 72 62 20 74 68 65 20 6f 70 65 6e 20 63  sturb the open c
4090: 75 72 73 6f 72 73 2e 0a 20 20 23 0a 0a 20 20 70  ursors..  #..  p
40a0: 72 6f 63 20 6c 6f 63 6b 72 6f 77 20 7b 64 62 20  roc lockrow {db 
40b0: 74 62 6c 20 6f 69 64 73 20 62 6f 64 79 7d 20 7b  tbl oids body} {
40c0: 0a 20 20 20 20 73 65 74 20 72 65 74 20 5b 6c 69  .    set ret [li
40d0: 73 74 5d 0a 20 20 20 20 64 62 20 65 76 61 6c 20  st].    db eval 
40e0: 22 53 45 4c 45 43 54 20 6f 69 64 20 41 53 20 69  "SELECT oid AS i
40f0: 2c 20 61 2c 20 62 20 46 52 4f 4d 20 24 74 62 6c  , a, b FROM $tbl
4100: 20 4f 52 44 45 52 20 42 59 20 61 22 20 7b 0a 20   ORDER BY a" {. 
4110: 20 20 20 20 20 69 66 20 7b 24 69 3d 3d 5b 6c 69       if {$i==[li
4120: 6e 64 65 78 20 24 6f 69 64 73 20 30 5d 7d 20 7b  ndex $oids 0]} {
4130: 0a 20 20 20 20 20 20 20 20 73 65 74 20 6e 6f 69  .        set noi
4140: 64 73 20 5b 6c 72 61 6e 67 65 20 24 6f 69 64 73  ds [lrange $oids
4150: 20 31 20 65 6e 64 5d 0a 20 20 20 20 20 20 20 20   1 end].        
4160: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6e 6f  if {[llength $no
4170: 69 64 73 5d 3d 3d 30 7d 20 7b 0a 20 20 20 20 20  ids]==0} {.     
4180: 20 20 20 20 20 73 65 74 20 73 75 62 72 65 74 20       set subret 
4190: 5b 65 76 61 6c 20 24 62 6f 64 79 5d 0a 20 20 20  [eval $body].   
41a0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20       } else {.  
41b0: 20 20 20 20 20 20 20 20 73 65 74 20 73 75 62 72          set subr
41c0: 65 74 20 5b 6c 6f 63 6b 72 6f 77 20 24 64 62 20  et [lockrow $db 
41d0: 24 74 62 6c 20 24 6e 6f 69 64 73 20 24 62 6f 64  $tbl $noids $bod
41e0: 79 5d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  y].        }.   
41f0: 20 20 20 7d 0a 20 20 20 20 20 20 6c 61 70 70 65     }.      lappe
4200: 6e 64 20 72 65 74 20 5b 6c 69 73 74 20 24 69 20  nd ret [list $i 
4210: 24 61 20 24 62 5d 0a 20 20 20 20 7d 0a 20 20 20  $a $b].    }.   
4220: 20 72 65 74 75 72 6e 20 5b 6c 69 6e 73 65 72 74   return [linsert
4230: 20 24 73 75 62 72 65 74 20 30 20 24 72 65 74 5d   $subret 0 $ret]
4240: 0a 20 20 7d 0a 20 20 70 72 6f 63 20 6c 6f 63 6b  .  }.  proc lock
4250: 74 62 6c 72 6f 77 73 20 7b 64 62 20 74 62 6c 20  tblrows {db tbl 
4260: 62 6f 64 79 7d 20 7b 0a 20 20 20 20 73 65 74 20  body} {.    set 
4270: 6f 69 64 73 20 5b 64 62 20 65 76 61 6c 20 22 53  oids [db eval "S
4280: 45 4c 45 43 54 20 6f 69 64 20 46 52 4f 4d 20 24  ELECT oid FROM $
4290: 74 62 6c 22 5d 0a 20 20 20 20 6c 6f 63 6b 72 6f  tbl"].    lockro
42a0: 77 20 24 64 62 20 24 74 62 6c 20 24 6f 69 64 73  w $db $tbl $oids
42b0: 20 24 62 6f 64 79 0a 20 20 7d 0a 0a 20 20 73 65   $body.  }..  se
42c0: 74 20 73 63 61 6e 73 20 5b 6c 6f 63 6b 74 62 6c  t scans [locktbl
42d0: 72 6f 77 73 20 64 62 20 74 32 20 7b 0a 20 20 20  rows db t2 {.   
42e0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20   execsql {.     
42f0: 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31 3b   DELETE FROM t1;
4300: 0a 20 20 20 20 7d 20 64 62 32 0a 20 20 7d 5d 0a  .    } db2.  }].
4310: 20 20 73 65 74 20 65 72 72 6f 72 20 30 0a 0a 20    set error 0.. 
4320: 20 23 20 54 65 73 74 20 74 68 61 74 20 65 61 63   # Test that eac
4330: 68 20 53 45 4c 45 43 54 20 71 75 65 72 79 20 72  h SELECT query r
4340: 65 74 75 72 6e 65 64 20 74 68 65 20 65 78 70 65  eturned the expe
4350: 63 74 65 64 20 63 6f 6e 74 65 6e 74 73 20 6f 66  cted contents of
4360: 20 74 32 2e 0a 20 20 66 6f 72 65 61 63 68 20 73   t2..  foreach s
4370: 20 24 73 63 61 6e 73 20 7b 0a 20 20 20 20 69 66   $scans {.    if
4380: 20 7b 5b 6c 73 6f 72 74 20 2d 69 6e 74 65 67 65   {[lsort -intege
4390: 72 20 2d 69 6e 64 65 78 20 30 20 24 73 5d 21 3d  r -index 0 $s]!=
43a0: 24 3a 3a 63 6f 6e 74 65 6e 74 73 7d 20 7b 0a 20  $::contents} {. 
43b0: 20 20 20 20 20 73 65 74 20 65 72 72 6f 72 20 31       set error 1
43c0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 73 65 74  .    }.  }.  set
43d0: 20 65 72 72 6f 72 0a 7d 20 7b 30 7d 0a 0a 63 61   error.} {0}..ca
43e0: 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 63  tch {db close}.c
43f0: 61 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d  atch {db2 close}
4400: 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61  .unset -nocompla
4410: 69 6e 20 63 6f 6e 74 65 6e 74 73 0a 0a 23 2d 2d  in contents..#--
4420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4460: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 68 65 20 66  --------.# The f
4470: 6f 6c 6c 6f 77 69 6e 67 20 74 65 73 74 73 20 74  ollowing tests t
4480: 72 79 20 74 6f 20 74 72 69 63 6b 20 74 68 65 20  ry to trick the 
4490: 73 68 61 72 65 64 2d 63 61 63 68 65 20 63 6f 64  shared-cache cod
44a0: 65 20 69 6e 74 6f 20 61 73 73 75 6d 69 6e 67 0a  e into assuming.
44b0: 23 20 74 68 65 20 77 72 6f 6e 67 20 65 6e 63 6f  # the wrong enco
44c0: 64 69 6e 67 20 66 6f 72 20 61 20 64 61 74 61 62  ding for a datab
44d0: 61 73 65 2e 0a 23 0a 66 69 6c 65 20 64 65 6c 65  ase..#.file dele
44e0: 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64  te -force test.d
44f0: 62 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61  b test.db-journa
4500: 6c 0a 69 66 63 61 70 61 62 6c 65 20 75 74 66 31  l.ifcapable utf1
4510: 36 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 73 68  6 {.  do_test sh
4520: 61 72 65 64 2d 24 61 76 2e 38 2e 31 2e 31 20 7b  ared-$av.8.1.1 {
4530: 0a 20 20 20 20 73 71 6c 69 74 65 33 20 64 62 20  .    sqlite3 db 
4540: 74 65 73 74 2e 64 62 0a 20 20 20 20 65 78 65 63  test.db.    exec
4550: 73 71 6c 20 7b 0a 20 20 20 20 20 20 50 52 41 47  sql {.      PRAG
4560: 4d 41 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55  MA encoding = 'U
4570: 54 46 2d 31 36 27 3b 0a 20 20 20 20 20 20 53 45  TF-16';.      SE
4580: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69  LECT * FROM sqli
4590: 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20 20 20 7d  te_master;.    }
45a0: 0a 20 20 7d 20 7b 7d 0a 20 20 64 6f 5f 74 65 73  .  } {}.  do_tes
45b0: 74 20 73 68 61 72 65 64 2d 24 61 76 2e 38 2e 31  t shared-$av.8.1
45c0: 2e 32 20 7b 0a 20 20 20 20 73 74 72 69 6e 67 20  .2 {.    string 
45d0: 72 61 6e 67 65 20 5b 65 78 65 63 73 71 6c 20 7b  range [execsql {
45e0: 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 3b  PRAGMA encoding;
45f0: 7d 5d 20 30 20 65 6e 64 2d 32 0a 20 20 7d 20 7b  }] 0 end-2.  } {
4600: 55 54 46 2d 31 36 7d 0a 20 20 64 6f 5f 74 65 73  UTF-16}.  do_tes
4610: 74 20 73 68 61 72 65 64 2d 24 61 76 2e 38 2e 31  t shared-$av.8.1
4620: 2e 33 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  .3 {.    sqlite3
4630: 20 64 62 32 20 74 65 73 74 2e 64 62 0a 20 20 20   db2 test.db.   
4640: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20   execsql {.     
4650: 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67   PRAGMA encoding
4660: 20 3d 20 27 55 54 46 2d 38 27 3b 0a 20 20 20 20   = 'UTF-8';.    
4670: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 61    CREATE TABLE a
4680: 62 63 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 20  bc(a, b, c);.   
4690: 20 7d 20 64 62 32 0a 20 20 7d 20 7b 7d 0a 20 20   } db2.  } {}.  
46a0: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
46b0: 61 76 2e 38 2e 31 2e 34 20 7b 0a 20 20 20 20 65  av.8.1.4 {.    e
46c0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 53  xecsql {.      S
46d0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c  ELECT * FROM sql
46e0: 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20 20 20  ite_master;.    
46f0: 7d 0a 20 20 7d 20 22 74 61 62 6c 65 20 61 62 63  }.  } "table abc
4700: 20 61 62 63 20 5b 65 78 70 72 20 24 41 55 54 4f   abc [expr $AUTO
4710: 56 41 43 55 55 4d 3f 33 3a 32 5d 20 7b 43 52 45  VACUUM?3:2] {CRE
4720: 41 54 45 20 54 41 42 4c 45 20 61 62 63 28 61 2c  ATE TABLE abc(a,
4730: 20 62 2c 20 63 29 7d 22 0a 20 20 64 6f 5f 74 65   b, c)}".  do_te
4740: 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 38 2e  st shared-$av.8.
4750: 31 2e 35 20 7b 0a 20 20 20 20 64 62 32 20 63 6c  1.5 {.    db2 cl
4760: 6f 73 65 0a 20 20 20 20 65 78 65 63 73 71 6c 20  ose.    execsql 
4770: 7b 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 65  {.      PRAGMA e
4780: 6e 63 6f 64 69 6e 67 3b 0a 20 20 20 20 7d 0a 20  ncoding;.    }. 
4790: 20 7d 20 7b 55 54 46 2d 38 7d 0a 20 20 66 69 6c   } {UTF-8}.  fil
47a0: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
47b0: 74 65 73 74 32 2e 64 62 20 74 65 73 74 32 2e 64  test2.db test2.d
47c0: 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20 64 6f 5f 74  b-journal.  do_t
47d0: 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 38  est shared-$av.8
47e0: 2e 32 2e 31 20 7b 0a 20 20 20 20 65 78 65 63 73  .2.1 {.    execs
47f0: 71 6c 20 7b 0a 20 20 20 20 20 20 41 54 54 41 43  ql {.      ATTAC
4800: 48 20 27 74 65 73 74 32 2e 64 62 27 20 41 53 20  H 'test2.db' AS 
4810: 61 75 78 3b 0a 20 20 20 20 20 20 53 45 4c 45 43  aux;.      SELEC
4820: 54 20 2a 20 46 52 4f 4d 20 61 75 78 2e 73 71 6c  T * FROM aux.sql
4830: 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20 20 20  ite_master;.    
4840: 7d 0a 20 20 7d 20 7b 7d 0a 20 20 64 6f 5f 74 65  }.  } {}.  do_te
4850: 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 38 2e  st shared-$av.8.
4860: 32 2e 32 20 7b 0a 20 20 20 20 73 71 6c 69 74 65  2.2 {.    sqlite
4870: 33 20 64 62 32 20 74 65 73 74 32 2e 64 62 0a 20  3 db2 test2.db. 
4880: 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20     execsql {.   
4890: 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69     PRAGMA encodi
48a0: 6e 67 20 3d 20 27 55 54 46 2d 31 36 27 3b 0a 20  ng = 'UTF-16';. 
48b0: 20 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c       CREATE TABL
48c0: 45 20 64 65 66 28 64 2c 20 65 2c 20 66 29 3b 0a  E def(d, e, f);.
48d0: 20 20 20 20 7d 20 64 62 32 0a 20 20 20 20 73 74      } db2.    st
48e0: 72 69 6e 67 20 72 61 6e 67 65 20 5b 65 78 65 63  ring range [exec
48f0: 73 71 6c 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f  sql {PRAGMA enco
4900: 64 69 6e 67 3b 7d 20 64 62 32 5d 20 30 20 65 6e  ding;} db2] 0 en
4910: 64 2d 32 0a 20 20 7d 20 7b 55 54 46 2d 31 36 7d  d-2.  } {UTF-16}
4920: 0a 0a 23 20 42 75 67 20 23 32 35 34 37 20 69 73  ..# Bug #2547 is
4930: 20 63 61 75 73 69 6e 67 20 74 68 69 73 20 74 6f   causing this to
4940: 20 66 61 69 6c 2e 0a 69 66 20 30 20 7b 0a 20 20   fail..if 0 {.  
4950: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
4960: 61 76 2e 38 2e 32 2e 33 20 7b 0a 20 20 20 20 63  av.8.2.3 {.    c
4970: 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 20 20  atchsql {.      
4980: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 75  SELECT * FROM au
4990: 78 2e 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b  x.sqlite_master;
49a0: 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 31 20 7b 61  .    }.  } {1 {a
49b0: 74 74 61 63 68 65 64 20 64 61 74 61 62 61 73 65  ttached database
49c0: 73 20 6d 75 73 74 20 75 73 65 20 74 68 65 20 73  s must use the s
49d0: 61 6d 65 20 74 65 78 74 20 65 6e 63 6f 64 69 6e  ame text encodin
49e0: 67 20 61 73 20 6d 61 69 6e 20 64 61 74 61 62 61  g as main databa
49f0: 73 65 7d 7d 0a 7d 0a 7d 0a 0a 63 61 74 63 68 20  se}}.}.}..catch 
4a00: 7b 64 62 20 63 6c 6f 73 65 7d 0a 63 61 74 63 68  {db close}.catch
4a10: 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 66 69 6c   {db2 close}.fil
4a20: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
4a30: 74 65 73 74 2e 64 62 20 74 65 73 74 32 2e 64 62  test.db test2.db
4a40: 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ..#-------------
4a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23  --------------.#
4a90: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74   The following t
4aa0: 65 73 74 73 20 2d 20 73 68 61 72 65 64 2d 39 2e  ests - shared-9.
4ab0: 2a 20 2d 20 74 65 73 74 20 69 6e 74 65 72 61 63  * - test interac
4ac0: 74 69 6f 6e 73 20 62 65 74 77 65 65 6e 20 54 45  tions between TE
4ad0: 4d 50 20 74 72 69 67 67 65 72 73 0a 23 20 61 6e  MP triggers.# an
4ae0: 64 20 73 68 61 72 65 64 2d 73 63 68 65 6d 61 73  d shared-schemas
4af0: 2e 0a 23 0a 69 66 63 61 70 61 62 6c 65 20 74 72  ..#.ifcapable tr
4b00: 69 67 67 65 72 26 26 74 65 6d 70 64 62 20 7b 0a  igger&&tempdb {.
4b10: 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d  .do_test shared-
4b20: 24 61 76 2e 39 2e 31 20 7b 0a 20 20 73 71 6c 69  $av.9.1 {.  sqli
4b30: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20  te3 db test.db. 
4b40: 20 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73   sqlite3 db2 tes
4b50: 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b  t.db.  execsql {
4b60: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
4b70: 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29 3b 0a  E abc(a, b, c);.
4b80: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
4b90: 20 61 62 63 5f 6d 69 72 72 6f 72 28 61 2c 20 62   abc_mirror(a, b
4ba0: 2c 20 63 29 3b 0a 20 20 20 20 43 52 45 41 54 45  , c);.    CREATE
4bb0: 20 54 45 4d 50 20 54 52 49 47 47 45 52 20 42 45   TEMP TRIGGER BE
4bc0: 46 4f 52 45 20 49 4e 53 45 52 54 20 4f 4e 20 61  FORE INSERT ON a
4bd0: 62 63 20 42 45 47 49 4e 20 0a 20 20 20 20 20 20  bc BEGIN .      
4be0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 5f  INSERT INTO abc_
4bf0: 6d 69 72 72 6f 72 28 61 2c 20 62 2c 20 63 29 20  mirror(a, b, c) 
4c00: 56 41 4c 55 45 53 28 6e 65 77 2e 61 2c 20 6e 65  VALUES(new.a, ne
4c10: 77 2e 62 2c 20 6e 65 77 2e 63 29 3b 0a 20 20 20  w.b, new.c);.   
4c20: 20 45 4e 44 3b 0a 20 20 20 20 49 4e 53 45 52 54   END;.    INSERT
4c30: 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55 45 53   INTO abc VALUES
4c40: 28 31 2c 20 32 2c 20 33 29 3b 0a 20 20 20 20 53  (1, 2, 3);.    S
4c50: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63  ELECT * FROM abc
4c60: 5f 6d 69 72 72 6f 72 3b 0a 20 20 7d 0a 7d 20 7b  _mirror;.  }.} {
4c70: 31 20 32 20 33 7d 0a 64 6f 5f 74 65 73 74 20 73  1 2 3}.do_test s
4c80: 68 61 72 65 64 2d 24 61 76 2e 39 2e 32 20 7b 0a  hared-$av.9.2 {.
4c90: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
4ca0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20  INSERT INTO abc 
4cb0: 56 41 4c 55 45 53 28 34 2c 20 35 2c 20 36 29 3b  VALUES(4, 5, 6);
4cc0: 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52  .    SELECT * FR
4cd0: 4f 4d 20 61 62 63 5f 6d 69 72 72 6f 72 3b 0a 20  OM abc_mirror;. 
4ce0: 20 7d 20 64 62 32 0a 7d 20 7b 31 20 32 20 33 7d   } db2.} {1 2 3}
4cf0: 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d  .do_test shared-
4d00: 24 61 76 2e 39 2e 33 20 7b 0a 20 20 64 62 20 63  $av.9.3 {.  db c
4d10: 6c 6f 73 65 0a 20 20 64 62 32 20 63 6c 6f 73 65  lose.  db2 close
4d20: 0a 7d 20 7b 7d 0a 0a 7d 20 3b 20 23 20 45 6e 64  .} {}..} ; # End
4d30: 20 73 68 61 72 65 64 2d 39 2e 2a 0a 0a 23 2d 2d   shared-9.*..#--
4d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 68 65 20  ---------.# The 
4d90: 66 6f 6c 6c 6f 77 69 6e 67 20 74 65 73 74 73 20  following tests 
4da0: 2d 20 73 68 61 72 65 64 2d 31 30 2e 2a 20 2d 20  - shared-10.* - 
4db0: 74 65 73 74 20 74 68 61 74 20 74 68 65 20 6c 69  test that the li
4dc0: 62 72 61 72 79 20 62 65 68 61 76 65 73 20 0a 23  brary behaves .#
4dd0: 20 63 6f 72 72 65 63 74 6c 79 20 77 68 65 6e 20   correctly when 
4de0: 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20  a connection to 
4df0: 61 20 73 68 61 72 65 64 2d 63 61 63 68 65 20 69  a shared-cache i
4e00: 73 20 63 6c 6f 73 65 64 2e 20 0a 23 0a 64 6f 5f  s closed. .#.do_
4e10: 74 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e  test shared-$av.
4e20: 31 30 2e 31 20 7b 0a 20 20 23 20 43 72 65 61 74  10.1 {.  # Creat
4e30: 65 20 61 20 73 6d 61 6c 6c 20 73 61 6d 70 6c 65  e a small sample
4e40: 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20 74   database with t
4e50: 77 6f 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 74  wo connections t
4e60: 6f 20 69 74 20 28 64 62 20 61 6e 64 20 64 62 32  o it (db and db2
4e70: 29 2e 0a 20 20 66 69 6c 65 20 64 65 6c 65 74 65  )..  file delete
4e80: 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 0a   -force test.db.
4e90: 20 20 73 71 6c 69 74 65 33 20 64 62 20 20 74 65    sqlite3 db  te
4ea0: 73 74 2e 64 62 0a 20 20 73 71 6c 69 74 65 33 20  st.db.  sqlite3 
4eb0: 64 62 32 20 74 65 73 74 2e 64 62 0a 20 20 65 78  db2 test.db.  ex
4ec0: 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 52 45 41  ecsql {.    CREA
4ed0: 54 45 20 54 41 42 4c 45 20 61 62 28 61 20 50 52  TE TABLE ab(a PR
4ee0: 49 4d 41 52 59 20 4b 45 59 2c 20 62 29 3b 0a 20  IMARY KEY, b);. 
4ef0: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
4f00: 64 65 28 64 20 50 52 49 4d 41 52 59 20 4b 45 59  de(d PRIMARY KEY
4f10: 2c 20 65 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  , e);.    INSERT
4f20: 20 49 4e 54 4f 20 61 62 20 56 41 4c 55 45 53 28   INTO ab VALUES(
4f30: 27 43 68 69 61 6e 67 20 4d 61 69 27 2c 20 31 30  'Chiang Mai', 10
4f40: 30 30 30 30 29 3b 0a 20 20 20 20 49 4e 53 45 52  0000);.    INSER
4f50: 54 20 49 4e 54 4f 20 61 62 20 56 41 4c 55 45 53  T INTO ab VALUES
4f60: 28 27 42 61 6e 67 6b 6f 6b 27 2c 20 38 30 30 30  ('Bangkok', 8000
4f70: 30 30 30 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  000);.    INSERT
4f80: 20 49 4e 54 4f 20 64 65 20 56 41 4c 55 45 53 28   INTO de VALUES(
4f90: 27 55 62 6f 6e 27 2c 20 31 32 30 30 30 30 29 3b  'Ubon', 120000);
4fa0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
4fb0: 20 64 65 20 56 41 4c 55 45 53 28 27 4b 68 6f 6e   de VALUES('Khon
4fc0: 20 4b 61 65 6e 27 2c 20 32 30 30 30 30 30 29 3b   Kaen', 200000);
4fd0: 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73  .  }.} {}.do_tes
4fe0: 74 20 73 68 61 72 65 64 2d 24 61 76 2e 31 30 2e  t shared-$av.10.
4ff0: 32 20 7b 0a 20 20 23 20 4f 70 65 6e 20 61 20 72  2 {.  # Open a r
5000: 65 61 64 2d 74 72 61 6e 73 61 63 74 69 6f 6e 20  ead-transaction 
5010: 77 69 74 68 20 74 68 65 20 66 69 72 73 74 20 63  with the first c
5020: 6f 6e 6e 65 63 74 69 6f 6e 2c 20 61 20 77 72 69  onnection, a wri
5030: 74 65 2d 74 72 61 6e 73 61 63 74 69 6f 6e 0a 20  te-transaction. 
5040: 20 23 20 77 69 74 68 20 74 68 65 20 73 65 63 6f   # with the seco
5050: 6e 64 2e 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  nd..  execsql {.
5060: 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 53      BEGIN;.    S
5070: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 3b  ELECT * FROM ab;
5080: 0a 20 20 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b  .  }.  execsql {
5090: 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20  .    BEGIN;.    
50a0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 64 65 20 56  INSERT INTO de V
50b0: 41 4c 55 45 53 28 27 50 61 74 61 79 61 27 2c 20  ALUES('Pataya', 
50c0: 33 30 30 30 30 29 3b 0a 20 20 7d 20 64 62 32 0a  30000);.  } db2.
50d0: 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61  } {}.do_test sha
50e0: 72 65 64 2d 24 61 76 2e 31 30 2e 33 20 7b 0a 20  red-$av.10.3 {. 
50f0: 20 23 20 41 6e 20 65 78 74 65 72 6e 61 6c 20 63   # An external c
5100: 6f 6e 6e 65 63 74 69 6f 6e 20 73 68 6f 75 6c 64  onnection should
5110: 20 62 65 20 61 62 6c 65 20 74 6f 20 72 65 61 64   be able to read
5120: 20 74 68 65 20 64 61 74 61 62 61 73 65 2c 20 62   the database, b
5130: 75 74 20 6e 6f 74 0a 20 20 23 20 70 72 65 70 61  ut not.  # prepa
5140: 72 65 20 61 20 77 72 69 74 65 20 6f 70 65 72 61  re a write opera
5150: 74 69 6f 6e 2e 0a 20 20 69 66 20 7b 24 3a 3a 74  tion..  if {$::t
5160: 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61 74  cl_platform(plat
5170: 66 6f 72 6d 29 3d 3d 22 75 6e 69 78 22 7d 20 7b  form)=="unix"} {
5180: 0a 20 20 20 20 73 71 6c 69 74 65 33 20 64 62 33  .    sqlite3 db3
5190: 20 2e 2f 74 65 73 74 2e 64 62 0a 20 20 7d 20 65   ./test.db.  } e
51a0: 6c 73 65 20 7b 0a 20 20 20 20 73 71 6c 69 74 65  lse {.    sqlite
51b0: 33 20 64 62 33 20 54 45 53 54 2e 44 42 0a 20 20  3 db3 TEST.DB.  
51c0: 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  }.  execsql {.  
51d0: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
51e0: 61 62 3b 0a 20 20 7d 20 64 62 33 0a 20 20 63 61  ab;.  } db3.  ca
51f0: 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 42 45 47  tchsql {.    BEG
5200: 49 4e 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  IN;.    INSERT I
5210: 4e 54 4f 20 64 65 20 56 41 4c 55 45 53 28 27 50  NTO de VALUES('P
5220: 61 74 61 79 61 27 2c 20 33 30 30 30 30 29 3b 0a  ataya', 30000);.
5230: 20 20 7d 20 64 62 33 0a 7d 20 7b 31 20 7b 64 61    } db3.} {1 {da
5240: 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64  tabase is locked
5250: 7d 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65  }}.do_test share
5260: 64 2d 24 61 76 2e 31 30 2e 34 20 7b 0a 20 20 23  d-$av.10.4 {.  #
5270: 20 43 6c 6f 73 65 20 74 68 65 20 63 6f 6e 6e 65   Close the conne
5280: 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 77  ction with the w
5290: 72 69 74 65 2d 74 72 61 6e 73 61 63 74 69 6f 6e  rite-transaction
52a0: 20 6f 70 65 6e 0a 20 20 64 62 32 20 63 6c 6f 73   open.  db2 clos
52b0: 65 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 73  e.} {}.do_test s
52c0: 68 61 72 65 64 2d 24 61 76 2e 31 30 2e 35 20 7b  hared-$av.10.5 {
52d0: 0a 20 20 23 20 54 65 73 74 20 74 68 61 74 20 74  .  # Test that t
52e0: 68 65 20 64 62 32 20 74 72 61 6e 73 61 63 74 69  he db2 transacti
52f0: 6f 6e 20 68 61 73 20 62 65 65 6e 20 61 75 74 6f  on has been auto
5300: 6d 61 74 69 63 61 6c 6c 79 20 72 6f 6c 6c 65 64  matically rolled
5310: 20 62 61 63 6b 2e 0a 20 20 23 20 49 66 20 69 74   back..  # If it
5320: 20 68 61 73 20 6e 6f 74 20 74 68 65 20 28 27 50   has not the ('P
5330: 61 74 61 79 61 27 2c 20 33 30 30 30 30 29 20 65  ataya', 30000) e
5340: 6e 74 72 79 20 77 69 6c 6c 20 73 74 69 6c 6c 20  ntry will still 
5350: 62 65 20 69 6e 20 74 68 65 20 74 61 62 6c 65 2e  be in the table.
5360: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
5370: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 64   SELECT * FROM d
5380: 65 3b 0a 20 20 7d 0a 7d 20 7b 55 62 6f 6e 20 31  e;.  }.} {Ubon 1
5390: 32 30 30 30 30 20 7b 4b 68 6f 6e 20 4b 61 65 6e  20000 {Khon Kaen
53a0: 7d 20 32 30 30 30 30 30 7d 0a 64 6f 5f 74 65 73  } 200000}.do_tes
53b0: 74 20 73 68 61 72 65 64 2d 24 61 76 2e 31 30 2e  t shared-$av.10.
53c0: 35 20 7b 0a 20 20 23 20 43 6c 6f 73 69 6e 67 20  5 {.  # Closing 
53d0: 64 62 32 20 73 68 6f 75 6c 64 20 68 61 76 65 20  db2 should have 
53e0: 64 72 6f 70 70 65 64 20 74 68 65 20 73 68 61 72  dropped the shar
53f0: 65 64 2d 63 61 63 68 65 20 62 61 63 6b 20 74 6f  ed-cache back to
5400: 20 61 20 72 65 61 64 2d 6c 6f 63 6b 2e 0a 20 20   a read-lock..  
5410: 23 20 53 6f 20 64 62 33 20 73 68 6f 75 6c 64 20  # So db3 should 
5420: 62 65 20 61 62 6c 65 20 74 6f 20 70 72 65 70 61  be able to prepa
5430: 72 65 20 61 20 77 72 69 74 65 2e 2e 2e 0a 20 20  re a write....  
5440: 63 61 74 63 68 73 71 6c 20 7b 49 4e 53 45 52 54  catchsql {INSERT
5450: 20 49 4e 54 4f 20 64 65 20 56 41 4c 55 45 53 28   INTO de VALUES(
5460: 27 50 61 74 61 79 61 27 2c 20 33 30 30 30 30 29  'Pataya', 30000)
5470: 3b 7d 20 64 62 33 0a 7d 20 7b 30 20 7b 7d 7d 0a  ;} db3.} {0 {}}.
5480: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
5490: 61 76 2e 31 30 2e 36 20 7b 0a 20 20 23 20 2e 2e  av.10.6 {.  # ..
54a0: 2e 20 62 75 74 20 6e 6f 74 20 63 6f 6d 6d 69 74  . but not commit
54b0: 20 69 74 2e 0a 20 20 63 61 74 63 68 73 71 6c 20   it..  catchsql 
54c0: 7b 43 4f 4d 4d 49 54 7d 20 64 62 33 0a 7d 20 7b  {COMMIT} db3.} {
54d0: 31 20 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c  1 {database is l
54e0: 6f 63 6b 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20  ocked}}.do_test 
54f0: 73 68 61 72 65 64 2d 24 61 76 2e 31 30 2e 37 20  shared-$av.10.7 
5500: 7b 0a 20 20 23 20 43 6f 6d 6d 69 74 20 74 68 65  {.  # Commit the
5510: 20 28 72 65 61 64 2d 6f 6e 6c 79 29 20 64 62 20   (read-only) db 
5520: 74 72 61 6e 73 61 63 74 69 6f 6e 2e 20 43 68 65  transaction. Che
5530: 63 6b 20 76 69 61 20 64 62 33 20 74 6f 20 6d 61  ck via db3 to ma
5540: 6b 65 20 73 75 72 65 20 74 68 65 20 0a 20 20 23  ke sure the .  #
5550: 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 61 62   contents of tab
5560: 6c 65 20 22 64 65 22 20 61 72 65 20 73 74 69 6c  le "de" are stil
5570: 6c 20 61 73 20 74 68 65 79 20 73 68 6f 75 6c 64  l as they should
5580: 20 62 65 2e 0a 20 20 65 78 65 63 73 71 6c 20 7b   be..  execsql {
5590: 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d  .    COMMIT;.  }
55a0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
55b0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 64   SELECT * FROM d
55c0: 65 3b 0a 20 20 7d 20 64 62 33 0a 7d 20 7b 55 62  e;.  } db3.} {Ub
55d0: 6f 6e 20 31 32 30 30 30 30 20 7b 4b 68 6f 6e 20  on 120000 {Khon 
55e0: 4b 61 65 6e 7d 20 32 30 30 30 30 30 20 50 61 74  Kaen} 200000 Pat
55f0: 61 79 61 20 33 30 30 30 30 7d 0a 64 6f 5f 74 65  aya 30000}.do_te
5600: 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 31 30  st shared-$av.10
5610: 2e 39 20 7b 0a 20 20 23 20 43 6f 6d 6d 69 74 20  .9 {.  # Commit 
5620: 74 68 65 20 65 78 74 65 72 6e 61 6c 20 74 72 61  the external tra
5630: 6e 73 61 63 74 69 6f 6e 2e 0a 20 20 63 61 74 63  nsaction..  catc
5640: 68 73 71 6c 20 7b 43 4f 4d 4d 49 54 7d 20 64 62  hsql {COMMIT} db
5650: 33 0a 7d 20 7b 30 20 7b 7d 7d 0a 69 6e 74 65 67  3.} {0 {}}.integ
5660: 72 69 74 79 5f 63 68 65 63 6b 20 73 68 61 72 65  rity_check share
5670: 64 2d 24 61 76 2e 31 30 2e 31 30 0a 64 6f 5f 74  d-$av.10.10.do_t
5680: 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 31  est shared-$av.1
5690: 30 2e 31 31 20 7b 0a 20 20 64 62 20 63 6c 6f 73  0.11 {.  db clos
56a0: 65 0a 20 20 64 62 33 20 63 6c 6f 73 65 0a 7d 20  e.  db3 close.} 
56b0: 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20 73 68 61 72  {}..do_test shar
56c0: 65 64 2d 24 61 76 2e 31 31 2e 31 20 7b 0a 20 20  ed-$av.11.1 {.  
56d0: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
56e0: 63 65 20 74 65 73 74 2e 64 62 0a 20 20 73 71 6c  ce test.db.  sql
56f0: 69 74 65 33 20 64 62 20 20 74 65 73 74 2e 64 62  ite3 db  test.db
5700: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32 20 74  .  sqlite3 db2 t
5710: 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c  est.db.  execsql
5720: 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41   {.    CREATE TA
5730: 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29  BLE abc(a, b, c)
5740: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ;.    CREATE TAB
5750: 4c 45 20 61 62 63 32 28 61 2c 20 62 2c 20 63 29  LE abc2(a, b, c)
5760: 3b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20  ;.    BEGIN;.   
5770: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63   INSERT INTO abc
5780: 20 56 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29   VALUES(1, 2, 3)
5790: 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65  ;.  }.} {}.do_te
57a0: 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e 31 31  st shared-$av.11
57b0: 2e 32 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  .2 {.  catchsql 
57c0: 7b 42 45 47 49 4e 3b 7d 20 64 62 32 0a 20 20 63  {BEGIN;} db2.  c
57d0: 61 74 63 68 73 71 6c 20 7b 53 45 4c 45 43 54 20  atchsql {SELECT 
57e0: 2a 20 46 52 4f 4d 20 61 62 63 3b 7d 20 64 62 32  * FROM abc;} db2
57f0: 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20  .} {1 {database 
5800: 74 61 62 6c 65 20 69 73 20 6c 6f 63 6b 65 64 3a  table is locked:
5810: 20 61 62 63 7d 7d 0a 64 6f 5f 74 65 73 74 20 73   abc}}.do_test s
5820: 68 61 72 65 64 2d 24 61 76 2e 31 31 2e 33 20 7b  hared-$av.11.3 {
5830: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 42 45 47  .  catchsql {BEG
5840: 49 4e 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 63 61  IN} db2.} {1 {ca
5850: 6e 6e 6f 74 20 73 74 61 72 74 20 61 20 74 72 61  nnot start a tra
5860: 6e 73 61 63 74 69 6f 6e 20 77 69 74 68 69 6e 20  nsaction within 
5870: 61 20 74 72 61 6e 73 61 63 74 69 6f 6e 7d 7d 0a  a transaction}}.
5880: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
5890: 61 76 2e 31 31 2e 34 20 7b 0a 20 20 63 61 74 63  av.11.4 {.  catc
58a0: 68 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  hsql {SELECT * F
58b0: 52 4f 4d 20 61 62 63 32 3b 7d 20 64 62 32 0a 7d  ROM abc2;} db2.}
58c0: 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20   {0 {}}.do_test 
58d0: 73 68 61 72 65 64 2d 24 61 76 2e 31 31 2e 35 20  shared-$av.11.5 
58e0: 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 49 4e  {.  catchsql {IN
58f0: 53 45 52 54 20 49 4e 54 4f 20 61 62 63 32 20 56  SERT INTO abc2 V
5900: 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 7d  ALUES(1, 2, 3);}
5910: 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61 74 61 62   db2.} {1 {datab
5920: 61 73 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a  ase is locked}}.
5930: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
5940: 61 76 2e 31 31 2e 36 20 7b 0a 20 20 63 61 74 63  av.11.6 {.  catc
5950: 68 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  hsql {SELECT * F
5960: 52 4f 4d 20 61 62 63 32 7d 0a 7d 20 7b 30 20 7b  ROM abc2}.} {0 {
5970: 7d 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61 72 65  }}.do_test share
5980: 64 2d 24 61 76 2e 31 31 2e 36 20 7b 0a 20 20 65  d-$av.11.6 {.  e
5990: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 52 4f 4c  xecsql {.    ROL
59a0: 4c 42 41 43 4b 3b 0a 20 20 20 20 50 52 41 47 4d  LBACK;.    PRAGM
59b0: 41 20 72 65 61 64 5f 75 6e 63 6f 6d 6d 69 74 74  A read_uncommitt
59c0: 65 64 20 3d 20 31 3b 0a 20 20 7d 20 64 62 32 0a  ed = 1;.  } db2.
59d0: 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 73 68 61  } {}.do_test sha
59e0: 72 65 64 2d 24 61 76 2e 31 31 2e 37 20 7b 0a 20  red-$av.11.7 {. 
59f0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 49   execsql {.    I
5a00: 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 32 20  NSERT INTO abc2 
5a10: 56 41 4c 55 45 53 28 34 2c 20 35 2c 20 36 29 3b  VALUES(4, 5, 6);
5a20: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
5a30: 20 61 62 63 32 20 56 41 4c 55 45 53 28 37 2c 20   abc2 VALUES(7, 
5a40: 38 2c 20 39 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a  8, 9);.  }.} {}.
5a50: 64 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24  do_test shared-$
5a60: 61 76 2e 31 31 2e 38 20 7b 0a 20 20 73 65 74 20  av.11.8 {.  set 
5a70: 72 65 73 20 5b 6c 69 73 74 5d 0a 20 20 62 72 65  res [list].  bre
5a80: 61 6b 70 6f 69 6e 74 0a 20 20 64 62 32 20 65 76  akpoint.  db2 ev
5a90: 61 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20  al {.    SELECT 
5aa0: 61 62 63 2e 61 20 61 73 20 49 2c 20 61 62 63 32  abc.a as I, abc2
5ab0: 2e 61 20 61 73 20 49 49 20 46 52 4f 4d 20 61 62  .a as II FROM ab
5ac0: 63 2c 20 61 62 63 32 3b 0a 20 20 7d 20 7b 0a 20  c, abc2;.  } {. 
5ad0: 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20     execsql {.   
5ae0: 20 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 61     DELETE FROM a
5af0: 62 63 20 57 48 45 52 45 20 31 3b 0a 20 20 20 20  bc WHERE 1;.    
5b00: 7d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 72 65  }.    lappend re
5b10: 73 20 24 49 20 24 49 49 0a 20 20 7d 0a 20 20 73  s $I $II.  }.  s
5b20: 65 74 20 72 65 73 0a 7d 20 7b 31 20 34 20 7b 7d  et res.} {1 4 {}
5b30: 20 37 7d 0a 69 66 20 7b 5b 6c 6c 65 6e 67 74 68   7}.if {[llength
5b40: 20 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 20 73   [info command s
5b50: 71 6c 69 74 65 33 5f 73 68 61 72 65 64 5f 63 61  qlite3_shared_ca
5b60: 63 68 65 5f 72 65 70 6f 72 74 5d 5d 3d 3d 31 7d  che_report]]==1}
5b70: 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 73 68 61   {.  do_test sha
5b80: 72 65 64 2d 24 61 76 2e 31 31 2e 39 20 7b 0a 20  red-$av.11.9 {. 
5b90: 20 20 20 73 71 6c 69 74 65 33 5f 73 68 61 72 65     sqlite3_share
5ba0: 64 5f 63 61 63 68 65 5f 72 65 70 6f 72 74 20 0a  d_cache_report .
5bb0: 20 20 7d 20 5b 6c 69 73 74 20 5b 66 69 6c 65 20    } [list [file 
5bc0: 6e 6f 72 6d 61 6c 69 7a 65 20 74 65 73 74 2e 64  normalize test.d
5bd0: 62 5d 20 32 5d 0a 7d 0a 0a 64 6f 5f 74 65 73 74  b] 2].}..do_test
5be0: 20 73 68 61 72 65 64 2d 24 61 76 2e 31 31 2e 31   shared-$av.11.1
5bf0: 31 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20  1 {.  db close. 
5c00: 20 64 62 32 20 63 6c 6f 73 65 0a 7d 20 7b 7d 0a   db2 close.} {}.
5c10: 0a 23 20 54 68 69 73 20 74 65 73 74 73 20 74 68  .# This tests th
5c20: 61 74 20 69 66 20 69 74 20 69 73 20 69 6d 70 6f  at if it is impo
5c30: 73 73 69 62 6c 65 20 74 6f 20 66 72 65 65 20 61  ssible to free a
5c40: 6e 79 20 70 61 67 65 73 2c 20 53 51 4c 69 74 65  ny pages, SQLite
5c50: 20 77 69 6c 6c 0a 23 20 65 78 63 65 65 64 20 74   will.# exceed t
5c60: 68 65 20 6c 69 6d 69 74 20 73 65 74 20 62 79 20  he limit set by 
5c70: 50 52 41 47 4d 41 20 63 61 63 68 65 5f 73 69 7a  PRAGMA cache_siz
5c80: 65 2e 0a 66 69 6c 65 20 64 65 6c 65 74 65 20 2d  e..file delete -
5c90: 66 6f 72 63 65 20 74 65 73 74 2e 64 62 20 74 65  force test.db te
5ca0: 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 73 71  st.db-journal.sq
5cb0: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
5cc0: 20 0a 69 66 63 61 70 61 62 6c 65 20 70 61 67 65   .ifcapable page
5cd0: 72 5f 70 72 61 67 6d 61 73 20 7b 0a 20 20 64 6f  r_pragmas {.  do
5ce0: 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24 61 76  _test shared-$av
5cf0: 2e 31 32 2e 31 20 7b 0a 20 20 20 20 65 78 65 63  .12.1 {.    exec
5d00: 73 71 6c 20 7b 0a 20 20 20 20 20 20 50 52 41 47  sql {.      PRAG
5d10: 4d 41 20 63 61 63 68 65 5f 73 69 7a 65 20 3d 20  MA cache_size = 
5d20: 31 30 3b 0a 20 20 20 20 20 20 50 52 41 47 4d 41  10;.      PRAGMA
5d30: 20 63 61 63 68 65 5f 73 69 7a 65 3b 0a 20 20 20   cache_size;.   
5d40: 20 7d 0a 20 20 7d 20 7b 31 30 7d 0a 7d 0a 64 6f   }.  } {10}.}.do
5d50: 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24 61 76  _test shared-$av
5d60: 2e 31 32 2e 32 20 7b 0a 20 20 73 65 74 20 3a 3a  .12.2 {.  set ::
5d70: 64 62 5f 68 61 6e 64 6c 65 73 20 5b 6c 69 73 74  db_handles [list
5d80: 5d 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 20 31  ].  for {set i 1
5d90: 7d 20 7b 24 69 20 3c 20 31 35 7d 20 7b 69 6e 63  } {$i < 15} {inc
5da0: 72 20 69 7d 20 7b 0a 20 20 20 20 6c 61 70 70 65  r i} {.    lappe
5db0: 6e 64 20 3a 3a 64 62 5f 68 61 6e 64 6c 65 73 20  nd ::db_handles 
5dc0: 64 62 24 69 0a 20 20 20 20 73 71 6c 69 74 65 33  db$i.    sqlite3
5dd0: 20 64 62 24 69 20 74 65 73 74 2e 64 62 20 0a 20   db$i test.db . 
5de0: 20 20 20 65 78 65 63 73 71 6c 20 22 43 52 45 41     execsql "CREA
5df0: 54 45 20 54 41 42 4c 45 20 64 62 24 7b 69 7d 28  TE TABLE db${i}(
5e00: 61 2c 20 62 2c 20 63 29 22 20 64 62 24 69 20 0a  a, b, c)" db$i .
5e10: 20 20 20 20 65 78 65 63 73 71 6c 20 22 49 4e 53      execsql "INS
5e20: 45 52 54 20 49 4e 54 4f 20 64 62 24 7b 69 7d 20  ERT INTO db${i} 
5e30: 56 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 22  VALUES(1, 2, 3)"
5e40: 0a 20 20 7d 0a 7d 20 7b 7d 0a 70 72 6f 63 20 6e  .  }.} {}.proc n
5e50: 65 73 74 65 64 5f 73 65 6c 65 63 74 20 7b 68 61  ested_select {ha
5e60: 6e 64 6c 65 73 7d 20 7b 0a 20 20 5b 6c 69 6e 64  ndles} {.  [lind
5e70: 65 78 20 24 68 61 6e 64 6c 65 73 20 30 5d 20 65  ex $handles 0] e
5e80: 76 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 52  val "SELECT * FR
5e90: 4f 4d 20 5b 6c 69 6e 64 65 78 20 24 68 61 6e 64  OM [lindex $hand
5ea0: 6c 65 73 20 30 5d 22 20 7b 0a 20 20 20 20 6c 61  les 0]" {.    la
5eb0: 70 70 65 6e 64 20 3a 3a 72 65 73 20 24 61 20 24  ppend ::res $a $
5ec0: 62 20 24 63 0a 20 20 20 20 69 66 20 7b 5b 6c 6c  b $c.    if {[ll
5ed0: 65 6e 67 74 68 20 24 68 61 6e 64 6c 65 73 5d 3e  ength $handles]>
5ee0: 31 7d 20 7b 0a 20 20 20 20 20 20 6e 65 73 74 65  1} {.      neste
5ef0: 64 5f 73 65 6c 65 63 74 20 5b 6c 72 61 6e 67 65  d_select [lrange
5f00: 20 24 68 61 6e 64 6c 65 73 20 31 20 65 6e 64 5d   $handles 1 end]
5f10: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 64 6f 5f  .    }.  }.}.do_
5f20: 74 65 73 74 20 73 68 61 72 65 64 2d 24 61 76 2e  test shared-$av.
5f30: 31 32 2e 33 20 7b 0a 20 20 73 65 74 20 3a 3a 72  12.3 {.  set ::r
5f40: 65 73 20 5b 6c 69 73 74 5d 0a 20 20 6e 65 73 74  es [list].  nest
5f50: 65 64 5f 73 65 6c 65 63 74 20 24 3a 3a 64 62 5f  ed_select $::db_
5f60: 68 61 6e 64 6c 65 73 0a 20 20 73 65 74 20 3a 3a  handles.  set ::
5f70: 72 65 73 0a 7d 20 5b 73 74 72 69 6e 67 20 72 61  res.} [string ra
5f80: 6e 67 65 20 5b 73 74 72 69 6e 67 20 72 65 70 65  nge [string repe
5f90: 61 74 20 22 31 20 32 20 33 20 22 20 5b 6c 6c 65  at "1 2 3 " [lle
5fa0: 6e 67 74 68 20 24 3a 3a 64 62 5f 68 61 6e 64 6c  ngth $::db_handl
5fb0: 65 73 5d 5d 20 30 20 65 6e 64 2d 31 5d 0a 0a 64  es]] 0 end-1]..d
5fc0: 6f 5f 74 65 73 74 20 73 68 61 72 65 64 2d 24 61  o_test shared-$a
5fd0: 76 2e 31 32 2e 58 20 7b 0a 20 20 64 62 20 63 6c  v.12.X {.  db cl
5fe0: 6f 73 65 0a 20 20 66 6f 72 65 61 63 68 20 68 20  ose.  foreach h 
5ff0: 24 3a 3a 64 62 5f 68 61 6e 64 6c 65 73 20 7b 20  $::db_handles { 
6000: 0a 20 20 20 20 24 68 20 63 6c 6f 73 65 0a 20 20  .    $h close.  
6010: 7d 0a 7d 20 7b 7d 0a 0a 7d 0a 0a 73 71 6c 69 74  }.} {}..}..sqlit
6020: 65 33 5f 65 6e 61 62 6c 65 5f 73 68 61 72 65 64  e3_enable_shared
6030: 5f 63 61 63 68 65 20 24 3a 3a 65 6e 61 62 6c 65  _cache $::enable
6040: 5f 73 68 61 72 65 64 5f 63 61 63 68 65 0a 66 69  _shared_cache.fi
6050: 6e 69 73 68 5f 74 65 73 74 0a                    nish_test.