/ Hex Artifact Content
Login

Artifact 7f95c929b719626443a996b105d2b0ff06f47818:


0000: 23 20 32 30 30 37 20 4d 61 79 20 31 0a 23 0a 23  # 2007 May 1.#.#
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 24 49 64 3a 20 69 6e 63 72  **.#.# $Id: incr
0170: 62 6c 6f 62 2e 74 65 73 74 2c 76 20 31 2e 31 34  blob.test,v 1.14
0180: 20 32 30 30 37 2f 30 38 2f 32 32 20 30 32 3a 35   2007/08/22 02:5
0190: 36 3a 34 34 20 64 72 68 20 45 78 70 20 24 0a 23  6:44 drh Exp $.#
01a0: 0a 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b 66  ..set testdir [f
01b0: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67  ile dirname $arg
01c0: 76 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74  v0].source $test
01d0: 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 0a  dir/tester.tcl..
01e0: 69 66 63 61 70 61 62 6c 65 20 7b 21 61 75 74 6f  ifcapable {!auto
01f0: 76 61 63 75 75 6d 20 7c 7c 20 21 70 72 61 67 6d  vacuum || !pragm
0200: 61 20 7c 7c 20 21 69 6e 63 72 62 6c 6f 62 7d 20  a || !incrblob} 
0210: 7b 0a 20 20 66 69 6e 69 73 68 5f 74 65 73 74 0a  {.  finish_test.
0220: 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 64 6f 5f 74    return.}..do_t
0230: 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 31 2e 31  est incrblob-1.1
0240: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   {.  execsql {. 
0250: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
0260: 62 6c 6f 62 73 28 6b 20 50 52 49 4d 41 52 59 20  blobs(k PRIMARY 
0270: 4b 45 59 2c 20 76 20 42 4c 4f 42 29 3b 0a 20 20  KEY, v BLOB);.  
0280: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 62 6c    INSERT INTO bl
0290: 6f 62 73 20 56 41 4c 55 45 53 28 27 6f 6e 65 27  obs VALUES('one'
02a0: 2c 20 58 27 30 31 30 32 30 33 30 34 30 35 30 36  , X'010203040506
02b0: 30 37 30 38 30 39 30 41 27 29 3b 0a 20 20 20 20  0708090A');.    
02c0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 62 6c 6f 62  INSERT INTO blob
02d0: 73 20 56 41 4c 55 45 53 28 27 74 77 6f 27 2c 20  s VALUES('two', 
02e0: 58 27 30 41 30 39 30 38 30 37 30 36 30 35 30 34  X'0A090807060504
02f0: 30 33 30 32 30 31 27 29 3b 0a 20 20 7d 0a 7d 20  030201');.  }.} 
0300: 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72  {}..do_test incr
0310: 62 6c 6f 62 2d 31 2e 32 2e 31 20 7b 0a 20 20 73  blob-1.2.1 {.  s
0320: 65 74 20 3a 3a 62 6c 6f 62 20 5b 64 62 20 69 6e  et ::blob [db in
0330: 63 72 62 6c 6f 62 20 62 6c 6f 62 73 20 76 20 31  crblob blobs v 1
0340: 5d 0a 20 20 73 74 72 69 6e 67 20 6d 61 74 63 68  ].  string match
0350: 20 69 6e 63 72 62 6c 6f 62 5f 2a 20 24 3a 3a 62   incrblob_* $::b
0360: 6c 6f 62 0a 7d 20 7b 31 7d 0a 64 6f 5f 74 65 73  lob.} {1}.do_tes
0370: 74 20 69 6e 63 72 62 6c 6f 62 2d 31 2e 32 2e 32  t incrblob-1.2.2
0380: 20 7b 0a 20 20 62 69 6e 61 72 79 20 73 63 61 6e   {.  binary scan
0390: 20 5b 72 65 61 64 20 24 3a 3a 62 6c 6f 62 5d 20   [read $::blob] 
03a0: 63 2a 20 64 61 74 61 0a 20 20 73 65 74 20 64 61  c* data.  set da
03b0: 74 61 0a 7d 20 7b 31 20 32 20 33 20 34 20 35 20  ta.} {1 2 3 4 5 
03c0: 36 20 37 20 38 20 39 20 31 30 7d 0a 64 6f 5f 74  6 7 8 9 10}.do_t
03d0: 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 31 2e 32  est incrblob-1.2
03e0: 2e 33 20 7b 0a 20 20 73 65 65 6b 20 24 3a 3a 62  .3 {.  seek $::b
03f0: 6c 6f 62 20 30 0a 20 20 70 75 74 73 20 2d 6e 6f  lob 0.  puts -no
0400: 6e 65 77 6c 69 6e 65 20 24 3a 3a 62 6c 6f 62 20  newline $::blob 
0410: 22 31 32 33 34 35 36 37 38 39 30 22 0a 20 20 66  "1234567890".  f
0420: 6c 75 73 68 20 24 3a 3a 62 6c 6f 62 0a 7d 20 7b  lush $::blob.} {
0430: 7d 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c  }.do_test incrbl
0440: 6f 62 2d 31 2e 32 2e 34 20 7b 0a 20 20 73 65 65  ob-1.2.4 {.  see
0450: 6b 20 24 3a 3a 62 6c 6f 62 20 30 0a 20 20 62 69  k $::blob 0.  bi
0460: 6e 61 72 79 20 73 63 61 6e 20 5b 72 65 61 64 20  nary scan [read 
0470: 24 3a 3a 62 6c 6f 62 5d 20 63 2a 20 64 61 74 61  $::blob] c* data
0480: 0a 20 20 73 65 74 20 64 61 74 61 0a 7d 20 7b 34  .  set data.} {4
0490: 39 20 35 30 20 35 31 20 35 32 20 35 33 20 35 34  9 50 51 52 53 54
04a0: 20 35 35 20 35 36 20 35 37 20 34 38 7d 0a 64 6f   55 56 57 48}.do
04b0: 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 31  _test incrblob-1
04c0: 2e 32 2e 35 20 7b 0a 20 20 63 6c 6f 73 65 20 24  .2.5 {.  close $
04d0: 3a 3a 62 6c 6f 62 0a 7d 20 7b 7d 0a 64 6f 5f 74  ::blob.} {}.do_t
04e0: 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 31 2e 32  est incrblob-1.2
04f0: 2e 36 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .6 {.  execsql {
0500: 0a 20 20 20 20 53 45 4c 45 43 54 20 76 20 46 52  .    SELECT v FR
0510: 4f 4d 20 62 6c 6f 62 73 20 57 48 45 52 45 20 72  OM blobs WHERE r
0520: 6f 77 69 64 20 3d 20 31 3b 0a 20 20 7d 0a 7d 20  owid = 1;.  }.} 
0530: 7b 31 32 33 34 35 36 37 38 39 30 7d 0a 0a 23 2d  {1234567890}..#-
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0580: 2d 2d 2d 0a 23 20 54 65 73 74 20 63 61 73 65 73  ---.# Test cases
0590: 20 69 6e 63 72 62 6c 6f 62 2d 31 2e 33 2e 58 20   incrblob-1.3.X 
05a0: 63 68 65 63 6b 20 74 68 61 74 20 69 74 20 69 73  check that it is
05b0: 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 72 65 61   possible to rea
05c0: 64 20 61 6e 64 20 77 72 69 74 65 0a 23 20 72 65  d and write.# re
05d0: 67 69 6f 6e 73 20 6f 66 20 61 20 62 6c 6f 62 20  gions of a blob 
05e0: 74 68 61 74 20 6c 69 65 20 6f 6e 20 6f 76 65 72  that lie on over
05f0: 66 6c 6f 77 20 70 61 67 65 73 2e 0a 23 0a 64 6f  flow pages..#.do
0600: 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 31  _test incrblob-1
0610: 2e 33 2e 31 20 7b 0a 20 20 73 65 74 20 3a 3a 73  .3.1 {.  set ::s
0620: 74 72 20 22 5b 73 74 72 69 6e 67 20 72 65 70 65  tr "[string repe
0630: 61 74 20 2e 20 31 30 30 30 30 5d 22 0a 20 20 65  at . 10000]".  e
0640: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53  xecsql {.    INS
0650: 45 52 54 20 49 4e 54 4f 20 62 6c 6f 62 73 28 72  ERT INTO blobs(r
0660: 6f 77 69 64 2c 20 6b 2c 20 76 29 20 56 41 4c 55  owid, k, v) VALU
0670: 45 53 28 33 2c 20 27 74 68 72 65 65 27 2c 20 24  ES(3, 'three', $
0680: 3a 3a 73 74 72 29 3b 0a 20 20 7d 0a 7d 20 7b 7d  ::str);.  }.} {}
0690: 0a 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c  ..do_test incrbl
06a0: 6f 62 2d 31 2e 33 2e 32 20 7b 0a 20 20 73 65 74  ob-1.3.2 {.  set
06b0: 20 3a 3a 62 6c 6f 62 20 5b 64 62 20 69 6e 63 72   ::blob [db incr
06c0: 62 6c 6f 62 20 62 6c 6f 62 73 20 76 20 33 5d 0a  blob blobs v 3].
06d0: 20 20 73 65 65 6b 20 24 3a 3a 62 6c 6f 62 20 38    seek $::blob 8
06e0: 35 30 30 0a 20 20 72 65 61 64 20 24 3a 3a 62 6c  500.  read $::bl
06f0: 6f 62 20 31 30 0a 7d 20 7b 2e 2e 2e 2e 2e 2e 2e  ob 10.} {.......
0700: 2e 2e 2e 7d 0a 64 6f 5f 74 65 73 74 20 69 6e 63  ...}.do_test inc
0710: 72 62 6c 6f 62 2d 31 2e 33 2e 33 20 7b 0a 20 20  rblob-1.3.3 {.  
0720: 73 65 65 6b 20 24 3a 3a 62 6c 6f 62 20 38 35 30  seek $::blob 850
0730: 30 0a 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c  0.  puts -nonewl
0740: 69 6e 65 20 24 3a 3a 62 6c 6f 62 20 31 32 33 34  ine $::blob 1234
0750: 35 36 37 38 39 30 0a 7d 20 7b 7d 0a 64 6f 5f 74  567890.} {}.do_t
0760: 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 31 2e 33  est incrblob-1.3
0770: 2e 34 20 7b 0a 20 20 73 65 65 6b 20 24 3a 3a 62  .4 {.  seek $::b
0780: 6c 6f 62 20 38 34 39 36 0a 20 20 72 65 61 64 20  lob 8496.  read 
0790: 24 3a 3a 62 6c 6f 62 20 31 30 0a 7d 20 7b 2e 2e  $::blob 10.} {..
07a0: 2e 2e 31 32 33 34 35 36 7d 0a 64 6f 5f 74 65 73  ..123456}.do_tes
07b0: 74 20 69 6e 63 72 62 6c 6f 62 2d 31 2e 33 2e 31  t incrblob-1.3.1
07c0: 30 20 7b 0a 20 20 63 6c 6f 73 65 20 24 3a 3a 62  0 {.  close $::b
07d0: 6c 6f 62 0a 7d 20 7b 7d 0a 0a 0a 23 2d 2d 2d 2d  lob.} {}...#----
07e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
07f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0820: 2d 2d 2d 2d 0a 23 20 69 6e 63 72 62 6c 6f 62 2d  ----.# incrblob-
0830: 32 2e 2a 3a 20 0a 23 0a 23 20 54 65 73 74 20 74  2.*: .#.# Test t
0840: 68 61 74 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e  hat the followin
0850: 67 20 6f 70 65 72 61 74 69 6f 6e 73 20 75 73 65  g operations use
0860: 20 70 74 72 6d 61 70 20 70 61 67 65 73 20 74 6f   ptrmap pages to
0870: 20 72 65 64 75 63 65 0a 23 20 75 6e 6e 65 63 65   reduce.# unnece
0880: 73 73 61 72 79 20 72 65 61 64 73 3a 0a 23 0a 23  ssary reads:.#.#
0890: 20 20 20 20 20 2a 20 52 65 61 64 69 6e 67 20 6e       * Reading n
08a0: 65 61 72 20 74 68 65 20 65 6e 64 20 6f 66 20 61  ear the end of a
08b0: 20 62 6c 6f 62 2c 0a 23 20 20 20 20 20 2a 20 57   blob,.#     * W
08c0: 72 69 74 69 6e 67 20 6e 65 61 72 20 74 68 65 20  riting near the 
08d0: 65 6e 64 20 6f 66 20 61 20 62 6c 6f 62 2c 20 61  end of a blob, a
08e0: 6e 64 0a 23 20 20 20 20 20 2a 20 53 45 4c 45 43  nd.#     * SELEC
08f0: 54 20 61 20 63 6f 6c 75 6d 6e 20 76 61 6c 75 65  T a column value
0900: 20 74 68 61 74 20 69 73 20 6c 6f 63 61 74 65 64   that is located
0910: 20 6f 6e 20 61 6e 20 6f 76 65 72 66 6c 6f 77 20   on an overflow 
0920: 70 61 67 65 2e 0a 23 0a 70 72 6f 63 20 6e 52 65  page..#.proc nRe
0930: 61 64 20 7b 64 62 7d 20 7b 0a 20 20 73 65 74 20  ad {db} {.  set 
0940: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64  bt [btree_from_d
0950: 62 20 24 64 62 5d 0a 20 20 64 62 5f 65 6e 74 65  b $db].  db_ente
0960: 72 20 24 64 62 0a 20 20 61 72 72 61 79 20 73 65  r $db.  array se
0970: 74 20 73 74 61 74 73 20 5b 62 74 72 65 65 5f 70  t stats [btree_p
0980: 61 67 65 72 5f 73 74 61 74 73 20 24 62 74 5d 0a  ager_stats $bt].
0990: 20 20 64 62 5f 6c 65 61 76 65 20 24 64 62 0a 20    db_leave $db. 
09a0: 20 72 65 74 75 72 6e 20 24 73 74 61 74 73 28 72   return $stats(r
09b0: 65 61 64 29 0a 7d 0a 70 72 6f 63 20 6e 57 72 69  ead).}.proc nWri
09c0: 74 65 20 7b 64 62 7d 20 7b 0a 20 20 73 65 74 20  te {db} {.  set 
09d0: 62 74 20 5b 62 74 72 65 65 5f 66 72 6f 6d 5f 64  bt [btree_from_d
09e0: 62 20 24 64 62 5d 0a 20 20 64 62 5f 65 6e 74 65  b $db].  db_ente
09f0: 72 20 24 64 62 0a 20 20 61 72 72 61 79 20 73 65  r $db.  array se
0a00: 74 20 73 74 61 74 73 20 5b 62 74 72 65 65 5f 70  t stats [btree_p
0a10: 61 67 65 72 5f 73 74 61 74 73 20 24 62 74 5d 0a  ager_stats $bt].
0a20: 20 20 64 62 5f 6c 65 61 76 65 20 24 64 62 0a 20    db_leave $db. 
0a30: 20 72 65 74 75 72 6e 20 24 73 74 61 74 73 28 77   return $stats(w
0a40: 72 69 74 65 29 0a 7d 0a 0a 73 71 6c 69 74 65 33  rite).}..sqlite3
0a50: 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74  _soft_heap_limit
0a60: 20 30 0a 0a 66 6f 72 65 61 63 68 20 41 75 74 6f   0..foreach Auto
0a70: 56 61 63 75 75 6d 4d 6f 64 65 20 5b 6c 69 73 74  VacuumMode [list
0a80: 20 30 20 31 5d 20 7b 0a 0a 20 20 69 66 20 7b 24   0 1] {..  if {$
0a90: 41 75 74 6f 56 61 63 75 75 6d 4d 6f 64 65 3e 30  AutoVacuumMode>0
0aa0: 7d 20 7b 0a 20 20 20 20 69 66 63 61 70 61 62 6c  } {.    ifcapabl
0ab0: 65 20 21 61 75 74 6f 76 61 63 75 75 6d 20 7b 0a  e !autovacuum {.
0ac0: 20 20 20 20 20 20 62 72 65 61 6b 0a 20 20 20 20        break.    
0ad0: 7d 0a 20 20 7d 0a 0a 20 20 64 62 20 63 6c 6f 73  }.  }..  db clos
0ae0: 65 0a 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20  e.  file delete 
0af0: 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 20 74  -force test.db t
0b00: 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 0a  est.db-journal..
0b10: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73    sqlite3 db tes
0b20: 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20 22  t.db.  execsql "
0b30: 50 52 41 47 4d 41 20 61 75 74 6f 5f 76 61 63 75  PRAGMA auto_vacu
0b40: 75 6d 20 3d 20 24 41 75 74 6f 56 61 63 75 75 6d  um = $AutoVacuum
0b50: 4d 6f 64 65 22 0a 0a 20 20 64 6f 5f 74 65 73 74  Mode"..  do_test
0b60: 20 69 6e 63 72 62 6c 6f 62 2d 32 2e 24 41 75 74   incrblob-2.$Aut
0b70: 6f 56 61 63 75 75 6d 4d 6f 64 65 2e 31 20 7b 0a  oVacuumMode.1 {.
0b80: 20 20 20 20 73 65 74 20 3a 3a 73 74 72 20 5b 73      set ::str [s
0b90: 74 72 69 6e 67 20 72 65 70 65 61 74 20 61 62 63  tring repeat abc
0ba0: 64 65 66 67 68 69 6a 20 32 39 30 30 5d 0a 20 20  defghij 2900].  
0bb0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
0bc0: 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 43    BEGIN;.      C
0bd0: 52 45 41 54 45 20 54 41 42 4c 45 20 62 6c 6f 62  REATE TABLE blob
0be0: 73 28 6b 20 50 52 49 4d 41 52 59 20 4b 45 59 2c  s(k PRIMARY KEY,
0bf0: 20 76 20 42 4c 4f 42 2c 20 69 20 49 4e 54 45 47   v BLOB, i INTEG
0c00: 45 52 29 3b 0a 20 20 20 20 20 20 44 45 4c 45 54  ER);.      DELET
0c10: 45 20 46 52 4f 4d 20 62 6c 6f 62 73 3b 0a 20 20  E FROM blobs;.  
0c20: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
0c30: 62 6c 6f 62 73 20 56 41 4c 55 45 53 28 27 6f 6e  blobs VALUES('on
0c40: 65 27 2c 20 24 3a 3a 73 74 72 20 7c 7c 20 72 61  e', $::str || ra
0c50: 6e 64 73 74 72 28 35 30 30 2c 35 30 30 29 2c 20  ndstr(500,500), 
0c60: 34 35 29 3b 0a 20 20 20 20 20 20 43 4f 4d 4d 49  45);.      COMMI
0c70: 54 3b 0a 20 20 20 20 7d 0a 20 20 20 20 65 78 70  T;.    }.    exp
0c80: 72 20 5b 66 69 6c 65 20 73 69 7a 65 20 74 65 73  r [file size tes
0c90: 74 2e 64 62 5d 2f 31 30 32 34 0a 20 20 7d 20 5b  t.db]/1024.  } [
0ca0: 65 78 70 72 20 33 31 20 2b 20 24 41 75 74 6f 56  expr 31 + $AutoV
0cb0: 61 63 75 75 6d 4d 6f 64 65 5d 0a 0a 20 20 69 66  acuumMode]..  if
0cc0: 63 61 70 61 62 6c 65 20 61 75 74 6f 76 61 63 75  capable autovacu
0cd0: 75 6d 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74  um {.    do_test
0ce0: 20 69 6e 63 72 62 6c 6f 62 2d 32 2e 24 41 75 74   incrblob-2.$Aut
0cf0: 6f 56 61 63 75 75 6d 4d 6f 64 65 2e 32 20 7b 0a  oVacuumMode.2 {.
0d00: 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a        execsql {.
0d10: 20 20 20 20 20 20 20 20 50 52 41 47 4d 41 20 61          PRAGMA a
0d20: 75 74 6f 5f 76 61 63 75 75 6d 3b 0a 20 20 20 20  uto_vacuum;.    
0d30: 20 20 7d 0a 20 20 20 20 7d 20 24 41 75 74 6f 56    }.    } $AutoV
0d40: 61 63 75 75 6d 4d 6f 64 65 0a 20 20 7d 0a 0a 20  acuumMode.  }.. 
0d50: 20 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f   do_test incrblo
0d60: 62 2d 32 2e 24 41 75 74 6f 56 61 63 75 75 6d 4d  b-2.$AutoVacuumM
0d70: 6f 64 65 2e 33 20 7b 0a 20 20 20 20 23 20 4f 70  ode.3 {.    # Op
0d80: 65 6e 20 61 6e 64 20 63 6c 6f 73 65 20 74 68 65  en and close the
0d90: 20 64 62 20 74 6f 20 6d 61 6b 65 20 73 75 72 65   db to make sure
0da0: 20 74 68 65 20 70 61 67 65 20 63 61 63 68 65 20   the page cache 
0db0: 69 73 20 65 6d 70 74 79 2e 0a 20 20 20 20 64 62  is empty..    db
0dc0: 20 63 6c 6f 73 65 0a 20 20 20 20 73 71 6c 69 74   close.    sqlit
0dd0: 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20  e3 db test.db.  
0de0: 0a 20 20 20 20 23 20 52 65 61 64 20 74 68 65 20  .    # Read the 
0df0: 6c 61 73 74 20 32 30 20 62 79 74 65 73 20 6f 66  last 20 bytes of
0e00: 20 74 68 65 20 62 6c 6f 62 20 76 69 61 20 61 20   the blob via a 
0e10: 62 6c 6f 62 20 68 61 6e 64 6c 65 2e 0a 20 20 20  blob handle..   
0e20: 20 73 65 74 20 3a 3a 62 6c 6f 62 20 5b 64 62 20   set ::blob [db 
0e30: 69 6e 63 72 62 6c 6f 62 20 62 6c 6f 62 73 20 76  incrblob blobs v
0e40: 20 31 5d 0a 20 20 20 20 73 65 65 6b 20 24 3a 3a   1].    seek $::
0e50: 62 6c 6f 62 20 2d 32 30 20 65 6e 64 0a 20 20 20  blob -20 end.   
0e60: 20 73 65 74 20 3a 3a 66 72 61 67 6d 65 6e 74 20   set ::fragment 
0e70: 5b 72 65 61 64 20 24 3a 3a 62 6c 6f 62 5d 0a 20  [read $::blob]. 
0e80: 20 20 20 63 6c 6f 73 65 20 24 3a 3a 62 6c 6f 62     close $::blob
0e90: 0a 20 20 0a 20 20 20 20 23 20 49 66 20 74 68 65  .  .    # If the
0ea0: 20 64 61 74 61 62 61 73 65 20 69 73 20 6e 6f 74   database is not
0eb0: 20 69 6e 20 61 75 74 6f 2d 76 61 63 75 75 6d 20   in auto-vacuum 
0ec0: 6d 6f 64 65 2c 20 74 68 65 20 77 68 6f 6c 65 20  mode, the whole 
0ed0: 6f 66 0a 20 20 20 20 23 20 74 68 65 20 6f 76 65  of.    # the ove
0ee0: 72 66 6c 6f 77 2d 63 68 61 69 6e 20 6d 75 73 74  rflow-chain must
0ef0: 20 62 65 20 73 63 61 6e 6e 65 64 2e 20 49 6e 20   be scanned. In 
0f00: 61 75 74 6f 2d 76 61 63 75 75 6d 20 6d 6f 64 65  auto-vacuum mode
0f10: 2c 0a 20 20 20 20 23 20 73 71 6c 69 74 65 20 75  ,.    # sqlite u
0f20: 73 65 73 20 74 68 65 20 70 74 72 6d 61 70 20 70  ses the ptrmap p
0f30: 61 67 65 73 20 74 6f 20 61 76 6f 69 64 20 72 65  ages to avoid re
0f40: 61 64 69 6e 67 20 74 68 65 20 6f 74 68 65 72 20  ading the other 
0f50: 70 61 67 65 73 2e 0a 20 20 20 20 23 0a 20 20 20  pages..    #.   
0f60: 20 6e 52 65 61 64 20 64 62 0a 20 20 7d 20 5b 65   nRead db.  } [e
0f70: 78 70 72 20 24 41 75 74 6f 56 61 63 75 75 6d 4d  xpr $AutoVacuumM
0f80: 6f 64 65 20 3f 20 34 20 3a 20 33 30 5d 0a 0a 20  ode ? 4 : 30].. 
0f90: 20 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f   do_test incrblo
0fa0: 62 2d 32 2e 24 41 75 74 6f 56 61 63 75 75 6d 4d  b-2.$AutoVacuumM
0fb0: 6f 64 65 2e 34 20 7b 0a 20 20 20 20 73 74 72 69  ode.4 {.    stri
0fc0: 6e 67 20 72 61 6e 67 65 20 5b 64 62 20 6f 6e 65  ng range [db one
0fd0: 20 7b 53 45 4c 45 43 54 20 76 20 46 52 4f 4d 20   {SELECT v FROM 
0fe0: 62 6c 6f 62 73 7d 5d 20 65 6e 64 2d 31 39 20 65  blobs}] end-19 e
0ff0: 6e 64 0a 20 20 7d 20 24 3a 3a 66 72 61 67 6d 65  nd.  } $::fragme
1000: 6e 74 0a 0a 20 20 64 6f 5f 74 65 73 74 20 69 6e  nt..  do_test in
1010: 63 72 62 6c 6f 62 2d 32 2e 24 41 75 74 6f 56 61  crblob-2.$AutoVa
1020: 63 75 75 6d 4d 6f 64 65 2e 35 20 7b 0a 20 20 20  cuumMode.5 {.   
1030: 20 23 20 4f 70 65 6e 20 61 6e 64 20 63 6c 6f 73   # Open and clos
1040: 65 20 74 68 65 20 64 62 20 74 6f 20 6d 61 6b 65  e the db to make
1050: 20 73 75 72 65 20 74 68 65 20 70 61 67 65 20 63   sure the page c
1060: 61 63 68 65 20 69 73 20 65 6d 70 74 79 2e 0a 20  ache is empty.. 
1070: 20 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 20 20     db close.    
1080: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
1090: 64 62 0a 20 20 0a 20 20 20 20 23 20 57 72 69 74  db.  .    # Writ
10a0: 65 20 74 68 65 20 73 65 63 6f 6e 64 2d 74 6f 2d  e the second-to-
10b0: 6c 61 73 74 20 32 30 20 62 79 74 65 73 20 6f 66  last 20 bytes of
10c0: 20 74 68 65 20 62 6c 6f 62 20 76 69 61 20 61 20   the blob via a 
10d0: 62 6c 6f 62 20 68 61 6e 64 6c 65 2e 0a 20 20 20  blob handle..   
10e0: 20 23 0a 20 20 20 20 73 65 74 20 3a 3a 62 6c 6f   #.    set ::blo
10f0: 62 20 5b 64 62 20 69 6e 63 72 62 6c 6f 62 20 62  b [db incrblob b
1100: 6c 6f 62 73 20 76 20 31 5d 0a 20 20 20 20 73 65  lobs v 1].    se
1110: 65 6b 20 24 3a 3a 62 6c 6f 62 20 2d 34 30 20 65  ek $::blob -40 e
1120: 6e 64 0a 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e  nd.    puts -non
1130: 65 77 6c 69 6e 65 20 24 3a 3a 62 6c 6f 62 20 22  ewline $::blob "
1140: 31 32 33 34 35 36 37 38 39 30 61 62 63 64 65 66  1234567890abcdef
1150: 67 68 69 6a 22 0a 20 20 20 20 66 6c 75 73 68 20  ghij".    flush 
1160: 24 3a 3a 62 6c 6f 62 0a 20 20 0a 20 20 20 20 23  $::blob.  .    #
1170: 20 49 66 20 74 68 65 20 64 61 74 61 62 61 73 65   If the database
1180: 20 69 73 20 6e 6f 74 20 69 6e 20 61 75 74 6f 2d   is not in auto-
1190: 76 61 63 75 75 6d 20 6d 6f 64 65 2c 20 74 68 65  vacuum mode, the
11a0: 20 77 68 6f 6c 65 20 6f 66 0a 20 20 20 20 23 20   whole of.    # 
11b0: 74 68 65 20 6f 76 65 72 66 6c 6f 77 2d 63 68 61  the overflow-cha
11c0: 69 6e 20 6d 75 73 74 20 62 65 20 73 63 61 6e 6e  in must be scann
11d0: 65 64 2e 20 49 6e 20 61 75 74 6f 2d 76 61 63 75  ed. In auto-vacu
11e0: 75 6d 20 6d 6f 64 65 2c 0a 20 20 20 20 23 20 73  um mode,.    # s
11f0: 71 6c 69 74 65 20 75 73 65 73 20 74 68 65 20 70  qlite uses the p
1200: 74 72 6d 61 70 20 70 61 67 65 73 20 74 6f 20 61  trmap pages to a
1210: 76 6f 69 64 20 72 65 61 64 69 6e 67 20 74 68 65  void reading the
1220: 20 6f 74 68 65 72 20 70 61 67 65 73 2e 0a 20 20   other pages..  
1230: 20 20 23 0a 20 20 20 20 6e 52 65 61 64 20 64 62    #.    nRead db
1240: 0a 20 20 7d 20 5b 65 78 70 72 20 24 41 75 74 6f  .  } [expr $Auto
1250: 56 61 63 75 75 6d 4d 6f 64 65 20 3f 20 34 20 3a  VacuumMode ? 4 :
1260: 20 33 30 5d 0a 0a 20 20 23 20 50 61 67 65 73 20   30]..  # Pages 
1270: 31 20 28 74 68 65 20 77 72 69 74 65 2d 63 6f 75  1 (the write-cou
1280: 6e 74 65 72 29 20 61 6e 64 20 33 32 20 28 74 68  nter) and 32 (th
1290: 65 20 62 6c 6f 62 20 64 61 74 61 29 20 77 65 72  e blob data) wer
12a0: 65 20 77 72 69 74 74 65 6e 2e 0a 20 20 64 6f 5f  e written..  do_
12b0: 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 32 2e  test incrblob-2.
12c0: 24 41 75 74 6f 56 61 63 75 75 6d 4d 6f 64 65 2e  $AutoVacuumMode.
12d0: 36 20 7b 0a 20 20 20 20 63 6c 6f 73 65 20 24 3a  6 {.    close $:
12e0: 3a 62 6c 6f 62 0a 20 20 20 20 6e 57 72 69 74 65  :blob.    nWrite
12f0: 20 64 62 0a 20 20 7d 20 32 0a 0a 20 20 64 6f 5f   db.  } 2..  do_
1300: 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 32 2e  test incrblob-2.
1310: 24 41 75 74 6f 56 61 63 75 75 6d 4d 6f 64 65 2e  $AutoVacuumMode.
1320: 37 20 7b 0a 20 20 20 20 73 74 72 69 6e 67 20 72  7 {.    string r
1330: 61 6e 67 65 20 5b 64 62 20 6f 6e 65 20 7b 53 45  ange [db one {SE
1340: 4c 45 43 54 20 76 20 46 52 4f 4d 20 62 6c 6f 62  LECT v FROM blob
1350: 73 7d 5d 20 65 6e 64 2d 33 39 20 65 6e 64 2d 32  s}] end-39 end-2
1360: 30 0a 20 20 7d 20 22 31 32 33 34 35 36 37 38 39  0.  } "123456789
1370: 30 61 62 63 64 65 66 67 68 69 6a 22 0a 0a 20 20  0abcdefghij"..  
1380: 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62  do_test incrblob
1390: 2d 32 2e 24 41 75 74 6f 56 61 63 75 75 6d 4d 6f  -2.$AutoVacuumMo
13a0: 64 65 2e 38 20 7b 0a 20 20 20 20 23 20 4f 70 65  de.8 {.    # Ope
13b0: 6e 20 61 6e 64 20 63 6c 6f 73 65 20 74 68 65 20  n and close the 
13c0: 64 62 20 74 6f 20 6d 61 6b 65 20 73 75 72 65 20  db to make sure 
13d0: 74 68 65 20 70 61 67 65 20 63 61 63 68 65 20 69  the page cache i
13e0: 73 20 65 6d 70 74 79 2e 0a 20 20 20 20 64 62 20  s empty..    db 
13f0: 63 6c 6f 73 65 0a 20 20 20 20 73 71 6c 69 74 65  close.    sqlite
1400: 33 20 64 62 20 74 65 73 74 2e 64 62 0a 0a 20 20  3 db test.db..  
1410: 20 20 65 78 65 63 73 71 6c 20 7b 20 53 45 4c 45    execsql { SELE
1420: 43 54 20 69 20 46 52 4f 4d 20 62 6c 6f 62 73 20  CT i FROM blobs 
1430: 7d 20 0a 20 20 7d 20 7b 34 35 7d 0a 0a 20 20 64  } .  } {45}..  d
1440: 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d  o_test incrblob-
1450: 32 2e 24 41 75 74 6f 56 61 63 75 75 6d 4d 6f 64  2.$AutoVacuumMod
1460: 65 2e 39 20 7b 0a 20 20 20 20 6e 52 65 61 64 20  e.9 {.    nRead 
1470: 64 62 0a 20 20 7d 20 5b 65 78 70 72 20 24 41 75  db.  } [expr $Au
1480: 74 6f 56 61 63 75 75 6d 4d 6f 64 65 20 3f 20 34  toVacuumMode ? 4
1490: 20 3a 20 33 30 5d 0a 7d 0a 73 71 6c 69 74 65 33   : 30].}.sqlite3
14a0: 5f 73 6f 66 74 5f 68 65 61 70 5f 6c 69 6d 69 74  _soft_heap_limit
14b0: 20 24 73 6f 66 74 5f 6c 69 6d 69 74 0a 0a 23 2d   $soft_limit..#-
14c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
14d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 69 6e 63 72 62 6c  -------.# incrbl
1510: 6f 62 2d 33 2e 2a 3a 20 0a 23 0a 23 20 54 65 73  ob-3.*: .#.# Tes
1520: 74 20 74 68 65 20 6f 75 74 63 6f 6d 65 20 6f 66  t the outcome of
1530: 20 74 72 79 69 6e 67 20 74 6f 20 77 72 69 74 65   trying to write
1540: 20 74 6f 20 61 20 72 65 61 64 2d 6f 6e 6c 79 20   to a read-only 
1550: 62 6c 6f 62 20 68 61 6e 64 6c 65 2e 0a 23 0a 64  blob handle..#.d
1560: 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d  o_test incrblob-
1570: 33 2e 31 20 7b 0a 20 20 73 65 74 20 3a 3a 62 6c  3.1 {.  set ::bl
1580: 6f 62 20 5b 64 62 20 69 6e 63 72 62 6c 6f 62 20  ob [db incrblob 
1590: 2d 72 65 61 64 6f 6e 6c 79 20 62 6c 6f 62 73 20  -readonly blobs 
15a0: 76 20 31 5d 0a 20 20 73 65 65 6b 20 24 3a 3a 62  v 1].  seek $::b
15b0: 6c 6f 62 20 2d 34 30 20 65 6e 64 0a 20 20 72 65  lob -40 end.  re
15c0: 61 64 20 24 3a 3a 62 6c 6f 62 20 32 30 0a 7d 20  ad $::blob 20.} 
15d0: 22 31 32 33 34 35 36 37 38 39 30 61 62 63 64 65  "1234567890abcde
15e0: 66 67 68 69 6a 22 0a 64 6f 5f 74 65 73 74 20 69  fghij".do_test i
15f0: 6e 63 72 62 6c 6f 62 2d 33 2e 32 20 7b 0a 20 20  ncrblob-3.2 {.  
1600: 73 65 65 6b 20 24 3a 3a 62 6c 6f 62 20 30 0a 20  seek $::blob 0. 
1610: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
1620: 0a 20 20 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77  .    puts -nonew
1630: 6c 69 6e 65 20 24 3a 3a 62 6c 6f 62 20 22 68 65  line $::blob "he
1640: 6c 6c 6f 77 6f 72 6c 64 22 0a 20 20 7d 20 6d 73  lloworld".  } ms
1650: 67 5d 0a 20 20 63 6c 6f 73 65 20 24 3a 3a 62 6c  g].  close $::bl
1660: 6f 62 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d  ob.  list $rc $m
1670: 73 67 0a 7d 20 22 31 20 7b 63 68 61 6e 6e 65 6c  sg.} "1 {channel
1680: 20 5c 22 24 3a 3a 62 6c 6f 62 5c 22 20 77 61 73   \"$::blob\" was
1690: 6e 27 74 20 6f 70 65 6e 65 64 20 66 6f 72 20 77  n't opened for w
16a0: 72 69 74 69 6e 67 7d 22 0a 0a 64 6f 5f 74 65 73  riting}"..do_tes
16b0: 74 20 69 6e 63 72 62 6c 6f 62 2d 33 2e 33 20 7b  t incrblob-3.3 {
16c0: 0a 20 20 73 65 74 20 3a 3a 62 6c 6f 62 20 5b 64  .  set ::blob [d
16d0: 62 20 69 6e 63 72 62 6c 6f 62 20 2d 72 65 61 64  b incrblob -read
16e0: 6f 6e 6c 79 20 62 6c 6f 62 73 20 76 20 31 5d 0a  only blobs v 1].
16f0: 20 20 73 65 65 6b 20 24 3a 3a 62 6c 6f 62 20 2d    seek $::blob -
1700: 34 30 20 65 6e 64 0a 20 20 72 65 61 64 20 24 3a  40 end.  read $:
1710: 3a 62 6c 6f 62 20 32 30 0a 7d 20 22 31 32 33 34  :blob 20.} "1234
1720: 35 36 37 38 39 30 61 62 63 64 65 66 67 68 69 6a  567890abcdefghij
1730: 22 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c  ".do_test incrbl
1740: 6f 62 2d 33 2e 34 20 7b 0a 20 20 73 65 74 20 72  ob-3.4 {.  set r
1750: 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 73  c [catch {.    s
1760: 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 74  qlite3_blob_writ
1770: 65 20 24 3a 3a 62 6c 6f 62 20 32 30 20 22 71 77  e $::blob 20 "qw
1780: 65 72 74 79 75 69 6f 70 6c 6b 6a 68 67 66 64 73  ertyuioplkjhgfds
1790: 22 20 0a 20 20 7d 20 6d 73 67 5d 0a 20 20 6c 69  " .  } msg].  li
17a0: 73 74 20 24 72 63 20 24 6d 73 67 0a 7d 20 7b 31  st $rc $msg.} {1
17b0: 20 53 51 4c 49 54 45 5f 52 45 41 44 4f 4e 4c 59   SQLITE_READONLY
17c0: 7d 0a 63 61 74 63 68 20 7b 63 6c 6f 73 65 20 24  }.catch {close $
17d0: 3a 3a 62 6c 6f 62 7d 0a 0a 23 2d 2d 2d 2d 2d 2d  ::blob}..#------
17e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
17f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1820: 2d 2d 0a 23 20 69 6e 63 72 62 6c 6f 62 2d 34 2e  --.# incrblob-4.
1830: 2a 3a 20 0a 23 0a 23 20 54 72 79 20 61 20 63 6f  *: .#.# Try a co
1840: 75 70 6c 65 20 6f 66 20 65 72 72 6f 72 20 63 6f  uple of error co
1850: 6e 64 69 74 69 6f 6e 73 3a 0a 23 0a 23 20 20 20  nditions:.#.#   
1860: 20 20 34 2e 31 20 2d 20 41 74 74 65 6d 70 74 20    4.1 - Attempt 
1870: 74 6f 20 6f 70 65 6e 20 61 20 72 6f 77 20 74 68  to open a row th
1880: 61 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73  at does not exis
1890: 74 2e 0a 23 20 20 20 20 20 34 2e 32 20 2d 20 41  t..#     4.2 - A
18a0: 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e 20 61  ttempt to open a
18b0: 20 63 6f 6c 75 6d 6e 20 74 68 61 74 20 64 6f 65   column that doe
18c0: 73 20 6e 6f 74 20 65 78 69 73 74 2e 0a 23 20 20  s not exist..#  
18d0: 20 20 20 34 2e 33 20 2d 20 41 74 74 65 6d 70 74     4.3 - Attempt
18e0: 20 74 6f 20 6f 70 65 6e 20 61 20 74 61 62 6c 65   to open a table
18f0: 20 74 68 61 74 20 64 6f 65 73 20 6e 6f 74 20 65   that does not e
1900: 78 69 73 74 2e 0a 23 20 20 20 20 20 34 2e 34 20  xist..#     4.4 
1910: 2d 20 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 65  - Attempt to ope
1920: 6e 20 61 20 64 61 74 61 62 61 73 65 20 74 68 61  n a database tha
1930: 74 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74  t does not exist
1940: 2e 0a 23 0a 23 20 20 20 20 20 34 2e 35 20 2d 20  ..#.#     4.5 - 
1950: 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e 20  Attempt to open 
1960: 61 6e 20 69 6e 74 65 67 65 72 0a 23 20 20 20 20  an integer.#    
1970: 20 34 2e 36 20 2d 20 41 74 74 65 6d 70 74 20 74   4.6 - Attempt t
1980: 6f 20 6f 70 65 6e 20 61 20 72 65 61 6c 20 76 61  o open a real va
1990: 6c 75 65 0a 23 20 20 20 20 20 34 2e 37 20 2d 20  lue.#     4.7 - 
19a0: 41 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e 20  Attempt to open 
19b0: 61 6e 20 53 51 4c 20 6e 75 6c 6c 0a 23 0a 23 20  an SQL null.#.# 
19c0: 20 20 20 20 34 2e 38 20 2d 20 41 74 74 65 6d 70      4.8 - Attemp
19d0: 74 20 74 6f 20 6f 70 65 6e 20 61 6e 20 69 6e 64  t to open an ind
19e0: 65 78 65 64 20 63 6f 6c 75 6d 6e 20 66 6f 72 20  exed column for 
19f0: 77 72 69 74 69 6e 67 0a 23 20 20 20 20 20 34 2e  writing.#     4.
1a00: 39 20 2d 20 41 74 74 65 6d 70 74 20 74 6f 20 6f  9 - Attempt to o
1a10: 70 65 6e 20 61 6e 20 69 6e 64 65 78 65 64 20 63  pen an indexed c
1a20: 6f 6c 75 6d 6e 20 66 6f 72 20 72 65 61 64 69 6e  olumn for readin
1a30: 67 20 28 74 68 69 73 20 77 6f 72 6b 73 29 0a 23  g (this works).#
1a40: 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f  .do_test incrblo
1a50: 62 2d 34 2e 31 20 7b 0a 20 20 73 65 74 20 72 63  b-4.1 {.  set rc
1a60: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 73 65   [catch {.    se
1a70: 74 20 3a 3a 62 6c 6f 62 20 5b 64 62 20 69 6e 63  t ::blob [db inc
1a80: 72 62 6c 6f 62 20 62 6c 6f 62 73 20 76 20 32 5d  rblob blobs v 2]
1a90: 0a 20 20 7d 20 6d 73 67 20 5d 20 0a 20 20 6c 69  .  } msg ] .  li
1aa0: 73 74 20 24 72 63 20 24 6d 73 67 0a 7d 20 7b 31  st $rc $msg.} {1
1ab0: 20 7b 6e 6f 20 73 75 63 68 20 72 6f 77 69 64 3a   {no such rowid:
1ac0: 20 32 7d 7d 0a 64 6f 5f 74 65 73 74 20 69 6e 63   2}}.do_test inc
1ad0: 72 62 6c 6f 62 2d 34 2e 32 20 7b 0a 20 20 73 65  rblob-4.2 {.  se
1ae0: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20  t rc [catch {.  
1af0: 20 20 73 65 74 20 3a 3a 62 6c 6f 62 20 5b 64 62    set ::blob [db
1b00: 20 69 6e 63 72 62 6c 6f 62 20 62 6c 6f 62 73 20   incrblob blobs 
1b10: 62 6c 75 65 20 31 5d 0a 20 20 7d 20 6d 73 67 20  blue 1].  } msg 
1b20: 5d 20 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d  ] .  list $rc $m
1b30: 73 67 0a 7d 20 7b 31 20 7b 6e 6f 20 73 75 63 68  sg.} {1 {no such
1b40: 20 63 6f 6c 75 6d 6e 3a 20 22 62 6c 75 65 22 7d   column: "blue"}
1b50: 7d 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c  }.do_test incrbl
1b60: 6f 62 2d 34 2e 33 20 7b 0a 20 20 73 65 74 20 72  ob-4.3 {.  set r
1b70: 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 73  c [catch {.    s
1b80: 65 74 20 3a 3a 62 6c 6f 62 20 5b 64 62 20 69 6e  et ::blob [db in
1b90: 63 72 62 6c 6f 62 20 6e 6f 73 75 63 68 74 61 62  crblob nosuchtab
1ba0: 6c 65 20 62 6c 75 65 20 31 5d 0a 20 20 7d 20 6d  le blue 1].  } m
1bb0: 73 67 20 5d 0a 20 20 6c 69 73 74 20 24 72 63 20  sg ].  list $rc 
1bc0: 24 6d 73 67 0a 7d 20 7b 31 20 7b 6e 6f 20 73 75  $msg.} {1 {no su
1bd0: 63 68 20 74 61 62 6c 65 3a 20 6d 61 69 6e 2e 6e  ch table: main.n
1be0: 6f 73 75 63 68 74 61 62 6c 65 7d 7d 0a 64 6f 5f  osuchtable}}.do_
1bf0: 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 34 2e  test incrblob-4.
1c00: 34 20 7b 0a 20 20 73 65 74 20 72 63 20 5b 63 61  4 {.  set rc [ca
1c10: 74 63 68 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a  tch {.    set ::
1c20: 62 6c 6f 62 20 5b 64 62 20 69 6e 63 72 62 6c 6f  blob [db incrblo
1c30: 62 20 6e 6f 73 75 63 68 64 62 20 62 6c 6f 62 73  b nosuchdb blobs
1c40: 20 76 20 31 5d 0a 20 20 7d 20 6d 73 67 20 5d 20   v 1].  } msg ] 
1c50: 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d 73 67  .  list $rc $msg
1c60: 0a 7d 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20 74  .} {1 {no such t
1c70: 61 62 6c 65 3a 20 6e 6f 73 75 63 68 64 62 2e 62  able: nosuchdb.b
1c80: 6c 6f 62 73 7d 7d 0a 0a 64 6f 5f 74 65 73 74 20  lobs}}..do_test 
1c90: 69 6e 63 72 62 6c 6f 62 2d 34 2e 35 20 7b 0a 20  incrblob-4.5 {. 
1ca0: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
1cb0: 0a 20 20 20 20 73 65 74 20 3a 3a 62 6c 6f 62 20  .    set ::blob 
1cc0: 5b 64 62 20 69 6e 63 72 62 6c 6f 62 20 62 6c 6f  [db incrblob blo
1cd0: 62 73 20 69 20 31 5d 0a 20 20 7d 20 6d 73 67 20  bs i 1].  } msg 
1ce0: 5d 20 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d  ] .  list $rc $m
1cf0: 73 67 0a 7d 20 7b 31 20 7b 63 61 6e 6e 6f 74 20  sg.} {1 {cannot 
1d00: 6f 70 65 6e 20 76 61 6c 75 65 20 6f 66 20 74 79  open value of ty
1d10: 70 65 20 69 6e 74 65 67 65 72 7d 7d 0a 64 6f 5f  pe integer}}.do_
1d20: 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 34 2e  test incrblob-4.
1d30: 36 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  6 {.  execsql {.
1d40: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1d50: 62 6c 6f 62 73 28 6b 2c 20 76 2c 20 69 29 20 56  blobs(k, v, i) V
1d60: 41 4c 55 45 53 28 31 32 33 2c 20 35 36 37 2e 37  ALUES(123, 567.7
1d70: 36 35 2c 20 4e 55 4c 4c 29 3b 0a 20 20 7d 0a 20  65, NULL);.  }. 
1d80: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
1d90: 0a 20 20 20 20 73 65 74 20 3a 3a 62 6c 6f 62 20  .    set ::blob 
1da0: 5b 64 62 20 69 6e 63 72 62 6c 6f 62 20 62 6c 6f  [db incrblob blo
1db0: 62 73 20 76 20 32 5d 0a 20 20 7d 20 6d 73 67 20  bs v 2].  } msg 
1dc0: 5d 20 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d  ] .  list $rc $m
1dd0: 73 67 0a 7d 20 7b 31 20 7b 63 61 6e 6e 6f 74 20  sg.} {1 {cannot 
1de0: 6f 70 65 6e 20 76 61 6c 75 65 20 6f 66 20 74 79  open value of ty
1df0: 70 65 20 72 65 61 6c 7d 7d 0a 64 6f 5f 74 65 73  pe real}}.do_tes
1e00: 74 20 69 6e 63 72 62 6c 6f 62 2d 34 2e 37 20 7b  t incrblob-4.7 {
1e10: 0a 20 20 73 65 74 20 72 63 20 5b 63 61 74 63 68  .  set rc [catch
1e20: 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 62 6c 6f   {.    set ::blo
1e30: 62 20 5b 64 62 20 69 6e 63 72 62 6c 6f 62 20 62  b [db incrblob b
1e40: 6c 6f 62 73 20 69 20 32 5d 0a 20 20 7d 20 6d 73  lobs i 2].  } ms
1e50: 67 20 5d 20 0a 20 20 6c 69 73 74 20 24 72 63 20  g ] .  list $rc 
1e60: 24 6d 73 67 0a 7d 20 7b 31 20 7b 63 61 6e 6e 6f  $msg.} {1 {canno
1e70: 74 20 6f 70 65 6e 20 76 61 6c 75 65 20 6f 66 20  t open value of 
1e80: 74 79 70 65 20 6e 75 6c 6c 7d 7d 0a 0a 64 6f 5f  type null}}..do_
1e90: 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 34 2e  test incrblob-4.
1ea0: 38 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  8 {.  execsql {.
1eb0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1ec0: 62 6c 6f 62 73 28 6b 2c 20 76 2c 20 69 29 20 56  blobs(k, v, i) V
1ed0: 41 4c 55 45 53 28 58 27 30 31 30 32 30 33 30 34  ALUES(X'01020304
1ee0: 30 35 30 36 30 37 30 38 30 39 27 2c 20 27 68 65  0506070809', 'he
1ef0: 6c 6c 6f 27 2c 20 27 77 6f 72 6c 64 27 29 3b 0a  llo', 'world');.
1f00: 20 20 7d 0a 20 20 73 65 74 20 72 63 20 5b 63 61    }.  set rc [ca
1f10: 74 63 68 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a  tch {.    set ::
1f20: 62 6c 6f 62 20 5b 64 62 20 69 6e 63 72 62 6c 6f  blob [db incrblo
1f30: 62 20 62 6c 6f 62 73 20 6b 20 33 5d 0a 20 20 7d  b blobs k 3].  }
1f40: 20 6d 73 67 20 5d 20 0a 20 20 6c 69 73 74 20 24   msg ] .  list $
1f50: 72 63 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 63 61  rc $msg.} {1 {ca
1f60: 6e 6e 6f 74 20 6f 70 65 6e 20 69 6e 64 65 78 65  nnot open indexe
1f70: 64 20 63 6f 6c 75 6d 6e 20 66 6f 72 20 77 72 69  d column for wri
1f80: 74 69 6e 67 7d 7d 0a 0a 64 6f 5f 74 65 73 74 20  ting}}..do_test 
1f90: 69 6e 63 72 62 6c 6f 62 2d 34 2e 39 2e 31 20 7b  incrblob-4.9.1 {
1fa0: 0a 20 20 73 65 74 20 72 63 20 5b 63 61 74 63 68  .  set rc [catch
1fb0: 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 62 6c 6f   {.    set ::blo
1fc0: 62 20 5b 64 62 20 69 6e 63 72 62 6c 6f 62 20 2d  b [db incrblob -
1fd0: 72 65 61 64 6f 6e 6c 79 20 62 6c 6f 62 73 20 6b  readonly blobs k
1fe0: 20 33 5d 0a 20 20 7d 20 6d 73 67 5d 0a 7d 20 7b   3].  } msg].} {
1ff0: 30 7d 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62  0}.do_test incrb
2000: 6c 6f 62 2d 34 2e 39 2e 32 20 7b 0a 20 20 62 69  lob-4.9.2 {.  bi
2010: 6e 61 72 79 20 73 63 61 6e 20 5b 72 65 61 64 20  nary scan [read 
2020: 24 3a 3a 62 6c 6f 62 5d 20 63 2a 20 63 0a 20 20  $::blob] c* c.  
2030: 63 6c 6f 73 65 20 24 3a 3a 62 6c 6f 62 0a 20 20  close $::blob.  
2040: 73 65 74 20 63 0a 7d 20 7b 31 20 32 20 33 20 34  set c.} {1 2 3 4
2050: 20 35 20 36 20 37 20 38 20 39 7d 0a 0a 23 2d 2d   5 6 7 8 9}..#--
2060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
20a0: 2d 2d 2d 2d 2d 2d 0a 23 20 69 6e 63 72 62 6c 6f  ------.# incrblo
20b0: 62 2d 35 2e 2a 3a 20 0a 23 0a 23 20 20 20 20 20  b-5.*: .#.#     
20c0: 54 65 73 74 20 74 68 61 74 20 6f 70 65 6e 69 6e  Test that openin
20d0: 67 20 61 20 62 6c 6f 62 20 69 6e 20 61 6e 20 61  g a blob in an a
20e0: 74 74 61 63 68 65 64 20 64 61 74 61 62 61 73 65  ttached database
20f0: 20 77 6f 72 6b 73 2e 0a 23 0a 64 6f 5f 74 65 73   works..#.do_tes
2100: 74 20 69 6e 63 72 62 6c 6f 62 2d 35 2e 31 20 7b  t incrblob-5.1 {
2110: 0a 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d  .  file delete -
2120: 66 6f 72 63 65 20 74 65 73 74 32 2e 64 62 20 74  force test2.db t
2130: 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a  est2.db-journal.
2140: 20 20 73 65 74 20 3a 3a 73 69 7a 65 20 5b 65 78    set ::size [ex
2150: 70 72 20 5b 66 69 6c 65 20 73 69 7a 65 20 5b 69  pr [file size [i
2160: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 0a 20 20  nfo script]]].  
2170: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 41 54  execsql {.    AT
2180: 54 41 43 48 20 27 74 65 73 74 32 2e 64 62 27 20  TACH 'test2.db' 
2190: 41 53 20 61 75 78 3b 0a 20 20 20 20 43 52 45 41  AS aux;.    CREA
21a0: 54 45 20 54 41 42 4c 45 20 61 75 78 2e 66 69 6c  TE TABLE aux.fil
21b0: 65 73 28 6e 61 6d 65 2c 20 74 65 78 74 29 3b 0a  es(name, text);.
21c0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
21d0: 61 75 78 2e 66 69 6c 65 73 20 56 41 4c 55 45 53  aux.files VALUES
21e0: 28 27 74 68 69 73 20 6f 6e 65 27 2c 20 7a 65 72  ('this one', zer
21f0: 6f 62 6c 6f 62 28 24 3a 3a 73 69 7a 65 29 29 3b  oblob($::size));
2200: 0a 20 20 7d 0a 20 20 73 65 74 20 66 64 20 20 5b  .  }.  set fd  [
2210: 64 62 20 69 6e 63 72 62 6c 6f 62 20 61 75 78 20  db incrblob aux 
2220: 66 69 6c 65 73 20 74 65 78 74 20 31 5d 0a 20 20  files text 1].  
2230: 73 65 74 20 66 64 32 20 5b 6f 70 65 6e 20 5b 69  set fd2 [open [i
2240: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 0a 20 20 70  nfo script]].  p
2250: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24  uts -nonewline $
2260: 66 64 20 5b 72 65 61 64 20 24 66 64 32 5d 0a 20  fd [read $fd2]. 
2270: 20 63 6c 6f 73 65 20 24 66 64 0a 20 20 63 6c 6f   close $fd.  clo
2280: 73 65 20 24 66 64 32 0a 20 20 73 65 74 20 3a 3a  se $fd2.  set ::
2290: 74 65 78 74 20 5b 64 62 20 6f 6e 65 20 7b 73 65  text [db one {se
22a0: 6c 65 63 74 20 74 65 78 74 20 66 72 6f 6d 20 61  lect text from a
22b0: 75 78 2e 66 69 6c 65 73 7d 5d 0a 20 20 73 74 72  ux.files}].  str
22c0: 69 6e 67 20 6c 65 6e 67 74 68 20 24 3a 3a 74 65  ing length $::te
22d0: 78 74 0a 7d 20 5b 66 69 6c 65 20 73 69 7a 65 20  xt.} [file size 
22e0: 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 0a 64  [info script]].d
22f0: 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d  o_test incrblob-
2300: 35 2e 32 20 7b 0a 20 20 73 65 74 20 66 64 32 20  5.2 {.  set fd2 
2310: 5b 6f 70 65 6e 20 5b 69 6e 66 6f 20 73 63 72 69  [open [info scri
2320: 70 74 5d 5d 0a 20 20 73 65 74 20 3a 3a 64 61 74  pt]].  set ::dat
2330: 61 20 5b 72 65 61 64 20 24 66 64 32 5d 0a 20 20  a [read $fd2].  
2340: 63 6c 6f 73 65 20 24 66 64 32 0a 20 20 73 65 74  close $fd2.  set
2350: 20 3a 3a 64 61 74 61 0a 7d 20 24 3a 3a 74 65 78   ::data.} $::tex
2360: 74 0a 0a 23 20 66 72 65 65 20 6d 65 6d 6f 72 79  t..# free memory
2370: 0a 75 6e 73 65 74 20 3a 3a 64 61 74 61 0a 75 6e  .unset ::data.un
2380: 73 65 74 20 3a 3a 74 65 78 74 0a 0a 23 2d 2d 2d  set ::text..#---
2390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
23a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
23b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
23c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
23d0: 2d 2d 2d 2d 2d 0a 23 20 69 6e 63 72 62 6c 6f 62  -----.# incrblob
23e0: 2d 36 2e 2a 3a 20 0a 23 0a 23 20 20 20 20 20 54  -6.*: .#.#     T
23f0: 65 73 74 20 74 68 61 74 20 6f 70 65 6e 69 6e 67  est that opening
2400: 20 61 20 62 6c 6f 62 20 66 6f 72 20 77 72 69 74   a blob for writ
2410: 65 2d 61 63 63 65 73 73 20 69 73 20 69 6d 70 6f  e-access is impo
2420: 73 73 69 62 6c 65 20 69 66 0a 23 20 20 20 20 20  ssible if.#     
2430: 61 6e 6f 74 68 65 72 20 63 6f 6e 6e 65 63 74 69  another connecti
2440: 6f 6e 20 68 61 73 20 74 68 65 20 64 61 74 61 62  on has the datab
2450: 61 73 65 20 52 45 53 45 52 56 45 44 20 6c 6f 63  ase RESERVED loc
2460: 6b 2e 0a 23 0a 23 20 20 20 20 20 54 68 65 6e 20  k..#.#     Then 
2470: 74 65 73 74 20 74 68 61 74 20 62 6c 6f 62 20 77  test that blob w
2480: 72 69 74 65 73 20 74 68 61 74 20 74 61 6b 65 20  rites that take 
2490: 70 6c 61 63 65 20 69 6e 73 69 64 65 20 6f 66 20  place inside of 
24a0: 61 0a 23 20 20 20 20 20 74 72 61 6e 73 61 63 74  a.#     transact
24b0: 69 6f 6e 20 61 72 65 20 6e 6f 74 20 76 69 73 69  ion are not visi
24c0: 62 6c 65 20 74 6f 20 65 78 74 65 72 6e 61 6c 20  ble to external 
24d0: 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 75 6e 74 69  connections unti
24e0: 6c 0a 23 20 20 20 20 20 61 66 74 65 72 20 74 68  l.#     after th
24f0: 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73  e transaction is
2500: 20 63 6f 6d 6d 69 74 65 64 20 61 6e 64 20 74 68   commited and th
2510: 65 20 62 6c 6f 62 20 63 68 61 6e 6e 65 6c 20 0a  e blob channel .
2520: 23 20 20 20 20 20 63 6c 6f 73 65 64 2e 0a 23 0a  #     closed..#.
2530: 73 71 6c 69 74 65 33 5f 73 6f 66 74 5f 68 65 61  sqlite3_soft_hea
2540: 70 5f 6c 69 6d 69 74 20 30 0a 64 6f 5f 74 65 73  p_limit 0.do_tes
2550: 74 20 69 6e 63 72 62 6c 6f 62 2d 36 2e 31 20 7b  t incrblob-6.1 {
2560: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32 20 74  .  sqlite3 db2 t
2570: 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c  est.db.  execsql
2580: 20 7b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20 20   {.    BEGIN;.  
2590: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 62 6c    INSERT INTO bl
25a0: 6f 62 73 28 6b 2c 20 76 2c 20 69 29 20 56 41 4c  obs(k, v, i) VAL
25b0: 55 45 53 28 27 61 27 2c 20 27 64 69 66 66 65 72  UES('a', 'differ
25c0: 65 6e 74 27 2c 20 27 63 6f 6e 6e 65 63 74 69 6f  ent', 'connectio
25d0: 6e 27 29 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b  n');.  } db2.} {
25e0: 7d 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c  }.do_test incrbl
25f0: 6f 62 2d 36 2e 32 20 7b 0a 20 20 65 78 65 63 73  ob-6.2 {.  execs
2600: 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20  ql {.    SELECT 
2610: 72 6f 77 69 64 20 46 52 4f 4d 20 62 6c 6f 62 73  rowid FROM blobs
2620: 0a 20 20 7d 0a 7d 20 7b 31 20 32 20 33 7d 0a 64  .  }.} {1 2 3}.d
2630: 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d  o_test incrblob-
2640: 36 2e 33 20 7b 0a 20 20 73 65 74 20 72 63 20 5b  6.3 {.  set rc [
2650: 63 61 74 63 68 20 7b 0a 20 20 20 20 64 62 20 69  catch {.    db i
2660: 6e 63 72 62 6c 6f 62 20 62 6c 6f 62 73 20 76 20  ncrblob blobs v 
2670: 31 0a 20 20 7d 20 6d 73 67 5d 0a 20 20 6c 69 73  1.  } msg].  lis
2680: 74 20 24 72 63 20 24 6d 73 67 0a 7d 20 7b 31 20  t $rc $msg.} {1 
2690: 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63  {database is loc
26a0: 6b 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 69 6e  ked}}.do_test in
26b0: 63 72 62 6c 6f 62 2d 36 2e 34 20 7b 0a 20 20 73  crblob-6.4 {.  s
26c0: 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a 20  et rc [catch {. 
26d0: 20 20 20 64 62 20 69 6e 63 72 62 6c 6f 62 20 62     db incrblob b
26e0: 6c 6f 62 73 20 76 20 33 0a 20 20 7d 20 6d 73 67  lobs v 3.  } msg
26f0: 5d 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d 73  ].  list $rc $ms
2700: 67 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65  g.} {1 {database
2710: 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64 6f 5f   is locked}}.do_
2720: 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 36 2e  test incrblob-6.
2730: 35 20 7b 0a 20 20 73 65 74 20 3a 3a 62 6c 6f 62  5 {.  set ::blob
2740: 20 5b 64 62 20 69 6e 63 72 62 6c 6f 62 20 2d 72   [db incrblob -r
2750: 65 61 64 6f 6e 6c 79 20 62 6c 6f 62 73 20 76 20  eadonly blobs v 
2760: 33 5d 0a 20 20 72 65 61 64 20 24 3a 3a 62 6c 6f  3].  read $::blo
2770: 62 0a 7d 20 7b 68 65 6c 6c 6f 7d 0a 64 6f 5f 74  b.} {hello}.do_t
2780: 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 36 2e 36  est incrblob-6.6
2790: 20 7b 0a 20 20 63 6c 6f 73 65 20 24 3a 3a 62 6c   {.  close $::bl
27a0: 6f 62 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74 65 73 74  ob.} {}..do_test
27b0: 20 69 6e 63 72 62 6c 6f 62 2d 36 2e 37 20 7b 0a   incrblob-6.7 {.
27c0: 20 20 73 65 74 20 3a 3a 62 6c 6f 62 20 5b 64 62    set ::blob [db
27d0: 32 20 69 6e 63 72 62 6c 6f 62 20 62 6c 6f 62 73  2 incrblob blobs
27e0: 20 69 20 34 5d 0a 20 20 67 65 74 73 20 24 3a 3a   i 4].  gets $::
27f0: 62 6c 6f 62 0a 7d 20 7b 63 6f 6e 6e 65 63 74 69  blob.} {connecti
2800: 6f 6e 7d 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72  on}.do_test incr
2810: 62 6c 6f 62 2d 36 2e 38 20 7b 0a 20 20 74 65 6c  blob-6.8 {.  tel
2820: 6c 20 24 3a 3a 62 6c 6f 62 0a 7d 20 7b 31 30 7d  l $::blob.} {10}
2830: 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f  .do_test incrblo
2840: 62 2d 36 2e 39 20 7b 0a 20 20 73 65 65 6b 20 24  b-6.9 {.  seek $
2850: 3a 3a 62 6c 6f 62 20 30 0a 20 20 70 75 74 73 20  ::blob 0.  puts 
2860: 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 3a 3a 62 6c  -nonewline $::bl
2870: 6f 62 20 22 69 6e 76 6f 63 61 74 69 6f 6e 22 0a  ob "invocation".
2880: 20 20 66 6c 75 73 68 20 24 3a 3a 62 6c 6f 62 0a    flush $::blob.
2890: 7d 20 7b 7d 0a 0a 23 20 41 74 20 74 68 69 73 20  } {}..# At this 
28a0: 70 6f 69 6e 74 20 72 6f 6c 6c 62 61 63 6b 20 6f  point rollback o
28b0: 72 20 63 6f 6d 6d 69 74 20 73 68 6f 75 6c 64 20  r commit should 
28c0: 62 65 20 69 6c 6c 65 67 61 6c 20 28 62 65 63 61  be illegal (beca
28d0: 75 73 65 20 0a 23 20 74 68 65 72 65 20 69 73 20  use .# there is 
28e0: 61 6e 20 6f 70 65 6e 20 62 6c 6f 62 20 63 68 61  an open blob cha
28f0: 6e 6e 65 6c 29 2e 0a 64 6f 5f 74 65 73 74 20 69  nnel)..do_test i
2900: 6e 63 72 62 6c 6f 62 2d 36 2e 31 30 20 7b 0a 20  ncrblob-6.10 {. 
2910: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
2920: 52 4f 4c 4c 42 41 43 4b 3b 0a 20 20 7d 20 64 62  ROLLBACK;.  } db
2930: 32 0a 7d 20 7b 31 20 7b 63 61 6e 6e 6f 74 20 72  2.} {1 {cannot r
2940: 6f 6c 6c 62 61 63 6b 20 74 72 61 6e 73 61 63 74  ollback transact
2950: 69 6f 6e 20 2d 20 53 51 4c 20 73 74 61 74 65 6d  ion - SQL statem
2960: 65 6e 74 73 20 69 6e 20 70 72 6f 67 72 65 73 73  ents in progress
2970: 7d 7d 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62  }}.do_test incrb
2980: 6c 6f 62 2d 36 2e 31 31 20 7b 0a 20 20 63 61 74  lob-6.11 {.  cat
2990: 63 68 73 71 6c 20 7b 0a 20 20 20 20 43 4f 4d 4d  chsql {.    COMM
29a0: 49 54 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 31  IT;.  } db2.} {1
29b0: 20 7b 63 61 6e 6e 6f 74 20 63 6f 6d 6d 69 74 20   {cannot commit 
29c0: 74 72 61 6e 73 61 63 74 69 6f 6e 20 2d 20 53 51  transaction - SQ
29d0: 4c 20 73 74 61 74 65 6d 65 6e 74 73 20 69 6e 20  L statements in 
29e0: 70 72 6f 67 72 65 73 73 7d 7d 0a 0a 64 6f 5f 74  progress}}..do_t
29f0: 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 36 2e 31  est incrblob-6.1
2a00: 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  2 {.  execsql {.
2a10: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
2a20: 4d 20 62 6c 6f 62 73 20 57 48 45 52 45 20 72 6f  M blobs WHERE ro
2a30: 77 69 64 20 3d 20 34 3b 0a 20 20 7d 0a 7d 20 7b  wid = 4;.  }.} {
2a40: 7d 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c  }.do_test incrbl
2a50: 6f 62 2d 36 2e 31 33 20 7b 0a 20 20 63 6c 6f 73  ob-6.13 {.  clos
2a60: 65 20 24 3a 3a 62 6c 6f 62 0a 20 20 65 78 65 63  e $::blob.  exec
2a70: 73 71 6c 20 7b 0a 20 20 20 20 43 4f 4d 4d 49 54  sql {.    COMMIT
2a80: 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 7d 0a 64  ;.  } db2.} {}.d
2a90: 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d  o_test incrblob-
2aa0: 36 2e 31 34 20 7b 0a 20 20 65 78 65 63 73 71 6c  6.14 {.  execsql
2ab0: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20   {.    SELECT * 
2ac0: 46 52 4f 4d 20 62 6c 6f 62 73 20 57 48 45 52 45  FROM blobs WHERE
2ad0: 20 72 6f 77 69 64 20 3d 20 34 3b 0a 20 20 7d 0a   rowid = 4;.  }.
2ae0: 7d 20 7b 61 20 64 69 66 66 65 72 65 6e 74 20 69  } {a different i
2af0: 6e 76 6f 63 61 74 69 6f 6e 7d 0a 64 62 32 20 63  nvocation}.db2 c
2b00: 6c 6f 73 65 0a 73 71 6c 69 74 65 33 5f 73 6f 66  lose.sqlite3_sof
2b10: 74 5f 68 65 61 70 5f 6c 69 6d 69 74 20 24 73 6f  t_heap_limit $so
2b20: 66 74 5f 6c 69 6d 69 74 0a 0a 23 2d 2d 2d 2d 2d  ft_limit..#-----
2b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2b70: 2d 2d 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69  --.# The followi
2b80: 6e 67 20 74 65 73 74 73 20 76 65 72 69 66 79 20  ng tests verify 
2b90: 74 68 65 20 62 65 68 61 76 69 6f 75 72 20 6f 66  the behaviour of
2ba0: 20 74 68 65 20 69 6e 63 72 65 6d 65 6e 74 61 6c   the incremental
2bb0: 20 49 4f 0a 23 20 41 50 49 73 20 69 6e 20 74 68   IO.# APIs in th
2bc0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 61 73 65  e following case
2bd0: 73 3a 0a 23 0a 23 20 20 20 20 20 37 2e 31 20 41  s:.#.#     7.1 A
2be0: 20 72 6f 77 20 74 68 61 74 20 63 6f 6e 74 61 69   row that contai
2bf0: 6e 69 6e 67 20 61 6e 20 6f 70 65 6e 20 62 6c 6f  ning an open blo
2c00: 62 20 69 73 20 6d 6f 64 69 66 69 65 64 2e 0a 23  b is modified..#
2c10: 0a 23 20 20 20 20 20 37 2e 32 20 41 20 43 52 45  .#     7.2 A CRE
2c20: 41 54 45 20 54 41 42 4c 45 20 72 65 71 75 69 72  ATE TABLE requir
2c30: 65 73 20 74 68 61 74 20 61 6e 20 6f 76 65 72 66  es that an overf
2c40: 6c 6f 77 20 70 61 67 65 20 74 68 61 74 20 69 73  low page that is
2c50: 20 70 61 72 74 0a 23 20 20 20 20 20 20 20 20 20   part.#         
2c60: 6f 66 20 61 6e 20 6f 70 65 6e 20 62 6c 6f 62 20  of an open blob 
2c70: 69 73 20 6d 6f 76 65 64 2e 0a 23 0a 23 20 20 20  is moved..#.#   
2c80: 20 20 37 2e 33 20 41 6e 20 49 4e 43 52 45 4d 45    7.3 An INCREME
2c90: 4e 54 41 4c 20 56 41 43 55 55 4d 20 6d 6f 76 65  NTAL VACUUM move
2ca0: 73 20 61 6e 20 6f 76 65 72 66 6c 6f 77 20 70 61  s an overflow pa
2cb0: 67 65 20 74 68 61 74 20 69 73 20 70 61 72 74 0a  ge that is part.
2cc0: 23 20 20 20 20 20 20 20 20 20 6f 66 20 61 6e 20  #         of an 
2cd0: 6f 70 65 6e 20 62 6c 6f 62 2e 0a 23 0a 23 20 49  open blob..#.# I
2ce0: 6e 20 74 68 65 20 66 69 72 73 74 20 63 61 73 65  n the first case
2cf0: 20 61 62 6f 76 65 2c 20 63 6f 72 72 65 63 74 20   above, correct 
2d00: 62 65 68 61 76 69 6f 75 72 20 69 73 20 66 6f 72  behaviour is for
2d10: 20 61 6c 6c 20 73 75 62 73 65 71 75 65 6e 74 0a   all subsequent.
2d20: 23 20 72 65 61 64 2f 77 72 69 74 65 20 6f 70 65  # read/write ope
2d30: 72 61 74 69 6f 6e 73 20 6f 6e 20 74 68 65 20 62  rations on the b
2d40: 6c 6f 62 2d 68 61 6e 64 6c 65 20 74 6f 20 72 65  lob-handle to re
2d50: 74 75 72 6e 20 53 51 4c 49 54 45 5f 41 42 4f 52  turn SQLITE_ABOR
2d60: 54 2e 0a 23 20 4d 6f 72 65 20 61 63 63 75 72 61  T..# More accura
2d70: 74 65 6c 79 2c 20 62 6c 6f 62 2d 68 61 6e 64 6c  tely, blob-handl
2d80: 65 73 20 61 72 65 20 69 6e 76 61 6c 69 64 61 74  es are invalidat
2d90: 65 64 20 77 68 65 6e 65 76 65 72 20 74 68 65 20  ed whenever the 
2da0: 74 61 62 6c 65 0a 23 20 74 68 65 79 20 62 65 6c  table.# they bel
2db0: 6f 6e 67 20 74 6f 20 69 73 20 77 72 69 74 74 65  ong to is writte
2dc0: 6e 20 74 6f 2e 0a 23 0a 23 20 54 68 65 20 73 65  n to..#.# The se
2dd0: 63 6f 6e 64 20 74 77 6f 20 63 61 73 65 73 20 68  cond two cases h
2de0: 61 76 65 20 6e 6f 20 65 78 74 65 72 6e 61 6c 20  ave no external 
2df0: 65 66 66 65 63 74 2e 20 54 68 65 79 20 61 72 65  effect. They are
2e00: 20 74 65 73 74 69 6e 67 0a 23 20 74 68 61 74 20   testing.# that 
2e10: 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 63 61 63  the internal cac
2e20: 68 65 20 6f 66 20 6f 76 65 72 66 6c 6f 77 20 70  he of overflow p
2e30: 61 67 65 20 6e 75 6d 62 65 72 73 20 69 73 20 63  age numbers is c
2e40: 6f 72 72 65 63 74 6c 79 0a 23 20 69 6e 76 61 6c  orrectly.# inval
2e50: 69 64 61 74 65 64 2e 0a 23 0a 64 6f 5f 74 65 73  idated..#.do_tes
2e60: 74 20 69 6e 63 72 62 6c 6f 62 2d 37 2e 31 2e 30  t incrblob-7.1.0
2e70: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   {.  execsql {. 
2e80: 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 44 52     BEGIN;.    DR
2e90: 4f 50 20 54 41 42 4c 45 20 62 6c 6f 62 73 3b 0a  OP TABLE blobs;.
2ea0: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
2eb0: 20 74 31 20 28 61 2c 20 62 2c 20 63 2c 20 64 20   t1 (a, b, c, d 
2ec0: 42 4c 4f 42 29 3b 0a 20 20 20 20 49 4e 53 45 52  BLOB);.    INSER
2ed0: 54 20 49 4e 54 4f 20 74 31 28 61 2c 20 62 2c 20  T INTO t1(a, b, 
2ee0: 63 2c 20 64 29 20 56 41 4c 55 45 53 28 31 2c 20  c, d) VALUES(1, 
2ef0: 32 2c 20 33 2c 20 34 29 3b 0a 20 20 20 20 43 4f  2, 3, 4);.    CO
2f00: 4d 4d 49 54 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 0a  MMIT;.  }.} {}..
2f10: 66 6f 72 65 61 63 68 20 7b 74 6e 20 61 72 67 7d  foreach {tn arg}
2f20: 20 7b 31 20 22 22 20 32 20 2d 72 65 61 64 6f 6e   {1 "" 2 -readon
2f30: 6c 79 7d 20 7b 0a 0a 20 20 65 78 65 63 73 71 6c  ly} {..  execsql
2f40: 20 7b 0a 20 20 20 20 55 50 44 41 54 45 20 74 31   {.    UPDATE t1
2f50: 20 53 45 54 20 64 20 3d 20 7a 65 72 6f 62 6c 6f   SET d = zeroblo
2f60: 62 28 31 30 30 30 30 29 3b 0a 20 20 7d 0a 0a 20  b(10000);.  }.. 
2f70: 20 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f   do_test incrblo
2f80: 62 2d 37 2e 31 2e 24 74 6e 2e 31 20 7b 0a 20 20  b-7.1.$tn.1 {.  
2f90: 20 20 73 65 74 20 3a 3a 62 20 5b 65 76 61 6c 20    set ::b [eval 
2fa0: 64 62 20 69 6e 63 72 62 6c 6f 62 20 24 61 72 67  db incrblob $arg
2fb0: 20 74 31 20 64 20 31 5d 0a 20 20 20 20 62 69 6e   t1 d 1].    bin
2fc0: 61 72 79 20 73 63 61 6e 20 5b 73 71 6c 69 74 65  ary scan [sqlite
2fd0: 33 5f 62 6c 6f 62 5f 72 65 61 64 20 24 3a 3a 62  3_blob_read $::b
2fe0: 20 35 30 30 30 20 35 5d 20 63 2a 20 63 0a 20 20   5000 5] c* c.  
2ff0: 20 20 73 65 74 20 63 0a 20 20 7d 20 7b 30 20 30    set c.  } {0 0
3000: 20 30 20 30 20 30 7d 0a 20 20 64 6f 5f 74 65 73   0 0 0}.  do_tes
3010: 74 20 69 6e 63 72 62 6c 6f 62 2d 37 2e 31 2e 24  t incrblob-7.1.$
3020: 74 6e 2e 32 20 7b 0a 20 20 20 20 65 78 65 63 73  tn.2 {.    execs
3030: 71 6c 20 7b 0a 20 20 20 20 20 20 55 50 44 41 54  ql {.      UPDAT
3040: 45 20 74 31 20 53 45 54 20 64 20 3d 20 31 35 3b  E t1 SET d = 15;
3050: 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 7d 0a 20 20  .    }.  } {}.  
3060: 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62  do_test incrblob
3070: 2d 37 2e 31 2e 24 74 6e 2e 33 20 7b 0a 20 20 20  -7.1.$tn.3 {.   
3080: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
3090: 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 72 65   sqlite3_blob_re
30a0: 61 64 20 24 3a 3a 62 20 35 30 30 30 20 35 20 7d  ad $::b 5000 5 }
30b0: 20 6d 73 67 5d 0a 20 20 20 20 6c 69 73 74 20 24   msg].    list $
30c0: 72 63 20 24 6d 73 67 0a 20 20 7d 20 7b 31 20 53  rc $msg.  } {1 S
30d0: 51 4c 49 54 45 5f 41 42 4f 52 54 7d 0a 20 20 64  QLITE_ABORT}.  d
30e0: 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d  o_test incrblob-
30f0: 37 2e 31 2e 24 74 6e 2e 34 20 7b 0a 20 20 20 20  7.1.$tn.4 {.    
3100: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20  execsql {.      
3110: 53 45 4c 45 43 54 20 64 20 46 52 4f 4d 20 74 31  SELECT d FROM t1
3120: 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 31 35 7d  ;.    }.  } {15}
3130: 0a 20 20 64 6f 5f 74 65 73 74 20 69 6e 63 72 62  .  do_test incrb
3140: 6c 6f 62 2d 37 2e 31 2e 24 74 6e 2e 35 20 7b 0a  lob-7.1.$tn.5 {.
3150: 20 20 20 20 73 65 74 20 72 63 20 5b 63 61 74 63      set rc [catc
3160: 68 20 7b 20 63 6c 6f 73 65 20 24 3a 3a 62 20 7d  h { close $::b }
3170: 20 6d 73 67 5d 0a 20 20 20 20 6c 69 73 74 20 24   msg].    list $
3180: 72 63 20 24 6d 73 67 0a 20 20 7d 20 7b 30 20 7b  rc $msg.  } {0 {
3190: 7d 7d 0a 20 20 64 6f 5f 74 65 73 74 20 69 6e 63  }}.  do_test inc
31a0: 72 62 6c 6f 62 2d 37 2e 31 2e 24 74 6e 2e 36 20  rblob-7.1.$tn.6 
31b0: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a  {.    execsql {.
31c0: 20 20 20 20 20 20 53 45 4c 45 43 54 20 64 20 46        SELECT d F
31d0: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 7d 0a 20 20  ROM t1;.    }.  
31e0: 7d 20 7b 31 35 7d 0a 0a 7d 0a 0a 73 65 74 20 66  } {15}..}..set f
31f0: 64 20 5b 6f 70 65 6e 20 5b 69 6e 66 6f 20 73 63  d [open [info sc
3200: 72 69 70 74 5d 5d 0a 73 65 74 20 3a 3a 64 61 74  ript]].set ::dat
3210: 61 20 5b 72 65 61 64 20 24 66 64 5d 0a 63 6c 6f  a [read $fd].clo
3220: 73 65 20 24 66 64 0a 0a 64 62 20 63 6c 6f 73 65  se $fd..db close
3230: 0a 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f  .file delete -fo
3240: 72 63 65 20 74 65 73 74 2e 64 62 20 74 65 73 74  rce test.db test
3250: 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 73 71 6c 69  .db-journal.sqli
3260: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 0a  te3 db test.db..
3270: 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62  do_test incrblob
3280: 2d 37 2e 32 2e 31 20 7b 0a 20 20 65 78 65 63 73  -7.2.1 {.  execs
3290: 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20  ql {.    PRAGMA 
32a0: 61 75 74 6f 5f 76 61 63 75 75 6d 20 3d 20 22 69  auto_vacuum = "i
32b0: 6e 63 72 65 6d 65 6e 74 61 6c 22 3b 0a 20 20 20  ncremental";.   
32c0: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31   CREATE TABLE t1
32d0: 28 61 20 49 4e 54 45 47 45 52 20 50 52 49 4d 41  (a INTEGER PRIMA
32e0: 52 59 20 4b 45 59 2c 20 62 29 3b 20 20 20 20 20  RY KEY, b);     
32f0: 20 20 20 2d 2d 20 72 6f 6f 74 40 70 61 67 65 33     -- root@page3
3300: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
3310: 20 74 31 20 56 41 4c 55 45 53 28 31 32 33 2c 20   t1 VALUES(123, 
3320: 24 3a 3a 64 61 74 61 29 3b 0a 20 20 7d 0a 20 20  $::data);.  }.  
3330: 73 65 74 20 3a 3a 62 20 5b 64 62 20 69 6e 63 72  set ::b [db incr
3340: 62 6c 6f 62 20 2d 72 65 61 64 6f 6e 6c 79 20 74  blob -readonly t
3350: 31 20 62 20 31 32 33 5d 0a 20 20 72 65 61 64 20  1 b 123].  read 
3360: 24 3a 3a 62 0a 7d 20 24 3a 3a 64 61 74 61 0a 64  $::b.} $::data.d
3370: 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d  o_test incrblob-
3380: 37 2e 32 2e 32 20 7b 0a 20 20 65 78 65 63 73 71  7.2.2 {.  execsq
3390: 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54  l {.    CREATE T
33a0: 41 42 4c 45 20 74 32 28 61 20 49 4e 54 45 47 45  ABLE t2(a INTEGE
33b0: 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 62  R PRIMARY KEY, b
33c0: 29 3b 20 20 20 20 20 20 20 20 2d 2d 20 72 6f 6f  );        -- roo
33d0: 74 40 70 61 67 65 34 0a 20 20 7d 0a 20 20 73 65  t@page4.  }.  se
33e0: 65 6b 20 24 3a 3a 62 20 30 0a 20 20 72 65 61 64  ek $::b 0.  read
33f0: 20 24 3a 3a 62 0a 7d 20 24 3a 3a 64 61 74 61 0a   $::b.} $::data.
3400: 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62  do_test incrblob
3410: 2d 37 2e 32 2e 33 20 7b 0a 20 20 63 6c 6f 73 65  -7.2.3 {.  close
3420: 20 24 3a 3a 62 0a 20 20 65 78 65 63 73 71 6c 20   $::b.  execsql 
3430: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 72 6f 6f  {.    SELECT roo
3440: 74 70 61 67 65 20 46 52 4f 4d 20 73 71 6c 69 74  tpage FROM sqlit
3450: 65 5f 6d 61 73 74 65 72 3b 0a 20 20 7d 0a 7d 20  e_master;.  }.} 
3460: 7b 33 20 34 7d 0a 0a 73 65 74 20 3a 3a 6f 74 68  {3 4}..set ::oth
3470: 65 72 64 61 74 61 20 22 5b 73 74 72 69 6e 67 20  erdata "[string 
3480: 72 61 6e 67 65 20 24 3a 3a 64 61 74 61 20 30 20  range $::data 0 
3490: 31 30 30 30 5d 5b 73 74 72 69 6e 67 20 72 61 6e  1000][string ran
34a0: 67 65 20 24 3a 3a 64 61 74 61 20 31 30 30 31 20  ge $::data 1001 
34b0: 65 6e 64 5d 22 0a 64 6f 5f 74 65 73 74 20 69 6e  end]".do_test in
34c0: 63 72 62 6c 6f 62 2d 37 2e 33 2e 31 20 7b 0a 20  crblob-7.3.1 {. 
34d0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 49   execsql {.    I
34e0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 20 56 41  NSERT INTO t2 VA
34f0: 4c 55 45 53 28 34 35 36 2c 20 24 3a 3a 6f 74 68  LUES(456, $::oth
3500: 65 72 64 61 74 61 29 3b 0a 20 20 7d 0a 20 20 73  erdata);.  }.  s
3510: 65 74 20 3a 3a 62 20 5b 64 62 20 69 6e 63 72 62  et ::b [db incrb
3520: 6c 6f 62 20 2d 72 65 61 64 6f 6e 6c 79 20 74 32  lob -readonly t2
3530: 20 62 20 34 35 36 5d 0a 20 20 72 65 61 64 20 24   b 456].  read $
3540: 3a 3a 62 0a 7d 20 24 3a 3a 6f 74 68 65 72 64 61  ::b.} $::otherda
3550: 74 61 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62  ta.do_test incrb
3560: 6c 6f 62 2d 37 2e 33 2e 32 20 7b 0a 20 20 65 78  lob-7.3.2 {.  ex
3570: 70 72 20 5b 66 69 6c 65 20 73 69 7a 65 20 74 65  pr [file size te
3580: 73 74 2e 64 62 5d 2f 31 30 32 34 0a 7d 20 33 30  st.db]/1024.} 30
3590: 0a 64 6f 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f  .do_test incrblo
35a0: 62 2d 37 2e 33 2e 33 20 7b 0a 20 20 65 78 65 63  b-7.3.3 {.  exec
35b0: 73 71 6c 20 7b 0a 20 20 20 20 44 45 4c 45 54 45  sql {.    DELETE
35c0: 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20 61   FROM t1 WHERE a
35d0: 20 3d 20 31 32 33 3b 0a 20 20 20 20 50 52 41 47   = 123;.    PRAG
35e0: 4d 41 20 49 4e 43 52 45 4d 45 4e 54 41 4c 5f 56  MA INCREMENTAL_V
35f0: 41 43 55 55 4d 28 30 29 3b 0a 20 20 7d 0a 20 20  ACUUM(0);.  }.  
3600: 73 65 65 6b 20 24 3a 3a 62 20 30 0a 20 20 72 65  seek $::b 0.  re
3610: 61 64 20 24 3a 3a 62 0a 7d 20 24 3a 3a 6f 74 68  ad $::b.} $::oth
3620: 65 72 64 61 74 61 0a 0a 23 20 41 74 74 65 6d 70  erdata..# Attemp
3630: 74 20 74 6f 20 77 72 69 74 65 20 6f 6e 20 61 20  t to write on a 
3640: 72 65 61 64 2d 6f 6e 6c 79 20 62 6c 6f 62 2e 20  read-only blob. 
3650: 20 4d 61 6b 65 20 73 75 72 65 20 74 68 65 20 65   Make sure the e
3660: 72 72 6f 72 20 63 6f 64 65 0a 23 20 67 65 74 73  rror code.# gets
3670: 20 73 65 74 2e 20 20 54 69 63 6b 65 74 20 23 32   set.  Ticket #2
3680: 34 36 34 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 69  464..#.do_test i
3690: 6e 63 72 62 6c 6f 62 2d 37 2e 34 20 7b 0a 20 20  ncrblob-7.4 {.  
36a0: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 73  set rc [catch {s
36b0: 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 74  qlite3_blob_writ
36c0: 65 20 24 3a 3a 62 20 31 30 20 48 45 4c 4c 4f 7d  e $::b 10 HELLO}
36d0: 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20   msg].  lappend 
36e0: 72 63 20 24 6d 73 67 0a 7d 20 7b 31 20 53 51 4c  rc $msg.} {1 SQL
36f0: 49 54 45 5f 52 45 41 44 4f 4e 4c 59 7d 0a 64 6f  ITE_READONLY}.do
3700: 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 37  _test incrblob-7
3710: 2e 35 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 65  .5 {.  sqlite3_e
3720: 72 72 63 6f 64 65 20 64 62 0a 7d 20 7b 53 51 4c  rrcode db.} {SQL
3730: 49 54 45 5f 52 45 41 44 4f 4e 4c 59 7d 0a 64 6f  ITE_READONLY}.do
3740: 5f 74 65 73 74 20 69 6e 63 72 62 6c 6f 62 2d 37  _test incrblob-7
3750: 2e 36 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 65  .6 {.  sqlite3_e
3760: 72 72 6d 73 67 20 64 62 0a 7d 20 7b 61 74 74 65  rrmsg db.} {atte
3770: 6d 70 74 20 74 6f 20 77 72 69 74 65 20 61 20 72  mpt to write a r
3780: 65 61 64 6f 6e 6c 79 20 64 61 74 61 62 61 73 65  eadonly database
3790: 7d 0a 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a     }..finish_test.