/ Hex Artifact Content
Login

Artifact c7ebbc756eacf544c108b15eed64d7d4e5f86b75:


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 33 20 64 62 32 20 74 65 73   sqlite3 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 73 71 6c 69 74 65 33 5f 73 6f 66  ed}}.sqlite3_sof
11d0: 74 5f 68 65 61 70 5f 6c 69 6d 69 74 20 30 0a 64  t_heap_limit 0.d
11e0: 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76 65  o_test exclusive
11f0: 2d 32 2e 36 20 7b 0a 20 20 23 20 42 65 63 61 75  -2.6 {.  # Becau
1200: 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 27 64  se connection 'd
1210: 62 27 20 6f 6e 6c 79 20 68 61 73 20 61 20 73 68  b' only has a sh
1220: 61 72 65 64 2d 6c 6f 63 6b 2c 20 74 68 65 20 6f  ared-lock, the o
1230: 74 68 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a  ther connection.
1240: 20 20 23 20 77 69 6c 6c 20 62 65 20 61 62 6c 65    # will be able
1250: 20 74 6f 20 67 65 74 20 61 20 52 45 53 45 52 56   to get a RESERV
1260: 45 44 2c 20 62 75 74 20 77 69 6c 6c 20 66 61 69  ED, but will fai
1270: 6c 20 74 6f 20 75 70 67 72 61 64 65 20 74 6f 20  l to upgrade to 
1280: 45 58 43 4c 55 53 49 56 45 2e 0a 20 20 65 78 65  EXCLUSIVE..  exe
1290: 63 73 71 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e  csql {.    BEGIN
12a0: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
12b0: 4f 20 61 62 63 20 56 41 4c 55 45 53 28 37 2c 20  O abc VALUES(7, 
12c0: 38 2c 20 39 29 3b 0a 20 20 7d 20 64 62 32 0a 20  8, 9);.  } db2. 
12d0: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
12e0: 43 4f 4d 4d 49 54 0a 20 20 7d 20 64 62 32 0a 7d  COMMIT.  } db2.}
12f0: 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 69 73   {1 {database is
1300: 20 6c 6f 63 6b 65 64 7d 7d 0a 64 6f 5f 74 65 73   locked}}.do_tes
1310: 74 20 65 78 63 6c 75 73 69 76 65 2d 32 2e 37 20  t exclusive-2.7 
1320: 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20  {.  catchsql {. 
1330: 20 20 20 43 4f 4d 4d 49 54 0a 20 20 7d 20 64 62     COMMIT.  } db
1340: 32 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65  2.} {1 {database
1350: 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64 6f 5f   is locked}}.do_
1360: 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 32  test exclusive-2
1370: 2e 38 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .8 {.  execsql {
1380: 0a 20 20 20 20 52 4f 4c 4c 42 41 43 4b 3b 0a 20  .    ROLLBACK;. 
1390: 20 7d 20 64 62 32 0a 7d 20 7b 7d 0a 73 71 6c 69   } db2.} {}.sqli
13a0: 74 65 33 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69  te3_soft_heap_li
13b0: 6d 69 74 20 24 63 6d 64 6c 69 6e 65 61 72 67 28  mit $cmdlinearg(
13c0: 73 6f 66 74 2d 68 65 61 70 2d 6c 69 6d 69 74 29  soft-heap-limit)
13d0: 0a 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73  ..do_test exclus
13e0: 69 76 65 2d 32 2e 39 20 7b 0a 20 20 23 20 57 72  ive-2.9 {.  # Wr
13f0: 69 74 65 20 74 68 65 20 64 61 74 61 62 61 73 65  ite the database
1400: 20 74 6f 20 65 73 74 61 62 6c 69 73 68 20 74 68   to establish th
1410: 65 20 65 78 63 6c 75 73 69 76 65 20 6c 6f 63 6b  e exclusive lock
1420: 20 77 69 74 68 20 63 6f 6e 6e 65 63 74 69 6f 6e   with connection
1430: 20 27 64 62 2e 0a 20 20 65 78 65 63 73 71 6c 20   'db..  execsql 
1440: 7b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  {.    INSERT INT
1450: 4f 20 61 62 63 20 56 41 4c 55 45 53 28 37 2c 20  O abc VALUES(7, 
1460: 38 2c 20 39 29 3b 0a 20 20 7d 20 64 62 0a 20 20  8, 9);.  } db.  
1470: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53  catchsql {.    S
1480: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63  ELECT * FROM abc
1490: 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b  ;.  } db2.} {1 {
14a0: 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b  database is lock
14b0: 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63  ed}}.do_test exc
14c0: 6c 75 73 69 76 65 2d 32 2e 31 30 20 7b 0a 20 20  lusive-2.10 {.  
14d0: 23 20 43 68 61 6e 67 69 6e 67 20 74 68 65 20 6c  # Changing the l
14e0: 6f 63 6b 69 6e 67 2d 6d 6f 64 65 20 64 6f 65 73  ocking-mode does
14f0: 20 6e 6f 74 20 72 65 6c 65 61 73 65 20 61 6e 79   not release any
1500: 20 6c 6f 63 6b 73 2e 0a 20 20 65 78 65 63 73 71   locks..  execsq
1510: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 6c  l {.    PRAGMA l
1520: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 6e 6f  ocking_mode = no
1530: 72 6d 61 6c 3b 0a 20 20 7d 20 64 62 0a 20 20 63  rmal;.  } db.  c
1540: 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53 45  atchsql {.    SE
1550: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 3b  LECT * FROM abc;
1560: 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 7b 64  .  } db2.} {1 {d
1570: 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65  atabase is locke
1580: 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c  d}}.do_test excl
1590: 75 73 69 76 65 2d 32 2e 31 31 20 7b 0a 20 20 23  usive-2.11 {.  #
15a0: 20 41 66 74 65 72 20 63 68 61 6e 67 69 6e 67 20   After changing 
15b0: 74 68 65 20 6c 6f 63 6b 69 6e 67 20 6d 6f 64 65  the locking mode
15c0: 2c 20 61 63 63 65 73 73 69 6e 67 20 74 68 65 20  , accessing the 
15d0: 64 62 20 72 65 6c 65 61 73 65 73 20 6c 6f 63 6b  db releases lock
15e0: 73 2e 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  s..  execsql {. 
15f0: 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d     SELECT * FROM
1600: 20 61 62 63 3b 0a 20 20 7d 20 64 62 0a 20 20 65   abc;.  } db.  e
1610: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c  xecsql {.    SEL
1620: 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 3b 0a  ECT * FROM abc;.
1630: 20 20 7d 20 64 62 32 0a 7d 20 7b 31 20 32 20 33    } db2.} {1 2 3
1640: 20 34 20 35 20 36 20 37 20 38 20 39 7d 0a 64 62   4 5 6 7 8 9}.db
1650: 32 20 63 6c 6f 73 65 0a 0a 23 2d 2d 2d 2d 2d 2d  2 close..#------
1660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
16a0: 0a 23 20 54 65 73 74 73 20 65 78 63 6c 75 73 69  .# Tests exclusi
16b0: 76 65 2d 33 2e 58 20 2d 20 74 65 73 74 20 74 68  ve-3.X - test th
16c0: 61 74 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20  at a connection 
16d0: 69 6e 20 65 78 63 6c 75 73 69 76 65 20 6d 6f 64  in exclusive mod
16e0: 65 20 0a 23 20 74 72 75 6e 63 61 74 65 73 20 69  e .# truncates i
16f0: 6e 73 74 65 61 64 20 6f 66 20 64 65 6c 65 74 65  nstead of delete
1700: 73 20 74 68 65 20 6a 6f 75 72 6e 61 6c 20 66 69  s the journal fi
1710: 6c 65 20 77 68 65 6e 20 63 6f 6d 6d 69 74 74 69  le when committi
1720: 6e 67 20 0a 23 20 61 20 74 72 61 6e 73 61 63 74  ng .# a transact
1730: 69 6f 6e 2e 0a 23 0a 23 20 54 68 65 73 65 20 74  ion..#.# These t
1740: 65 73 74 73 20 61 72 65 20 6e 6f 74 20 72 75 6e  ests are not run
1750: 20 6f 6e 20 77 69 6e 64 6f 77 73 20 62 65 63 61   on windows beca
1760: 75 73 65 20 74 68 65 20 77 69 6e 64 6f 77 73 20  use the windows 
1770: 62 61 63 6b 65 6e 64 0a 23 20 6f 70 65 6e 73 20  backend.# opens 
1780: 74 68 65 20 6a 6f 75 72 6e 61 6c 20 66 69 6c 65  the journal file
1790: 20 66 6f 72 20 65 78 63 6c 75 73 69 76 65 20 61   for exclusive a
17a0: 63 63 65 73 73 2c 20 70 72 65 76 65 6e 74 69 6e  ccess, preventin
17b0: 67 20 69 74 73 20 63 6f 6e 74 65 6e 74 73 20 0a  g its contents .
17c0: 23 20 66 72 6f 6d 20 62 65 69 6e 67 20 69 6e 73  # from being ins
17d0: 70 65 63 74 65 64 20 65 78 74 65 72 6e 61 6c 6c  pected externall
17e0: 79 2e 0a 23 0a 69 66 20 7b 24 74 63 6c 5f 70 6c  y..#.if {$tcl_pl
17f0: 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29  atform(platform)
1800: 20 21 3d 20 22 77 69 6e 64 6f 77 73 22 7d 20 7b   != "windows"} {
1810: 0a 0a 20 20 23 20 52 65 74 75 72 6e 20 61 20 6c  ..  # Return a l
1820: 69 73 74 20 6f 66 20 74 77 6f 20 62 6f 6f 6c 65  ist of two boole
1830: 61 6e 73 20 28 65 69 74 68 65 72 20 30 20 6f 72  ans (either 0 or
1840: 20 31 29 2e 20 54 68 65 20 66 69 72 73 74 20 69   1). The first i
1850: 73 20 74 72 75 65 0a 20 20 23 20 69 66 20 74 68  s true.  # if th
1860: 65 20 6e 61 6d 65 64 20 66 69 6c 65 20 65 78 69  e named file exi
1870: 73 74 73 2e 20 54 68 65 20 73 65 63 6f 6e 64 20  sts. The second 
1880: 69 73 20 74 72 75 65 20 6f 6e 6c 79 20 69 66 20  is true only if 
1890: 74 68 65 20 66 69 6c 65 0a 20 20 23 20 65 78 69  the file.  # exi
18a0: 73 74 73 20 61 6e 64 20 74 68 65 20 66 69 72 73  sts and the firs
18b0: 74 20 32 38 20 62 79 74 65 73 20 63 6f 6e 74 61  t 28 bytes conta
18c0: 69 6e 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20  in at least one 
18d0: 6e 6f 6e 2d 7a 65 72 6f 20 62 79 74 65 2e 0a 20  non-zero byte.. 
18e0: 20 23 0a 20 20 70 72 6f 63 20 66 69 6c 65 73 74   #.  proc filest
18f0: 61 74 65 20 7b 66 6e 61 6d 65 7d 20 7b 0a 20 20  ate {fname} {.  
1900: 20 20 73 65 74 20 65 78 69 73 74 73 20 30 0a 20    set exists 0. 
1910: 20 20 20 73 65 74 20 63 6f 6e 74 65 6e 74 20 30     set content 0
1920: 0a 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65  .    if {[file e
1930: 78 69 73 74 73 20 24 66 6e 61 6d 65 5d 7d 20 7b  xists $fname]} {
1940: 0a 20 20 20 20 20 20 73 65 74 20 65 78 69 73 74  .      set exist
1950: 73 20 31 0a 20 20 20 20 20 20 73 65 74 20 68 64  s 1.      set hd
1960: 72 20 5b 68 65 78 69 6f 5f 72 65 61 64 20 24 66  r [hexio_read $f
1970: 6e 61 6d 65 20 30 20 32 38 5d 0a 20 20 20 20 20  name 0 28].     
1980: 20 73 65 74 20 63 6f 6e 74 65 6e 74 20 5b 65 78   set content [ex
1990: 70 72 20 7b 30 3d 3d 5b 73 74 72 69 6e 67 20 6d  pr {0==[string m
19a0: 61 74 63 68 20 24 68 64 72 20 5b 73 74 72 69 6e  atch $hdr [strin
19b0: 67 20 72 65 70 65 61 74 20 30 20 35 36 5d 5d 7d  g repeat 0 56]]}
19c0: 5d 0a 20 20 20 20 7d 0a 20 20 20 20 6c 69 73 74  ].    }.    list
19d0: 20 24 65 78 69 73 74 73 20 24 63 6f 6e 74 65 6e   $exists $conten
19e0: 74 0a 20 20 7d 0a 0a 20 20 64 6f 5f 74 65 73 74  t.  }..  do_test
19f0: 20 65 78 63 6c 75 73 69 76 65 2d 33 2e 30 20 7b   exclusive-3.0 {
1a00: 0a 20 20 20 20 66 69 6c 65 73 74 61 74 65 20 74  .    filestate t
1a10: 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20  est.db-journal. 
1a20: 20 7d 20 7b 30 20 30 7d 0a 20 20 64 6f 5f 74 65   } {0 0}.  do_te
1a30: 73 74 20 65 78 63 6c 75 73 69 76 65 2d 33 2e 31  st exclusive-3.1
1a40: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b   {.    execsql {
1a50: 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 6c 6f  .      PRAGMA lo
1a60: 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 65 78 63  cking_mode = exc
1a70: 6c 75 73 69 76 65 3b 0a 20 20 20 20 20 20 42 45  lusive;.      BE
1a80: 47 49 4e 3b 0a 20 20 20 20 20 20 44 45 4c 45 54  GIN;.      DELET
1a90: 45 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 20 20  E FROM abc;.    
1aa0: 7d 0a 20 20 20 20 66 69 6c 65 73 74 61 74 65 20  }.    filestate 
1ab0: 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a  test.db-journal.
1ac0: 20 20 7d 20 7b 31 20 31 7d 0a 20 20 64 6f 5f 74    } {1 1}.  do_t
1ad0: 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 33 2e  est exclusive-3.
1ae0: 32 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  2 {.    execsql 
1af0: 7b 0a 20 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a  {.      COMMIT;.
1b00: 20 20 20 20 7d 0a 20 20 20 20 66 69 6c 65 73 74      }.    filest
1b10: 61 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  ate test.db-jour
1b20: 6e 61 6c 0a 20 20 7d 20 7b 31 20 30 7d 0a 20 20  nal.  } {1 0}.  
1b30: 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76  do_test exclusiv
1b40: 65 2d 33 2e 33 20 7b 0a 20 20 20 20 65 78 65 63  e-3.3 {.    exec
1b50: 73 71 6c 20 7b 0a 20 20 20 20 20 20 49 4e 53 45  sql {.      INSE
1b60: 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55  RT INTO abc VALU
1b70: 45 53 28 27 41 27 2c 20 27 42 27 2c 20 27 43 27  ES('A', 'B', 'C'
1b80: 29 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20  );.      SELECT 
1b90: 2a 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 20 20  * FROM abc;.    
1ba0: 7d 0a 20 20 7d 20 7b 41 20 42 20 43 7d 0a 20 20  }.  } {A B C}.  
1bb0: 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76  do_test exclusiv
1bc0: 65 2d 33 2e 34 20 7b 0a 20 20 20 20 65 78 65 63  e-3.4 {.    exec
1bd0: 73 71 6c 20 7b 0a 20 20 20 20 20 20 42 45 47 49  sql {.      BEGI
1be0: 4e 3b 0a 20 20 20 20 20 20 55 50 44 41 54 45 20  N;.      UPDATE 
1bf0: 61 62 63 20 53 45 54 20 61 20 3d 20 31 2c 20 62  abc SET a = 1, b
1c00: 20 3d 20 32 2c 20 63 20 3d 20 33 3b 0a 20 20 20   = 2, c = 3;.   
1c10: 20 20 20 52 4f 4c 4c 42 41 43 4b 3b 0a 20 20 20     ROLLBACK;.   
1c20: 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d     SELECT * FROM
1c30: 20 61 62 63 3b 0a 20 20 20 20 7d 0a 20 20 7d 20   abc;.    }.  } 
1c40: 7b 41 20 42 20 43 7d 0a 20 20 64 6f 5f 74 65 73  {A B C}.  do_tes
1c50: 74 20 65 78 63 6c 75 73 69 76 65 2d 33 2e 35 20  t exclusive-3.5 
1c60: 7b 0a 20 20 20 20 66 69 6c 65 73 74 61 74 65 20  {.    filestate 
1c70: 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a  test.db-journal.
1c80: 20 20 7d 20 7b 31 20 30 7d 0a 20 20 64 6f 5f 74    } {1 0}.  do_t
1c90: 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 33 2e  est exclusive-3.
1ca0: 36 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  6 {.    execsql 
1cb0: 7b 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 6c  {.      PRAGMA l
1cc0: 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 6e 6f  ocking_mode = no
1cd0: 72 6d 61 6c 3b 0a 20 20 20 20 20 20 53 45 4c 45  rmal;.      SELE
1ce0: 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 3b 0a 20  CT * FROM abc;. 
1cf0: 20 20 20 7d 0a 20 20 20 20 66 69 6c 65 73 74 61     }.    filesta
1d00: 74 65 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e  te test.db-journ
1d10: 61 6c 0a 20 20 7d 20 7b 30 20 30 7d 0a 7d 0a 0a  al.  } {0 0}.}..
1d20: 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  #---------------
1d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1d60: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 65 73 74 73 20  -------.# Tests 
1d70: 65 78 63 6c 75 73 69 76 65 2d 34 2e 58 20 2d 20  exclusive-4.X - 
1d80: 74 65 73 74 20 74 68 61 74 20 72 6f 6c 6c 62 61  test that rollba
1d90: 63 6b 20 77 6f 72 6b 73 20 63 6f 72 72 65 63 74  ck works correct
1da0: 6c 79 20 77 68 65 6e 0a 23 20 69 6e 20 65 78 63  ly when.# in exc
1db0: 6c 75 73 69 76 65 2d 61 63 63 65 73 73 20 6d 6f  lusive-access mo
1dc0: 64 65 2e 0a 23 0a 0a 23 20 54 68 65 20 66 6f 6c  de..#..# The fol
1dd0: 6c 6f 77 69 6e 67 20 70 72 6f 63 65 64 75 72 65  lowing procedure
1de0: 20 63 6f 6d 70 75 74 65 73 20 61 20 22 73 69 67   computes a "sig
1df0: 6e 61 74 75 72 65 22 20 66 6f 72 20 74 61 62 6c  nature" for tabl
1e00: 65 20 22 74 33 22 2e 20 20 49 66 0a 23 20 54 33  e "t3".  If.# T3
1e10: 20 63 68 61 6e 67 65 73 20 69 6e 20 61 6e 79 20   changes in any 
1e20: 77 61 79 2c 20 74 68 65 20 73 69 67 6e 61 74 75  way, the signatu
1e30: 72 65 20 73 68 6f 75 6c 64 20 63 68 61 6e 67 65  re should change
1e40: 2e 20 20 0a 23 0a 23 20 54 68 69 73 20 69 73 20  .  .#.# This is 
1e50: 75 73 65 64 20 74 6f 20 74 65 73 74 20 52 4f 4c  used to test ROL
1e60: 4c 42 41 43 4b 2e 20 20 57 65 20 67 61 74 68 65  LBACK.  We gathe
1e70: 72 20 61 20 73 69 67 6e 61 74 75 72 65 20 66 6f  r a signature fo
1e80: 72 20 74 33 2c 20 74 68 65 6e 0a 23 20 6d 61 6b  r t3, then.# mak
1e90: 65 20 6c 6f 74 73 20 6f 66 20 63 68 61 6e 67 65  e lots of change
1ea0: 73 20 74 6f 20 74 33 2c 20 74 68 65 6e 20 72 6f  s to t3, then ro
1eb0: 6c 6c 62 61 63 6b 20 61 6e 64 20 74 61 6b 65 20  llback and take 
1ec0: 61 6e 6f 74 68 65 72 20 73 69 67 6e 61 74 75 72  another signatur
1ed0: 65 2e 0a 23 20 54 68 65 20 74 77 6f 20 73 69 67  e..# The two sig
1ee0: 6e 61 74 75 72 65 73 20 73 68 6f 75 6c 64 20 62  natures should b
1ef0: 65 20 74 68 65 20 73 61 6d 65 2e 0a 23 0a 70 72  e the same..#.pr
1f00: 6f 63 20 73 69 67 6e 61 74 75 72 65 20 7b 7d 20  oc signature {} 
1f10: 7b 0a 20 20 72 65 74 75 72 6e 20 5b 64 62 20 65  {.  return [db e
1f20: 76 61 6c 20 7b 53 45 4c 45 43 54 20 63 6f 75 6e  val {SELECT coun
1f30: 74 28 2a 29 2c 20 6d 64 35 73 75 6d 28 78 29 20  t(*), md5sum(x) 
1f40: 46 52 4f 4d 20 74 33 7d 5d 0a 7d 0a 0a 64 6f 5f  FROM t3}].}..do_
1f50: 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 34  test exclusive-4
1f60: 2e 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .0 {.  execsql {
1f70: 20 50 52 41 47 4d 41 20 6c 6f 63 6b 69 6e 67 5f   PRAGMA locking_
1f80: 6d 6f 64 65 20 3d 20 65 78 63 6c 75 73 69 76 65  mode = exclusive
1f90: 3b 20 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b 20  ; }.  execsql { 
1fa0: 50 52 41 47 4d 41 20 64 65 66 61 75 6c 74 5f 63  PRAGMA default_c
1fb0: 61 63 68 65 5f 73 69 7a 65 20 3d 20 31 30 3b 20  ache_size = 10; 
1fc0: 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  }.  execsql {.  
1fd0: 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 43 52 45    BEGIN;.    CRE
1fe0: 41 54 45 20 54 41 42 4c 45 20 74 33 28 78 20 54  ATE TABLE t3(x T
1ff0: 45 58 54 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  EXT);.    INSERT
2000: 20 49 4e 54 4f 20 74 33 20 56 41 4c 55 45 53 28   INTO t3 VALUES(
2010: 72 61 6e 64 73 74 72 28 31 30 2c 34 30 30 29 29  randstr(10,400))
2020: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
2030: 4f 20 74 33 20 56 41 4c 55 45 53 28 72 61 6e 64  O t3 VALUES(rand
2040: 73 74 72 28 31 30 2c 34 30 30 29 29 3b 0a 20 20  str(10,400));.  
2050: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 33    INSERT INTO t3
2060: 20 53 45 4c 45 43 54 20 72 61 6e 64 73 74 72 28   SELECT randstr(
2070: 31 30 2c 34 30 30 29 20 46 52 4f 4d 20 74 33 3b  10,400) FROM t3;
2080: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
2090: 20 74 33 20 53 45 4c 45 43 54 20 72 61 6e 64 73   t3 SELECT rands
20a0: 74 72 28 31 30 2c 34 30 30 29 20 46 52 4f 4d 20  tr(10,400) FROM 
20b0: 74 33 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  t3;.    INSERT I
20c0: 4e 54 4f 20 74 33 20 53 45 4c 45 43 54 20 72 61  NTO t3 SELECT ra
20d0: 6e 64 73 74 72 28 31 30 2c 34 30 30 29 20 46 52  ndstr(10,400) FR
20e0: 4f 4d 20 74 33 3b 0a 20 20 20 20 49 4e 53 45 52  OM t3;.    INSER
20f0: 54 20 49 4e 54 4f 20 74 33 20 53 45 4c 45 43 54  T INTO t3 SELECT
2100: 20 72 61 6e 64 73 74 72 28 31 30 2c 34 30 30 29   randstr(10,400)
2110: 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20 20 43 4f   FROM t3;.    CO
2120: 4d 4d 49 54 3b 0a 20 20 7d 0a 20 20 65 78 65 63  MMIT;.  }.  exec
2130: 73 71 6c 20 7b 53 45 4c 45 43 54 20 63 6f 75 6e  sql {SELECT coun
2140: 74 28 2a 29 20 46 52 4f 4d 20 74 33 3b 7d 0a 7d  t(*) FROM t3;}.}
2150: 20 7b 33 32 7d 0a 0a 73 65 74 20 3a 3a 58 20 5b   {32}..set ::X [
2160: 73 69 67 6e 61 74 75 72 65 5d 0a 64 6f 5f 74 65  signature].do_te
2170: 73 74 20 65 78 63 6c 75 73 69 76 65 2d 34 2e 31  st exclusive-4.1
2180: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   {.  execsql {. 
2190: 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 44 45     BEGIN;.    DE
21a0: 4c 45 54 45 20 46 52 4f 4d 20 74 33 20 57 48 45  LETE FROM t3 WHE
21b0: 52 45 20 72 61 6e 64 6f 6d 28 29 25 31 30 21 3d  RE random()%10!=
21c0: 30 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  0;.    INSERT IN
21d0: 54 4f 20 74 33 20 53 45 4c 45 43 54 20 72 61 6e  TO t3 SELECT ran
21e0: 64 73 74 72 28 31 30 2c 31 30 29 7c 7c 78 20 46  dstr(10,10)||x F
21f0: 52 4f 4d 20 74 33 3b 0a 20 20 20 20 49 4e 53 45  ROM t3;.    INSE
2200: 52 54 20 49 4e 54 4f 20 74 33 20 53 45 4c 45 43  RT INTO t3 SELEC
2210: 54 20 72 61 6e 64 73 74 72 28 31 30 2c 31 30 29  T randstr(10,10)
2220: 7c 7c 78 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20  ||x FROM t3;.   
2230: 20 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29   SELECT count(*)
2240: 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20 20 52 4f   FROM t3;.    RO
2250: 4c 4c 42 41 43 4b 3b 0a 20 20 7d 0a 20 20 73 69  LLBACK;.  }.  si
2260: 67 6e 61 74 75 72 65 0a 7d 20 24 3a 3a 58 0a 0a  gnature.} $::X..
2270: 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76  do_test exclusiv
2280: 65 2d 34 2e 32 20 7b 0a 20 20 65 78 65 63 73 71  e-4.2 {.  execsq
2290: 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20  l {.    BEGIN;. 
22a0: 20 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74     DELETE FROM t
22b0: 33 20 57 48 45 52 45 20 72 61 6e 64 6f 6d 28 29  3 WHERE random()
22c0: 25 31 30 21 3d 30 3b 0a 20 20 20 20 49 4e 53 45  %10!=0;.    INSE
22d0: 52 54 20 49 4e 54 4f 20 74 33 20 53 45 4c 45 43  RT INTO t3 SELEC
22e0: 54 20 72 61 6e 64 73 74 72 28 31 30 2c 31 30 29  T randstr(10,10)
22f0: 7c 7c 78 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20  ||x FROM t3;.   
2300: 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 33 20   DELETE FROM t3 
2310: 57 48 45 52 45 20 72 61 6e 64 6f 6d 28 29 25 31  WHERE random()%1
2320: 30 21 3d 30 3b 0a 20 20 20 20 49 4e 53 45 52 54  0!=0;.    INSERT
2330: 20 49 4e 54 4f 20 74 33 20 53 45 4c 45 43 54 20   INTO t3 SELECT 
2340: 72 61 6e 64 73 74 72 28 31 30 2c 31 30 29 7c 7c  randstr(10,10)||
2350: 78 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20 20 52  x FROM t3;.    R
2360: 4f 4c 4c 42 41 43 4b 3b 0a 20 20 7d 0a 20 20 73  OLLBACK;.  }.  s
2370: 69 67 6e 61 74 75 72 65 0a 7d 20 24 3a 3a 58 0a  ignature.} $::X.
2380: 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69  .do_test exclusi
2390: 76 65 2d 34 2e 33 20 7b 0a 20 20 65 78 65 63 73  ve-4.3 {.  execs
23a0: 71 6c 20 7b 0a 20 20 20 20 49 4e 53 45 52 54 20  ql {.    INSERT 
23b0: 49 4e 54 4f 20 74 33 20 53 45 4c 45 43 54 20 72  INTO t3 SELECT r
23c0: 61 6e 64 73 74 72 28 31 30 2c 34 30 30 29 20 46  andstr(10,400) F
23d0: 52 4f 4d 20 74 33 20 57 48 45 52 45 20 72 61 6e  ROM t3 WHERE ran
23e0: 64 6f 6d 28 29 25 31 30 3d 3d 30 3b 0a 20 20 7d  dom()%10==0;.  }
23f0: 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20 65  .} {}..do_test e
2400: 78 63 6c 75 73 69 76 65 2d 34 2e 34 20 7b 0a 20  xclusive-4.4 {. 
2410: 20 63 61 74 63 68 20 7b 73 65 74 20 3a 3a 58 20   catch {set ::X 
2420: 5b 73 69 67 6e 61 74 75 72 65 5d 7d 0a 7d 20 7b  [signature]}.} {
2430: 30 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75  0}.do_test exclu
2440: 73 69 76 65 2d 34 2e 35 20 7b 0a 20 20 65 78 65  sive-4.5 {.  exe
2450: 63 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d  csql {.    PRAGM
2460: 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d  A locking_mode =
2470: 20 4e 4f 52 4d 41 4c 3b 0a 20 20 20 20 44 52 4f   NORMAL;.    DRO
2480: 50 20 54 41 42 4c 45 20 74 33 3b 0a 20 20 20 20  P TABLE t3;.    
2490: 44 52 4f 50 20 54 41 42 4c 45 20 61 62 63 3b 0a  DROP TABLE abc;.
24a0: 20 20 7d 0a 7d 20 7b 6e 6f 72 6d 61 6c 7d 0a 0a    }.} {normal}..
24b0: 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  #---------------
24c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24f0: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 65 73 74 73 20  -------.# Tests 
2500: 65 78 63 6c 75 73 69 76 65 2d 35 2e 58 20 2d 20  exclusive-5.X - 
2510: 74 65 73 74 20 74 68 61 74 20 73 74 61 74 65 6d  test that statem
2520: 65 6e 74 20 6a 6f 75 72 6e 61 6c 73 20 61 72 65  ent journals are
2530: 20 74 72 75 6e 63 61 74 65 64 0a 23 20 69 6e 73   truncated.# ins
2540: 74 65 61 64 20 6f 66 20 64 65 6c 65 74 65 64 20  tead of deleted 
2550: 77 68 65 6e 20 69 6e 20 65 78 63 6c 75 73 69 76  when in exclusiv
2560: 65 20 61 63 63 65 73 73 20 6d 6f 64 65 2e 0a 23  e access mode..#
2570: 0a 0a 23 20 43 6c 6f 73 65 20 61 6e 64 20 72 65  ..# Close and re
2580: 6f 70 65 6e 20 74 68 65 20 64 61 74 61 62 61 73  open the databas
2590: 65 20 73 6f 20 74 68 61 74 20 74 68 65 20 74 65  e so that the te
25a0: 6d 70 20 64 61 74 61 62 61 73 65 20 69 73 20 6e  mp database is n
25b0: 6f 0a 23 20 6c 6f 6e 67 65 72 20 61 63 74 69 76  o.# longer activ
25c0: 65 2e 0a 23 0a 64 62 20 63 6c 6f 73 65 0a 73 71  e..#.db close.sq
25d0: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
25e0: 0a 0a 23 20 69 66 20 77 65 27 72 65 20 75 73 69  ..# if we're usi
25f0: 6e 67 20 70 72 6f 78 79 20 6c 6f 63 6b 73 2c 20  ng proxy locks, 
2600: 77 65 20 75 73 65 20 33 20 66 69 6c 65 64 65 73  we use 3 filedes
2610: 63 72 69 70 74 6f 72 73 20 66 6f 72 20 61 20 64  criptors for a d
2620: 62 0a 23 20 74 68 61 74 20 69 73 20 6f 70 65 6e  b.# that is open
2630: 20 62 75 74 20 4e 4f 54 20 77 72 69 74 69 6e 67   but NOT writing
2640: 20 63 68 61 6e 67 65 73 2c 20 6e 6f 72 6d 61 6c   changes, normal
2650: 6c 79 0a 23 20 73 71 6c 69 74 65 20 75 73 65 73  ly.# sqlite uses
2660: 20 31 20 28 70 72 6f 78 79 20 6c 6f 63 6b 69 6e   1 (proxy lockin
2670: 67 20 61 64 64 73 20 74 68 65 20 63 6f 6e 63 68  g adds the conch
2680: 20 61 6e 64 20 74 68 65 20 6c 6f 63 61 6c 20 6c   and the local l
2690: 6f 63 6b 29 0a 73 65 74 20 75 73 69 6e 67 5f 70  ock).set using_p
26a0: 72 6f 78 79 20 30 0a 66 6f 72 65 61 63 68 20 7b  roxy 0.foreach {
26b0: 6e 61 6d 65 20 76 61 6c 75 65 7d 20 5b 61 72 72  name value} [arr
26c0: 61 79 20 67 65 74 20 65 6e 76 20 53 51 4c 49 54  ay get env SQLIT
26d0: 45 5f 46 4f 52 43 45 5f 50 52 4f 58 59 5f 4c 4f  E_FORCE_PROXY_LO
26e0: 43 4b 49 4e 47 5d 20 7b 0a 20 20 73 65 74 20 75  CKING] {.  set u
26f0: 73 69 6e 67 5f 70 72 6f 78 79 20 24 76 61 6c 75  sing_proxy $valu
2700: 65 0a 7d 0a 73 65 74 20 65 78 74 72 61 66 64 73  e.}.set extrafds
2710: 20 30 0a 69 66 20 7b 24 75 73 69 6e 67 5f 70 72   0.if {$using_pr
2720: 6f 78 79 21 3d 30 7d 20 7b 0a 20 20 73 65 74 20  oxy!=0} {.  set 
2730: 65 78 74 72 61 66 64 73 20 32 0a 7d 20 0a 0a 64  extrafds 2.} ..d
2740: 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76 65  o_test exclusive
2750: 2d 35 2e 30 20 7b 0a 20 20 65 78 65 63 73 71 6c  -5.0 {.  execsql
2760: 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41   {.    CREATE TA
2770: 42 4c 45 20 61 62 63 28 61 20 55 4e 49 51 55 45  BLE abc(a UNIQUE
2780: 2c 20 62 20 55 4e 49 51 55 45 2c 20 63 20 55 4e  , b UNIQUE, c UN
2790: 49 51 55 45 29 3b 0a 20 20 20 20 42 45 47 49 4e  IQUE);.    BEGIN
27a0: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
27b0: 4f 20 61 62 63 20 56 41 4c 55 45 53 28 31 2c 20  O abc VALUES(1, 
27c0: 32 2c 20 33 29 3b 0a 20 20 20 20 49 4e 53 45 52  2, 3);.    INSER
27d0: 54 20 49 4e 54 4f 20 61 62 63 20 53 45 4c 45 43  T INTO abc SELEC
27e0: 54 20 61 2b 31 2c 20 62 2b 31 2c 20 63 2b 31 20  T a+1, b+1, c+1 
27f0: 46 52 4f 4d 20 61 62 63 3b 0a 20 20 7d 0a 7d 20  FROM abc;.  }.} 
2800: 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75  {}.do_test exclu
2810: 73 69 76 65 2d 35 2e 31 20 7b 0a 20 20 23 20 54  sive-5.1 {.  # T
2820: 68 72 65 65 20 66 69 6c 65 73 20 61 72 65 20 6f  hree files are o
2830: 70 65 6e 3a 20 54 68 65 20 64 62 2c 20 6a 6f 75  pen: The db, jou
2840: 72 6e 61 6c 20 61 6e 64 20 73 74 61 74 65 6d 65  rnal and stateme
2850: 6e 74 2d 6a 6f 75 72 6e 61 6c 2e 0a 20 20 73 65  nt-journal..  se
2860: 74 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69  t sqlite_open_fi
2870: 6c 65 5f 63 6f 75 6e 74 0a 20 20 65 78 70 72 20  le_count.  expr 
2880: 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c  $sqlite_open_fil
2890: 65 5f 63 6f 75 6e 74 2d 24 65 78 74 72 61 66 64  e_count-$extrafd
28a0: 73 0a 7d 20 5b 65 78 70 72 20 33 20 2d 20 28 24  s.} [expr 3 - ($
28b0: 54 45 4d 50 5f 53 54 4f 52 45 3e 3d 32 29 5d 0a  TEMP_STORE>=2)].
28c0: 64 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76  do_test exclusiv
28d0: 65 2d 35 2e 32 20 7b 0a 20 20 65 78 65 63 73 71  e-5.2 {.  execsq
28e0: 6c 20 7b 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a  l {.    COMMIT;.
28f0: 20 20 7d 0a 20 20 23 20 4f 6e 65 20 66 69 6c 65    }.  # One file
2900: 20 6f 70 65 6e 3a 20 74 68 65 20 64 62 2e 0a 20   open: the db.. 
2910: 20 73 65 74 20 73 71 6c 69 74 65 5f 6f 70 65 6e   set sqlite_open
2920: 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 20 20 65 78  _file_count.  ex
2930: 70 72 20 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f  pr $sqlite_open_
2940: 66 69 6c 65 5f 63 6f 75 6e 74 2d 24 65 78 74 72  file_count-$extr
2950: 61 66 64 73 0a 7d 20 7b 31 7d 0a 64 6f 5f 74 65  afds.} {1}.do_te
2960: 73 74 20 65 78 63 6c 75 73 69 76 65 2d 35 2e 33  st exclusive-5.3
2970: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   {.  execsql {. 
2980: 20 20 20 50 52 41 47 4d 41 20 6c 6f 63 6b 69 6e     PRAGMA lockin
2990: 67 5f 6d 6f 64 65 20 3d 20 65 78 63 6c 75 73 69  g_mode = exclusi
29a0: 76 65 3b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20  ve;.    BEGIN;. 
29b0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61     INSERT INTO a
29c0: 62 63 20 56 41 4c 55 45 53 28 35 2c 20 36 2c 20  bc VALUES(5, 6, 
29d0: 37 29 3b 0a 20 20 7d 0a 20 20 23 20 54 77 6f 20  7);.  }.  # Two 
29e0: 66 69 6c 65 73 20 6f 70 65 6e 3a 20 74 68 65 20  files open: the 
29f0: 64 62 20 61 6e 64 20 6a 6f 75 72 6e 61 6c 2e 0a  db and journal..
2a00: 20 20 73 65 74 20 73 71 6c 69 74 65 5f 6f 70 65    set sqlite_ope
2a10: 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 20 20 65  n_file_count.  e
2a20: 78 70 72 20 24 73 71 6c 69 74 65 5f 6f 70 65 6e  xpr $sqlite_open
2a30: 5f 66 69 6c 65 5f 63 6f 75 6e 74 2d 24 65 78 74  _file_count-$ext
2a40: 72 61 66 64 73 0a 7d 20 7b 32 7d 0a 64 6f 5f 74  rafds.} {2}.do_t
2a50: 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d 35 2e  est exclusive-5.
2a60: 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  4 {.  execsql {.
2a70: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
2a80: 61 62 63 20 53 45 4c 45 43 54 20 61 2b 31 30 2c  abc SELECT a+10,
2a90: 20 62 2b 31 30 2c 20 63 2b 31 30 20 46 52 4f 4d   b+10, c+10 FROM
2aa0: 20 61 62 63 3b 0a 20 20 7d 0a 20 20 23 20 54 68   abc;.  }.  # Th
2ab0: 72 65 65 20 66 69 6c 65 73 20 61 72 65 20 6f 70  ree files are op
2ac0: 65 6e 3a 20 54 68 65 20 64 62 2c 20 6a 6f 75 72  en: The db, jour
2ad0: 6e 61 6c 20 61 6e 64 20 73 74 61 74 65 6d 65 6e  nal and statemen
2ae0: 74 2d 6a 6f 75 72 6e 61 6c 2e 0a 20 20 73 65 74  t-journal..  set
2af0: 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c   sqlite_open_fil
2b00: 65 5f 63 6f 75 6e 74 0a 20 20 65 78 70 72 20 24  e_count.  expr $
2b10: 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65  sqlite_open_file
2b20: 5f 63 6f 75 6e 74 2d 24 65 78 74 72 61 66 64 73  _count-$extrafds
2b30: 0a 7d 20 5b 65 78 70 72 20 33 20 2d 20 28 24 54  .} [expr 3 - ($T
2b40: 45 4d 50 5f 53 54 4f 52 45 3e 3d 32 29 5d 0a 64  EMP_STORE>=2)].d
2b50: 6f 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76 65  o_test exclusive
2b60: 2d 35 2e 35 20 7b 0a 20 20 65 78 65 63 73 71 6c  -5.5 {.  execsql
2b70: 20 7b 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20   {.    COMMIT;. 
2b80: 20 7d 0a 20 20 23 20 54 68 72 65 65 20 66 69 6c   }.  # Three fil
2b90: 65 73 20 61 72 65 20 73 74 69 6c 6c 20 6f 70 65  es are still ope
2ba0: 6e 3a 20 54 68 65 20 64 62 2c 20 6a 6f 75 72 6e  n: The db, journ
2bb0: 61 6c 20 61 6e 64 20 73 74 61 74 65 6d 65 6e 74  al and statement
2bc0: 2d 6a 6f 75 72 6e 61 6c 2e 0a 20 20 73 65 74 20  -journal..  set 
2bd0: 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65  sqlite_open_file
2be0: 5f 63 6f 75 6e 74 0a 20 20 65 78 70 72 20 24 73  _count.  expr $s
2bf0: 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f  qlite_open_file_
2c00: 63 6f 75 6e 74 2d 24 65 78 74 72 61 66 64 73 0a  count-$extrafds.
2c10: 7d 20 5b 65 78 70 72 20 33 20 2d 20 28 24 54 45  } [expr 3 - ($TE
2c20: 4d 50 5f 53 54 4f 52 45 3e 3d 32 29 5d 0a 64 6f  MP_STORE>=2)].do
2c30: 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76 65 2d  _test exclusive-
2c40: 35 2e 36 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  5.6 {.  execsql 
2c50: 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 6c 6f 63  {.    PRAGMA loc
2c60: 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 6e 6f 72 6d  king_mode = norm
2c70: 61 6c 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a  al;.    SELECT *
2c80: 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 7d 0a 7d   FROM abc;.  }.}
2c90: 20 7b 6e 6f 72 6d 61 6c 20 31 20 32 20 33 20 32   {normal 1 2 3 2
2ca0: 20 33 20 34 20 35 20 36 20 37 20 31 31 20 31 32   3 4 5 6 7 11 12
2cb0: 20 31 33 20 31 32 20 31 33 20 31 34 20 31 35 20   13 12 13 14 15 
2cc0: 31 36 20 31 37 7d 0a 64 6f 5f 74 65 73 74 20 65  16 17}.do_test e
2cd0: 78 63 6c 75 73 69 76 65 2d 35 2e 37 20 7b 0a 20  xclusive-5.7 {. 
2ce0: 20 23 20 4a 75 73 74 20 74 68 65 20 64 62 20 6f   # Just the db o
2cf0: 70 65 6e 2e 0a 20 20 73 65 74 20 73 71 6c 69 74  pen..  set sqlit
2d00: 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e  e_open_file_coun
2d10: 74 0a 20 20 65 78 70 72 20 24 73 71 6c 69 74 65  t.  expr $sqlite
2d20: 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74  _open_file_count
2d30: 2d 24 65 78 74 72 61 66 64 73 0a 7d 20 7b 31 7d  -$extrafds.} {1}
2d40: 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ..#-------------
2d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 64 6f  ------------..do
2d90: 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 65 78  _execsql_test ex
2da0: 63 6c 75 73 69 76 65 2d 36 2e 31 20 7b 0a 20 20  clusive-6.1 {.  
2db0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 34 28  CREATE TABLE t4(
2dc0: 61 2c 20 62 29 3b 0a 20 20 49 4e 53 45 52 54 20  a, b);.  INSERT 
2dd0: 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 27  INTO t4 VALUES('
2de0: 45 64 65 6e 27 2c 20 31 39 35 35 29 3b 0a 20 20  Eden', 1955);.  
2df0: 42 45 47 49 4e 3b 0a 20 20 20 20 49 4e 53 45 52  BEGIN;.    INSER
2e00: 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53  T INTO t4 VALUES
2e10: 28 27 4d 61 63 6d 69 6c 6c 61 6e 27 2c 20 31 39  ('Macmillan', 19
2e20: 35 37 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20  57);.    INSERT 
2e30: 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 27  INTO t4 VALUES('
2e40: 44 6f 75 67 6c 61 73 2d 48 6f 6d 65 27 2c 20 31  Douglas-Home', 1
2e50: 39 36 33 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  963);.    INSERT
2e60: 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28   INTO t4 VALUES(
2e70: 27 57 69 6c 73 6f 6e 27 2c 20 31 39 36 34 29 3b  'Wilson', 1964);
2e80: 0a 7d 0a 64 6f 5f 74 65 73 74 20 65 78 63 6c 75  .}.do_test exclu
2e90: 73 69 76 65 2d 36 2e 32 20 7b 0a 20 20 66 6f 72  sive-6.2 {.  for
2ea0: 63 65 64 65 6c 65 74 65 20 74 65 73 74 32 2e 64  cedelete test2.d
2eb0: 62 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e  b test2.db-journ
2ec0: 61 6c 0a 20 20 63 6f 70 79 5f 66 69 6c 65 20 74  al.  copy_file t
2ed0: 65 73 74 2e 64 62 20 74 65 73 74 32 2e 64 62 0a  est.db test2.db.
2ee0: 20 20 63 6f 70 79 5f 66 69 6c 65 20 74 65 73 74    copy_file test
2ef0: 2e 64 62 2d 6a 6f 75 72 6e 61 6c 20 74 65 73 74  .db-journal test
2f00: 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20 73  2.db-journal.  s
2f10: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 32 2e  qlite3 db test2.
2f20: 64 62 0a 7d 20 7b 7d 0a 0a 64 6f 5f 65 78 65 63  db.} {}..do_exec
2f30: 73 71 6c 5f 74 65 73 74 20 65 78 63 6c 75 73 69  sql_test exclusi
2f40: 76 65 2d 36 2e 33 20 7b 0a 20 20 50 52 41 47 4d  ve-6.3 {.  PRAGM
2f50: 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d  A locking_mode =
2f60: 20 45 58 43 4c 55 53 49 56 45 3b 0a 20 20 53 45   EXCLUSIVE;.  SE
2f70: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 34 3b 0a  LECT * FROM t4;.
2f80: 7d 20 7b 65 78 63 6c 75 73 69 76 65 20 45 64 65  } {exclusive Ede
2f90: 6e 20 31 39 35 35 7d 0a 0a 64 6f 5f 74 65 73 74  n 1955}..do_test
2fa0: 20 65 78 63 6c 75 73 69 76 65 2d 36 2e 34 20 7b   exclusive-6.4 {
2fb0: 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 66 6f  .  db close.  fo
2fc0: 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64  rcedelete test.d
2fd0: 62 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61  b test.db-journa
2fe0: 6c 0a 20 20 73 65 74 20 66 64 20 5b 6f 70 65 6e  l.  set fd [open
2ff0: 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c   test.db-journal
3000: 20 77 5d 0a 20 20 70 75 74 73 20 24 66 64 20 78   w].  puts $fd x
3010: 0a 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20 73  .  close $fd.  s
3020: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
3030: 62 0a 7d 20 7b 7d 0a 0a 64 6f 5f 65 78 65 63 73  b.} {}..do_execs
3040: 71 6c 5f 74 65 73 74 20 65 78 63 6c 75 73 69 76  ql_test exclusiv
3050: 65 2d 36 2e 35 20 7b 0a 20 20 50 52 41 47 4d 41  e-6.5 {.  PRAGMA
3060: 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20   locking_mode = 
3070: 45 58 43 4c 55 53 49 56 45 3b 0a 20 20 53 45 4c  EXCLUSIVE;.  SEL
3080: 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74  ECT * FROM sqlit
3090: 65 5f 6d 61 73 74 65 72 3b 0a 7d 20 7b 65 78 63  e_master;.} {exc
30a0: 6c 75 73 69 76 65 7d 0a 0a 66 69 6e 69 73 68 5f  lusive}..finish_
30b0: 74 65 73 74 0a                                   test.