/ Hex Artifact Content
Login

Artifact 0540dd96f39b8876e3ffdd8814fad0ea425efeee:


0000: 23 20 32 30 31 34 2d 30 35 2d 30 37 0a 23 0a 23  # 2014-05-07.#.#
0010: 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73 63   The author disc
0020: 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74 20  laims copyright 
0030: 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20 63  to this source c
0040: 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f  ode.  In place o
0050: 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69  f.# a legal noti
0060: 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c  ce, here is a bl
0070: 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20 4d  essing:.#.#    M
0080: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
0090: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20 20  nd not evil..#  
00a0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66    May you find f
00b0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79  orgiveness for y
00c0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67  ourself and forg
00d0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20 20  ive others..#   
00e0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66   May you share f
00f0: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b  reely, never tak
0100: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f  ing more than yo
0110: 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a 2a  u 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 0a 23 0a 23 20 54 68 69 73 20 66 69 6c 65  **.#.# This file
0170: 20 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67 72   implements regr
0180: 65 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f 72  ession tests for
0190: 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e   SQLite library.
01a0: 20 20 54 68 65 0a 23 20 66 6f 63 75 73 20 6f 66    The.# focus of
01b0: 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 74 65   this file is te
01c0: 73 74 69 6e 67 20 74 68 65 20 6e 6f 6c 6f 63 6b  sting the nolock
01d0: 3d 31 20 61 6e 64 20 69 6d 6d 75 74 61 62 6c 65  =1 and immutable
01e0: 3d 31 20 71 75 65 72 79 0a 23 20 70 61 72 61 6d  =1 query.# param
01f0: 65 74 65 72 73 20 61 6e 64 20 74 68 65 20 53 51  eters and the SQ
0200: 4c 49 54 45 5f 49 4f 43 41 50 5f 49 4d 4d 55 54  LITE_IOCAP_IMMUT
0210: 41 42 4c 45 20 64 65 76 69 63 65 20 63 68 61 72  ABLE device char
0220: 61 63 74 65 72 69 73 74 69 63 2e 0a 23 0a 0a 73  acteristic..#..s
0230: 65 74 20 74 65 73 74 64 69 72 20 5b 66 69 6c 65  et testdir [file
0240: 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76 30 5d   dirname $argv0]
0250: 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 69 72  .source $testdir
0260: 2f 74 65 73 74 65 72 2e 74 63 6c 0a 0a 75 6e 73  /tester.tcl..uns
0270: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74  et -nocomplain t
0280: 76 66 73 5f 63 61 6c 6c 73 0a 70 72 6f 63 20 74  vfs_calls.proc t
0290: 76 66 73 5f 72 65 73 65 74 20 7b 7d 20 7b 0a 20  vfs_reset {} {. 
02a0: 20 67 6c 6f 62 61 6c 20 74 76 66 73 5f 63 61 6c   global tvfs_cal
02b0: 6c 73 0a 20 20 61 72 72 61 79 20 73 65 74 20 74  ls.  array set t
02c0: 76 66 73 5f 63 61 6c 6c 73 20 7b 78 4c 6f 63 6b  vfs_calls {xLock
02d0: 20 30 20 78 55 6e 6c 6f 63 6b 20 30 20 78 43 68   0 xUnlock 0 xCh
02e0: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 20  eckReservedLock 
02f0: 30 20 78 41 63 63 65 73 73 20 30 7d 0a 7d 0a 70  0 xAccess 0}.}.p
0300: 72 6f 63 20 74 76 66 73 5f 63 61 6c 6c 62 61 63  roc tvfs_callbac
0310: 6b 20 7b 6f 70 20 61 72 67 73 7d 20 7b 0a 20 20  k {op args} {.  
0320: 67 6c 6f 62 61 6c 20 74 76 66 73 5f 63 61 6c 6c  global tvfs_call
0330: 73 0a 20 20 69 6e 63 72 20 74 76 66 73 5f 63 61  s.  incr tvfs_ca
0340: 6c 6c 73 28 24 6f 70 29 0a 20 20 72 65 74 75 72  lls($op).  retur
0350: 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 7d 0a 74 76  n SQLITE_OK.}.tv
0360: 66 73 5f 72 65 73 65 74 0a 0a 74 65 73 74 76 66  fs_reset..testvf
0370: 73 20 74 76 66 73 0a 74 76 66 73 20 73 63 72 69  s tvfs.tvfs scri
0380: 70 74 20 74 76 66 73 5f 63 61 6c 6c 62 61 63 6b  pt tvfs_callback
0390: 0a 74 76 66 73 20 66 69 6c 74 65 72 20 7b 78 4c  .tvfs filter {xL
03a0: 6f 63 6b 20 78 55 6e 6c 6f 63 6b 20 78 43 68 65  ock xUnlock xChe
03b0: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 20 78  ckReservedLock x
03c0: 41 63 63 65 73 73 7d 0a 0a 23 23 23 23 23 23 23  Access}..#######
03d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
03e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
03f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0400: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0410: 23 23 23 23 23 0a 23 20 56 65 72 69 66 79 20 74  #####.# Verify t
0420: 68 61 74 20 74 68 65 20 6e 6f 6c 6f 63 6b 3d 31  hat the nolock=1
0430: 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 72   query parameter
0440: 20 66 6f 72 20 55 52 49 20 66 69 6c 65 6e 61 6d   for URI filenam
0450: 65 73 20 64 69 73 61 62 6c 65 73 20 61 6c 6c 0a  es disables all.
0460: 23 20 63 61 6c 6c 73 20 74 6f 20 78 4c 6f 63 6b  # calls to xLock
0470: 20 61 6e 64 20 78 55 6e 6c 6f 63 6b 20 66 6f 72   and xUnlock for
0480: 20 72 6f 6c 6c 62 61 63 6b 20 64 61 74 61 62 61   rollback databa
0490: 73 65 73 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 6e  ses..#.do_test n
04a0: 6f 6c 6f 63 6b 2d 31 2e 30 20 7b 0a 20 20 64 62  olock-1.0 {.  db
04b0: 20 63 6c 6f 73 65 0a 20 20 66 6f 72 63 65 64 65   close.  forcede
04c0: 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 20 20 74  lete test.db.  t
04d0: 76 66 73 5f 72 65 73 65 74 0a 20 20 73 71 6c 69  vfs_reset.  sqli
04e0: 74 65 20 64 62 20 74 65 73 74 2e 64 62 20 2d 76  te db test.db -v
04f0: 66 73 20 74 76 66 73 0a 20 20 64 62 20 65 76 61  fs tvfs.  db eva
0500: 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20  l {CREATE TABLE 
0510: 74 31 28 61 2c 62 2c 63 29 3b 20 49 4e 53 45 52  t1(a,b,c); INSER
0520: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
0530: 28 31 2c 32 2c 33 29 3b 7d 0a 20 20 6c 69 73 74  (1,2,3);}.  list
0540: 20 78 4c 6f 63 6b 20 24 3a 3a 74 76 66 73 5f 63   xLock $::tvfs_c
0550: 61 6c 6c 73 28 78 4c 6f 63 6b 29 20 78 55 6e 6c  alls(xLock) xUnl
0560: 6f 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c  ock $::tvfs_call
0570: 73 28 78 55 6e 6c 6f 63 6b 29 20 5c 0a 20 20 20  s(xUnlock) \.   
0580: 20 20 20 20 78 43 68 65 63 6b 52 65 73 65 72 76      xCheckReserv
0590: 65 64 4c 6f 63 6b 20 24 3a 3a 74 76 66 73 5f 63  edLock $::tvfs_c
05a0: 61 6c 6c 73 28 78 43 68 65 63 6b 52 65 73 65 72  alls(xCheckReser
05b0: 76 65 64 4c 6f 63 6b 29 0a 7d 20 7b 78 4c 6f 63  vedLock).} {xLoc
05c0: 6b 20 37 20 78 55 6e 6c 6f 63 6b 20 35 20 78 43  k 7 xUnlock 5 xC
05d0: 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b  heckReservedLock
05e0: 20 30 7d 0a 0a 64 6f 5f 74 65 73 74 20 6e 6f 6c   0}..do_test nol
05f0: 6f 63 6b 2d 31 2e 31 20 7b 0a 20 20 64 62 20 63  ock-1.1 {.  db c
0600: 6c 6f 73 65 0a 20 20 66 6f 72 63 65 64 65 6c 65  lose.  forcedele
0610: 74 65 20 74 65 73 74 2e 64 62 0a 20 20 74 76 66  te test.db.  tvf
0620: 73 5f 72 65 73 65 74 0a 20 20 73 71 6c 69 74 65  s_reset.  sqlite
0630: 20 64 62 20 66 69 6c 65 3a 74 65 73 74 2e 64 62   db file:test.db
0640: 3f 6e 6f 6c 6f 63 6b 3d 30 20 2d 76 66 73 20 74  ?nolock=0 -vfs t
0650: 76 66 73 20 2d 75 72 69 20 31 0a 20 20 64 62 20  vfs -uri 1.  db 
0660: 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42  eval {CREATE TAB
0670: 4c 45 20 74 31 28 61 2c 62 2c 63 29 3b 20 49 4e  LE t1(a,b,c); IN
0680: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
0690: 55 45 53 28 31 2c 32 2c 33 29 3b 7d 0a 20 20 6c  UES(1,2,3);}.  l
06a0: 69 73 74 20 78 4c 6f 63 6b 20 24 3a 3a 74 76 66  ist xLock $::tvf
06b0: 73 5f 63 61 6c 6c 73 28 78 4c 6f 63 6b 29 20 78  s_calls(xLock) x
06c0: 55 6e 6c 6f 63 6b 20 24 3a 3a 74 76 66 73 5f 63  Unlock $::tvfs_c
06d0: 61 6c 6c 73 28 78 55 6e 6c 6f 63 6b 29 20 5c 0a  alls(xUnlock) \.
06e0: 20 20 20 20 20 20 20 78 43 68 65 63 6b 52 65 73         xCheckRes
06f0: 65 72 76 65 64 4c 6f 63 6b 20 24 3a 3a 74 76 66  ervedLock $::tvf
0700: 73 5f 63 61 6c 6c 73 28 78 43 68 65 63 6b 52 65  s_calls(xCheckRe
0710: 73 65 72 76 65 64 4c 6f 63 6b 29 0a 7d 20 7b 78  servedLock).} {x
0720: 4c 6f 63 6b 20 37 20 78 55 6e 6c 6f 63 6b 20 35  Lock 7 xUnlock 5
0730: 20 78 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c   xCheckReservedL
0740: 6f 63 6b 20 30 7d 0a 0a 64 6f 5f 74 65 73 74 20  ock 0}..do_test 
0750: 6e 6f 6c 6f 63 6b 2d 31 2e 32 20 7b 0a 20 20 64  nolock-1.2 {.  d
0760: 62 20 63 6c 6f 73 65 0a 20 20 66 6f 72 63 65 64  b close.  forced
0770: 65 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 20 20  elete test.db.  
0780: 74 76 66 73 5f 72 65 73 65 74 0a 20 20 73 71 6c  tvfs_reset.  sql
0790: 69 74 65 20 64 62 20 66 69 6c 65 3a 74 65 73 74  ite db file:test
07a0: 2e 64 62 3f 6e 6f 6c 6f 63 6b 3d 31 20 2d 76 66  .db?nolock=1 -vf
07b0: 73 20 74 76 66 73 20 2d 75 72 69 20 31 0a 20 20  s tvfs -uri 1.  
07c0: 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20  db eval {CREATE 
07d0: 54 41 42 4c 45 20 74 31 28 61 2c 62 2c 63 29 3b  TABLE t1(a,b,c);
07e0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
07f0: 56 41 4c 55 45 53 28 31 2c 32 2c 33 29 3b 7d 0a  VALUES(1,2,3);}.
0800: 20 20 6c 69 73 74 20 78 4c 6f 63 6b 20 24 3a 3a    list xLock $::
0810: 74 76 66 73 5f 63 61 6c 6c 73 28 78 4c 6f 63 6b  tvfs_calls(xLock
0820: 29 20 78 55 6e 6c 6f 63 6b 20 24 3a 3a 74 76 66  ) xUnlock $::tvf
0830: 73 5f 63 61 6c 6c 73 28 78 55 6e 6c 6f 63 6b 29  s_calls(xUnlock)
0840: 20 5c 0a 20 20 20 20 20 20 20 78 43 68 65 63 6b   \.       xCheck
0850: 52 65 73 65 72 76 65 64 4c 6f 63 6b 20 24 3a 3a  ReservedLock $::
0860: 74 76 66 73 5f 63 61 6c 6c 73 28 78 43 68 65 63  tvfs_calls(xChec
0870: 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 29 0a 7d  kReservedLock).}
0880: 20 7b 78 4c 6f 63 6b 20 30 20 78 55 6e 6c 6f 63   {xLock 0 xUnloc
0890: 6b 20 30 20 78 43 68 65 63 6b 52 65 73 65 72 76  k 0 xCheckReserv
08a0: 65 64 4c 6f 63 6b 20 30 7d 0a 0a 64 6f 5f 74 65  edLock 0}..do_te
08b0: 73 74 20 6e 6f 6c 6f 63 6b 2d 31 2e 33 20 7b 0a  st nolock-1.3 {.
08c0: 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 74 76 66    db close.  tvf
08d0: 73 5f 72 65 73 65 74 0a 20 20 73 71 6c 69 74 65  s_reset.  sqlite
08e0: 20 64 62 20 66 69 6c 65 3a 74 65 73 74 2e 64 62   db file:test.db
08f0: 3f 6e 6f 6c 6f 63 6b 3d 30 20 2d 76 66 73 20 74  ?nolock=0 -vfs t
0900: 76 66 73 20 2d 75 72 69 20 31 20 2d 72 65 61 64  vfs -uri 1 -read
0910: 6f 6e 6c 79 20 31 0a 20 20 64 62 20 65 76 61 6c  only 1.  db eval
0920: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
0930: 74 31 7d 0a 20 20 6c 69 73 74 20 78 4c 6f 63 6b  t1}.  list xLock
0940: 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28 78   $::tvfs_calls(x
0950: 4c 6f 63 6b 29 20 78 55 6e 6c 6f 63 6b 20 24 3a  Lock) xUnlock $:
0960: 3a 74 76 66 73 5f 63 61 6c 6c 73 28 78 55 6e 6c  :tvfs_calls(xUnl
0970: 6f 63 6b 29 20 5c 0a 20 20 20 20 20 20 20 78 43  ock) \.       xC
0980: 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b  heckReservedLock
0990: 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28 78   $::tvfs_calls(x
09a0: 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63  CheckReservedLoc
09b0: 6b 29 0a 7d 20 7b 78 4c 6f 63 6b 20 32 20 78 55  k).} {xLock 2 xU
09c0: 6e 6c 6f 63 6b 20 32 20 78 43 68 65 63 6b 52 65  nlock 2 xCheckRe
09d0: 73 65 72 76 65 64 4c 6f 63 6b 20 30 7d 0a 0a 64  servedLock 0}..d
09e0: 6f 5f 74 65 73 74 20 6e 6f 6c 6f 63 6b 2d 31 2e  o_test nolock-1.
09f0: 34 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20  4 {.  db close. 
0a00: 20 74 76 66 73 5f 72 65 73 65 74 0a 20 20 73 71   tvfs_reset.  sq
0a10: 6c 69 74 65 20 64 62 20 66 69 6c 65 3a 74 65 73  lite db file:tes
0a20: 74 2e 64 62 3f 6e 6f 6c 6f 63 6b 3d 31 20 2d 76  t.db?nolock=1 -v
0a30: 66 73 20 74 76 66 73 20 2d 75 72 69 20 31 20 2d  fs tvfs -uri 1 -
0a40: 72 65 61 64 6f 6e 6c 79 20 31 0a 20 20 64 62 20  readonly 1.  db 
0a50: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  eval {SELECT * F
0a60: 52 4f 4d 20 74 31 7d 0a 20 20 6c 69 73 74 20 78  ROM t1}.  list x
0a70: 4c 6f 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c  Lock $::tvfs_cal
0a80: 6c 73 28 78 4c 6f 63 6b 29 20 78 55 6e 6c 6f 63  ls(xLock) xUnloc
0a90: 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28  k $::tvfs_calls(
0aa0: 78 55 6e 6c 6f 63 6b 29 20 5c 0a 20 20 20 20 20  xUnlock) \.     
0ab0: 20 20 78 43 68 65 63 6b 52 65 73 65 72 76 65 64    xCheckReserved
0ac0: 4c 6f 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c  Lock $::tvfs_cal
0ad0: 6c 73 28 78 43 68 65 63 6b 52 65 73 65 72 76 65  ls(xCheckReserve
0ae0: 64 4c 6f 63 6b 29 0a 7d 20 7b 78 4c 6f 63 6b 20  dLock).} {xLock 
0af0: 30 20 78 55 6e 6c 6f 63 6b 20 30 20 78 43 68 65  0 xUnlock 0 xChe
0b00: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 20 30  ckReservedLock 0
0b10: 7d 0a 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  }..#############
0b20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0b30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0b50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0b60: 0a 23 20 56 65 72 69 66 79 20 74 68 61 74 20 69  .# Verify that i
0b70: 6d 6d 75 74 61 62 6c 65 3d 31 20 64 69 73 61 62  mmutable=1 disab
0b80: 6c 65 73 20 62 6f 74 68 20 6c 6f 63 6b 69 6e 67  les both locking
0b90: 20 61 6e 64 20 78 41 63 63 65 73 73 20 63 61 6c   and xAccess cal
0ba0: 6c 73 20 74 6f 20 74 68 65 0a 23 20 6a 6f 75 72  ls to the.# jour
0bb0: 6e 61 6c 20 66 69 6c 65 73 2e 0a 23 0a 64 6f 5f  nal files..#.do_
0bc0: 74 65 73 74 20 6e 6f 6c 6f 63 6b 2d 32 2e 30 20  test nolock-2.0 
0bd0: 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 66  {.  db close.  f
0be0: 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e  orcedelete test.
0bf0: 64 62 0a 20 20 23 20 62 65 67 69 6e 20 62 79 20  db.  # begin by 
0c00: 63 72 65 61 74 69 6e 67 20 61 20 74 65 73 74 20  creating a test 
0c10: 64 61 74 61 62 61 73 65 0a 20 20 73 71 6c 69 74  database.  sqlit
0c20: 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20  e3 db test.db.  
0c30: 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20 43  db eval {.     C
0c40: 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 61  REATE TABLE t1(a
0c50: 2c 62 29 3b 0a 20 20 20 20 20 49 4e 53 45 52 54  ,b);.     INSERT
0c60: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
0c70: 27 68 65 6c 6c 6f 27 2c 27 77 6f 72 6c 64 27 29  'hello','world')
0c80: 3b 0a 20 20 20 20 20 43 52 45 41 54 45 20 54 41  ;.     CREATE TA
0c90: 42 4c 45 20 74 32 28 78 2c 79 29 3b 0a 20 20 20  BLE t2(x,y);.   
0ca0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 32    INSERT INTO t2
0cb0: 20 56 41 4c 55 45 53 28 31 32 33 34 35 2c 36 37   VALUES(12345,67
0cc0: 38 39 30 29 3b 0a 20 20 20 20 20 53 45 4c 45 43  890);.     SELEC
0cd0: 54 20 2a 20 46 52 4f 4d 20 74 31 2c 20 74 32 3b  T * FROM t1, t2;
0ce0: 0a 20 20 7d 0a 7d 20 7b 68 65 6c 6c 6f 20 77 6f  .  }.} {hello wo
0cf0: 72 6c 64 20 31 32 33 34 35 20 36 37 38 39 30 7d  rld 12345 67890}
0d00: 0a 64 6f 5f 74 65 73 74 20 6e 6f 6c 6f 63 6b 2d  .do_test nolock-
0d10: 32 2e 31 20 7b 0a 20 20 74 76 66 73 5f 72 65 73  2.1 {.  tvfs_res
0d20: 65 74 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32  et.  sqlite3 db2
0d30: 20 74 65 73 74 2e 64 62 20 2d 76 66 73 20 74 76   test.db -vfs tv
0d40: 66 73 0a 20 20 64 62 32 20 65 76 61 6c 20 7b 53  fs.  db2 eval {S
0d50: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 2c  ELECT * FROM t1,
0d60: 20 74 32 7d 0a 7d 20 7b 68 65 6c 6c 6f 20 77 6f   t2}.} {hello wo
0d70: 72 6c 64 20 31 32 33 34 35 20 36 37 38 39 30 7d  rld 12345 67890}
0d80: 0a 64 6f 5f 74 65 73 74 20 6e 6f 6c 6f 63 6b 2d  .do_test nolock-
0d90: 32 2e 32 20 7b 0a 20 20 6c 69 73 74 20 78 4c 6f  2.2 {.  list xLo
0da0: 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73  ck $::tvfs_calls
0db0: 28 78 4c 6f 63 6b 29 20 78 55 6e 6c 6f 63 6b 20  (xLock) xUnlock 
0dc0: 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28 78 55  $::tvfs_calls(xU
0dd0: 6e 6c 6f 63 6b 29 20 5c 0a 20 20 20 20 20 20 20  nlock) \.       
0de0: 78 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f  xCheckReservedLo
0df0: 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73  ck $::tvfs_calls
0e00: 28 78 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c  (xCheckReservedL
0e10: 6f 63 6b 29 20 5c 0a 20 20 20 20 20 20 20 78 41  ock) \.       xA
0e20: 63 63 65 73 73 20 24 3a 3a 74 76 66 73 5f 63 61  ccess $::tvfs_ca
0e30: 6c 6c 73 28 78 41 63 63 65 73 73 29 0a 7d 20 7b  lls(xAccess).} {
0e40: 78 4c 6f 63 6b 20 32 20 78 55 6e 6c 6f 63 6b 20  xLock 2 xUnlock 
0e50: 32 20 78 43 68 65 63 6b 52 65 73 65 72 76 65 64  2 xCheckReserved
0e60: 4c 6f 63 6b 20 30 20 78 41 63 63 65 73 73 20 34  Lock 0 xAccess 4
0e70: 7d 0a 0a 0a 64 6f 5f 74 65 73 74 20 6e 6f 6c 6f  }...do_test nolo
0e80: 63 6b 2d 32 2e 31 31 20 7b 0a 20 20 64 62 32 20  ck-2.11 {.  db2 
0e90: 63 6c 6f 73 65 0a 20 20 74 76 66 73 5f 72 65 73  close.  tvfs_res
0ea0: 65 74 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32  et.  sqlite3 db2
0eb0: 20 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f 69 6d   file:test.db?im
0ec0: 6d 75 74 61 62 6c 65 3d 30 20 2d 76 66 73 20 74  mutable=0 -vfs t
0ed0: 76 66 73 20 2d 75 72 69 20 31 0a 20 20 64 62 32  vfs -uri 1.  db2
0ee0: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20   eval {SELECT * 
0ef0: 46 52 4f 4d 20 74 31 2c 20 74 32 7d 0a 7d 20 7b  FROM t1, t2}.} {
0f00: 68 65 6c 6c 6f 20 77 6f 72 6c 64 20 31 32 33 34  hello world 1234
0f10: 35 20 36 37 38 39 30 7d 0a 64 6f 5f 74 65 73 74  5 67890}.do_test
0f20: 20 6e 6f 6c 6f 63 6b 2d 32 2e 31 32 20 7b 0a 20   nolock-2.12 {. 
0f30: 20 6c 69 73 74 20 78 4c 6f 63 6b 20 24 3a 3a 74   list xLock $::t
0f40: 76 66 73 5f 63 61 6c 6c 73 28 78 4c 6f 63 6b 29  vfs_calls(xLock)
0f50: 20 78 55 6e 6c 6f 63 6b 20 24 3a 3a 74 76 66 73   xUnlock $::tvfs
0f60: 5f 63 61 6c 6c 73 28 78 55 6e 6c 6f 63 6b 29 20  _calls(xUnlock) 
0f70: 5c 0a 20 20 20 20 20 20 20 78 43 68 65 63 6b 52  \.       xCheckR
0f80: 65 73 65 72 76 65 64 4c 6f 63 6b 20 24 3a 3a 74  eservedLock $::t
0f90: 76 66 73 5f 63 61 6c 6c 73 28 78 43 68 65 63 6b  vfs_calls(xCheck
0fa0: 52 65 73 65 72 76 65 64 4c 6f 63 6b 29 20 5c 0a  ReservedLock) \.
0fb0: 20 20 20 20 20 20 20 78 41 63 63 65 73 73 20 24         xAccess $
0fc0: 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28 78 41 63  ::tvfs_calls(xAc
0fd0: 63 65 73 73 29 0a 7d 20 7b 78 4c 6f 63 6b 20 32  cess).} {xLock 2
0fe0: 20 78 55 6e 6c 6f 63 6b 20 32 20 78 43 68 65 63   xUnlock 2 xChec
0ff0: 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 20 30 20  kReservedLock 0 
1000: 78 41 63 63 65 73 73 20 34 7d 0a 0a 0a 64 6f 5f  xAccess 4}...do_
1010: 74 65 73 74 20 6e 6f 6c 6f 63 6b 2d 32 2e 32 31  test nolock-2.21
1020: 20 7b 0a 20 20 64 62 32 20 63 6c 6f 73 65 0a 20   {.  db2 close. 
1030: 20 74 76 66 73 5f 72 65 73 65 74 0a 20 20 73 71   tvfs_reset.  sq
1040: 6c 69 74 65 33 20 64 62 32 20 66 69 6c 65 3a 74  lite3 db2 file:t
1050: 65 73 74 2e 64 62 3f 69 6d 6d 75 74 61 62 6c 65  est.db?immutable
1060: 3d 31 20 2d 76 66 73 20 74 76 66 73 20 2d 75 72  =1 -vfs tvfs -ur
1070: 69 20 31 0a 20 20 64 62 32 20 65 76 61 6c 20 7b  i 1.  db2 eval {
1080: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
1090: 2c 20 74 32 7d 0a 7d 20 7b 68 65 6c 6c 6f 20 77  , t2}.} {hello w
10a0: 6f 72 6c 64 20 31 32 33 34 35 20 36 37 38 39 30  orld 12345 67890
10b0: 7d 0a 64 6f 5f 74 65 73 74 20 6e 6f 6c 6f 63 6b  }.do_test nolock
10c0: 2d 32 2e 32 32 20 7b 0a 20 20 6c 69 73 74 20 78  -2.22 {.  list x
10d0: 4c 6f 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c  Lock $::tvfs_cal
10e0: 6c 73 28 78 4c 6f 63 6b 29 20 78 55 6e 6c 6f 63  ls(xLock) xUnloc
10f0: 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28  k $::tvfs_calls(
1100: 78 55 6e 6c 6f 63 6b 29 20 5c 0a 20 20 20 20 20  xUnlock) \.     
1110: 20 20 78 43 68 65 63 6b 52 65 73 65 72 76 65 64    xCheckReserved
1120: 4c 6f 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c  Lock $::tvfs_cal
1130: 6c 73 28 78 43 68 65 63 6b 52 65 73 65 72 76 65  ls(xCheckReserve
1140: 64 4c 6f 63 6b 29 20 5c 0a 20 20 20 20 20 20 20  dLock) \.       
1150: 78 41 63 63 65 73 73 20 24 3a 3a 74 76 66 73 5f  xAccess $::tvfs_
1160: 63 61 6c 6c 73 28 78 41 63 63 65 73 73 29 0a 7d  calls(xAccess).}
1170: 20 7b 78 4c 6f 63 6b 20 30 20 78 55 6e 6c 6f 63   {xLock 0 xUnloc
1180: 6b 20 30 20 78 43 68 65 63 6b 52 65 73 65 72 76  k 0 xCheckReserv
1190: 65 64 4c 6f 63 6b 20 30 20 78 41 63 63 65 73 73  edLock 0 xAccess
11a0: 20 30 7d 0a 0a 64 6f 5f 74 65 73 74 20 6e 6f 6c   0}..do_test nol
11b0: 6f 63 6b 2d 32 2e 33 31 20 7b 0a 20 20 64 62 32  ock-2.31 {.  db2
11c0: 20 63 6c 6f 73 65 0a 20 20 74 76 66 73 5f 72 65   close.  tvfs_re
11d0: 73 65 74 0a 20 20 73 71 6c 69 74 65 33 20 64 62  set.  sqlite3 db
11e0: 32 20 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f 69  2 file:test.db?i
11f0: 6d 6d 75 74 61 62 6c 65 3d 31 20 2d 76 66 73 20  mmutable=1 -vfs 
1200: 74 76 66 73 20 2d 75 72 69 20 31 20 2d 72 65 61  tvfs -uri 1 -rea
1210: 64 6f 6e 6c 79 20 31 0a 20 20 64 62 32 20 65 76  donly 1.  db2 ev
1220: 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  al {SELECT * FRO
1230: 4d 20 74 31 2c 20 74 32 7d 0a 7d 20 7b 68 65 6c  M t1, t2}.} {hel
1240: 6c 6f 20 77 6f 72 6c 64 20 31 32 33 34 35 20 36  lo world 12345 6
1250: 37 38 39 30 7d 0a 64 6f 5f 74 65 73 74 20 6e 6f  7890}.do_test no
1260: 6c 6f 63 6b 2d 32 2e 33 32 20 7b 0a 20 20 6c 69  lock-2.32 {.  li
1270: 73 74 20 78 4c 6f 63 6b 20 24 3a 3a 74 76 66 73  st xLock $::tvfs
1280: 5f 63 61 6c 6c 73 28 78 4c 6f 63 6b 29 20 78 55  _calls(xLock) xU
1290: 6e 6c 6f 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61  nlock $::tvfs_ca
12a0: 6c 6c 73 28 78 55 6e 6c 6f 63 6b 29 20 5c 0a 20  lls(xUnlock) \. 
12b0: 20 20 20 20 20 20 78 43 68 65 63 6b 52 65 73 65        xCheckRese
12c0: 72 76 65 64 4c 6f 63 6b 20 24 3a 3a 74 76 66 73  rvedLock $::tvfs
12d0: 5f 63 61 6c 6c 73 28 78 43 68 65 63 6b 52 65 73  _calls(xCheckRes
12e0: 65 72 76 65 64 4c 6f 63 6b 29 20 5c 0a 20 20 20  ervedLock) \.   
12f0: 20 20 20 20 78 41 63 63 65 73 73 20 24 3a 3a 74      xAccess $::t
1300: 76 66 73 5f 63 61 6c 6c 73 28 78 41 63 63 65 73  vfs_calls(xAcces
1310: 73 29 0a 7d 20 7b 78 4c 6f 63 6b 20 30 20 78 55  s).} {xLock 0 xU
1320: 6e 6c 6f 63 6b 20 30 20 78 43 68 65 63 6b 52 65  nlock 0 xCheckRe
1330: 73 65 72 76 65 64 4c 6f 63 6b 20 30 20 78 41 63  servedLock 0 xAc
1340: 63 65 73 73 20 30 7d 0a 0a 23 23 23 23 23 23 23  cess 0}..#######
1350: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1360: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1370: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1380: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1390: 23 23 23 23 23 0a 23 20 56 65 72 69 66 79 20 74  #####.# Verify t
13a0: 68 61 74 20 74 68 65 20 53 51 4c 49 54 45 5f 49  hat the SQLITE_I
13b0: 4f 43 41 50 5f 49 4d 4d 55 54 41 42 4c 45 20 66  OCAP_IMMUTABLE f
13c0: 6c 61 67 20 77 6f 72 6b 73 0a 23 0a 64 6f 5f 74  lag works.#.do_t
13d0: 65 73 74 20 6e 6f 6c 6f 63 6b 2d 33 2e 31 20 7b  est nolock-3.1 {
13e0: 0a 20 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 74  .  db2 close.  t
13f0: 76 66 73 20 64 65 76 63 68 61 72 20 69 6d 6d 75  vfs devchar immu
1400: 74 61 62 6c 65 0a 20 20 74 76 66 73 5f 72 65 73  table.  tvfs_res
1410: 65 74 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32  et.  sqlite3 db2
1420: 20 74 65 73 74 2e 64 62 20 2d 76 66 73 20 74 76   test.db -vfs tv
1430: 66 73 0a 20 20 64 62 32 20 65 76 61 6c 20 7b 53  fs.  db2 eval {S
1440: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 2c  ELECT * FROM t1,
1450: 20 74 32 7d 0a 7d 20 7b 68 65 6c 6c 6f 20 77 6f   t2}.} {hello wo
1460: 72 6c 64 20 31 32 33 34 35 20 36 37 38 39 30 7d  rld 12345 67890}
1470: 0a 64 6f 5f 74 65 73 74 20 6e 6f 6c 6f 63 6b 2d  .do_test nolock-
1480: 33 2e 32 20 7b 0a 20 20 6c 69 73 74 20 78 4c 6f  3.2 {.  list xLo
1490: 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73  ck $::tvfs_calls
14a0: 28 78 4c 6f 63 6b 29 20 78 55 6e 6c 6f 63 6b 20  (xLock) xUnlock 
14b0: 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28 78 55  $::tvfs_calls(xU
14c0: 6e 6c 6f 63 6b 29 20 5c 0a 20 20 20 20 20 20 20  nlock) \.       
14d0: 78 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f  xCheckReservedLo
14e0: 63 6b 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73  ck $::tvfs_calls
14f0: 28 78 43 68 65 63 6b 52 65 73 65 72 76 65 64 4c  (xCheckReservedL
1500: 6f 63 6b 29 20 5c 0a 20 20 20 20 20 20 20 78 41  ock) \.       xA
1510: 63 63 65 73 73 20 24 3a 3a 74 76 66 73 5f 63 61  ccess $::tvfs_ca
1520: 6c 6c 73 28 78 41 63 63 65 73 73 29 0a 7d 20 7b  lls(xAccess).} {
1530: 78 4c 6f 63 6b 20 30 20 78 55 6e 6c 6f 63 6b 20  xLock 0 xUnlock 
1540: 30 20 78 43 68 65 63 6b 52 65 73 65 72 76 65 64  0 xCheckReserved
1550: 4c 6f 63 6b 20 30 20 78 41 63 63 65 73 73 20 30  Lock 0 xAccess 0
1560: 7d 0a 0a 64 6f 5f 74 65 73 74 20 6e 6f 6c 6f 63  }..do_test noloc
1570: 6b 2d 33 2e 31 31 20 7b 0a 20 20 64 62 32 20 63  k-3.11 {.  db2 c
1580: 6c 6f 73 65 0a 20 20 74 76 66 73 5f 72 65 73 65  lose.  tvfs_rese
1590: 74 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32 20  t.  sqlite3 db2 
15a0: 74 65 73 74 2e 64 62 20 2d 76 66 73 20 74 76 66  test.db -vfs tvf
15b0: 73 20 2d 72 65 61 64 6f 6e 6c 79 20 31 0a 20 20  s -readonly 1.  
15c0: 64 62 32 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  db2 eval {SELECT
15d0: 20 2a 20 46 52 4f 4d 20 74 31 2c 20 74 32 7d 0a   * FROM t1, t2}.
15e0: 7d 20 7b 68 65 6c 6c 6f 20 77 6f 72 6c 64 20 31  } {hello world 1
15f0: 32 33 34 35 20 36 37 38 39 30 7d 0a 64 6f 5f 74  2345 67890}.do_t
1600: 65 73 74 20 6e 6f 6c 6f 63 6b 2d 33 2e 31 32 20  est nolock-3.12 
1610: 7b 0a 20 20 6c 69 73 74 20 78 4c 6f 63 6b 20 24  {.  list xLock $
1620: 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28 78 4c 6f  ::tvfs_calls(xLo
1630: 63 6b 29 20 78 55 6e 6c 6f 63 6b 20 24 3a 3a 74  ck) xUnlock $::t
1640: 76 66 73 5f 63 61 6c 6c 73 28 78 55 6e 6c 6f 63  vfs_calls(xUnloc
1650: 6b 29 20 5c 0a 20 20 20 20 20 20 20 78 43 68 65  k) \.       xChe
1660: 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 20 24  ckReservedLock $
1670: 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28 78 43 68  ::tvfs_calls(xCh
1680: 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b 29  eckReservedLock)
1690: 20 5c 0a 20 20 20 20 20 20 20 78 41 63 63 65 73   \.       xAcces
16a0: 73 20 24 3a 3a 74 76 66 73 5f 63 61 6c 6c 73 28  s $::tvfs_calls(
16b0: 78 41 63 63 65 73 73 29 0a 7d 20 7b 78 4c 6f 63  xAccess).} {xLoc
16c0: 6b 20 30 20 78 55 6e 6c 6f 63 6b 20 30 20 78 43  k 0 xUnlock 0 xC
16d0: 68 65 63 6b 52 65 73 65 72 76 65 64 4c 6f 63 6b  heckReservedLock
16e0: 20 30 20 78 41 63 63 65 73 73 20 30 7d 0a 0a 64   0 xAccess 0}..d
16f0: 62 32 20 63 6c 6f 73 65 0a 64 62 20 63 6c 6f 73  b2 close.db clos
1700: 65 0a 74 76 66 73 20 64 65 6c 65 74 65 0a 66 69  e.tvfs delete.fi
1710: 6e 69 73 68 5f 74 65 73 74 0a                    nish_test.