SQLite4
Hex Artifact Content
Not logged in

Artifact ab85f305a069e024efd64addc08f5da5cf502d4f:


0000: 23 20 32 30 31 31 20 4d 61 79 20 30 36 0a 23 0a  # 2011 May 06.#.
0010: 23 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73  # The author dis
0020: 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74  claims copyright
0030: 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20   to this source 
0040: 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20  code.  In place 
0050: 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74  of.# a legal not
0060: 69 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62  ice, here is a b
0070: 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20  lessing:.#.#    
0080: 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20  May you do good 
0090: 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20  and not evil..# 
00a0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00b0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00c0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00d0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20  give others..#  
00e0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20    May you share 
00f0: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61  freely, never ta
0100: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79  king more than y
0110: 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a  ou 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 0a 23 0a 0a 73 65 74 20 74 65 73 74 64  ***.#..set testd
0170: 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  ir [file dirname
0180: 20 24 61 72 67 76 30 5d 0a 73 6f 75 72 63 65 20   $argv0].source 
0190: 24 74 65 73 74 64 69 72 2f 74 65 73 74 65 72 2e  $testdir/tester.
01a0: 74 63 6c 0a 73 65 74 20 74 65 73 74 70 72 65 66  tcl.set testpref
01b0: 69 78 20 65 5f 75 72 69 0a 0a 64 62 20 63 6c 6f  ix e_uri..db clo
01c0: 73 65 0a 0a 70 72 6f 63 20 70 61 72 73 65 5f 75  se..proc parse_u
01d0: 72 69 20 7b 75 72 69 7d 20 7b 0a 20 20 74 65 73  ri {uri} {.  tes
01e0: 74 76 66 73 20 74 76 66 73 32 0a 20 20 74 65 73  tvfs tvfs2.  tes
01f0: 74 76 66 73 20 74 76 66 73 20 0a 20 20 74 76 66  tvfs tvfs .  tvf
0200: 73 20 66 69 6c 74 65 72 20 78 4f 70 65 6e 0a 20  s filter xOpen. 
0210: 20 74 76 66 73 20 73 63 72 69 70 74 20 70 61 72   tvfs script par
0220: 73 65 5f 75 72 69 5f 6f 70 65 6e 5f 63 62 0a 0a  se_uri_open_cb..
0230: 20 20 73 65 74 20 3a 3a 75 72 69 5f 6f 70 65 6e    set ::uri_open
0240: 20 5b 6c 69 73 74 5d 0a 20 20 73 65 74 20 44 42   [list].  set DB
0250: 20 5b 73 71 6c 69 74 65 34 5f 6f 70 65 6e 5f 76   [sqlite4_open_v
0260: 32 20 24 75 72 69 20 7b 0a 20 20 20 20 53 51 4c  2 $uri {.    SQL
0270: 49 54 45 34 5f 4f 50 45 4e 5f 52 45 41 44 57 52  ITE4_OPEN_READWR
0280: 49 54 45 20 53 51 4c 49 54 45 34 5f 4f 50 45 4e  ITE SQLITE4_OPEN
0290: 5f 43 52 45 41 54 45 20 53 51 4c 49 54 45 34 5f  _CREATE SQLITE4_
02a0: 4f 50 45 4e 5f 57 41 4c 0a 20 20 7d 20 74 76 66  OPEN_WAL.  } tvf
02b0: 73 5d 0a 20 20 73 71 6c 69 74 65 34 5f 63 6c 6f  s].  sqlite4_clo
02c0: 73 65 20 24 44 42 0a 20 20 74 76 66 73 20 64 65  se $DB.  tvfs de
02d0: 6c 65 74 65 0a 20 20 74 76 66 73 32 20 64 65 6c  lete.  tvfs2 del
02e0: 65 74 65 0a 0a 20 20 73 65 74 20 3a 3a 75 72 69  ete..  set ::uri
02f0: 5f 6f 70 65 6e 0a 7d 0a 70 72 6f 63 20 70 61 72  _open.}.proc par
0300: 73 65 5f 75 72 69 5f 6f 70 65 6e 5f 63 62 20 7b  se_uri_open_cb {
0310: 6d 65 74 68 6f 64 20 66 69 6c 65 20 61 72 67 6c  method file argl
0320: 69 73 74 7d 20 7b 0a 20 20 73 65 74 20 3a 3a 75  ist} {.  set ::u
0330: 72 69 5f 6f 70 65 6e 20 5b 6c 69 73 74 20 24 66  ri_open [list $f
0340: 69 6c 65 20 24 61 72 67 6c 69 73 74 5d 0a 7d 0a  ile $arglist].}.
0350: 0a 70 72 6f 63 20 6f 70 65 6e 5f 75 72 69 5f 65  .proc open_uri_e
0360: 72 72 6f 72 20 7b 75 72 69 7d 20 7b 0a 20 20 73  rror {uri} {.  s
0370: 65 74 20 66 6c 61 67 73 20 7b 53 51 4c 49 54 45  et flags {SQLITE
0380: 34 5f 4f 50 45 4e 5f 52 45 41 44 57 52 49 54 45  4_OPEN_READWRITE
0390: 20 53 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 43 52   SQLITE4_OPEN_CR
03a0: 45 41 54 45 20 53 51 4c 49 54 45 34 5f 4f 50 45  EATE SQLITE4_OPE
03b0: 4e 5f 57 41 4c 7d 0a 20 20 73 65 74 20 44 42 20  N_WAL}.  set DB 
03c0: 5b 73 71 6c 69 74 65 34 5f 6f 70 65 6e 5f 76 32  [sqlite4_open_v2
03d0: 20 24 75 72 69 20 24 66 6c 61 67 73 20 22 22 5d   $uri $flags ""]
03e0: 0a 20 20 73 65 74 20 65 20 5b 73 71 6c 69 74 65  .  set e [sqlite
03f0: 34 5f 65 72 72 6d 73 67 20 24 44 42 5d 0a 20 20  4_errmsg $DB].  
0400: 73 71 6c 69 74 65 34 5f 63 6c 6f 73 65 20 24 44  sqlite4_close $D
0410: 42 0a 20 20 73 65 74 20 65 0a 7d 0a 0a 23 20 45  B.  set e.}..# E
0420: 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 33 35  VIDENCE-OF: R-35
0430: 38 34 30 2d 33 33 32 30 34 20 49 66 20 55 52 49  840-33204 If URI
0440: 20 66 69 6c 65 6e 61 6d 65 20 69 6e 74 65 72 70   filename interp
0450: 72 65 74 61 74 69 6f 6e 20 69 73 20 65 6e 61 62  retation is enab
0460: 6c 65 64 2c 0a 23 20 61 6e 64 20 74 68 65 20 66  led,.# and the f
0470: 69 6c 65 6e 61 6d 65 20 61 72 67 75 6d 65 6e 74  ilename argument
0480: 20 62 65 67 69 6e 73 20 77 69 74 68 20 22 66 69   begins with "fi
0490: 6c 65 3a 22 2c 20 74 68 65 6e 20 74 68 65 20 66  le:", then the f
04a0: 69 6c 65 6e 61 6d 65 20 69 73 0a 23 20 69 6e 74  ilename is.# int
04b0: 65 72 70 72 65 74 65 64 20 61 73 20 61 20 55 52  erpreted as a UR
04c0: 49 2e 0a 23 0a 23 20 45 56 49 44 45 4e 43 45 2d  I..#.# EVIDENCE-
04d0: 4f 46 3a 20 52 2d 32 34 31 32 34 2d 35 36 39 36  OF: R-24124-5696
04e0: 30 20 55 52 49 20 66 69 6c 65 6e 61 6d 65 20 69  0 URI filename i
04f0: 6e 74 65 72 70 72 65 74 61 74 69 6f 6e 20 69 73  nterpretation is
0500: 20 65 6e 61 62 6c 65 64 20 69 66 0a 23 20 74 68   enabled if.# th
0510: 65 20 53 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 55  e SQLITE4_OPEN_U
0520: 52 49 20 66 6c 61 67 20 69 73 20 73 65 74 20 69  RI flag is set i
0530: 6e 20 74 68 65 20 66 6f 75 72 74 68 20 61 72 67  n the fourth arg
0540: 75 6d 65 6e 74 20 74 6f 0a 23 20 73 71 6c 69 74  ument to.# sqlit
0550: 65 34 5f 6f 70 65 6e 5f 76 32 28 29 2c 20 6f 72  e4_open_v2(), or
0560: 20 69 66 20 69 74 20 68 61 73 20 62 65 65 6e 20   if it has been 
0570: 65 6e 61 62 6c 65 64 20 67 6c 6f 62 61 6c 6c 79  enabled globally
0580: 20 75 73 69 6e 67 20 74 68 65 0a 23 20 53 51 4c   using the.# SQL
0590: 49 54 45 34 5f 43 4f 4e 46 49 47 5f 55 52 49 20  ITE4_CONFIG_URI 
05a0: 6f 70 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20  option with the 
05b0: 73 71 6c 69 74 65 34 5f 63 6f 6e 66 69 67 28 29  sqlite4_config()
05c0: 20 6d 65 74 68 6f 64 20 6f 72 20 62 79 20 74 68   method or by th
05d0: 65 0a 23 20 53 51 4c 49 54 45 34 5f 55 53 45 5f  e.# SQLITE4_USE_
05e0: 55 52 49 20 63 6f 6d 70 69 6c 65 2d 74 69 6d 65  URI compile-time
05f0: 20 6f 70 74 69 6f 6e 2e 0a 23 0a 69 66 20 7b 24   option..#.if {$
0600: 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70 6c 61  tcl_platform(pla
0610: 74 66 6f 72 6d 29 20 3d 3d 20 22 75 6e 69 78 22  tform) == "unix"
0620: 7d 20 7b 0a 20 20 73 65 74 20 66 6c 61 67 73 20  } {.  set flags 
0630: 5b 6c 69 73 74 20 53 51 4c 49 54 45 34 5f 4f 50  [list SQLITE4_OP
0640: 45 4e 5f 52 45 41 44 57 52 49 54 45 20 53 51 4c  EN_READWRITE SQL
0650: 49 54 45 34 5f 4f 50 45 4e 5f 43 52 45 41 54 45  ITE4_OPEN_CREATE
0660: 5d 0a 0a 20 20 23 20 54 65 73 74 73 20 77 69 74  ]..  # Tests wit
0670: 68 20 53 51 4c 49 54 45 34 5f 43 4f 4e 46 49 47  h SQLITE4_CONFIG
0680: 5f 55 52 49 20 63 6f 6e 66 69 67 75 72 65 64 20  _URI configured 
0690: 74 6f 20 66 61 6c 73 65 2e 20 55 52 49 20 69 6e  to false. URI in
06a0: 74 65 70 72 65 74 61 74 69 6f 6e 20 69 73 0a 20  tepretation is. 
06b0: 20 23 20 6f 6e 6c 79 20 65 6e 61 62 6c 65 64 20   # only enabled 
06c0: 69 66 20 74 68 65 20 53 51 4c 49 54 45 34 5f 4f  if the SQLITE4_O
06d0: 50 45 4e 5f 55 52 49 20 66 6c 61 67 20 69 73 20  PEN_URI flag is 
06e0: 73 70 65 63 69 66 69 65 64 2e 0a 20 20 73 71 6c  specified..  sql
06f0: 69 74 65 34 5f 73 68 75 74 64 6f 77 6e 0a 20 20  ite4_shutdown.  
0700: 73 71 6c 69 74 65 34 5f 63 6f 6e 66 69 67 5f 75  sqlite4_config_u
0710: 72 69 20 30 0a 20 20 64 6f 5f 74 65 73 74 20 31  ri 0.  do_test 1
0720: 2e 31 20 7b 0a 20 20 20 20 66 6f 72 63 65 64 65  .1 {.    forcede
0730: 6c 65 74 65 20 66 69 6c 65 3a 74 65 73 74 2e 64  lete file:test.d
0740: 62 20 74 65 73 74 2e 64 62 0a 20 20 20 20 73 65  b test.db.    se
0750: 74 20 44 42 20 5b 73 71 6c 69 74 65 34 5f 6f 70  t DB [sqlite4_op
0760: 65 6e 5f 76 32 20 66 69 6c 65 3a 74 65 73 74 2e  en_v2 file:test.
0770: 64 62 20 5b 63 6f 6e 63 61 74 20 24 66 6c 61 67  db [concat $flag
0780: 73 20 53 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 55  s SQLITE4_OPEN_U
0790: 52 49 5d 20 22 22 5d 0a 20 20 20 20 6c 69 73 74  RI] ""].    list
07a0: 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 66 69   [file exists fi
07b0: 6c 65 3a 74 65 73 74 2e 64 62 5d 20 5b 66 69 6c  le:test.db] [fil
07c0: 65 20 65 78 69 73 74 73 20 74 65 73 74 2e 64 62  e exists test.db
07d0: 5d 0a 20 20 7d 20 7b 30 20 31 7d 0a 20 20 64 6f  ].  } {0 1}.  do
07e0: 5f 74 65 73 74 20 31 2e 32 20 7b 0a 20 20 20 20  _test 1.2 {.    
07f0: 66 6f 72 63 65 64 65 6c 65 74 65 20 66 69 6c 65  forcedelete file
0800: 3a 74 65 73 74 2e 64 62 32 20 74 65 73 74 2e 64  :test.db2 test.d
0810: 62 32 0a 20 20 20 20 73 65 74 20 53 54 4d 54 20  b2.    set STMT 
0820: 5b 73 71 6c 69 74 65 34 5f 70 72 65 70 61 72 65  [sqlite4_prepare
0830: 20 24 44 42 20 22 41 54 54 41 43 48 20 27 66 69   $DB "ATTACH 'fi
0840: 6c 65 3a 74 65 73 74 2e 64 62 32 27 20 41 53 20  le:test.db2' AS 
0850: 61 75 78 22 20 2d 31 20 64 75 6d 6d 79 5d 0a 20  aux" -1 dummy]. 
0860: 20 20 20 73 71 6c 69 74 65 34 5f 73 74 65 70 20     sqlite4_step 
0870: 24 53 54 4d 54 0a 20 20 20 20 73 71 6c 69 74 65  $STMT.    sqlite
0880: 34 5f 66 69 6e 61 6c 69 7a 65 20 24 53 54 4d 54  4_finalize $STMT
0890: 0a 20 20 20 20 6c 69 73 74 20 5b 66 69 6c 65 20  .    list [file 
08a0: 65 78 69 73 74 73 20 66 69 6c 65 3a 74 65 73 74  exists file:test
08b0: 2e 64 62 32 5d 20 5b 66 69 6c 65 20 65 78 69 73  .db2] [file exis
08c0: 74 73 20 74 65 73 74 2e 64 62 32 5d 0a 20 20 7d  ts test.db2].  }
08d0: 20 7b 30 20 31 7d 0a 20 20 73 71 6c 69 74 65 34   {0 1}.  sqlite4
08e0: 5f 63 6c 6f 73 65 20 24 44 42 0a 20 20 64 6f 5f  _close $DB.  do_
08f0: 74 65 73 74 20 31 2e 33 20 7b 0a 20 20 20 20 66  test 1.3 {.    f
0900: 6f 72 63 65 64 65 6c 65 74 65 20 66 69 6c 65 3a  orcedelete file:
0910: 74 65 73 74 2e 64 62 20 74 65 73 74 2e 64 62 0a  test.db test.db.
0920: 20 20 20 20 73 65 74 20 44 42 20 5b 73 71 6c 69      set DB [sqli
0930: 74 65 34 5f 6f 70 65 6e 5f 76 32 20 66 69 6c 65  te4_open_v2 file
0940: 3a 74 65 73 74 2e 64 62 20 5b 63 6f 6e 63 61 74  :test.db [concat
0950: 20 24 66 6c 61 67 73 5d 20 22 22 5d 0a 20 20 20   $flags] ""].   
0960: 20 6c 69 73 74 20 5b 66 69 6c 65 20 65 78 69 73   list [file exis
0970: 74 73 20 66 69 6c 65 3a 74 65 73 74 2e 64 62 5d  ts file:test.db]
0980: 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 74 65   [file exists te
0990: 73 74 2e 64 62 5d 0a 20 20 7d 20 7b 31 20 30 7d  st.db].  } {1 0}
09a0: 0a 20 20 64 6f 5f 74 65 73 74 20 31 2e 34 20 7b  .  do_test 1.4 {
09b0: 0a 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74 65  .    forcedelete
09c0: 20 66 69 6c 65 3a 74 65 73 74 2e 64 62 32 20 74   file:test.db2 t
09d0: 65 73 74 2e 64 62 32 0a 20 20 20 20 73 65 74 20  est.db2.    set 
09e0: 53 54 4d 54 20 5b 73 71 6c 69 74 65 34 5f 70 72  STMT [sqlite4_pr
09f0: 65 70 61 72 65 20 24 44 42 20 22 41 54 54 41 43  epare $DB "ATTAC
0a00: 48 20 27 66 69 6c 65 3a 74 65 73 74 2e 64 62 32  H 'file:test.db2
0a10: 27 20 41 53 20 61 75 78 22 20 2d 31 20 64 75 6d  ' AS aux" -1 dum
0a20: 6d 79 5d 0a 20 20 20 20 73 71 6c 69 74 65 34 5f  my].    sqlite4_
0a30: 73 74 65 70 20 24 53 54 4d 54 0a 20 20 20 20 73  step $STMT.    s
0a40: 71 6c 69 74 65 34 5f 66 69 6e 61 6c 69 7a 65 20  qlite4_finalize 
0a50: 24 53 54 4d 54 0a 20 20 20 20 6c 69 73 74 20 5b  $STMT.    list [
0a60: 66 69 6c 65 20 65 78 69 73 74 73 20 66 69 6c 65  file exists file
0a70: 3a 74 65 73 74 2e 64 62 32 5d 20 5b 66 69 6c 65  :test.db2] [file
0a80: 20 65 78 69 73 74 73 20 74 65 73 74 2e 64 62 32   exists test.db2
0a90: 5d 0a 20 20 7d 20 7b 31 20 30 7d 0a 20 20 73 71  ].  } {1 0}.  sq
0aa0: 6c 69 74 65 34 5f 63 6c 6f 73 65 20 24 44 42 0a  lite4_close $DB.
0ab0: 0a 20 20 23 20 54 65 73 74 73 20 77 69 74 68 20  .  # Tests with 
0ac0: 53 51 4c 49 54 45 34 5f 43 4f 4e 46 49 47 5f 55  SQLITE4_CONFIG_U
0ad0: 52 49 20 63 6f 6e 66 69 67 75 72 65 64 20 74 6f  RI configured to
0ae0: 20 74 72 75 65 2e 20 55 52 49 20 69 6e 74 65 70   true. URI intep
0af0: 72 65 74 61 74 69 6f 6e 20 69 73 0a 20 20 23 20  retation is.  # 
0b00: 65 6e 61 62 6c 65 64 20 77 69 74 68 20 6f 72 20  enabled with or 
0b10: 77 69 74 68 6f 75 74 20 53 51 4c 49 54 45 34 5f  without SQLITE4_
0b20: 4f 50 45 4e 5f 55 52 49 2e 0a 20 20 23 0a 20 20  OPEN_URI..  #.  
0b30: 73 71 6c 69 74 65 34 5f 73 68 75 74 64 6f 77 6e  sqlite4_shutdown
0b40: 0a 20 20 73 71 6c 69 74 65 34 5f 63 6f 6e 66 69  .  sqlite4_confi
0b50: 67 5f 75 72 69 20 31 0a 20 20 64 6f 5f 74 65 73  g_uri 1.  do_tes
0b60: 74 20 31 2e 35 20 7b 0a 20 20 20 20 66 6f 72 63  t 1.5 {.    forc
0b70: 65 64 65 6c 65 74 65 20 66 69 6c 65 3a 74 65 73  edelete file:tes
0b80: 74 2e 64 62 20 74 65 73 74 2e 64 62 0a 20 20 20  t.db test.db.   
0b90: 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 34   set DB [sqlite4
0ba0: 5f 6f 70 65 6e 5f 76 32 20 66 69 6c 65 3a 74 65  _open_v2 file:te
0bb0: 73 74 2e 64 62 20 5b 63 6f 6e 63 61 74 20 24 66  st.db [concat $f
0bc0: 6c 61 67 73 20 53 51 4c 49 54 45 34 5f 4f 50 45  lags SQLITE4_OPE
0bd0: 4e 5f 55 52 49 5d 20 22 22 5d 0a 20 20 20 20 6c  N_URI] ""].    l
0be0: 69 73 74 20 5b 66 69 6c 65 20 65 78 69 73 74 73  ist [file exists
0bf0: 20 66 69 6c 65 3a 74 65 73 74 2e 64 62 5d 20 5b   file:test.db] [
0c00: 66 69 6c 65 20 65 78 69 73 74 73 20 74 65 73 74  file exists test
0c10: 2e 64 62 5d 0a 20 20 7d 20 7b 30 20 31 7d 0a 20  .db].  } {0 1}. 
0c20: 20 64 6f 5f 74 65 73 74 20 31 2e 36 20 7b 0a 20   do_test 1.6 {. 
0c30: 20 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20 66     forcedelete f
0c40: 69 6c 65 3a 74 65 73 74 2e 64 62 32 20 74 65 73  ile:test.db2 tes
0c50: 74 2e 64 62 32 0a 20 20 20 20 73 65 74 20 53 54  t.db2.    set ST
0c60: 4d 54 20 5b 73 71 6c 69 74 65 34 5f 70 72 65 70  MT [sqlite4_prep
0c70: 61 72 65 20 24 44 42 20 22 41 54 54 41 43 48 20  are $DB "ATTACH 
0c80: 27 66 69 6c 65 3a 74 65 73 74 2e 64 62 32 27 20  'file:test.db2' 
0c90: 41 53 20 61 75 78 22 20 2d 31 20 64 75 6d 6d 79  AS aux" -1 dummy
0ca0: 5d 0a 20 20 20 20 73 71 6c 69 74 65 34 5f 73 74  ].    sqlite4_st
0cb0: 65 70 20 24 53 54 4d 54 0a 20 20 20 20 73 71 6c  ep $STMT.    sql
0cc0: 69 74 65 34 5f 66 69 6e 61 6c 69 7a 65 20 24 53  ite4_finalize $S
0cd0: 54 4d 54 0a 20 20 20 20 6c 69 73 74 20 5b 66 69  TMT.    list [fi
0ce0: 6c 65 20 65 78 69 73 74 73 20 66 69 6c 65 3a 74  le exists file:t
0cf0: 65 73 74 2e 64 62 32 5d 20 5b 66 69 6c 65 20 65  est.db2] [file e
0d00: 78 69 73 74 73 20 74 65 73 74 2e 64 62 32 5d 0a  xists test.db2].
0d10: 20 20 7d 20 7b 30 20 31 7d 0a 20 20 73 71 6c 69    } {0 1}.  sqli
0d20: 74 65 34 5f 63 6c 6f 73 65 20 24 44 42 0a 20 20  te4_close $DB.  
0d30: 64 6f 5f 74 65 73 74 20 31 2e 37 20 7b 0a 20 20  do_test 1.7 {.  
0d40: 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20 66 69    forcedelete fi
0d50: 6c 65 3a 74 65 73 74 2e 64 62 20 74 65 73 74 2e  le:test.db test.
0d60: 64 62 0a 20 20 20 20 73 65 74 20 44 42 20 5b 73  db.    set DB [s
0d70: 71 6c 69 74 65 34 5f 6f 70 65 6e 5f 76 32 20 66  qlite4_open_v2 f
0d80: 69 6c 65 3a 74 65 73 74 2e 64 62 20 5b 63 6f 6e  ile:test.db [con
0d90: 63 61 74 20 24 66 6c 61 67 73 5d 20 22 22 5d 0a  cat $flags] ""].
0da0: 20 20 20 20 6c 69 73 74 20 5b 66 69 6c 65 20 65      list [file e
0db0: 78 69 73 74 73 20 66 69 6c 65 3a 74 65 73 74 2e  xists file:test.
0dc0: 64 62 5d 20 5b 66 69 6c 65 20 65 78 69 73 74 73  db] [file exists
0dd0: 20 74 65 73 74 2e 64 62 5d 0a 20 20 7d 20 7b 30   test.db].  } {0
0de0: 20 31 7d 0a 20 20 64 6f 5f 74 65 73 74 20 31 2e   1}.  do_test 1.
0df0: 38 20 7b 0a 20 20 20 20 66 6f 72 63 65 64 65 6c  8 {.    forcedel
0e00: 65 74 65 20 66 69 6c 65 3a 74 65 73 74 2e 64 62  ete file:test.db
0e10: 32 20 74 65 73 74 2e 64 62 32 0a 20 20 20 20 73  2 test.db2.    s
0e20: 65 74 20 53 54 4d 54 20 5b 73 71 6c 69 74 65 34  et STMT [sqlite4
0e30: 5f 70 72 65 70 61 72 65 20 24 44 42 20 22 41 54  _prepare $DB "AT
0e40: 54 41 43 48 20 27 66 69 6c 65 3a 74 65 73 74 2e  TACH 'file:test.
0e50: 64 62 32 27 20 41 53 20 61 75 78 22 20 2d 31 20  db2' AS aux" -1 
0e60: 64 75 6d 6d 79 5d 0a 20 20 20 20 73 71 6c 69 74  dummy].    sqlit
0e70: 65 34 5f 73 74 65 70 20 24 53 54 4d 54 0a 20 20  e4_step $STMT.  
0e80: 20 20 73 71 6c 69 74 65 34 5f 66 69 6e 61 6c 69    sqlite4_finali
0e90: 7a 65 20 24 53 54 4d 54 0a 20 20 20 20 6c 69 73  ze $STMT.    lis
0ea0: 74 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20 66  t [file exists f
0eb0: 69 6c 65 3a 74 65 73 74 2e 64 62 32 5d 20 5b 66  ile:test.db2] [f
0ec0: 69 6c 65 20 65 78 69 73 74 73 20 74 65 73 74 2e  ile exists test.
0ed0: 64 62 32 5d 0a 20 20 7d 20 7b 30 20 31 7d 0a 20  db2].  } {0 1}. 
0ee0: 20 73 71 6c 69 74 65 34 5f 63 6c 6f 73 65 20 24   sqlite4_close $
0ef0: 44 42 0a 7d 0a 0a 23 20 65 6e 73 75 72 65 20 75  DB.}..# ensure u
0f00: 72 69 20 70 72 6f 63 65 73 73 69 6e 67 20 65 6e  ri processing en
0f10: 61 62 6c 65 64 20 66 6f 72 20 74 68 65 20 72 65  abled for the re
0f20: 73 74 20 6f 66 20 74 68 65 20 74 65 73 74 73 0a  st of the tests.
0f30: 73 71 6c 69 74 65 34 5f 73 68 75 74 64 6f 77 6e  sqlite4_shutdown
0f40: 0a 73 71 6c 69 74 65 34 5f 63 6f 6e 66 69 67 5f  .sqlite4_config_
0f50: 75 72 69 20 31 0a 0a 23 20 45 56 49 44 45 4e 43  uri 1..# EVIDENC
0f60: 45 2d 4f 46 3a 20 52 2d 31 37 34 38 32 2d 30 30  E-OF: R-17482-00
0f70: 33 39 38 20 49 66 20 74 68 65 20 61 75 74 68 6f  398 If the autho
0f80: 72 69 74 79 20 69 73 20 6e 6f 74 20 61 6e 20 65  rity is not an e
0f90: 6d 70 74 79 20 73 74 72 69 6e 67 20 6f 72 0a 23  mpty string or.#
0fa0: 20 22 6c 6f 63 61 6c 68 6f 73 74 22 2c 20 61 6e   "localhost", an
0fb0: 20 65 72 72 6f 72 20 69 73 20 72 65 74 75 72 6e   error is return
0fc0: 65 64 20 74 6f 20 74 68 65 20 63 61 6c 6c 65 72  ed to the caller
0fd0: 2e 0a 23 0a 69 66 20 7b 24 74 63 6c 5f 70 6c 61  ..#.if {$tcl_pla
0fe0: 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 20  tform(platform) 
0ff0: 3d 3d 20 22 75 6e 69 78 22 7d 20 7b 0a 20 20 73  == "unix"} {.  s
1000: 65 74 20 66 6c 61 67 73 20 5b 6c 69 73 74 20 53  et flags [list S
1010: 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 52 45 41 44  QLITE4_OPEN_READ
1020: 57 52 49 54 45 20 53 51 4c 49 54 45 34 5f 4f 50  WRITE SQLITE4_OP
1030: 45 4e 5f 43 52 45 41 54 45 20 53 51 4c 49 54 45  EN_CREATE SQLITE
1040: 34 5f 4f 50 45 4e 5f 55 52 49 5d 0a 20 20 66 6f  4_OPEN_URI].  fo
1050: 72 65 61 63 68 20 7b 74 6e 20 75 72 69 20 65 72  reach {tn uri er
1060: 72 6f 72 7d 20 22 0a 20 20 20 20 31 20 20 20 20  ror} ".    1    
1070: 7b 66 69 6c 65 3a 2f 2f 6c 6f 63 61 6c 68 6f 73  {file://localhos
1080: 74 5b 70 77 64 5d 2f 74 65 73 74 2e 64 62 7d 20  t[pwd]/test.db} 
1090: 20 20 20 20 7b 6e 6f 74 20 61 6e 20 65 72 72 6f      {not an erro
10a0: 72 7d 0a 20 20 20 20 32 20 20 20 20 7b 66 69 6c  r}.    2    {fil
10b0: 65 3a 2f 2f 5b 70 77 64 5d 2f 74 65 73 74 2e 64  e://[pwd]/test.d
10c0: 62 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20  b}              
10d0: 7b 6e 6f 74 20 61 6e 20 65 72 72 6f 72 7d 0a 20  {not an error}. 
10e0: 20 20 20 33 20 20 20 20 7b 66 69 6c 65 3a 2f 2f     3    {file://
10f0: 78 5b 70 77 64 5d 2f 74 65 73 74 2e 64 62 7d 20  x[pwd]/test.db} 
1100: 20 20 20 20 20 20 20 20 20 20 20 20 7b 69 6e 76              {inv
1110: 61 6c 69 64 20 75 72 69 20 61 75 74 68 6f 72 69  alid uri authori
1120: 74 79 3a 20 78 7d 0a 20 20 20 20 34 20 20 20 20  ty: x}.    4    
1130: 7b 66 69 6c 65 3a 2f 2f 69 6e 76 61 6c 69 64 5b  {file://invalid[
1140: 70 77 64 5d 2f 74 65 73 74 2e 64 62 7d 20 20 20  pwd]/test.db}   
1150: 20 20 20 20 7b 69 6e 76 61 6c 69 64 20 75 72 69      {invalid uri
1160: 20 61 75 74 68 6f 72 69 74 79 3a 20 69 6e 76 61   authority: inva
1170: 6c 69 64 7d 0a 20 20 22 20 7b 0a 20 20 20 20 64  lid}.  " {.    d
1180: 6f 5f 74 65 73 74 20 32 2e 24 74 6e 20 7b 0a 20  o_test 2.$tn {. 
1190: 20 20 20 20 20 73 65 74 20 44 42 20 5b 73 71 6c       set DB [sql
11a0: 69 74 65 34 5f 6f 70 65 6e 5f 76 32 20 24 75 72  ite4_open_v2 $ur
11b0: 69 20 24 66 6c 61 67 73 20 22 22 5d 0a 20 20 20  i $flags ""].   
11c0: 20 20 20 73 65 74 20 65 20 5b 73 71 6c 69 74 65     set e [sqlite
11d0: 34 5f 65 72 72 6d 73 67 20 24 44 42 5d 0a 20 20  4_errmsg $DB].  
11e0: 20 20 20 20 73 71 6c 69 74 65 34 5f 63 6c 6f 73      sqlite4_clos
11f0: 65 20 24 44 42 0a 20 20 20 20 20 20 73 65 74 20  e $DB.      set 
1200: 65 0a 20 20 20 20 7d 20 24 65 72 72 6f 72 0a 20  e.    } $error. 
1210: 20 7d 0a 7d 0a 0a 23 20 45 56 49 44 45 4e 43 45   }.}..# EVIDENCE
1220: 2d 4f 46 3a 20 52 2d 34 35 39 38 31 2d 32 35 35  -OF: R-45981-255
1230: 32 38 20 54 68 65 20 66 72 61 67 6d 65 6e 74 20  28 The fragment 
1240: 63 6f 6d 70 6f 6e 65 6e 74 20 6f 66 20 61 20 55  component of a U
1250: 52 49 2c 20 69 66 0a 23 20 70 72 65 73 65 6e 74  RI, if.# present
1260: 2c 20 69 73 20 69 67 6e 6f 72 65 64 2e 0a 23 0a  , is ignored..#.
1270: 23 20 20 20 49 74 20 69 73 20 64 69 66 66 69 63  #   It is diffic
1280: 75 6c 74 20 74 6f 20 74 65 73 74 20 74 68 61 74  ult to test that
1290: 20 73 6f 6d 65 74 68 69 6e 67 20 69 73 20 69 67   something is ig
12a0: 6e 6f 72 65 64 20 63 6f 72 72 65 63 74 6c 79 2e  nored correctly.
12b0: 20 53 6f 20 74 68 65 73 65 20 74 65 73 74 73 0a   So these tests.
12c0: 23 20 20 20 6a 75 73 74 20 73 68 6f 77 20 74 68  #   just show th
12d0: 61 74 20 61 64 64 69 6e 67 20 61 20 66 72 61 67  at adding a frag
12e0: 6d 65 6e 74 20 64 6f 65 73 20 6e 6f 74 20 69 6e  ment does not in
12f0: 74 65 72 66 65 72 65 20 77 69 74 68 20 74 68 65  terfere with the
1300: 20 70 61 74 68 6e 61 6d 65 20 6f 72 0a 23 20 20   pathname or.#  
1310: 20 70 61 72 61 6d 65 74 65 72 73 20 70 61 73 73   parameters pass
1320: 65 64 20 74 68 72 6f 75 67 68 20 74 6f 20 74 68  ed through to th
1330: 65 20 56 46 53 20 78 4f 70 65 6e 28 29 20 6d 65  e VFS xOpen() me
1340: 74 68 6f 64 73 2e 0a 23 0a 66 6f 72 65 61 63 68  thods..#.foreach
1350: 20 7b 74 6e 20 75 72 69 20 70 61 72 73 65 7d 20   {tn uri parse} 
1360: 22 0a 20 20 31 20 20 20 20 7b 66 69 6c 65 3a 74  ".  1    {file:t
1370: 65 73 74 2e 64 62 23 61 62 63 7d 20 20 20 20 20  est.db#abc}     
1380: 7b 5b 70 77 64 5d 2f 74 65 73 74 2e 64 62 20 7b  {[pwd]/test.db {
1390: 7d 7d 0a 20 20 32 20 20 20 20 7b 66 69 6c 65 3a  }}.  2    {file:
13a0: 74 65 73 74 2e 64 62 3f 61 3d 62 23 61 62 63 7d  test.db?a=b#abc}
13b0: 20 7b 5b 70 77 64 5d 2f 74 65 73 74 2e 64 62 20   {[pwd]/test.db 
13c0: 7b 61 20 62 7d 7d 0a 20 20 33 20 20 20 20 7b 66  {a b}}.  3    {f
13d0: 69 6c 65 3a 74 65 73 74 2e 64 62 3f 61 3d 62 23  ile:test.db?a=b#
13e0: 3f 63 3d 64 7d 20 7b 5b 70 77 64 5d 2f 74 65 73  ?c=d} {[pwd]/tes
13f0: 74 2e 64 62 20 7b 61 20 62 7d 7d 0a 22 20 7b 0a  t.db {a b}}." {.
1400: 20 20 64 6f 5f 66 69 6c 65 70 61 74 68 5f 74 65    do_filepath_te
1410: 73 74 20 33 2e 24 74 6e 20 7b 20 70 61 72 73 65  st 3.$tn { parse
1420: 5f 75 72 69 20 24 75 72 69 20 7d 20 24 70 61 72  _uri $uri } $par
1430: 73 65 0a 7d 0a 0a 23 20 45 56 49 44 45 4e 43 45  se.}..# EVIDENCE
1440: 2d 4f 46 3a 20 52 2d 36 32 35 35 37 2d 30 39 33  -OF: R-62557-093
1450: 39 30 20 53 51 4c 69 74 65 20 75 73 65 73 20 74  90 SQLite uses t
1460: 68 65 20 70 61 74 68 20 63 6f 6d 70 6f 6e 65 6e  he path componen
1470: 74 20 6f 66 20 74 68 65 20 55 52 49 0a 23 20 61  t of the URI.# a
1480: 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68  s the name of th
1490: 65 20 64 69 73 6b 20 66 69 6c 65 20 77 68 69 63  e disk file whic
14a0: 68 20 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 64  h contains the d
14b0: 61 74 61 62 61 73 65 2e 0a 23 0a 23 20 45 56 49  atabase..#.# EVI
14c0: 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 32 38 36 35  DENCE-OF: R-2865
14d0: 39 2d 31 31 30 33 35 20 49 66 20 74 68 65 20 70  9-11035 If the p
14e0: 61 74 68 20 62 65 67 69 6e 73 20 77 69 74 68 20  ath begins with 
14f0: 61 20 27 2f 27 20 63 68 61 72 61 63 74 65 72 2c  a '/' character,
1500: 0a 23 20 74 68 65 6e 20 69 74 20 69 73 20 69 6e  .# then it is in
1510: 74 65 72 70 72 65 74 65 64 20 61 73 20 61 6e 20  terpreted as an 
1520: 61 62 73 6f 6c 75 74 65 20 70 61 74 68 2e 0a 23  absolute path..#
1530: 0a 23 20 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20  .# EVIDENCE-OF: 
1540: 52 2d 34 36 32 33 34 2d 36 31 33 32 33 20 49 66  R-46234-61323 If
1550: 20 74 68 65 20 70 61 74 68 20 64 6f 65 73 20 6e   the path does n
1560: 6f 74 20 62 65 67 69 6e 20 77 69 74 68 20 61 20  ot begin with a 
1570: 27 2f 27 0a 23 20 28 6d 65 61 6e 69 6e 67 20 74  '/'.# (meaning t
1580: 68 61 74 20 74 68 65 20 61 75 74 68 6f 72 69 74  hat the authorit
1590: 79 20 73 65 63 74 69 6f 6e 20 69 73 20 6f 6d 69  y section is omi
15a0: 74 74 65 64 20 66 72 6f 6d 20 74 68 65 20 55 52  tted from the UR
15b0: 49 29 20 74 68 65 6e 20 74 68 65 0a 23 20 70 61  I) then the.# pa
15c0: 74 68 20 69 73 20 69 6e 74 65 72 70 72 65 74 65  th is interprete
15d0: 64 20 61 73 20 61 20 72 65 6c 61 74 69 76 65 20  d as a relative 
15e0: 70 61 74 68 2e 0a 23 0a 66 6f 72 65 61 63 68 20  path..#.foreach 
15f0: 7b 74 6e 20 75 72 69 20 70 61 72 73 65 7d 20 22  {tn uri parse} "
1600: 0a 20 20 31 20 20 20 20 7b 66 69 6c 65 3a 74 65  .  1    {file:te
1610: 73 74 2e 64 62 7d 20 20 20 20 20 20 20 20 20 20  st.db}          
1620: 20 20 20 7b 5b 70 77 64 5d 2f 74 65 73 74 2e 64     {[pwd]/test.d
1630: 62 20 7b 7d 7d 0a 20 20 32 20 20 20 20 7b 66 69  b {}}.  2    {fi
1640: 6c 65 3a 2f 74 65 73 74 2e 64 62 7d 20 20 20 20  le:/test.db}    
1650: 20 20 20 20 20 20 20 20 7b 2f 74 65 73 74 2e 64          {/test.d
1660: 62 20 7b 7d 7d 0a 20 20 33 20 20 20 20 7b 66 69  b {}}.  3    {fi
1670: 6c 65 3a 2f 2f 2f 74 65 73 74 2e 64 62 7d 20 20  le:///test.db}  
1680: 20 20 20 20 20 20 20 20 7b 2f 74 65 73 74 2e 64          {/test.d
1690: 62 20 7b 7d 7d 0a 20 20 34 20 20 20 20 7b 66 69  b {}}.  4    {fi
16a0: 6c 65 3a 2f 2f 6c 6f 63 61 6c 68 6f 73 74 2f 74  le://localhost/t
16b0: 65 73 74 2e 64 62 7d 20 7b 2f 74 65 73 74 2e 64  est.db} {/test.d
16c0: 62 20 7b 7d 7d 0a 20 20 35 20 20 20 20 7b 66 69  b {}}.  5    {fi
16d0: 6c 65 3a 2f 61 2f 62 2f 63 2f 74 65 73 74 2e 64  le:/a/b/c/test.d
16e0: 62 7d 20 20 20 20 20 20 7b 2f 61 2f 62 2f 63 2f  b}      {/a/b/c/
16f0: 74 65 73 74 2e 64 62 20 7b 7d 7d 0a 22 20 7b 0a  test.db {}}." {.
1700: 20 20 64 6f 5f 66 69 6c 65 70 61 74 68 5f 74 65    do_filepath_te
1710: 73 74 20 34 2e 24 74 6e 20 7b 20 70 61 72 73 65  st 4.$tn { parse
1720: 5f 75 72 69 20 24 75 72 69 20 7d 20 24 70 61 72  _uri $uri } $par
1730: 73 65 0a 7d 0a 0a 23 20 45 56 49 44 45 4e 43 45  se.}..# EVIDENCE
1740: 2d 4f 46 3a 20 52 2d 30 31 36 31 32 2d 33 30 38  -OF: R-01612-308
1750: 37 37 20 54 68 65 20 22 76 66 73 22 20 70 61 72  77 The "vfs" par
1760: 61 6d 65 74 65 72 20 6d 61 79 20 62 65 20 75 73  ameter may be us
1770: 65 64 20 74 6f 20 73 70 65 63 69 66 79 0a 23 20  ed to specify.# 
1780: 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 56 46  the name of a VF
1790: 53 20 6f 62 6a 65 63 74 20 74 68 61 74 20 70 72  S object that pr
17a0: 6f 76 69 64 65 73 20 74 68 65 20 6f 70 65 72 61  ovides the opera
17b0: 74 69 6e 67 20 73 79 73 74 65 6d 20 69 6e 74 65  ting system inte
17c0: 72 66 61 63 65 0a 23 20 74 68 61 74 20 73 68 6f  rface.# that sho
17d0: 75 6c 64 20 62 65 20 75 73 65 64 20 74 6f 20 61  uld be used to a
17e0: 63 63 65 73 73 20 74 68 65 20 64 61 74 61 62 61  ccess the databa
17f0: 73 65 20 66 69 6c 65 20 6f 6e 20 64 69 73 6b 2e  se file on disk.
1800: 0a 23 0a 23 20 20 20 54 68 65 20 61 62 6f 76 65  .#.#   The above
1810: 20 69 73 20 74 65 73 74 65 64 20 62 79 20 63 61   is tested by ca
1820: 73 65 73 20 31 2e 2a 20 62 65 6c 6f 77 2e 0a 23  ses 1.* below..#
1830: 0a 23 20 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20  .# EVIDENCE-OF: 
1840: 52 2d 35 32 32 39 33 2d 35 38 34 39 37 20 49 66  R-52293-58497 If
1850: 20 74 68 69 73 20 6f 70 74 69 6f 6e 20 69 73 20   this option is 
1860: 73 65 74 20 74 6f 20 61 6e 20 65 6d 70 74 79 20  set to an empty 
1870: 73 74 72 69 6e 67 0a 23 20 74 68 65 20 64 65 66  string.# the def
1880: 61 75 6c 74 20 56 46 53 20 6f 62 6a 65 63 74 20  ault VFS object 
1890: 69 73 20 75 73 65 64 2e 0a 23 0a 23 20 20 20 54  is used..#.#   T
18a0: 68 65 20 61 62 6f 76 65 20 69 73 20 74 65 73 74  he above is test
18b0: 65 64 20 62 79 20 63 61 73 65 73 20 32 2e 2a 20  ed by cases 2.* 
18c0: 62 65 6c 6f 77 2e 0a 23 0a 23 20 45 56 49 44 45  below..#.# EVIDE
18d0: 4e 43 45 2d 4f 46 3a 20 52 2d 33 31 38 35 35 2d  NCE-OF: R-31855-
18e0: 31 38 36 36 35 20 49 66 20 73 71 6c 69 74 65 34  18665 If sqlite4
18f0: 5f 6f 70 65 6e 5f 76 32 28 29 20 69 73 20 75 73  _open_v2() is us
1900: 65 64 20 61 6e 64 20 74 68 65 20 76 66 73 0a 23  ed and the vfs.#
1910: 20 6f 70 74 69 6f 6e 20 69 73 20 70 72 65 73 65   option is prese
1920: 6e 74 2c 20 74 68 65 6e 20 74 68 65 20 56 46 53  nt, then the VFS
1930: 20 73 70 65 63 69 66 69 65 64 20 62 79 20 74 68   specified by th
1940: 65 20 6f 70 74 69 6f 6e 20 74 61 6b 65 73 0a 23  e option takes.#
1950: 20 70 72 65 63 65 64 65 6e 63 65 20 6f 76 65 72   precedence over
1960: 20 74 68 65 20 76 61 6c 75 65 20 70 61 73 73 65   the value passe
1970: 64 20 61 73 20 74 68 65 20 66 6f 75 72 74 68 20  d as the fourth 
1980: 70 61 72 61 6d 65 74 65 72 20 74 6f 0a 23 20 73  parameter to.# s
1990: 71 6c 69 74 65 34 5f 6f 70 65 6e 5f 76 32 28 29  qlite4_open_v2()
19a0: 2e 0a 23 0a 23 20 20 20 54 68 65 20 61 62 6f 76  ..#.#   The abov
19b0: 65 20 69 73 20 74 65 73 74 65 64 20 62 79 20 63  e is tested by c
19c0: 61 73 65 73 20 33 2e 2a 20 62 65 6c 6f 77 2e 0a  ases 3.* below..
19d0: 23 0a 70 72 6f 63 20 76 66 73 5f 6f 70 65 6e 5f  #.proc vfs_open_
19e0: 63 62 20 7b 6e 61 6d 65 20 61 72 67 73 7d 20 7b  cb {name args} {
19f0: 0a 20 20 73 65 74 20 3a 3a 76 66 73 20 24 6e 61  .  set ::vfs $na
1a00: 6d 65 0a 7d 0a 66 6f 72 65 61 63 68 20 7b 6e 61  me.}.foreach {na
1a10: 6d 65 20 64 65 66 61 75 6c 74 7d 20 7b 76 66 73  me default} {vfs
1a20: 31 20 30 20 76 66 73 32 20 30 20 76 66 73 33 20  1 0 vfs2 0 vfs3 
1a30: 31 7d 20 7b 0a 20 20 74 65 73 74 76 66 73 20 24  1} {.  testvfs $
1a40: 6e 61 6d 65 20 2d 64 65 66 61 75 6c 74 20 24 64  name -default $d
1a50: 65 66 61 75 6c 74 0a 20 20 24 6e 61 6d 65 20 66  efault.  $name f
1a60: 69 6c 74 65 72 20 78 4f 70 65 6e 0a 20 20 24 6e  ilter xOpen.  $n
1a70: 61 6d 65 20 73 63 72 69 70 74 20 5b 6c 69 73 74  ame script [list
1a80: 20 76 66 73 5f 6f 70 65 6e 5f 63 62 20 24 6e 61   vfs_open_cb $na
1a90: 6d 65 5d 0a 7d 0a 66 6f 72 65 61 63 68 20 7b 74  me].}.foreach {t
1aa0: 6e 20 75 72 69 20 64 65 66 76 66 73 20 76 66 73  n uri defvfs vfs
1ab0: 7d 20 7b 0a 20 20 31 2e 31 20 20 20 20 22 66 69  } {.  1.1    "fi
1ac0: 6c 65 3a 74 65 73 74 2e 64 62 3f 76 66 73 3d 76  le:test.db?vfs=v
1ad0: 66 73 31 22 20 20 20 20 22 22 20 20 20 20 76 66  fs1"    ""    vf
1ae0: 73 31 0a 20 20 31 2e 32 20 20 20 20 22 66 69 6c  s1.  1.2    "fil
1af0: 65 3a 74 65 73 74 2e 64 62 3f 76 66 73 3d 76 66  e:test.db?vfs=vf
1b00: 73 32 22 20 20 20 20 22 22 20 20 20 20 76 66 73  s2"    ""    vfs
1b10: 32 0a 0a 20 20 32 2e 31 20 20 20 20 22 66 69 6c  2..  2.1    "fil
1b20: 65 3a 74 65 73 74 2e 64 62 22 20 20 20 20 20 20  e:test.db"      
1b30: 20 20 20 20 20 20 20 76 66 73 31 20 20 76 66 73         vfs1  vfs
1b40: 31 0a 20 20 32 2e 32 20 20 20 20 22 66 69 6c 65  1.  2.2    "file
1b50: 3a 74 65 73 74 2e 64 62 3f 76 66 73 3d 22 20 20  :test.db?vfs="  
1b60: 20 20 20 20 20 20 76 66 73 31 20 20 76 66 73 33        vfs1  vfs3
1b70: 0a 0a 20 20 33 2e 31 20 20 20 20 22 66 69 6c 65  ..  3.1    "file
1b80: 3a 74 65 73 74 2e 64 62 3f 76 66 73 3d 76 66 73  :test.db?vfs=vfs
1b90: 31 22 20 20 20 20 76 66 73 32 20 20 76 66 73 31  1"    vfs2  vfs1
1ba0: 0a 20 20 33 2e 32 20 20 20 20 22 66 69 6c 65 3a  .  3.2    "file:
1bb0: 74 65 73 74 2e 64 62 3f 76 66 73 3d 76 66 73 32  test.db?vfs=vfs2
1bc0: 22 20 20 20 20 76 66 73 31 20 20 76 66 73 32 0a  "    vfs1  vfs2.
1bd0: 20 20 33 2e 33 20 20 20 20 22 66 69 6c 65 3a 74    3.3    "file:t
1be0: 65 73 74 2e 64 62 3f 78 76 66 73 3d 76 66 73 31  est.db?xvfs=vfs1
1bf0: 22 20 20 20 76 66 73 32 20 20 76 66 73 32 0a 20  "   vfs2  vfs2. 
1c00: 20 33 2e 34 20 20 20 20 22 66 69 6c 65 3a 74 65   3.4    "file:te
1c10: 73 74 2e 64 62 3f 78 76 66 73 3d 76 66 73 32 22  st.db?xvfs=vfs2"
1c20: 20 20 20 76 66 73 31 20 20 76 66 73 31 0a 7d 20     vfs1  vfs1.} 
1c30: 7b 0a 20 20 64 6f 5f 74 65 73 74 20 35 2e 24 74  {.  do_test 5.$t
1c40: 6e 20 7b 0a 20 20 20 20 73 65 74 20 66 6c 61 67  n {.    set flag
1c50: 73 20 5b 6c 69 73 74 20 53 51 4c 49 54 45 34 5f  s [list SQLITE4_
1c60: 4f 50 45 4e 5f 52 45 41 44 57 52 49 54 45 20 53  OPEN_READWRITE S
1c70: 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 43 52 45 41  QLITE4_OPEN_CREA
1c80: 54 45 20 53 51 4c 49 54 45 34 5f 4f 50 45 4e 5f  TE SQLITE4_OPEN_
1c90: 55 52 49 5d 0a 20 20 20 20 73 71 6c 69 74 65 34  URI].    sqlite4
1ca0: 5f 63 6c 6f 73 65 20 5b 0a 20 20 20 20 20 20 73  _close [.      s
1cb0: 71 6c 69 74 65 34 5f 6f 70 65 6e 5f 76 32 20 24  qlite4_open_v2 $
1cc0: 75 72 69 20 24 66 6c 61 67 73 20 24 64 65 66 76  uri $flags $defv
1cd0: 66 73 0a 20 20 20 20 5d 0a 20 20 20 20 73 65 74  fs.    ].    set
1ce0: 20 3a 3a 76 66 73 0a 20 20 7d 20 24 76 66 73 0a   ::vfs.  } $vfs.
1cf0: 7d 0a 76 66 73 31 20 64 65 6c 65 74 65 0a 76 66  }.vfs1 delete.vf
1d00: 73 32 20 64 65 6c 65 74 65 0a 76 66 73 33 20 64  s2 delete.vfs3 d
1d10: 65 6c 65 74 65 0a 0a 23 20 45 56 49 44 45 4e 43  elete..# EVIDENC
1d20: 45 2d 4f 46 3a 20 52 2d 34 38 33 36 35 2d 33 36  E-OF: R-48365-36
1d30: 33 30 38 20 53 70 65 63 69 66 79 69 6e 67 20 61  308 Specifying a
1d40: 6e 20 75 6e 6b 6e 6f 77 6e 20 56 46 53 20 69 73  n unknown VFS is
1d50: 20 61 6e 20 65 72 72 6f 72 2e 0a 23 0a 73 65 74   an error..#.set
1d60: 20 66 6c 61 67 73 20 5b 6c 69 73 74 20 53 51 4c   flags [list SQL
1d70: 49 54 45 34 5f 4f 50 45 4e 5f 52 45 41 44 57 52  ITE4_OPEN_READWR
1d80: 49 54 45 20 53 51 4c 49 54 45 34 5f 4f 50 45 4e  ITE SQLITE4_OPEN
1d90: 5f 43 52 45 41 54 45 20 53 51 4c 49 54 45 34 5f  _CREATE SQLITE4_
1da0: 4f 50 45 4e 5f 55 52 49 5d 0a 64 6f 5f 74 65 73  OPEN_URI].do_tes
1db0: 74 20 36 2e 31 20 7b 0a 20 20 73 65 74 20 44 42  t 6.1 {.  set DB
1dc0: 20 5b 73 71 6c 69 74 65 34 5f 6f 70 65 6e 5f 76   [sqlite4_open_v
1dd0: 32 20 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f 76  2 file:test.db?v
1de0: 66 73 3d 6e 6f 73 75 63 68 76 66 73 20 24 66 6c  fs=nosuchvfs $fl
1df0: 61 67 73 20 22 22 5d 0a 20 20 73 65 74 20 65 72  ags ""].  set er
1e00: 72 6d 73 67 20 5b 73 71 6c 69 74 65 34 5f 65 72  rmsg [sqlite4_er
1e10: 72 6d 73 67 20 24 44 42 5d 0a 20 20 73 71 6c 69  rmsg $DB].  sqli
1e20: 74 65 34 5f 63 6c 6f 73 65 20 24 44 42 0a 20 20  te4_close $DB.  
1e30: 73 65 74 20 65 72 72 6d 73 67 0a 7d 20 7b 6e 6f  set errmsg.} {no
1e40: 20 73 75 63 68 20 76 66 73 3a 20 6e 6f 73 75 63   such vfs: nosuc
1e50: 68 76 66 73 7d 0a 0a 0a 23 20 45 56 49 44 45 4e  hvfs}...# EVIDEN
1e60: 43 45 2d 4f 46 3a 20 52 2d 36 30 34 37 39 2d 36  CE-OF: R-60479-6
1e70: 34 32 37 30 20 54 68 65 20 6d 6f 64 65 20 70 61  4270 The mode pa
1e80: 72 61 6d 65 74 65 72 20 6d 61 79 20 62 65 20 73  rameter may be s
1e90: 65 74 20 74 6f 20 65 69 74 68 65 72 0a 23 20 22  et to either.# "
1ea0: 72 6f 22 2c 20 22 72 77 22 20 6f 72 20 22 72 77  ro", "rw" or "rw
1eb0: 63 22 2e 20 41 74 74 65 6d 70 74 69 6e 67 20 74  c". Attempting t
1ec0: 6f 20 73 65 74 20 69 74 20 74 6f 20 61 6e 79 20  o set it to any 
1ed0: 6f 74 68 65 72 20 76 61 6c 75 65 20 69 73 20 61  other value is a
1ee0: 6e 0a 23 20 65 72 72 6f 72 0a 23 0a 73 71 6c 69  n.# error.#.sqli
1ef0: 74 65 34 20 64 62 20 74 65 73 74 2e 64 62 0a 64  te4 db test.db.d
1f00: 62 20 63 6c 6f 73 65 0a 66 6f 72 65 61 63 68 20  b close.foreach 
1f10: 7b 74 6e 20 75 72 69 20 65 72 72 6f 72 7d 20 22  {tn uri error} "
1f20: 0a 20 20 31 20 20 20 20 7b 66 69 6c 65 3a 74 65  .  1    {file:te
1f30: 73 74 2e 64 62 3f 6d 6f 64 65 3d 72 6f 7d 20 20  st.db?mode=ro}  
1f40: 20 20 7b 6e 6f 74 20 61 6e 20 65 72 72 6f 72 7d    {not an error}
1f50: 0a 20 20 32 20 20 20 20 7b 66 69 6c 65 3a 74 65  .  2    {file:te
1f60: 73 74 2e 64 62 3f 6d 6f 64 65 3d 72 77 7d 20 20  st.db?mode=rw}  
1f70: 20 20 7b 6e 6f 74 20 61 6e 20 65 72 72 6f 72 7d    {not an error}
1f80: 0a 20 20 33 20 20 20 20 7b 66 69 6c 65 3a 74 65  .  3    {file:te
1f90: 73 74 2e 64 62 3f 6d 6f 64 65 3d 72 77 63 7d 20  st.db?mode=rwc} 
1fa0: 20 20 7b 6e 6f 74 20 61 6e 20 65 72 72 6f 72 7d    {not an error}
1fb0: 0a 20 20 34 20 20 20 20 7b 66 69 6c 65 3a 74 65  .  4    {file:te
1fc0: 73 74 2e 64 62 3f 6d 6f 64 65 3d 52 6f 7d 20 20  st.db?mode=Ro}  
1fd0: 20 20 7b 6e 6f 20 73 75 63 68 20 61 63 63 65 73    {no such acces
1fe0: 73 20 6d 6f 64 65 3a 20 52 6f 7d 0a 20 20 35 20  s mode: Ro}.  5 
1ff0: 20 20 20 7b 66 69 6c 65 3a 74 65 73 74 2e 64 62     {file:test.db
2000: 3f 6d 6f 64 65 3d 52 77 7d 20 20 20 20 7b 6e 6f  ?mode=Rw}    {no
2010: 20 73 75 63 68 20 61 63 63 65 73 73 20 6d 6f 64   such access mod
2020: 65 3a 20 52 77 7d 0a 20 20 36 20 20 20 20 7b 66  e: Rw}.  6    {f
2030: 69 6c 65 3a 74 65 73 74 2e 64 62 3f 6d 6f 64 65  ile:test.db?mode
2040: 3d 52 77 63 7d 20 20 20 7b 6e 6f 20 73 75 63 68  =Rwc}   {no such
2050: 20 61 63 63 65 73 73 20 6d 6f 64 65 3a 20 52 77   access mode: Rw
2060: 63 7d 0a 22 20 7b 0a 20 20 64 6f 5f 74 65 73 74  c}." {.  do_test
2070: 20 37 2e 24 74 6e 20 7b 20 6f 70 65 6e 5f 75 72   7.$tn { open_ur
2080: 69 5f 65 72 72 6f 72 20 24 75 72 69 20 7d 20 24  i_error $uri } $
2090: 65 72 72 6f 72 0a 7d 0a 0a 0a 23 20 45 56 49 44  error.}...# EVID
20a0: 45 4e 43 45 2d 4f 46 3a 20 52 2d 30 39 36 35 31  ENCE-OF: R-09651
20b0: 2d 33 31 38 30 35 20 49 66 20 22 72 6f 22 20 69  -31805 If "ro" i
20c0: 73 20 73 70 65 63 69 66 69 65 64 2c 20 74 68 65  s specified, the
20d0: 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 20 69  n the database i
20e0: 73 0a 23 20 6f 70 65 6e 65 64 20 66 6f 72 20 72  s.# opened for r
20f0: 65 61 64 2d 6f 6e 6c 79 20 61 63 63 65 73 73 2c  ead-only access,
2100: 20 6a 75 73 74 20 61 73 20 69 66 20 74 68 65 20   just as if the 
2110: 53 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 52 45 41  SQLITE4_OPEN_REA
2120: 44 4f 4e 4c 59 20 66 6c 61 67 0a 23 20 68 61 64  DONLY flag.# had
2130: 20 62 65 65 6e 20 73 65 74 20 69 6e 20 74 68 65   been set in the
2140: 20 74 68 69 72 64 20 61 72 67 75 6d 65 6e 74 20   third argument 
2150: 74 6f 20 73 71 6c 69 74 65 34 5f 70 72 65 70 61  to sqlite4_prepa
2160: 72 65 5f 76 32 28 29 2e 0a 23 0a 23 20 45 56 49  re_v2()..#.# EVI
2170: 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 34 30 31 33  DENCE-OF: R-4013
2180: 37 2d 32 36 30 35 30 20 49 66 20 74 68 65 20 6d  7-26050 If the m
2190: 6f 64 65 20 6f 70 74 69 6f 6e 20 69 73 20 73 65  ode option is se
21a0: 74 20 74 6f 20 22 72 77 22 2c 20 74 68 65 6e 20  t to "rw", then 
21b0: 74 68 65 0a 23 20 64 61 74 61 62 61 73 65 20 69  the.# database i
21c0: 73 20 6f 70 65 6e 65 64 20 66 6f 72 20 72 65 61  s opened for rea
21d0: 64 2d 77 72 69 74 65 20 28 62 75 74 20 6e 6f 74  d-write (but not
21e0: 20 63 72 65 61 74 65 29 20 61 63 63 65 73 73 2c   create) access,
21f0: 20 61 73 20 69 66 0a 23 20 53 51 4c 49 54 45 34   as if.# SQLITE4
2200: 5f 4f 50 45 4e 5f 52 45 41 44 57 52 49 54 45 20  _OPEN_READWRITE 
2210: 28 62 75 74 20 6e 6f 74 20 53 51 4c 49 54 45 34  (but not SQLITE4
2220: 5f 4f 50 45 4e 5f 43 52 45 41 54 45 29 20 68 61  _OPEN_CREATE) ha
2230: 64 20 62 65 65 6e 20 73 65 74 2e 0a 23 0a 23 20  d been set..#.# 
2240: 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 32  EVIDENCE-OF: R-2
2250: 36 38 34 35 2d 33 32 39 37 36 20 56 61 6c 75 65  6845-32976 Value
2260: 20 22 72 77 63 22 20 69 73 20 65 71 75 69 76 61   "rwc" is equiva
2270: 6c 65 6e 74 20 74 6f 20 73 65 74 74 69 6e 67 20  lent to setting 
2280: 62 6f 74 68 0a 23 20 53 51 4c 49 54 45 34 5f 4f  both.# SQLITE4_O
2290: 50 45 4e 5f 52 45 41 44 57 52 49 54 45 20 61 6e  PEN_READWRITE an
22a0: 64 20 53 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 43  d SQLITE4_OPEN_C
22b0: 52 45 41 54 45 2e 0a 23 0a 66 6f 72 65 61 63 68  REATE..#.foreach
22c0: 20 7b 74 6e 20 75 72 69 20 72 65 61 64 20 77 72   {tn uri read wr
22d0: 69 74 65 20 63 72 65 61 74 65 7d 20 7b 0a 20 20  ite create} {.  
22e0: 31 20 20 20 20 7b 66 69 6c 65 3a 74 65 73 74 2e  1    {file:test.
22f0: 64 62 3f 6d 6f 64 65 3d 72 6f 7d 20 20 20 20 20  db?mode=ro}     
2300: 31 20 30 20 30 0a 20 20 32 20 20 20 20 7b 66 69  1 0 0.  2    {fi
2310: 6c 65 3a 74 65 73 74 2e 64 62 3f 6d 6f 64 65 3d  le:test.db?mode=
2320: 72 77 7d 20 20 20 20 20 31 20 31 20 30 0a 20 20  rw}     1 1 0.  
2330: 33 20 20 20 20 7b 66 69 6c 65 3a 74 65 73 74 2e  3    {file:test.
2340: 64 62 3f 6d 6f 64 65 3d 72 77 63 7d 20 20 20 20  db?mode=rwc}    
2350: 31 20 31 20 31 0a 7d 20 7b 0a 20 20 73 65 74 20  1 1 1.} {.  set 
2360: 52 45 53 28 63 2c 30 29 20 7b 31 20 7b 75 6e 61  RES(c,0) {1 {una
2370: 62 6c 65 20 74 6f 20 6f 70 65 6e 20 64 61 74 61  ble to open data
2380: 62 61 73 65 20 66 69 6c 65 7d 7d 0a 20 20 73 65  base file}}.  se
2390: 74 20 52 45 53 28 63 2c 31 29 20 7b 30 20 7b 7d  t RES(c,1) {0 {}
23a0: 7d 0a 20 20 73 65 74 20 52 45 53 28 77 2c 30 29  }.  set RES(w,0)
23b0: 20 7b 31 20 7b 61 74 74 65 6d 70 74 20 74 6f 20   {1 {attempt to 
23c0: 77 72 69 74 65 20 61 20 72 65 61 64 6f 6e 6c 79  write a readonly
23d0: 20 64 61 74 61 62 61 73 65 7d 7d 0a 20 20 73 65   database}}.  se
23e0: 74 20 52 45 53 28 77 2c 31 29 20 7b 30 20 7b 7d  t RES(w,1) {0 {}
23f0: 7d 0a 20 20 73 65 74 20 52 45 53 28 72 2c 30 29  }.  set RES(r,0)
2400: 20 7b 31 20 7b 74 68 69 73 20 6e 65 76 65 72 20   {1 {this never 
2410: 68 61 70 70 65 6e 73 7d 7d 0a 20 20 73 65 74 20  happens}}.  set 
2420: 52 45 53 28 72 2c 31 29 20 7b 30 20 7b 61 20 62  RES(r,1) {0 {a b
2430: 7d 7d 0a 0a 20 20 23 20 54 65 73 74 20 43 52 45  }}..  # Test CRE
2440: 41 54 45 20 61 63 63 65 73 73 3a 0a 20 20 66 6f  ATE access:.  fo
2450: 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64  rcedelete test.d
2460: 62 0a 20 20 64 6f 5f 74 65 73 74 20 38 2e 24 74  b.  do_test 8.$t
2470: 6e 2e 63 20 7b 20 6c 69 73 74 20 5b 63 61 74 63  n.c { list [catc
2480: 68 20 7b 20 73 71 6c 69 74 65 34 20 64 62 20 24  h { sqlite4 db $
2490: 75 72 69 20 7d 20 6d 73 67 5d 20 24 6d 73 67 20  uri } msg] $msg 
24a0: 7d 20 24 52 45 53 28 63 2c 24 63 72 65 61 74 65  } $RES(c,$create
24b0: 29 0a 20 20 63 61 74 63 68 20 7b 20 64 62 20 63  ).  catch { db c
24c0: 6c 6f 73 65 20 7d 0a 0a 20 20 73 71 6c 69 74 65  lose }..  sqlite
24d0: 34 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20 64  4 db test.db.  d
24e0: 62 20 65 76 61 6c 20 7b 20 43 52 45 41 54 45 20  b eval { CREATE 
24f0: 54 41 42 4c 45 20 74 31 28 61 2c 20 62 29 20 3b  TABLE t1(a, b) ;
2500: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
2510: 56 41 4c 55 45 53 28 27 61 27 2c 20 27 62 27 29  VALUES('a', 'b')
2520: 20 3b 7d 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20   ;}.  db close. 
2530: 20 0a 20 20 23 20 54 65 73 74 20 52 45 41 44 20   .  # Test READ 
2540: 61 63 63 65 73 73 3a 0a 20 20 64 6f 5f 74 65 73  access:.  do_tes
2550: 74 20 38 2e 24 74 6e 2e 72 20 7b 20 0a 20 20 20  t 8.$tn.r { .   
2560: 20 73 71 6c 69 74 65 34 20 64 62 20 24 75 72 69   sqlite4 db $uri
2570: 0a 20 20 20 20 63 61 74 63 68 73 71 6c 20 7b 20  .    catchsql { 
2580: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
2590: 20 7d 0a 20 20 7d 20 24 52 45 53 28 72 2c 24 72   }.  } $RES(r,$r
25a0: 65 61 64 29 0a 20 20 0a 20 20 23 20 54 65 73 74  ead).  .  # Test
25b0: 20 57 52 49 54 45 20 61 63 63 65 73 73 3a 0a 20   WRITE access:. 
25c0: 20 64 6f 5f 74 65 73 74 20 38 2e 24 74 6e 2e 77   do_test 8.$tn.w
25d0: 20 7b 20 0a 20 20 20 20 73 71 6c 69 74 65 34 20   { .    sqlite4 
25e0: 64 62 20 24 75 72 69 0a 20 20 20 20 63 61 74 63  db $uri.    catc
25f0: 68 73 71 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e  hsql { INSERT IN
2600: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31 2c 20  TO t1 VALUES(1, 
2610: 32 29 20 7d 0a 20 20 7d 20 24 52 45 53 28 77 2c  2) }.  } $RES(w,
2620: 24 77 72 69 74 65 29 0a 0a 20 20 63 61 74 63 68  $write)..  catch
2630: 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 7d 0a 0a 23   {db close}.}..#
2640: 20 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 2d   EVIDENCE-OF: R-
2650: 35 36 30 33 32 2d 33 32 32 38 37 20 49 66 20 73  56032-32287 If s
2660: 71 6c 69 74 65 34 5f 6f 70 65 6e 5f 76 32 28 29  qlite4_open_v2()
2670: 20 69 73 20 75 73 65 64 2c 20 69 74 20 69 73 20   is used, it is 
2680: 61 6e 0a 23 20 65 72 72 6f 72 20 74 6f 20 73 70  an.# error to sp
2690: 65 63 69 66 79 20 61 20 76 61 6c 75 65 20 66 6f  ecify a value fo
26a0: 72 20 74 68 65 20 6d 6f 64 65 20 70 61 72 61 6d  r the mode param
26b0: 65 74 65 72 20 74 68 61 74 20 69 73 20 6c 65 73  eter that is les
26c0: 73 0a 23 20 72 65 73 74 72 69 63 74 69 76 65 20  s.# restrictive 
26d0: 74 68 61 6e 20 74 68 61 74 20 73 70 65 63 69 66  than that specif
26e0: 69 65 64 20 62 79 20 74 68 65 20 66 6c 61 67 73  ied by the flags
26f0: 20 70 61 73 73 65 64 20 61 73 20 74 68 65 20 74   passed as the t
2700: 68 69 72 64 0a 23 20 70 61 72 61 6d 65 74 65 72  hird.# parameter
2710: 2e 0a 23 0a 66 6f 72 63 65 64 65 6c 65 74 65 20  ..#.forcedelete 
2720: 74 65 73 74 2e 64 62 0a 73 71 6c 69 74 65 34 20  test.db.sqlite4 
2730: 64 62 20 74 65 73 74 2e 64 62 0a 64 62 20 63 6c  db test.db.db cl
2740: 6f 73 65 0a 66 6f 72 65 61 63 68 20 7b 74 6e 20  ose.foreach {tn 
2750: 75 72 69 20 66 6c 61 67 73 20 65 72 72 6f 72 7d  uri flags error}
2760: 20 7b 0a 20 20 31 20 20 20 7b 66 69 6c 65 3a 74   {.  1   {file:t
2770: 65 73 74 2e 64 62 3f 6d 6f 64 65 3d 72 6f 7d 20  est.db?mode=ro} 
2780: 20 20 72 6f 20 20 20 20 7b 6e 6f 74 20 61 6e 20    ro    {not an 
2790: 65 72 72 6f 72 7d 0a 20 20 32 20 20 20 7b 66 69  error}.  2   {fi
27a0: 6c 65 3a 74 65 73 74 2e 64 62 3f 6d 6f 64 65 3d  le:test.db?mode=
27b0: 72 6f 7d 20 20 20 72 77 20 20 20 20 7b 6e 6f 74  ro}   rw    {not
27c0: 20 61 6e 20 65 72 72 6f 72 7d 0a 20 20 33 20 20   an error}.  3  
27d0: 20 7b 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f 6d   {file:test.db?m
27e0: 6f 64 65 3d 72 6f 7d 20 20 20 72 77 63 20 20 20  ode=ro}   rwc   
27f0: 7b 6e 6f 74 20 61 6e 20 65 72 72 6f 72 7d 0a 0a  {not an error}..
2800: 20 20 34 20 20 20 7b 66 69 6c 65 3a 74 65 73 74    4   {file:test
2810: 2e 64 62 3f 6d 6f 64 65 3d 72 77 7d 20 20 20 72  .db?mode=rw}   r
2820: 6f 20 20 20 20 7b 61 63 63 65 73 73 20 6d 6f 64  o    {access mod
2830: 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 3a 20 72  e not allowed: r
2840: 77 7d 0a 20 20 35 20 20 20 7b 66 69 6c 65 3a 74  w}.  5   {file:t
2850: 65 73 74 2e 64 62 3f 6d 6f 64 65 3d 72 77 7d 20  est.db?mode=rw} 
2860: 20 20 72 77 20 20 20 20 7b 6e 6f 74 20 61 6e 20    rw    {not an 
2870: 65 72 72 6f 72 7d 0a 20 20 36 20 20 20 7b 66 69  error}.  6   {fi
2880: 6c 65 3a 74 65 73 74 2e 64 62 3f 6d 6f 64 65 3d  le:test.db?mode=
2890: 72 77 7d 20 20 20 72 77 63 20 20 20 7b 6e 6f 74  rw}   rwc   {not
28a0: 20 61 6e 20 65 72 72 6f 72 7d 0a 0a 20 20 37 20   an error}..  7 
28b0: 20 20 7b 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f    {file:test.db?
28c0: 6d 6f 64 65 3d 72 77 63 7d 20 20 72 6f 20 20 20  mode=rwc}  ro   
28d0: 20 7b 61 63 63 65 73 73 20 6d 6f 64 65 20 6e 6f   {access mode no
28e0: 74 20 61 6c 6c 6f 77 65 64 3a 20 72 77 63 7d 0a  t allowed: rwc}.
28f0: 20 20 38 20 20 20 7b 66 69 6c 65 3a 74 65 73 74    8   {file:test
2900: 2e 64 62 3f 6d 6f 64 65 3d 72 77 63 7d 20 20 72  .db?mode=rwc}  r
2910: 77 20 20 20 20 7b 61 63 63 65 73 73 20 6d 6f 64  w    {access mod
2920: 65 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 3a 20 72  e not allowed: r
2930: 77 63 7d 0a 20 20 39 20 20 20 7b 66 69 6c 65 3a  wc}.  9   {file:
2940: 74 65 73 74 2e 64 62 3f 6d 6f 64 65 3d 72 77 63  test.db?mode=rwc
2950: 7d 20 20 72 77 63 20 20 20 7b 6e 6f 74 20 61 6e  }  rwc   {not an
2960: 20 65 72 72 6f 72 7d 0a 7d 20 7b 0a 20 20 73 65   error}.} {.  se
2970: 74 20 66 28 72 6f 29 20 20 5b 6c 69 73 74 20 53  t f(ro)  [list S
2980: 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 52 45 41 44  QLITE4_OPEN_READ
2990: 4f 4e 4c 59 20 53 51 4c 49 54 45 34 5f 4f 50 45  ONLY SQLITE4_OPE
29a0: 4e 5f 55 52 49 5d 0a 20 20 73 65 74 20 66 28 72  N_URI].  set f(r
29b0: 77 29 20 20 5b 6c 69 73 74 20 53 51 4c 49 54 45  w)  [list SQLITE
29c0: 34 5f 4f 50 45 4e 5f 52 45 41 44 57 52 49 54 45  4_OPEN_READWRITE
29d0: 20 53 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 55 52   SQLITE4_OPEN_UR
29e0: 49 5d 0a 20 20 73 65 74 20 66 28 72 77 63 29 20  I].  set f(rwc) 
29f0: 5b 6c 69 73 74 20 53 51 4c 49 54 45 34 5f 4f 50  [list SQLITE4_OP
2a00: 45 4e 5f 52 45 41 44 57 52 49 54 45 20 53 51 4c  EN_READWRITE SQL
2a10: 49 54 45 34 5f 4f 50 45 4e 5f 43 52 45 41 54 45  ITE4_OPEN_CREATE
2a20: 20 53 51 4c 49 54 45 34 5f 4f 50 45 4e 5f 55 52   SQLITE4_OPEN_UR
2a30: 49 5d 0a 0a 20 20 73 65 74 20 44 42 20 5b 73 71  I]..  set DB [sq
2a40: 6c 69 74 65 34 5f 6f 70 65 6e 5f 76 32 20 24 75  lite4_open_v2 $u
2a50: 72 69 20 24 66 28 24 66 6c 61 67 73 29 20 22 22  ri $f($flags) ""
2a60: 5d 0a 20 20 73 65 74 20 65 20 5b 73 71 6c 69 74  ].  set e [sqlit
2a70: 65 34 5f 65 72 72 6d 73 67 20 24 44 42 5d 0a 20  e4_errmsg $DB]. 
2a80: 20 73 71 6c 69 74 65 34 5f 63 6c 6f 73 65 20 24   sqlite4_close $
2a90: 44 42 0a 0a 20 20 64 6f 5f 74 65 73 74 20 39 2e  DB..  do_test 9.
2aa0: 24 74 6e 20 7b 20 73 65 74 20 65 20 7d 20 24 65  $tn { set e } $e
2ab0: 72 72 6f 72 0a 7d 0a 0a 23 20 45 56 49 44 45 4e  rror.}..# EVIDEN
2ac0: 43 45 2d 4f 46 3a 20 52 2d 32 33 31 38 32 2d 35  CE-OF: R-23182-5
2ad0: 34 32 39 35 20 54 68 65 20 63 61 63 68 65 20 70  4295 The cache p
2ae0: 61 72 61 6d 65 74 65 72 20 6d 61 79 20 62 65 20  arameter may be 
2af0: 73 65 74 20 74 6f 20 65 69 74 68 65 72 0a 23 20  set to either.# 
2b00: 22 73 68 61 72 65 64 22 20 6f 72 20 22 70 72 69  "shared" or "pri
2b10: 76 61 74 65 22 2e 0a 73 71 6c 69 74 65 34 20 64  vate"..sqlite4 d
2b20: 62 20 74 65 73 74 2e 64 62 0a 64 62 20 63 6c 6f  b test.db.db clo
2b30: 73 65 0a 66 6f 72 65 61 63 68 20 7b 74 6e 20 75  se.foreach {tn u
2b40: 72 69 20 65 72 72 6f 72 7d 20 22 0a 20 20 31 20  ri error} ".  1 
2b50: 20 20 20 7b 66 69 6c 65 3a 74 65 73 74 2e 64 62     {file:test.db
2b60: 3f 63 61 63 68 65 3d 70 72 69 76 61 74 65 7d 20  ?cache=private} 
2b70: 20 20 20 7b 6e 6f 74 20 61 6e 20 65 72 72 6f 72     {not an error
2b80: 7d 0a 20 20 32 20 20 20 20 7b 66 69 6c 65 3a 74  }.  2    {file:t
2b90: 65 73 74 2e 64 62 3f 63 61 63 68 65 3d 73 68 61  est.db?cache=sha
2ba0: 72 65 64 7d 20 20 20 20 20 7b 6e 6f 74 20 61 6e  red}     {not an
2bb0: 20 65 72 72 6f 72 7d 0a 20 20 33 20 20 20 20 7b   error}.  3    {
2bc0: 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f 63 61 63  file:test.db?cac
2bd0: 68 65 3d 79 65 73 7d 20 20 20 20 20 20 20 20 7b  he=yes}        {
2be0: 6e 6f 20 73 75 63 68 20 63 61 63 68 65 20 6d 6f  no such cache mo
2bf0: 64 65 3a 20 79 65 73 7d 0a 20 20 34 20 20 20 20  de: yes}.  4    
2c00: 7b 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f 63 61  {file:test.db?ca
2c10: 63 68 65 3d 7d 20 20 20 20 20 20 20 20 20 20 20  che=}           
2c20: 7b 6e 6f 20 73 75 63 68 20 63 61 63 68 65 20 6d  {no such cache m
2c30: 6f 64 65 3a 20 7d 0a 22 20 7b 0a 20 20 64 6f 5f  ode: }." {.  do_
2c40: 74 65 73 74 20 31 30 2e 24 74 6e 20 7b 20 6f 70  test 10.$tn { op
2c50: 65 6e 5f 75 72 69 5f 65 72 72 6f 72 20 24 75 72  en_uri_error $ur
2c60: 69 20 7d 20 24 65 72 72 6f 72 0a 7d 0a 0a 0a 23  i } $error.}...#
2c70: 20 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 2d   EVIDENCE-OF: R-
2c80: 36 33 34 37 32 2d 34 36 37 36 39 20 53 70 65 63  63472-46769 Spec
2c90: 69 66 79 69 6e 67 20 61 6e 20 75 6e 6b 6e 6f 77  ifying an unknow
2ca0: 6e 20 70 61 72 61 6d 65 74 65 72 20 69 6e 20 74  n parameter in t
2cb0: 68 65 0a 23 20 71 75 65 72 79 20 63 6f 6d 70 6f  he.# query compo
2cc0: 6e 65 6e 74 20 6f 66 20 61 20 55 52 49 20 69 73  nent of a URI is
2cd0: 20 6e 6f 74 20 61 6e 20 65 72 72 6f 72 2e 0a 23   not an error..#
2ce0: 0a 64 6f 5f 66 69 6c 65 70 61 74 68 5f 74 65 73  .do_filepath_tes
2cf0: 74 20 31 32 2e 31 20 7b 0a 20 20 70 61 72 73 65  t 12.1 {.  parse
2d00: 5f 75 72 69 20 66 69 6c 65 3a 2f 2f 6c 6f 63 61  _uri file://loca
2d10: 6c 68 6f 73 74 2f 74 65 73 74 2e 64 62 3f 61 6e  lhost/test.db?an
2d20: 3d 75 6e 6b 6e 6f 77 6e 26 70 61 72 61 6d 65 74  =unknown&paramet
2d30: 65 72 3d 69 73 26 6f 6b 3d 0a 7d 20 7b 2f 74 65  er=is&ok=.} {/te
2d40: 73 74 2e 64 62 20 7b 61 6e 20 75 6e 6b 6e 6f 77  st.db {an unknow
2d50: 6e 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 6f  n parameter is o
2d60: 6b 20 7b 7d 7d 7d 0a 64 6f 5f 66 69 6c 65 70 61  k {}}}.do_filepa
2d70: 74 68 5f 74 65 73 74 20 31 32 2e 32 20 7b 0a 20  th_test 12.2 {. 
2d80: 20 70 61 72 73 65 5f 75 72 69 20 66 69 6c 65 3a   parse_uri file:
2d90: 2f 2f 6c 6f 63 61 6c 68 6f 73 74 2f 74 65 73 74  //localhost/test
2da0: 2e 64 62 3f 61 6e 26 75 6e 6b 6e 6f 77 6e 26 70  .db?an&unknown&p
2db0: 61 72 61 6d 65 74 65 72 26 69 73 26 6f 6b 0a 7d  arameter&is&ok.}
2dc0: 20 7b 2f 74 65 73 74 2e 64 62 20 7b 61 6e 20 7b   {/test.db {an {
2dd0: 7d 20 75 6e 6b 6e 6f 77 6e 20 7b 7d 20 70 61 72  } unknown {} par
2de0: 61 6d 65 74 65 72 20 7b 7d 20 69 73 20 7b 7d 20  ameter {} is {} 
2df0: 6f 6b 20 7b 7d 7d 7d 0a 0a 23 20 45 56 49 44 45  ok {}}}..# EVIDE
2e00: 4e 43 45 2d 4f 46 3a 20 52 2d 32 37 34 35 38 2d  NCE-OF: R-27458-
2e10: 30 34 30 34 33 20 55 52 49 20 68 65 78 61 64 65  04043 URI hexade
2e20: 63 69 6d 61 6c 20 65 73 63 61 70 65 20 73 65 71  cimal escape seq
2e30: 75 65 6e 63 65 73 20 28 25 48 48 29 20 61 72 65  uences (%HH) are
2e40: 0a 23 20 73 75 70 70 6f 72 74 65 64 20 77 69 74  .# supported wit
2e50: 68 69 6e 20 74 68 65 20 70 61 74 68 20 61 6e 64  hin the path and
2e60: 20 71 75 65 72 79 20 63 6f 6d 70 6f 6e 65 6e 74   query component
2e70: 73 20 6f 66 20 61 20 55 52 49 2e 0a 23 0a 23 20  s of a URI..#.# 
2e80: 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 35  EVIDENCE-OF: R-5
2e90: 32 37 36 35 2d 35 30 33 36 38 20 42 65 66 6f 72  2765-50368 Befor
2ea0: 65 20 74 68 65 20 70 61 74 68 20 6f 72 20 71 75  e the path or qu
2eb0: 65 72 79 20 63 6f 6d 70 6f 6e 65 6e 74 73 20 6f  ery components o
2ec0: 66 20 61 0a 23 20 55 52 49 20 66 69 6c 65 6e 61  f a.# URI filena
2ed0: 6d 65 20 61 72 65 20 69 6e 74 65 72 70 72 65 74  me are interpret
2ee0: 65 64 2c 20 74 68 65 79 20 61 72 65 20 65 6e 63  ed, they are enc
2ef0: 6f 64 65 64 20 75 73 69 6e 67 20 55 54 46 2d 38  oded using UTF-8
2f00: 20 61 6e 64 20 61 6c 6c 0a 23 20 68 65 78 61 64   and all.# hexad
2f10: 65 63 69 6d 61 6c 20 65 73 63 61 70 65 20 73 65  ecimal escape se
2f20: 71 75 65 6e 63 65 73 20 72 65 70 6c 61 63 65 64  quences replaced
2f30: 20 62 79 20 61 20 73 69 6e 67 6c 65 20 62 79 74   by a single byt
2f40: 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65  e containing the
2f50: 0a 23 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67  .# corresponding
2f60: 20 6f 63 74 65 74 2e 0a 23 0a 23 20 20 20 54 68   octet..#.#   Th
2f70: 65 20 73 65 63 6f 6e 64 20 6f 66 20 74 68 65 20  e second of the 
2f80: 74 77 6f 20 73 74 61 74 65 6d 65 6e 74 73 20 61  two statements a
2f90: 62 6f 76 65 20 69 73 20 74 65 73 74 65 64 20 62  bove is tested b
2fa0: 79 20 63 72 65 61 74 69 6e 67 20 61 0a 23 20 20  y creating a.#  
2fb0: 20 6d 75 6c 74 69 2d 62 79 74 65 20 75 74 66 2d   multi-byte utf-
2fc0: 38 20 63 68 61 72 61 63 74 65 72 20 75 73 69 6e  8 character usin
2fd0: 67 20 61 20 73 65 71 75 65 6e 63 65 20 6f 66 20  g a sequence of 
2fe0: 25 48 48 20 65 73 63 61 70 65 73 2e 0a 23 0a 66  %HH escapes..#.f
2ff0: 6f 72 65 61 63 68 20 7b 74 6e 20 75 72 69 20 70  oreach {tn uri p
3000: 61 72 73 65 7d 20 22 0a 20 20 31 20 20 7b 66 69  arse} ".  1  {fi
3010: 6c 65 3a 2f 74 65 73 74 2e 25 36 34 25 36 32 7d  le:/test.%64%62}
3020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3030: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 2f 74               {/t
3040: 65 73 74 2e 64 62 20 7b 7d 7d 0a 20 20 32 20 20  est.db {}}.  2  
3050: 7b 66 69 6c 65 3a 2f 74 65 73 74 2e 64 62 3f 25  {file:/test.db?%
3060: 36 38 25 36 35 25 36 63 25 36 63 25 36 66 3d 25  68%65%6c%6c%6f=%
3070: 37 37 25 36 66 25 37 32 25 36 63 25 36 34 7d 20  77%6f%72%6c%64} 
3080: 7b 2f 74 65 73 74 2e 64 62 20 7b 68 65 6c 6c 6f  {/test.db {hello
3090: 20 77 6f 72 6c 64 7d 7d 0a 20 20 33 20 20 7b 66   world}}.  3  {f
30a0: 69 6c 65 3a 2f 25 43 33 25 42 46 2e 64 62 7d 20  ile:/%C3%BF.db} 
30b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
30c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 2f                {/
30d0: 5c 78 46 46 2e 64 62 20 7b 7d 7d 0a 22 20 7b 0a  \xFF.db {}}." {.
30e0: 20 20 64 6f 5f 66 69 6c 65 70 61 74 68 5f 74 65    do_filepath_te
30f0: 73 74 20 31 33 2e 24 74 6e 20 7b 20 70 61 72 73  st 13.$tn { pars
3100: 65 5f 75 72 69 20 24 75 72 69 20 7d 20 24 70 61  e_uri $uri } $pa
3110: 72 73 65 0a 7d 0a 0a 66 69 6e 69 73 68 5f 74 65  rse.}..finish_te
3120: 73 74 0a                                         st.