SQLite4
Hex Artifact Content
Not logged in

Artifact 134923cea60d762ea5dbbdd2398c2c97b79bcdf6:


0000: 23 20 32 30 30 37 20 4d 61 72 63 68 20 32 34 0a  # 2007 March 24.
0010: 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20 64  #.# The author d
0020: 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67  isclaims copyrig
0030: 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63  ht to this sourc
0040: 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63  e code.  In plac
0050: 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e  e of.# a legal n
0060: 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73 20 61  otice, here is a
0070: 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20   blessing:.#.#  
0080: 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f    May you do goo
0090: 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a  d and not evil..
00a0: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e  #    May you fin
00b0: 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f  d forgiveness fo
00c0: 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66  r yourself and f
00d0: 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23  orgive others..#
00e0: 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72      May you shar
00f0: 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20  e freely, never 
0100: 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e  taking more than
0110: 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a   you give..#.#**
0120: 2a 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 0a 23 20 54 68 69 73 20 66 69 6c  *****.# This fil
0170: 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67  e implements reg
0180: 72 65 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f  ression tests fo
0190: 72 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79  r SQLite library
01a0: 2e 20 54 68 65 20 66 6f 63 75 73 0a 23 20 6f 66  . The focus.# of
01b0: 20 74 68 65 73 65 20 74 65 73 74 73 20 69 73 20   these tests is 
01c0: 65 78 63 6c 75 73 69 76 65 20 61 63 63 65 73 73  exclusive access
01d0: 20 6d 6f 64 65 20 28 69 2e 65 2e 20 74 68 65 20   mode (i.e. the 
01e0: 74 68 69 6e 67 20 61 63 74 69 76 61 74 65 64 20  thing activated 
01f0: 62 79 20 0a 23 20 22 50 52 41 47 4d 41 20 6c 6f  by .# "PRAGMA lo
0200: 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 45 58 43  cking_mode = EXC
0210: 4c 55 53 49 56 45 22 29 2e 0a 23 0a 23 20 24 49  LUSIVE")..#.# $I
0220: 64 3a 20 65 78 63 6c 75 73 69 76 65 2e 74 65 73  d: exclusive.tes
0230: 74 2c 76 20 31 2e 31 35 20 32 30 30 39 2f 30 36  t,v 1.15 2009/06
0240: 2f 32 36 20 31 32 3a 33 30 3a 34 30 20 64 61 6e  /26 12:30:40 dan
0250: 69 65 6c 6b 31 39 37 37 20 45 78 70 20 24 0a 0a  ielk1977 Exp $..
0260: 73 65 74 20 74 65 73 74 64 69 72 20 5b 66 69 6c  set testdir [fil
0270: 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76 30  e dirname $argv0
0280: 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 69  ].source $testdi
0290: 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 0a 69 66  r/tester.tcl..if
02a0: 63 61 70 61 62 6c 65 20 7b 21 70 61 67 65 72 5f  capable {!pager_
02b0: 70 72 61 67 6d 61 73 7d 20 7b 0a 20 20 66 69 6e  pragmas} {.  fin
02c0: 69 73 68 5f 74 65 73 74 0a 20 20 72 65 74 75 72  ish_test.  retur
02d0: 6e 0a 7d 0a 0a 66 6f 72 63 65 64 65 6c 65 74 65  n.}..forcedelete
02e0: 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61   test2.db-journa
02f0: 6c 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65  l.forcedelete te
0300: 73 74 32 2e 64 62 0a 66 6f 72 63 65 64 65 6c 65  st2.db.forcedele
0310: 74 65 20 74 65 73 74 33 2e 64 62 2d 6a 6f 75 72  te test3.db-jour
0320: 6e 61 6c 0a 66 6f 72 63 65 64 65 6c 65 74 65 20  nal.forcedelete 
0330: 74 65 73 74 33 2e 64 62 0a 66 6f 72 63 65 64 65  test3.db.forcede
0340: 6c 65 74 65 20 74 65 73 74 34 2e 64 62 2d 6a 6f  lete test4.db-jo
0350: 75 72 6e 61 6c 0a 66 6f 72 63 65 64 65 6c 65 74  urnal.forcedelet
0360: 65 20 74 65 73 74 34 2e 64 62 0a 0a 23 2d 2d 2d  e test4.db..#---
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03b0: 2d 2d 2d 0a 23 20 54 65 73 74 20 63 61 73 65 73  ---.# Test cases
03c0: 20 65 78 63 6c 75 73 69 76 65 2d 31 2e 58 20 74   exclusive-1.X t
03d0: 65 73 74 20 74 68 65 20 50 52 41 47 4d 41 20 6c  est the PRAGMA l
03e0: 6f 67 69 63 2e 0a 23 0a 64 6f 5f 74 65 73 74 20  ogic..#.do_test 
03f0: 65 78 63 6c 75 73 69 76 65 2d 31 2e 30 20 7b 0a  exclusive-1.0 {.
0400: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
0410: 70 72 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d  pragma locking_m
0420: 6f 64 65 3b 0a 20 20 20 20 70 72 61 67 6d 61 20  ode;.    pragma 
0430: 6d 61 69 6e 2e 6c 6f 63 6b 69 6e 67 5f 6d 6f 64  main.locking_mod
0440: 65 3b 0a 20 20 20 20 70 72 61 67 6d 61 20 74 65  e;.    pragma te
0450: 6d 70 2e 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b  mp.locking_mode;
0460: 0a 20 20 7d 20 0a 7d 20 5b 6c 69 73 74 20 6e 6f  .  } .} [list no
0470: 72 6d 61 6c 20 6e 6f 72 6d 61 6c 20 65 78 63 6c  rmal normal excl
0480: 75 73 69 76 65 5d 0a 64 6f 5f 74 65 73 74 20 65  usive].do_test e
0490: 78 63 6c 75 73 69 76 65 2d 31 2e 31 20 7b 0a 20  xclusive-1.1 {. 
04a0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 70   execsql {.    p
04b0: 72 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f  ragma locking_mo
04c0: 64 65 20 3d 20 65 78 63 6c 75 73 69 76 65 3b 0a  de = exclusive;.
04d0: 20 20 7d 20 0a 7d 20 7b 65 78 63 6c 75 73 69 76    } .} {exclusiv
04e0: 65 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75  e}.do_test exclu
04f0: 73 69 76 65 2d 31 2e 32 20 7b 0a 20 20 65 78 65  sive-1.2 {.  exe
0500: 63 73 71 6c 20 7b 0a 20 20 20 20 70 72 61 67 6d  csql {.    pragm
0510: 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a  a locking_mode;.
0520: 20 20 20 20 70 72 61 67 6d 61 20 6d 61 69 6e 2e      pragma main.
0530: 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20  locking_mode;.  
0540: 20 20 70 72 61 67 6d 61 20 74 65 6d 70 2e 6c 6f    pragma temp.lo
0550: 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 7d 20  cking_mode;.  } 
0560: 0a 7d 20 5b 6c 69 73 74 20 65 78 63 6c 75 73 69  .} [list exclusi
0570: 76 65 20 65 78 63 6c 75 73 69 76 65 20 65 78 63  ve exclusive exc
0580: 6c 75 73 69 76 65 5d 0a 64 6f 5f 74 65 73 74 20  lusive].do_test 
0590: 65 78 63 6c 75 73 69 76 65 2d 31 2e 33 20 7b 0a  exclusive-1.3 {.
05a0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
05b0: 70 72 61 67 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d  pragma locking_m
05c0: 6f 64 65 20 3d 20 6e 6f 72 6d 61 6c 3b 0a 20 20  ode = normal;.  
05d0: 7d 20 0a 7d 20 7b 6e 6f 72 6d 61 6c 7d 0a 64 6f  } .} {normal}.do
05e0: 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d  _test exclusive-
05f0: 31 2e 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  1.4 {.  execsql 
0600: 7b 0a 20 20 20 20 70 72 61 67 6d 61 20 6c 6f 63  {.    pragma loc
0610: 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 70  king_mode;.    p
0620: 72 61 67 6d 61 20 6d 61 69 6e 2e 6c 6f 63 6b 69  ragma main.locki
0630: 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 70 72 61  ng_mode;.    pra
0640: 67 6d 61 20 74 65 6d 70 2e 6c 6f 63 6b 69 6e 67  gma temp.locking
0650: 5f 6d 6f 64 65 3b 0a 20 20 7d 20 0a 7d 20 5b 6c  _mode;.  } .} [l
0660: 69 73 74 20 6e 6f 72 6d 61 6c 20 6e 6f 72 6d 61  ist normal norma
0670: 6c 20 65 78 63 6c 75 73 69 76 65 5d 0a 64 6f 5f  l exclusive].do_
0680: 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 31  test exclusive-1
0690: 2e 35 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .5 {.  execsql {
06a0: 0a 20 20 20 20 70 72 61 67 6d 61 20 6c 6f 63 6b  .    pragma lock
06b0: 69 6e 67 5f 6d 6f 64 65 20 3d 20 69 6e 76 61 6c  ing_mode = inval
06c0: 69 64 3b 0a 20 20 7d 20 0a 7d 20 7b 6e 6f 72 6d  id;.  } .} {norm
06d0: 61 6c 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c  al}.do_test excl
06e0: 75 73 69 76 65 2d 31 2e 36 20 7b 0a 20 20 65 78  usive-1.6 {.  ex
06f0: 65 63 73 71 6c 20 7b 0a 20 20 20 20 70 72 61 67  ecsql {.    prag
0700: 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b  ma locking_mode;
0710: 0a 20 20 20 20 70 72 61 67 6d 61 20 6d 61 69 6e  .    pragma main
0720: 2e 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20  .locking_mode;. 
0730: 20 20 20 70 72 61 67 6d 61 20 74 65 6d 70 2e 6c     pragma temp.l
0740: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 7d  ocking_mode;.  }
0750: 20 0a 7d 20 5b 6c 69 73 74 20 6e 6f 72 6d 61 6c   .} [list normal
0760: 20 6e 6f 72 6d 61 6c 20 65 78 63 6c 75 73 69 76   normal exclusiv
0770: 65 5d 0a 69 66 63 61 70 61 62 6c 65 20 61 74 74  e].ifcapable att
0780: 61 63 68 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20  ach {.  do_test 
0790: 65 78 63 6c 75 73 69 76 65 2d 31 2e 37 20 7b 0a  exclusive-1.7 {.
07a0: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20      execsql {.  
07b0: 20 20 20 20 70 72 61 67 6d 61 20 6c 6f 63 6b 69      pragma locki
07c0: 6e 67 5f 6d 6f 64 65 20 3d 20 65 78 63 6c 75 73  ng_mode = exclus
07d0: 69 76 65 3b 0a 20 20 20 20 20 20 41 54 54 41 43  ive;.      ATTAC
07e0: 48 20 27 74 65 73 74 32 2e 64 62 27 20 61 73 20  H 'test2.db' as 
07f0: 61 75 78 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65  aux;.    }.    e
0800: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 70  xecsql {.      p
0810: 72 61 67 6d 61 20 6d 61 69 6e 2e 6c 6f 63 6b 69  ragma main.locki
0820: 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 70  ng_mode;.      p
0830: 72 61 67 6d 61 20 61 75 78 2e 6c 6f 63 6b 69 6e  ragma aux.lockin
0840: 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 7d 0a 20 20  g_mode;.    }.  
0850: 7d 20 7b 65 78 63 6c 75 73 69 76 65 20 65 78 63  } {exclusive exc
0860: 6c 75 73 69 76 65 7d 0a 20 20 64 6f 5f 74 65 73  lusive}.  do_tes
0870: 74 20 65 78 63 6c 75 73 69 76 65 2d 31 2e 38 20  t exclusive-1.8 
0880: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a  {.    execsql {.
0890: 20 20 20 20 20 20 70 72 61 67 6d 61 20 6d 61 69        pragma mai
08a0: 6e 2e 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d  n.locking_mode =
08b0: 20 6e 6f 72 6d 61 6c 3b 0a 20 20 20 20 7d 0a 20   normal;.    }. 
08c0: 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20     execsql {.   
08d0: 20 20 20 70 72 61 67 6d 61 20 6d 61 69 6e 2e 6c     pragma main.l
08e0: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20  ocking_mode;.   
08f0: 20 20 20 70 72 61 67 6d 61 20 74 65 6d 70 2e 6c     pragma temp.l
0900: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20  ocking_mode;.   
0910: 20 20 20 70 72 61 67 6d 61 20 61 75 78 2e 6c 6f     pragma aux.lo
0920: 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20  cking_mode;.    
0930: 7d 0a 20 20 7d 20 5b 6c 69 73 74 20 6e 6f 72 6d  }.  } [list norm
0940: 61 6c 20 65 78 63 6c 75 73 69 76 65 20 65 78 63  al exclusive exc
0950: 6c 75 73 69 76 65 5d 0a 20 20 64 6f 5f 74 65 73  lusive].  do_tes
0960: 74 20 65 78 63 6c 75 73 69 76 65 2d 31 2e 39 20  t exclusive-1.9 
0970: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a  {.    execsql {.
0980: 20 20 20 20 20 20 70 72 61 67 6d 61 20 6c 6f 63        pragma loc
0990: 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 7d  king_mode;.    }
09a0: 0a 20 20 7d 20 7b 65 78 63 6c 75 73 69 76 65 7d  .  } {exclusive}
09b0: 0a 20 20 64 6f 5f 74 65 73 74 20 65 78 63 6c 75  .  do_test exclu
09c0: 73 69 76 65 2d 31 2e 31 30 20 7b 0a 20 20 20 20  sive-1.10 {.    
09d0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20  execsql {.      
09e0: 41 54 54 41 43 48 20 27 74 65 73 74 33 2e 64 62  ATTACH 'test3.db
09f0: 27 20 61 73 20 61 75 78 32 3b 0a 20 20 20 20 7d  ' as aux2;.    }
0a00: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  .    execsql {. 
0a10: 20 20 20 20 20 70 72 61 67 6d 61 20 6d 61 69 6e       pragma main
0a20: 2e 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20  .locking_mode;. 
0a30: 20 20 20 20 20 70 72 61 67 6d 61 20 61 75 78 2e       pragma aux.
0a40: 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20  locking_mode;.  
0a50: 20 20 20 20 70 72 61 67 6d 61 20 61 75 78 32 2e      pragma aux2.
0a60: 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20  locking_mode;.  
0a70: 20 20 7d 0a 20 20 7d 20 7b 6e 6f 72 6d 61 6c 20    }.  } {normal 
0a80: 65 78 63 6c 75 73 69 76 65 20 65 78 63 6c 75 73  exclusive exclus
0a90: 69 76 65 7d 0a 20 20 64 6f 5f 74 65 73 74 20 65  ive}.  do_test e
0aa0: 78 63 6c 75 73 69 76 65 2d 31 2e 31 31 20 7b 0a  xclusive-1.11 {.
0ab0: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20      execsql {.  
0ac0: 20 20 20 20 70 72 61 67 6d 61 20 61 75 78 2e 6c      pragma aux.l
0ad0: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 6e 6f  ocking_mode = no
0ae0: 72 6d 61 6c 3b 0a 20 20 20 20 7d 0a 20 20 20 20  rmal;.    }.    
0af0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20  execsql {.      
0b00: 70 72 61 67 6d 61 20 6d 61 69 6e 2e 6c 6f 63 6b  pragma main.lock
0b10: 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20  ing_mode;.      
0b20: 70 72 61 67 6d 61 20 61 75 78 2e 6c 6f 63 6b 69  pragma aux.locki
0b30: 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20 70  ng_mode;.      p
0b40: 72 61 67 6d 61 20 61 75 78 32 2e 6c 6f 63 6b 69  ragma aux2.locki
0b50: 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 7d 0a 20  ng_mode;.    }. 
0b60: 20 7d 20 7b 6e 6f 72 6d 61 6c 20 6e 6f 72 6d 61   } {normal norma
0b70: 6c 20 65 78 63 6c 75 73 69 76 65 7d 0a 20 20 64  l exclusive}.  d
0b80: 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76 65  o_test exclusive
0b90: 2d 31 2e 31 32 20 7b 0a 20 20 20 20 65 78 65 63  -1.12 {.    exec
0ba0: 73 71 6c 20 7b 0a 20 20 20 20 20 20 70 72 61 67  sql {.      prag
0bb0: 6d 61 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20  ma locking_mode 
0bc0: 3d 20 6e 6f 72 6d 61 6c 3b 0a 20 20 20 20 7d 0a  = normal;.    }.
0bd0: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20      execsql {.  
0be0: 20 20 20 20 70 72 61 67 6d 61 20 6d 61 69 6e 2e      pragma main.
0bf0: 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20  locking_mode;.  
0c00: 20 20 20 20 70 72 61 67 6d 61 20 74 65 6d 70 2e      pragma temp.
0c10: 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20  locking_mode;.  
0c20: 20 20 20 20 70 72 61 67 6d 61 20 61 75 78 2e 6c      pragma aux.l
0c30: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20  ocking_mode;.   
0c40: 20 20 20 70 72 61 67 6d 61 20 61 75 78 32 2e 6c     pragma aux2.l
0c50: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20  ocking_mode;.   
0c60: 20 7d 0a 20 20 7d 20 5b 6c 69 73 74 20 6e 6f 72   }.  } [list nor
0c70: 6d 61 6c 20 65 78 63 6c 75 73 69 76 65 20 6e 6f  mal exclusive no
0c80: 72 6d 61 6c 20 6e 6f 72 6d 61 6c 5d 0a 20 20 64  rmal normal].  d
0c90: 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76 65  o_test exclusive
0ca0: 2d 31 2e 31 33 20 7b 0a 20 20 20 20 65 78 65 63  -1.13 {.    exec
0cb0: 73 71 6c 20 7b 0a 20 20 20 20 20 20 41 54 54 41  sql {.      ATTA
0cc0: 43 48 20 27 74 65 73 74 34 2e 64 62 27 20 61 73  CH 'test4.db' as
0cd0: 20 61 75 78 33 3b 0a 20 20 20 20 7d 0a 20 20 20   aux3;.    }.   
0ce0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20   execsql {.     
0cf0: 20 70 72 61 67 6d 61 20 6d 61 69 6e 2e 6c 6f 63   pragma main.loc
0d00: 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 20  king_mode;.     
0d10: 20 70 72 61 67 6d 61 20 74 65 6d 70 2e 6c 6f 63   pragma temp.loc
0d20: 6b 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 20  king_mode;.     
0d30: 20 70 72 61 67 6d 61 20 61 75 78 2e 6c 6f 63 6b   pragma aux.lock
0d40: 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20  ing_mode;.      
0d50: 70 72 61 67 6d 61 20 61 75 78 32 2e 6c 6f 63 6b  pragma aux2.lock
0d60: 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 20 20  ing_mode;.      
0d70: 70 72 61 67 6d 61 20 61 75 78 33 2e 6c 6f 63 6b  pragma aux3.lock
0d80: 69 6e 67 5f 6d 6f 64 65 3b 0a 20 20 20 20 7d 0a  ing_mode;.    }.
0d90: 20 20 7d 20 5b 6c 69 73 74 20 6e 6f 72 6d 61 6c    } [list normal
0da0: 20 65 78 63 6c 75 73 69 76 65 20 6e 6f 72 6d 61   exclusive norma
0db0: 6c 20 6e 6f 72 6d 61 6c 20 6e 6f 72 6d 61 6c 5d  l normal normal]
0dc0: 0a 20 20 0a 20 20 64 6f 5f 74 65 73 74 20 65 78  .  .  do_test ex
0dd0: 63 6c 75 73 69 76 65 2d 31 2e 39 39 20 7b 0a 20  clusive-1.99 {. 
0de0: 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20     execsql {.   
0df0: 20 20 20 44 45 54 41 43 48 20 61 75 78 3b 0a 20     DETACH aux;. 
0e00: 20 20 20 20 20 44 45 54 41 43 48 20 61 75 78 32       DETACH aux2
0e10: 3b 0a 20 20 20 20 20 20 44 45 54 41 43 48 20 61  ;.      DETACH a
0e20: 75 78 33 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b  ux3;.    }.  } {
0e30: 7d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  }.}..#----------
0e40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0e50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0e60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0e70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54  ------------.# T
0e80: 65 73 74 20 63 61 73 65 73 20 65 78 63 6c 75 73  est cases exclus
0e90: 69 76 65 2d 32 2e 58 20 76 65 72 69 66 79 20 74  ive-2.X verify t
0ea0: 68 61 74 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 20  hat connections 
0eb0: 69 6e 20 65 78 63 6c 75 73 69 76 65 20 0a 23 20  in exclusive .# 
0ec0: 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 64 6f 20  locking_mode do 
0ed0: 6e 6f 74 20 72 65 6c 69 6e 71 75 69 73 68 20 6c  not relinquish l
0ee0: 6f 63 6b 73 2e 0a 23 0a 64 6f 5f 74 65 73 74 20  ocks..#.do_test 
0ef0: 65 78 63 6c 75 73 69 76 65 2d 32 2e 30 20 7b 0a  exclusive-2.0 {.
0f00: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
0f10: 43 52 45 41 54 45 20 54 41 42 4c 45 20 61 62 63  CREATE TABLE abc
0f20: 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 20 20 49  (a, b, c);.    I
0f30: 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20 56  NSERT INTO abc V
0f40: 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 0a  ALUES(1, 2, 3);.
0f50: 20 20 20 20 50 52 41 47 4d 41 20 6c 6f 63 6b 69      PRAGMA locki
0f60: 6e 67 5f 6d 6f 64 65 20 3d 20 65 78 63 6c 75 73  ng_mode = exclus
0f70: 69 76 65 3b 0a 20 20 7d 0a 7d 20 7b 65 78 63 6c  ive;.  }.} {excl
0f80: 75 73 69 76 65 7d 0a 64 6f 5f 74 65 73 74 20 65  usive}.do_test e
0f90: 78 63 6c 75 73 69 76 65 2d 32 2e 31 20 7b 0a 20  xclusive-2.1 {. 
0fa0: 20 73 71 6c 69 74 65 34 20 64 62 32 20 74 65 73   sqlite4 db2 tes
0fb0: 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b  t.db.  execsql {
0fc0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
0fd0: 20 61 62 63 20 56 41 4c 55 45 53 28 34 2c 20 35   abc VALUES(4, 5
0fe0: 2c 20 36 29 3b 0a 20 20 20 20 53 45 4c 45 43 54  , 6);.    SELECT
0ff0: 20 2a 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 7d   * FROM abc;.  }
1000: 20 64 62 32 0a 7d 20 7b 31 20 32 20 33 20 34 20   db2.} {1 2 3 4 
1010: 35 20 36 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63  5 6}.do_test exc
1020: 6c 75 73 69 76 65 2d 32 2e 32 20 7b 0a 20 20 23  lusive-2.2 {.  #
1030: 20 54 68 69 73 20 63 61 75 73 65 73 20 63 6f 6e   This causes con
1040: 6e 65 63 74 69 6f 6e 20 27 64 62 27 20 28 69 6e  nection 'db' (in
1050: 20 65 78 63 6c 75 73 69 76 65 20 6d 6f 64 65 29   exclusive mode)
1060: 20 74 6f 20 65 73 74 61 62 6c 69 73 68 20 0a 20   to establish . 
1070: 20 23 20 61 20 73 68 61 72 65 64 2d 6c 6f 63 6b   # a shared-lock
1080: 20 6f 6e 20 74 68 65 20 64 62 2e 20 54 68 65 20   on the db. The 
1090: 6f 74 68 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e  other connection
10a0: 20 73 68 6f 75 6c 64 20 6e 6f 77 20 62 65 0a 20   should now be. 
10b0: 20 23 20 6c 6f 63 6b 65 64 20 6f 75 74 20 61 73   # locked out as
10c0: 20 61 20 77 72 69 74 65 72 2e 0a 20 20 65 78 65   a writer..  exe
10d0: 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43  csql {.    SELEC
10e0: 54 20 2a 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20  T * FROM abc;.  
10f0: 7d 20 64 62 0a 7d 20 7b 31 20 32 20 33 20 34 20  } db.} {1 2 3 4 
1100: 35 20 36 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63  5 6}.do_test exc
1110: 6c 75 73 69 76 65 2d 32 2e 34 20 7b 0a 20 20 65  lusive-2.4 {.  e
1120: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c  xecsql {.    SEL
1130: 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 3b 0a  ECT * FROM abc;.
1140: 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 32 20 33    } db2.} {1 2 3
1150: 20 34 20 35 20 36 7d 0a 64 6f 5f 74 65 73 74 20   4 5 6}.do_test 
1160: 65 78 63 6c 75 73 69 76 65 2d 32 2e 35 20 7b 0a  exclusive-2.5 {.
1170: 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20    catchsql {.   
1180: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63   INSERT INTO abc
1190: 20 56 41 4c 55 45 53 28 37 2c 20 38 2c 20 39 29   VALUES(7, 8, 9)
11a0: 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b  ;.  } db2.} {1 {
11b0: 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b  database is lock
11c0: 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63  ed}}.do_test exc
11d0: 6c 75 73 69 76 65 2d 32 2e 36 20 7b 0a 20 20 23  lusive-2.6 {.  #
11e0: 20 42 65 63 61 75 73 65 20 63 6f 6e 6e 65 63 74   Because connect
11f0: 69 6f 6e 20 27 64 62 27 20 6f 6e 6c 79 20 68 61  ion 'db' only ha
1200: 73 20 61 20 73 68 61 72 65 64 2d 6c 6f 63 6b 2c  s a shared-lock,
1210: 20 74 68 65 20 6f 74 68 65 72 20 63 6f 6e 6e 65   the other conne
1220: 63 74 69 6f 6e 0a 20 20 23 20 77 69 6c 6c 20 62  ction.  # will b
1230: 65 20 61 62 6c 65 20 74 6f 20 67 65 74 20 61 20  e able to get a 
1240: 52 45 53 45 52 56 45 44 2c 20 62 75 74 20 77 69  RESERVED, but wi
1250: 6c 6c 20 66 61 69 6c 20 74 6f 20 75 70 67 72 61  ll fail to upgra
1260: 64 65 20 74 6f 20 45 58 43 4c 55 53 49 56 45 2e  de to EXCLUSIVE.
1270: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
1280: 20 42 45 47 49 4e 3b 0a 20 20 20 20 49 4e 53 45   BEGIN;.    INSE
1290: 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55  RT INTO abc VALU
12a0: 45 53 28 37 2c 20 38 2c 20 39 29 3b 0a 20 20 7d  ES(7, 8, 9);.  }
12b0: 20 64 62 32 0a 20 20 63 61 74 63 68 73 71 6c 20   db2.  catchsql 
12c0: 7b 0a 20 20 20 20 43 4f 4d 4d 49 54 0a 20 20 7d  {.    COMMIT.  }
12d0: 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61 74 61 62   db2.} {1 {datab
12e0: 61 73 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a  ase is locked}}.
12f0: 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76  do_test exclusiv
1300: 65 2d 32 2e 37 20 7b 0a 20 20 63 61 74 63 68 73  e-2.7 {.  catchs
1310: 71 6c 20 7b 0a 20 20 20 20 43 4f 4d 4d 49 54 0a  ql {.    COMMIT.
1320: 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 64 61    } db2.} {1 {da
1330: 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64  tabase is locked
1340: 7d 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75  }}.do_test exclu
1350: 73 69 76 65 2d 32 2e 38 20 7b 0a 20 20 65 78 65  sive-2.8 {.  exe
1360: 63 73 71 6c 20 7b 0a 20 20 20 20 52 4f 4c 4c 42  csql {.    ROLLB
1370: 41 43 4b 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b  ACK;.  } db2.} {
1380: 7d 0a 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75  }..do_test exclu
1390: 73 69 76 65 2d 32 2e 39 20 7b 0a 20 20 23 20 57  sive-2.9 {.  # W
13a0: 72 69 74 65 20 74 68 65 20 64 61 74 61 62 61 73  rite the databas
13b0: 65 20 74 6f 20 65 73 74 61 62 6c 69 73 68 20 74  e to establish t
13c0: 68 65 20 65 78 63 6c 75 73 69 76 65 20 6c 6f 63  he exclusive loc
13d0: 6b 20 77 69 74 68 20 63 6f 6e 6e 65 63 74 69 6f  k with connectio
13e0: 6e 20 27 64 62 2e 0a 20 20 65 78 65 63 73 71 6c  n 'db..  execsql
13f0: 20 7b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e   {.    INSERT IN
1400: 54 4f 20 61 62 63 20 56 41 4c 55 45 53 28 37 2c  TO abc VALUES(7,
1410: 20 38 2c 20 39 29 3b 0a 20 20 7d 20 64 62 0a 20   8, 9);.  } db. 
1420: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
1430: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62  SELECT * FROM ab
1440: 63 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20  c;.  } db2.} {1 
1450: 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63  {database is loc
1460: 6b 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 65 78  ked}}.do_test ex
1470: 63 6c 75 73 69 76 65 2d 32 2e 31 30 20 7b 0a 20  clusive-2.10 {. 
1480: 20 23 20 43 68 61 6e 67 69 6e 67 20 74 68 65 20   # Changing the 
1490: 6c 6f 63 6b 69 6e 67 2d 6d 6f 64 65 20 64 6f 65  locking-mode doe
14a0: 73 20 6e 6f 74 20 72 65 6c 65 61 73 65 20 61 6e  s not release an
14b0: 79 20 6c 6f 63 6b 73 2e 0a 20 20 65 78 65 63 73  y locks..  execs
14c0: 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20  ql {.    PRAGMA 
14d0: 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 6e  locking_mode = n
14e0: 6f 72 6d 61 6c 3b 0a 20 20 7d 20 64 62 0a 20 20  ormal;.  } db.  
14f0: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53  catchsql {.    S
1500: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63  ELECT * FROM abc
1510: 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b  ;.  } db2.} {1 {
1520: 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b  database is lock
1530: 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63  ed}}.do_test exc
1540: 6c 75 73 69 76 65 2d 32 2e 31 31 20 7b 0a 20 20  lusive-2.11 {.  
1550: 23 20 41 66 74 65 72 20 63 68 61 6e 67 69 6e 67  # After changing
1560: 20 74 68 65 20 6c 6f 63 6b 69 6e 67 20 6d 6f 64   the locking mod
1570: 65 2c 20 61 63 63 65 73 73 69 6e 67 20 74 68 65  e, accessing the
1580: 20 64 62 20 72 65 6c 65 61 73 65 73 20 6c 6f 63   db releases loc
1590: 6b 73 2e 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  ks..  execsql {.
15a0: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
15b0: 4d 20 61 62 63 3b 0a 20 20 7d 20 64 62 0a 20 20  M abc;.  } db.  
15c0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45  execsql {.    SE
15d0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 3b  LECT * FROM abc;
15e0: 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 32 20  .  } db2.} {1 2 
15f0: 33 20 34 20 35 20 36 20 37 20 38 20 39 7d 0a 64  3 4 5 6 7 8 9}.d
1600: 62 32 20 63 6c 6f 73 65 0a 0a 23 2d 2d 2d 2d 2d  b2 close..#-----
1610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1620: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1650: 2d 0a 23 20 54 65 73 74 73 20 65 78 63 6c 75 73  -.# Tests exclus
1660: 69 76 65 2d 33 2e 58 20 2d 20 74 65 73 74 20 74  ive-3.X - test t
1670: 68 61 74 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e  hat a connection
1680: 20 69 6e 20 65 78 63 6c 75 73 69 76 65 20 6d 6f   in exclusive mo
1690: 64 65 20 0a 23 20 74 72 75 6e 63 61 74 65 73 20  de .# truncates 
16a0: 69 6e 73 74 65 61 64 20 6f 66 20 64 65 6c 65 74  instead of delet
16b0: 65 73 20 74 68 65 20 6a 6f 75 72 6e 61 6c 20 66  es the journal f
16c0: 69 6c 65 20 77 68 65 6e 20 63 6f 6d 6d 69 74 74  ile when committ
16d0: 69 6e 67 20 0a 23 20 61 20 74 72 61 6e 73 61 63  ing .# a transac
16e0: 74 69 6f 6e 2e 0a 23 0a 23 20 54 68 65 73 65 20  tion..#.# These 
16f0: 74 65 73 74 73 20 61 72 65 20 6e 6f 74 20 72 75  tests are not ru
1700: 6e 20 6f 6e 20 77 69 6e 64 6f 77 73 20 62 65 63  n on windows bec
1710: 61 75 73 65 20 74 68 65 20 77 69 6e 64 6f 77 73  ause the windows
1720: 20 62 61 63 6b 65 6e 64 0a 23 20 6f 70 65 6e 73   backend.# opens
1730: 20 74 68 65 20 6a 6f 75 72 6e 61 6c 20 66 69 6c   the journal fil
1740: 65 20 66 6f 72 20 65 78 63 6c 75 73 69 76 65 20  e for exclusive 
1750: 61 63 63 65 73 73 2c 20 70 72 65 76 65 6e 74 69  access, preventi
1760: 6e 67 20 69 74 73 20 63 6f 6e 74 65 6e 74 73 20  ng its contents 
1770: 0a 23 20 66 72 6f 6d 20 62 65 69 6e 67 20 69 6e  .# from being in
1780: 73 70 65 63 74 65 64 20 65 78 74 65 72 6e 61 6c  spected external
1790: 6c 79 2e 0a 23 0a 69 66 20 7b 24 74 63 6c 5f 70  ly..#.if {$tcl_p
17a0: 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d  latform(platform
17b0: 29 20 21 3d 20 22 77 69 6e 64 6f 77 73 22 7d 20  ) != "windows"} 
17c0: 7b 0a 0a 20 20 23 20 52 65 74 75 72 6e 20 61 20  {..  # Return a 
17d0: 6c 69 73 74 20 6f 66 20 74 77 6f 20 62 6f 6f 6c  list of two bool
17e0: 65 61 6e 73 20 28 65 69 74 68 65 72 20 30 20 6f  eans (either 0 o
17f0: 72 20 31 29 2e 20 54 68 65 20 66 69 72 73 74 20  r 1). The first 
1800: 69 73 20 74 72 75 65 0a 20 20 23 20 69 66 20 74  is true.  # if t
1810: 68 65 20 6e 61 6d 65 64 20 66 69 6c 65 20 65 78  he named file ex
1820: 69 73 74 73 2e 20 54 68 65 20 73 65 63 6f 6e 64  ists. The second
1830: 20 69 73 20 74 72 75 65 20 6f 6e 6c 79 20 69 66   is true only if
1840: 20 74 68 65 20 66 69 6c 65 0a 20 20 23 20 65 78   the file.  # ex
1850: 69 73 74 73 20 61 6e 64 20 74 68 65 20 66 69 72  ists and the fir
1860: 73 74 20 32 38 20 62 79 74 65 73 20 63 6f 6e 74  st 28 bytes cont
1870: 61 69 6e 20 61 74 20 6c 65 61 73 74 20 6f 6e 65  ain at least one
1880: 20 6e 6f 6e 2d 7a 65 72 6f 20 62 79 74 65 2e 0a   non-zero byte..
1890: 20 20 23 0a 20 20 70 72 6f 63 20 66 69 6c 65 73    #.  proc files
18a0: 74 61 74 65 20 7b 66 6e 61 6d 65 7d 20 7b 0a 20  tate {fname} {. 
18b0: 20 20 20 73 65 74 20 65 78 69 73 74 73 20 30 0a     set exists 0.
18c0: 20 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 20      set content 
18d0: 30 0a 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20  0.    if {[file 
18e0: 65 78 69 73 74 73 20 24 66 6e 61 6d 65 5d 7d 20  exists $fname]} 
18f0: 7b 0a 20 20 20 20 20 20 73 65 74 20 65 78 69 73  {.      set exis
1900: 74 73 20 31 0a 20 20 20 20 20 20 73 65 74 20 68  ts 1.      set h
1910: 64 72 20 5b 68 65 78 69 6f 5f 72 65 61 64 20 24  dr [hexio_read $
1920: 66 6e 61 6d 65 20 30 20 32 38 5d 0a 20 20 20 20  fname 0 28].    
1930: 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 20 5b 65    set content [e
1940: 78 70 72 20 7b 30 3d 3d 5b 73 74 72 69 6e 67 20  xpr {0==[string 
1950: 6d 61 74 63 68 20 24 68 64 72 20 5b 73 74 72 69  match $hdr [stri
1960: 6e 67 20 72 65 70 65 61 74 20 30 20 35 36 5d 5d  ng repeat 0 56]]
1970: 7d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 6c 69 73  }].    }.    lis
1980: 74 20 24 65 78 69 73 74 73 20 24 63 6f 6e 74 65  t $exists $conte
1990: 6e 74 0a 20 20 7d 0a 0a 20 20 64 6f 5f 74 65 73  nt.  }..  do_tes
19a0: 74 20 65 78 63 6c 75 73 69 76 65 2d 33 2e 30 20  t exclusive-3.0 
19b0: 7b 0a 20 20 20 20 66 69 6c 65 73 74 61 74 65 20  {.    filestate 
19c0: 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a  test.db-journal.
19d0: 20 20 7d 20 7b 30 20 30 7d 0a 20 20 64 6f 5f 74    } {0 0}.  do_t
19e0: 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 33 2e  est exclusive-3.
19f0: 31 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  1 {.    execsql 
1a00: 7b 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 6c  {.      PRAGMA l
1a10: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 65 78  ocking_mode = ex
1a20: 63 6c 75 73 69 76 65 3b 0a 20 20 20 20 20 20 42  clusive;.      B
1a30: 45 47 49 4e 3b 0a 20 20 20 20 20 20 44 45 4c 45  EGIN;.      DELE
1a40: 54 45 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 20  TE FROM abc;.   
1a50: 20 7d 0a 20 20 20 20 66 69 6c 65 73 74 61 74 65   }.    filestate
1a60: 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c   test.db-journal
1a70: 0a 20 20 7d 20 7b 31 20 31 7d 0a 20 20 64 6f 5f  .  } {1 1}.  do_
1a80: 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 33  test exclusive-3
1a90: 2e 32 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c  .2 {.    execsql
1aa0: 20 7b 0a 20 20 20 20 20 20 43 4f 4d 4d 49 54 3b   {.      COMMIT;
1ab0: 0a 20 20 20 20 7d 0a 20 20 20 20 66 69 6c 65 73  .    }.    files
1ac0: 74 61 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75  tate test.db-jou
1ad0: 72 6e 61 6c 0a 20 20 7d 20 7b 31 20 30 7d 0a 20  rnal.  } {1 0}. 
1ae0: 20 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69   do_test exclusi
1af0: 76 65 2d 33 2e 33 20 7b 0a 20 20 20 20 65 78 65  ve-3.3 {.    exe
1b00: 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 49 4e 53  csql {.      INS
1b10: 45 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c  ERT INTO abc VAL
1b20: 55 45 53 28 27 41 27 2c 20 27 42 27 2c 20 27 43  UES('A', 'B', 'C
1b30: 27 29 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54  ');.      SELECT
1b40: 20 2a 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 20   * FROM abc;.   
1b50: 20 7d 0a 20 20 7d 20 7b 41 20 42 20 43 7d 0a 20   }.  } {A B C}. 
1b60: 20 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69   do_test exclusi
1b70: 76 65 2d 33 2e 34 20 7b 0a 20 20 20 20 65 78 65  ve-3.4 {.    exe
1b80: 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 42 45 47  csql {.      BEG
1b90: 49 4e 3b 0a 20 20 20 20 20 20 55 50 44 41 54 45  IN;.      UPDATE
1ba0: 20 61 62 63 20 53 45 54 20 61 20 3d 20 31 2c 20   abc SET a = 1, 
1bb0: 62 20 3d 20 32 2c 20 63 20 3d 20 33 3b 0a 20 20  b = 2, c = 3;.  
1bc0: 20 20 20 20 52 4f 4c 4c 42 41 43 4b 3b 0a 20 20      ROLLBACK;.  
1bd0: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
1be0: 4d 20 61 62 63 3b 0a 20 20 20 20 7d 0a 20 20 7d  M abc;.    }.  }
1bf0: 20 7b 41 20 42 20 43 7d 0a 20 20 64 6f 5f 74 65   {A B C}.  do_te
1c00: 73 74 20 65 78 63 6c 75 73 69 76 65 2d 33 2e 35  st exclusive-3.5
1c10: 20 7b 0a 20 20 20 20 66 69 6c 65 73 74 61 74 65   {.    filestate
1c20: 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c   test.db-journal
1c30: 0a 20 20 7d 20 7b 31 20 30 7d 0a 20 20 64 6f 5f  .  } {1 0}.  do_
1c40: 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 33  test exclusive-3
1c50: 2e 36 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c  .6 {.    execsql
1c60: 20 7b 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20   {.      PRAGMA 
1c70: 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 6e  locking_mode = n
1c80: 6f 72 6d 61 6c 3b 0a 20 20 20 20 20 20 53 45 4c  ormal;.      SEL
1c90: 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 3b 0a  ECT * FROM abc;.
1ca0: 20 20 20 20 7d 0a 20 20 20 20 66 69 6c 65 73 74      }.    filest
1cb0: 61 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  ate test.db-jour
1cc0: 6e 61 6c 0a 20 20 7d 20 7b 30 20 30 7d 0a 7d 0a  nal.  } {0 0}.}.
1cd0: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
1ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d10: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 65 73 74 73  --------.# Tests
1d20: 20 65 78 63 6c 75 73 69 76 65 2d 34 2e 58 20 2d   exclusive-4.X -
1d30: 20 74 65 73 74 20 74 68 61 74 20 72 6f 6c 6c 62   test that rollb
1d40: 61 63 6b 20 77 6f 72 6b 73 20 63 6f 72 72 65 63  ack works correc
1d50: 74 6c 79 20 77 68 65 6e 0a 23 20 69 6e 20 65 78  tly when.# in ex
1d60: 63 6c 75 73 69 76 65 2d 61 63 63 65 73 73 20 6d  clusive-access m
1d70: 6f 64 65 2e 0a 23 0a 0a 23 20 54 68 65 20 66 6f  ode..#..# The fo
1d80: 6c 6c 6f 77 69 6e 67 20 70 72 6f 63 65 64 75 72  llowing procedur
1d90: 65 20 63 6f 6d 70 75 74 65 73 20 61 20 22 73 69  e computes a "si
1da0: 67 6e 61 74 75 72 65 22 20 66 6f 72 20 74 61 62  gnature" for tab
1db0: 6c 65 20 22 74 33 22 2e 20 20 49 66 0a 23 20 54  le "t3".  If.# T
1dc0: 33 20 63 68 61 6e 67 65 73 20 69 6e 20 61 6e 79  3 changes in any
1dd0: 20 77 61 79 2c 20 74 68 65 20 73 69 67 6e 61 74   way, the signat
1de0: 75 72 65 20 73 68 6f 75 6c 64 20 63 68 61 6e 67  ure should chang
1df0: 65 2e 20 20 0a 23 0a 23 20 54 68 69 73 20 69 73  e.  .#.# This is
1e00: 20 75 73 65 64 20 74 6f 20 74 65 73 74 20 52 4f   used to test RO
1e10: 4c 4c 42 41 43 4b 2e 20 20 57 65 20 67 61 74 68  LLBACK.  We gath
1e20: 65 72 20 61 20 73 69 67 6e 61 74 75 72 65 20 66  er a signature f
1e30: 6f 72 20 74 33 2c 20 74 68 65 6e 0a 23 20 6d 61  or t3, then.# ma
1e40: 6b 65 20 6c 6f 74 73 20 6f 66 20 63 68 61 6e 67  ke lots of chang
1e50: 65 73 20 74 6f 20 74 33 2c 20 74 68 65 6e 20 72  es to t3, then r
1e60: 6f 6c 6c 62 61 63 6b 20 61 6e 64 20 74 61 6b 65  ollback and take
1e70: 20 61 6e 6f 74 68 65 72 20 73 69 67 6e 61 74 75   another signatu
1e80: 72 65 2e 0a 23 20 54 68 65 20 74 77 6f 20 73 69  re..# The two si
1e90: 67 6e 61 74 75 72 65 73 20 73 68 6f 75 6c 64 20  gnatures should 
1ea0: 62 65 20 74 68 65 20 73 61 6d 65 2e 0a 23 0a 70  be the same..#.p
1eb0: 72 6f 63 20 73 69 67 6e 61 74 75 72 65 20 7b 7d  roc signature {}
1ec0: 20 7b 0a 20 20 72 65 74 75 72 6e 20 5b 64 62 20   {.  return [db 
1ed0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 63 6f 75  eval {SELECT cou
1ee0: 6e 74 28 2a 29 2c 20 6d 64 35 73 75 6d 28 78 29  nt(*), md5sum(x)
1ef0: 20 46 52 4f 4d 20 74 33 7d 5d 0a 7d 0a 0a 64 6f   FROM t3}].}..do
1f00: 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d  _test exclusive-
1f10: 34 2e 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  4.0 {.  execsql 
1f20: 7b 20 50 52 41 47 4d 41 20 6c 6f 63 6b 69 6e 67  { PRAGMA locking
1f30: 5f 6d 6f 64 65 20 3d 20 65 78 63 6c 75 73 69 76  _mode = exclusiv
1f40: 65 3b 20 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b  e; }.  execsql {
1f50: 20 50 52 41 47 4d 41 20 64 65 66 61 75 6c 74 5f   PRAGMA default_
1f60: 63 61 63 68 65 5f 73 69 7a 65 20 3d 20 31 30 3b  cache_size = 10;
1f70: 20 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   }.  execsql {. 
1f80: 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 43 52     BEGIN;.    CR
1f90: 45 41 54 45 20 54 41 42 4c 45 20 74 33 28 78 20  EATE TABLE t3(x 
1fa0: 54 45 58 54 29 3b 0a 20 20 20 20 49 4e 53 45 52  TEXT);.    INSER
1fb0: 54 20 49 4e 54 4f 20 74 33 20 56 41 4c 55 45 53  T INTO t3 VALUES
1fc0: 28 72 61 6e 64 73 74 72 28 31 30 2c 34 30 30 29  (randstr(10,400)
1fd0: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
1fe0: 54 4f 20 74 33 20 56 41 4c 55 45 53 28 72 61 6e  TO t3 VALUES(ran
1ff0: 64 73 74 72 28 31 30 2c 34 30 30 29 29 3b 0a 20  dstr(10,400));. 
2000: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
2010: 33 20 53 45 4c 45 43 54 20 72 61 6e 64 73 74 72  3 SELECT randstr
2020: 28 31 30 2c 34 30 30 29 20 46 52 4f 4d 20 74 33  (10,400) FROM t3
2030: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
2040: 4f 20 74 33 20 53 45 4c 45 43 54 20 72 61 6e 64  O t3 SELECT rand
2050: 73 74 72 28 31 30 2c 34 30 30 29 20 46 52 4f 4d  str(10,400) FROM
2060: 20 74 33 3b 0a 20 20 20 20 49 4e 53 45 52 54 20   t3;.    INSERT 
2070: 49 4e 54 4f 20 74 33 20 53 45 4c 45 43 54 20 72  INTO t3 SELECT r
2080: 61 6e 64 73 74 72 28 31 30 2c 34 30 30 29 20 46  andstr(10,400) F
2090: 52 4f 4d 20 74 33 3b 0a 20 20 20 20 49 4e 53 45  ROM t3;.    INSE
20a0: 52 54 20 49 4e 54 4f 20 74 33 20 53 45 4c 45 43  RT INTO t3 SELEC
20b0: 54 20 72 61 6e 64 73 74 72 28 31 30 2c 34 30 30  T randstr(10,400
20c0: 29 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20 20 43  ) FROM t3;.    C
20d0: 4f 4d 4d 49 54 3b 0a 20 20 7d 0a 20 20 65 78 65  OMMIT;.  }.  exe
20e0: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 63 6f 75  csql {SELECT cou
20f0: 6e 74 28 2a 29 20 46 52 4f 4d 20 74 33 3b 7d 0a  nt(*) FROM t3;}.
2100: 7d 20 7b 33 32 7d 0a 0a 73 65 74 20 3a 3a 58 20  } {32}..set ::X 
2110: 5b 73 69 67 6e 61 74 75 72 65 5d 0a 64 6f 5f 74  [signature].do_t
2120: 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 34 2e  est exclusive-4.
2130: 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  1 {.  execsql {.
2140: 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 44      BEGIN;.    D
2150: 45 4c 45 54 45 20 46 52 4f 4d 20 74 33 20 57 48  ELETE FROM t3 WH
2160: 45 52 45 20 72 61 6e 64 6f 6d 28 29 25 31 30 21  ERE random()%10!
2170: 3d 30 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  =0;.    INSERT I
2180: 4e 54 4f 20 74 33 20 53 45 4c 45 43 54 20 72 61  NTO t3 SELECT ra
2190: 6e 64 73 74 72 28 31 30 2c 31 30 29 7c 7c 78 20  ndstr(10,10)||x 
21a0: 46 52 4f 4d 20 74 33 3b 0a 20 20 20 20 49 4e 53  FROM t3;.    INS
21b0: 45 52 54 20 49 4e 54 4f 20 74 33 20 53 45 4c 45  ERT INTO t3 SELE
21c0: 43 54 20 72 61 6e 64 73 74 72 28 31 30 2c 31 30  CT randstr(10,10
21d0: 29 7c 7c 78 20 46 52 4f 4d 20 74 33 3b 0a 20 20  )||x FROM t3;.  
21e0: 20 20 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a    SELECT count(*
21f0: 29 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20 20 52  ) FROM t3;.    R
2200: 4f 4c 4c 42 41 43 4b 3b 0a 20 20 7d 0a 20 20 73  OLLBACK;.  }.  s
2210: 69 67 6e 61 74 75 72 65 0a 7d 20 24 3a 3a 58 0a  ignature.} $::X.
2220: 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69  .do_test exclusi
2230: 76 65 2d 34 2e 32 20 7b 0a 20 20 65 78 65 63 73  ve-4.2 {.  execs
2240: 71 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e 3b 0a  ql {.    BEGIN;.
2250: 20 20 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20      DELETE FROM 
2260: 74 33 20 57 48 45 52 45 20 72 61 6e 64 6f 6d 28  t3 WHERE random(
2270: 29 25 31 30 21 3d 30 3b 0a 20 20 20 20 49 4e 53  )%10!=0;.    INS
2280: 45 52 54 20 49 4e 54 4f 20 74 33 20 53 45 4c 45  ERT INTO t3 SELE
2290: 43 54 20 72 61 6e 64 73 74 72 28 31 30 2c 31 30  CT randstr(10,10
22a0: 29 7c 7c 78 20 46 52 4f 4d 20 74 33 3b 0a 20 20  )||x FROM t3;.  
22b0: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 33    DELETE FROM t3
22c0: 20 57 48 45 52 45 20 72 61 6e 64 6f 6d 28 29 25   WHERE random()%
22d0: 31 30 21 3d 30 3b 0a 20 20 20 20 49 4e 53 45 52  10!=0;.    INSER
22e0: 54 20 49 4e 54 4f 20 74 33 20 53 45 4c 45 43 54  T INTO t3 SELECT
22f0: 20 72 61 6e 64 73 74 72 28 31 30 2c 31 30 29 7c   randstr(10,10)|
2300: 7c 78 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20 20  |x FROM t3;.    
2310: 52 4f 4c 4c 42 41 43 4b 3b 0a 20 20 7d 0a 20 20  ROLLBACK;.  }.  
2320: 73 69 67 6e 61 74 75 72 65 0a 7d 20 24 3a 3a 58  signature.} $::X
2330: 0a 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73  ..do_test exclus
2340: 69 76 65 2d 34 2e 33 20 7b 0a 20 20 65 78 65 63  ive-4.3 {.  exec
2350: 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53 45 52 54  sql {.    INSERT
2360: 20 49 4e 54 4f 20 74 33 20 53 45 4c 45 43 54 20   INTO t3 SELECT 
2370: 72 61 6e 64 73 74 72 28 31 30 2c 34 30 30 29 20  randstr(10,400) 
2380: 46 52 4f 4d 20 74 33 20 57 48 45 52 45 20 72 61  FROM t3 WHERE ra
2390: 6e 64 6f 6d 28 29 25 31 30 3d 3d 30 3b 0a 20 20  ndom()%10==0;.  
23a0: 7d 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20  }.} {}..do_test 
23b0: 65 78 63 6c 75 73 69 76 65 2d 34 2e 34 20 7b 0a  exclusive-4.4 {.
23c0: 20 20 63 61 74 63 68 20 7b 73 65 74 20 3a 3a 58    catch {set ::X
23d0: 20 5b 73 69 67 6e 61 74 75 72 65 5d 7d 0a 7d 20   [signature]}.} 
23e0: 7b 30 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c  {0}.do_test excl
23f0: 75 73 69 76 65 2d 34 2e 35 20 7b 0a 20 20 65 78  usive-4.5 {.  ex
2400: 65 63 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47  ecsql {.    PRAG
2410: 4d 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20  MA locking_mode 
2420: 3d 20 4e 4f 52 4d 41 4c 3b 0a 20 20 20 20 44 52  = NORMAL;.    DR
2430: 4f 50 20 54 41 42 4c 45 20 74 33 3b 0a 20 20 20  OP TABLE t3;.   
2440: 20 44 52 4f 50 20 54 41 42 4c 45 20 61 62 63 3b   DROP TABLE abc;
2450: 0a 20 20 7d 0a 7d 20 7b 6e 6f 72 6d 61 6c 7d 0a  .  }.} {normal}.
2460: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
2470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24a0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 65 73 74 73  --------.# Tests
24b0: 20 65 78 63 6c 75 73 69 76 65 2d 35 2e 58 20 2d   exclusive-5.X -
24c0: 20 74 65 73 74 20 74 68 61 74 20 73 74 61 74 65   test that state
24d0: 6d 65 6e 74 20 6a 6f 75 72 6e 61 6c 73 20 61 72  ment journals ar
24e0: 65 20 74 72 75 6e 63 61 74 65 64 0a 23 20 69 6e  e truncated.# in
24f0: 73 74 65 61 64 20 6f 66 20 64 65 6c 65 74 65 64  stead of deleted
2500: 20 77 68 65 6e 20 69 6e 20 65 78 63 6c 75 73 69   when in exclusi
2510: 76 65 20 61 63 63 65 73 73 20 6d 6f 64 65 2e 0a  ve access mode..
2520: 23 0a 0a 23 20 43 6c 6f 73 65 20 61 6e 64 20 72  #..# Close and r
2530: 65 6f 70 65 6e 20 74 68 65 20 64 61 74 61 62 61  eopen the databa
2540: 73 65 20 73 6f 20 74 68 61 74 20 74 68 65 20 74  se so that the t
2550: 65 6d 70 20 64 61 74 61 62 61 73 65 20 69 73 20  emp database is 
2560: 6e 6f 0a 23 20 6c 6f 6e 67 65 72 20 61 63 74 69  no.# longer acti
2570: 76 65 2e 0a 23 0a 64 62 20 63 6c 6f 73 65 0a 73  ve..#.db close.s
2580: 71 6c 69 74 65 34 20 64 62 20 74 65 73 74 2e 64  qlite4 db test.d
2590: 62 0a 0a 23 20 69 66 20 77 65 27 72 65 20 75 73  b..# if we're us
25a0: 69 6e 67 20 70 72 6f 78 79 20 6c 6f 63 6b 73 2c  ing proxy locks,
25b0: 20 77 65 20 75 73 65 20 33 20 66 69 6c 65 64 65   we use 3 filede
25c0: 73 63 72 69 70 74 6f 72 73 20 66 6f 72 20 61 20  scriptors for a 
25d0: 64 62 0a 23 20 74 68 61 74 20 69 73 20 6f 70 65  db.# that is ope
25e0: 6e 20 62 75 74 20 4e 4f 54 20 77 72 69 74 69 6e  n but NOT writin
25f0: 67 20 63 68 61 6e 67 65 73 2c 20 6e 6f 72 6d 61  g changes, norma
2600: 6c 6c 79 0a 23 20 73 71 6c 69 74 65 20 75 73 65  lly.# sqlite use
2610: 73 20 31 20 28 70 72 6f 78 79 20 6c 6f 63 6b 69  s 1 (proxy locki
2620: 6e 67 20 61 64 64 73 20 74 68 65 20 63 6f 6e 63  ng adds the conc
2630: 68 20 61 6e 64 20 74 68 65 20 6c 6f 63 61 6c 20  h and the local 
2640: 6c 6f 63 6b 29 0a 73 65 74 20 75 73 69 6e 67 5f  lock).set using_
2650: 70 72 6f 78 79 20 30 0a 66 6f 72 65 61 63 68 20  proxy 0.foreach 
2660: 7b 6e 61 6d 65 20 76 61 6c 75 65 7d 20 5b 61 72  {name value} [ar
2670: 72 61 79 20 67 65 74 20 65 6e 76 20 53 51 4c 49  ray get env SQLI
2680: 54 45 34 5f 46 4f 52 43 45 5f 50 52 4f 58 59 5f  TE4_FORCE_PROXY_
2690: 4c 4f 43 4b 49 4e 47 5d 20 7b 0a 20 20 73 65 74  LOCKING] {.  set
26a0: 20 75 73 69 6e 67 5f 70 72 6f 78 79 20 24 76 61   using_proxy $va
26b0: 6c 75 65 0a 7d 0a 73 65 74 20 65 78 74 72 61 66  lue.}.set extraf
26c0: 64 73 20 30 0a 69 66 20 7b 24 75 73 69 6e 67 5f  ds 0.if {$using_
26d0: 70 72 6f 78 79 21 3d 30 7d 20 7b 0a 20 20 73 65  proxy!=0} {.  se
26e0: 74 20 65 78 74 72 61 66 64 73 20 32 0a 7d 20 0a  t extrafds 2.} .
26f0: 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69  .do_test exclusi
2700: 76 65 2d 35 2e 30 20 7b 0a 20 20 65 78 65 63 73  ve-5.0 {.  execs
2710: 71 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20  ql {.    CREATE 
2720: 54 41 42 4c 45 20 61 62 63 28 61 20 55 4e 49 51  TABLE abc(a UNIQ
2730: 55 45 2c 20 62 20 55 4e 49 51 55 45 2c 20 63 20  UE, b UNIQUE, c 
2740: 55 4e 49 51 55 45 29 3b 0a 20 20 20 20 42 45 47  UNIQUE);.    BEG
2750: 49 4e 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  IN;.    INSERT I
2760: 4e 54 4f 20 61 62 63 20 56 41 4c 55 45 53 28 31  NTO abc VALUES(1
2770: 2c 20 32 2c 20 33 29 3b 0a 20 20 20 20 49 4e 53  , 2, 3);.    INS
2780: 45 52 54 20 49 4e 54 4f 20 61 62 63 20 53 45 4c  ERT INTO abc SEL
2790: 45 43 54 20 61 2b 31 2c 20 62 2b 31 2c 20 63 2b  ECT a+1, b+1, c+
27a0: 31 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 7d 0a  1 FROM abc;.  }.
27b0: 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63  } {}.do_test exc
27c0: 6c 75 73 69 76 65 2d 35 2e 31 20 7b 0a 20 20 23  lusive-5.1 {.  #
27d0: 20 54 68 72 65 65 20 66 69 6c 65 73 20 61 72 65   Three files are
27e0: 20 6f 70 65 6e 3a 20 54 68 65 20 64 62 2c 20 6a   open: The db, j
27f0: 6f 75 72 6e 61 6c 20 61 6e 64 20 73 74 61 74 65  ournal and state
2800: 6d 65 6e 74 2d 6a 6f 75 72 6e 61 6c 2e 0a 20 20  ment-journal..  
2810: 73 65 74 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f  set sqlite_open_
2820: 66 69 6c 65 5f 63 6f 75 6e 74 0a 20 20 65 78 70  file_count.  exp
2830: 72 20 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66  r $sqlite_open_f
2840: 69 6c 65 5f 63 6f 75 6e 74 2d 24 65 78 74 72 61  ile_count-$extra
2850: 66 64 73 0a 7d 20 5b 65 78 70 72 20 33 20 2d 20  fds.} [expr 3 - 
2860: 28 24 54 45 4d 50 5f 53 54 4f 52 45 3e 3d 32 29  ($TEMP_STORE>=2)
2870: 5d 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73  ].do_test exclus
2880: 69 76 65 2d 35 2e 32 20 7b 0a 20 20 65 78 65 63  ive-5.2 {.  exec
2890: 73 71 6c 20 7b 0a 20 20 20 20 43 4f 4d 4d 49 54  sql {.    COMMIT
28a0: 3b 0a 20 20 7d 0a 20 20 23 20 4f 6e 65 20 66 69  ;.  }.  # One fi
28b0: 6c 65 20 6f 70 65 6e 3a 20 74 68 65 20 64 62 2e  le open: the db.
28c0: 0a 20 20 73 65 74 20 73 71 6c 69 74 65 5f 6f 70  .  set sqlite_op
28d0: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 20 20  en_file_count.  
28e0: 65 78 70 72 20 24 73 71 6c 69 74 65 5f 6f 70 65  expr $sqlite_ope
28f0: 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 2d 24 65 78  n_file_count-$ex
2900: 74 72 61 66 64 73 0a 7d 20 7b 31 7d 0a 64 6f 5f  trafds.} {1}.do_
2910: 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 35  test exclusive-5
2920: 2e 33 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .3 {.  execsql {
2930: 0a 20 20 20 20 50 52 41 47 4d 41 20 6c 6f 63 6b  .    PRAGMA lock
2940: 69 6e 67 5f 6d 6f 64 65 20 3d 20 65 78 63 6c 75  ing_mode = exclu
2950: 73 69 76 65 3b 0a 20 20 20 20 42 45 47 49 4e 3b  sive;.    BEGIN;
2960: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
2970: 20 61 62 63 20 56 41 4c 55 45 53 28 35 2c 20 36   abc VALUES(5, 6
2980: 2c 20 37 29 3b 0a 20 20 7d 0a 20 20 23 20 54 77  , 7);.  }.  # Tw
2990: 6f 20 66 69 6c 65 73 20 6f 70 65 6e 3a 20 74 68  o files open: th
29a0: 65 20 64 62 20 61 6e 64 20 6a 6f 75 72 6e 61 6c  e db and journal
29b0: 2e 0a 20 20 73 65 74 20 73 71 6c 69 74 65 5f 6f  ..  set sqlite_o
29c0: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 20  pen_file_count. 
29d0: 20 65 78 70 72 20 24 73 71 6c 69 74 65 5f 6f 70   expr $sqlite_op
29e0: 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 2d 24 65  en_file_count-$e
29f0: 78 74 72 61 66 64 73 0a 7d 20 7b 32 7d 0a 64 6f  xtrafds.} {2}.do
2a00: 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d  _test exclusive-
2a10: 35 2e 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  5.4 {.  execsql 
2a20: 7b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  {.    INSERT INT
2a30: 4f 20 61 62 63 20 53 45 4c 45 43 54 20 61 2b 31  O abc SELECT a+1
2a40: 30 2c 20 62 2b 31 30 2c 20 63 2b 31 30 20 46 52  0, b+10, c+10 FR
2a50: 4f 4d 20 61 62 63 3b 0a 20 20 7d 0a 20 20 23 20  OM abc;.  }.  # 
2a60: 54 68 72 65 65 20 66 69 6c 65 73 20 61 72 65 20  Three files are 
2a70: 6f 70 65 6e 3a 20 54 68 65 20 64 62 2c 20 6a 6f  open: The db, jo
2a80: 75 72 6e 61 6c 20 61 6e 64 20 73 74 61 74 65 6d  urnal and statem
2a90: 65 6e 74 2d 6a 6f 75 72 6e 61 6c 2e 0a 20 20 73  ent-journal..  s
2aa0: 65 74 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66  et sqlite_open_f
2ab0: 69 6c 65 5f 63 6f 75 6e 74 0a 20 20 65 78 70 72  ile_count.  expr
2ac0: 20 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69   $sqlite_open_fi
2ad0: 6c 65 5f 63 6f 75 6e 74 2d 24 65 78 74 72 61 66  le_count-$extraf
2ae0: 64 73 0a 7d 20 5b 65 78 70 72 20 33 20 2d 20 28  ds.} [expr 3 - (
2af0: 24 54 45 4d 50 5f 53 54 4f 52 45 3e 3d 32 29 5d  $TEMP_STORE>=2)]
2b00: 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69  .do_test exclusi
2b10: 76 65 2d 35 2e 35 20 7b 0a 20 20 65 78 65 63 73  ve-5.5 {.  execs
2b20: 71 6c 20 7b 0a 20 20 20 20 43 4f 4d 4d 49 54 3b  ql {.    COMMIT;
2b30: 0a 20 20 7d 0a 20 20 23 20 54 68 72 65 65 20 66  .  }.  # Three f
2b40: 69 6c 65 73 20 61 72 65 20 73 74 69 6c 6c 20 6f  iles are still o
2b50: 70 65 6e 3a 20 54 68 65 20 64 62 2c 20 6a 6f 75  pen: The db, jou
2b60: 72 6e 61 6c 20 61 6e 64 20 73 74 61 74 65 6d 65  rnal and stateme
2b70: 6e 74 2d 6a 6f 75 72 6e 61 6c 2e 0a 20 20 73 65  nt-journal..  se
2b80: 74 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69  t sqlite_open_fi
2b90: 6c 65 5f 63 6f 75 6e 74 0a 20 20 65 78 70 72 20  le_count.  expr 
2ba0: 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c  $sqlite_open_fil
2bb0: 65 5f 63 6f 75 6e 74 2d 24 65 78 74 72 61 66 64  e_count-$extrafd
2bc0: 73 0a 7d 20 5b 65 78 70 72 20 33 20 2d 20 28 24  s.} [expr 3 - ($
2bd0: 54 45 4d 50 5f 53 54 4f 52 45 3e 3d 32 29 5d 0a  TEMP_STORE>=2)].
2be0: 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76  do_test exclusiv
2bf0: 65 2d 35 2e 36 20 7b 0a 20 20 65 78 65 63 73 71  e-5.6 {.  execsq
2c00: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 6c  l {.    PRAGMA l
2c10: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 6e 6f  ocking_mode = no
2c20: 72 6d 61 6c 3b 0a 20 20 20 20 53 45 4c 45 43 54  rmal;.    SELECT
2c30: 20 2a 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 7d   * FROM abc;.  }
2c40: 0a 7d 20 7b 6e 6f 72 6d 61 6c 20 31 20 32 20 33  .} {normal 1 2 3
2c50: 20 32 20 33 20 34 20 35 20 36 20 37 20 31 31 20   2 3 4 5 6 7 11 
2c60: 31 32 20 31 33 20 31 32 20 31 33 20 31 34 20 31  12 13 12 13 14 1
2c70: 35 20 31 36 20 31 37 7d 0a 64 6f 5f 74 65 73 74  5 16 17}.do_test
2c80: 20 65 78 63 6c 75 73 69 76 65 2d 35 2e 37 20 7b   exclusive-5.7 {
2c90: 0a 20 20 23 20 4a 75 73 74 20 74 68 65 20 64 62  .  # Just the db
2ca0: 20 6f 70 65 6e 2e 0a 20 20 73 65 74 20 73 71 6c   open..  set sql
2cb0: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f  ite_open_file_co
2cc0: 75 6e 74 0a 20 20 65 78 70 72 20 24 73 71 6c 69  unt.  expr $sqli
2cd0: 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75  te_open_file_cou
2ce0: 6e 74 2d 24 65 78 74 72 61 66 64 73 0a 7d 20 7b  nt-$extrafds.} {
2cf0: 31 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  1}..#-----------
2d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a  --------------..
2d40: 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20  do_execsql_test 
2d50: 65 78 63 6c 75 73 69 76 65 2d 36 2e 31 20 7b 0a  exclusive-6.1 {.
2d60: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74    CREATE TABLE t
2d70: 34 28 61 2c 20 62 29 3b 0a 20 20 49 4e 53 45 52  4(a, b);.  INSER
2d80: 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53  T INTO t4 VALUES
2d90: 28 27 45 64 65 6e 27 2c 20 31 39 35 35 29 3b 0a  ('Eden', 1955);.
2da0: 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 49 4e 53    BEGIN;.    INS
2db0: 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55  ERT INTO t4 VALU
2dc0: 45 53 28 27 4d 61 63 6d 69 6c 6c 61 6e 27 2c 20  ES('Macmillan', 
2dd0: 31 39 35 37 29 3b 0a 20 20 20 20 49 4e 53 45 52  1957);.    INSER
2de0: 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53  T INTO t4 VALUES
2df0: 28 27 44 6f 75 67 6c 61 73 2d 48 6f 6d 65 27 2c  ('Douglas-Home',
2e00: 20 31 39 36 33 29 3b 0a 20 20 20 20 49 4e 53 45   1963);.    INSE
2e10: 52 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45  RT INTO t4 VALUE
2e20: 53 28 27 57 69 6c 73 6f 6e 27 2c 20 31 39 36 34  S('Wilson', 1964
2e30: 29 3b 0a 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63  );.}.do_test exc
2e40: 6c 75 73 69 76 65 2d 36 2e 32 20 7b 0a 20 20 66  lusive-6.2 {.  f
2e50: 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 32  orcedelete test2
2e60: 2e 64 62 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75  .db test2.db-jou
2e70: 72 6e 61 6c 0a 20 20 63 6f 70 79 5f 66 69 6c 65  rnal.  copy_file
2e80: 20 74 65 73 74 2e 64 62 20 74 65 73 74 32 2e 64   test.db test2.d
2e90: 62 0a 20 20 63 6f 70 79 5f 66 69 6c 65 20 74 65  b.  copy_file te
2ea0: 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 20 74 65  st.db-journal te
2eb0: 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20  st2.db-journal. 
2ec0: 20 73 71 6c 69 74 65 34 20 64 62 20 74 65 73 74   sqlite4 db test
2ed0: 32 2e 64 62 0a 7d 20 7b 7d 0a 0a 64 6f 5f 65 78  2.db.} {}..do_ex
2ee0: 65 63 73 71 6c 5f 74 65 73 74 20 65 78 63 6c 75  ecsql_test exclu
2ef0: 73 69 76 65 2d 36 2e 33 20 7b 0a 20 20 50 52 41  sive-6.3 {.  PRA
2f00: 47 4d 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65  GMA locking_mode
2f10: 20 3d 20 45 58 43 4c 55 53 49 56 45 3b 0a 20 20   = EXCLUSIVE;.  
2f20: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 34  SELECT * FROM t4
2f30: 3b 0a 7d 20 7b 65 78 63 6c 75 73 69 76 65 20 45  ;.} {exclusive E
2f40: 64 65 6e 20 31 39 35 35 7d 0a 0a 64 6f 5f 74 65  den 1955}..do_te
2f50: 73 74 20 65 78 63 6c 75 73 69 76 65 2d 36 2e 34  st exclusive-6.4
2f60: 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20   {.  db close.  
2f70: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74  forcedelete test
2f80: 2e 64 62 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  .db test.db-jour
2f90: 6e 61 6c 0a 20 20 73 65 74 20 66 64 20 5b 6f 70  nal.  set fd [op
2fa0: 65 6e 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e  en test.db-journ
2fb0: 61 6c 20 77 5d 0a 20 20 70 75 74 73 20 24 66 64  al w].  puts $fd
2fc0: 20 78 0a 20 20 63 6c 6f 73 65 20 24 66 64 0a 20   x.  close $fd. 
2fd0: 20 73 71 6c 69 74 65 34 20 64 62 20 74 65 73 74   sqlite4 db test
2fe0: 2e 64 62 0a 7d 20 7b 7d 0a 0a 64 6f 5f 65 78 65  .db.} {}..do_exe
2ff0: 63 73 71 6c 5f 74 65 73 74 20 65 78 63 6c 75 73  csql_test exclus
3000: 69 76 65 2d 36 2e 35 20 7b 0a 20 20 50 52 41 47  ive-6.5 {.  PRAG
3010: 4d 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20  MA locking_mode 
3020: 3d 20 45 58 43 4c 55 53 49 56 45 3b 0a 20 20 53  = EXCLUSIVE;.  S
3030: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c  ELECT * FROM sql
3040: 69 74 65 5f 6d 61 73 74 65 72 3b 0a 7d 20 7b 65  ite_master;.} {e
3050: 78 63 6c 75 73 69 76 65 7d 0a 0a 66 69 6e 69 73  xclusive}..finis
3060: 68 5f 74 65 73 74 0a                             h_test.