/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact 8e3ad667ef1c55147dcf9190b5edd3bf808ab147:


0000: 23 20 32 30 30 31 20 53 65 70 74 65 6d 62 65 72  # 2001 September
0010: 20 31 35 0a 23 0a 23 20 54 68 65 20 61 75 74 68   15.#.# The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67  place of.# a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20  al notice, here 
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23  is a blessing:.#
0080: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f  .#    May you do
0090: 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76   good and not ev
00a0: 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75  il..#    May you
00b0: 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73   find forgivenes
00c0: 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61  s for yourself a
00d0: 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72  nd forgive other
00e0: 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  s..#    May you 
00f0: 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65  share freely, ne
0100: 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20  ver taking more 
0110: 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23  than you give..#
0120: 0a 23 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .#**************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 23 0a 23 20 54 68  *********.#.# Th
0170: 69 73 20 66 69 6c 65 20 61 74 74 65 6d 70 74 73  is file attempts
0180: 20 74 6f 20 63 68 65 63 6b 20 74 68 65 20 62 65   to check the be
0190: 68 61 76 69 6f 72 20 6f 66 20 74 68 65 20 53 51  havior of the SQ
01a0: 4c 69 74 65 20 6c 69 62 72 61 72 79 20 69 6e 20  Lite library in 
01b0: 0a 23 20 61 6e 20 6f 75 74 2d 6f 66 2d 6d 65 6d  .# an out-of-mem
01c0: 6f 72 79 20 73 69 74 75 61 74 69 6f 6e 2e 20 57  ory situation. W
01d0: 68 65 6e 20 63 6f 6d 70 69 6c 65 64 20 77 69 74  hen compiled wit
01e0: 68 20 2d 44 53 51 4c 49 54 45 5f 44 45 42 55 47  h -DSQLITE_DEBUG
01f0: 3d 31 2c 20 0a 23 20 74 68 65 20 53 51 4c 69 74  =1, .# the SQLit
0200: 65 20 6c 69 62 72 61 72 79 20 61 63 63 65 70 74  e library accept
0210: 73 20 61 20 73 70 65 63 69 61 6c 20 63 6f 6d 6d  s a special comm
0220: 61 6e 64 20 28 73 71 6c 69 74 65 33 5f 6d 65 6d  and (sqlite3_mem
0230: 64 65 62 75 67 5f 66 61 69 6c 20 4e 20 43 29 0a  debug_fail N C).
0240: 23 20 77 68 69 63 68 20 63 61 75 73 65 73 20 74  # which causes t
0250: 68 65 20 4e 2d 74 68 20 6d 61 6c 6c 6f 63 20 74  he N-th malloc t
0260: 6f 20 66 61 69 6c 2e 20 20 54 68 69 73 20 73 70  o fail.  This sp
0270: 65 63 69 61 6c 20 66 65 61 74 75 72 65 20 69 73  ecial feature is
0280: 20 75 73 65 64 0a 23 20 74 6f 20 73 65 65 20 77   used.# to see w
0290: 68 61 74 20 68 61 70 70 65 6e 73 20 69 6e 20 74  hat happens in t
02a0: 68 65 20 6c 69 62 72 61 72 79 20 69 66 20 61 20  he library if a 
02b0: 6d 61 6c 6c 6f 63 20 77 65 72 65 20 74 6f 20 72  malloc were to r
02c0: 65 61 6c 6c 79 20 66 61 69 6c 0a 23 20 64 75 65  eally fail.# due
02d0: 20 74 6f 20 61 6e 20 6f 75 74 2d 6f 66 2d 6d 65   to an out-of-me
02e0: 6d 6f 72 79 20 73 69 74 75 61 74 69 6f 6e 2e 0a  mory situation..
02f0: 23 0a 23 20 24 49 64 3a 20 6d 61 6c 6c 6f 63 2e  #.# $Id: malloc.
0300: 74 65 73 74 2c 76 20 31 2e 37 35 20 32 30 30 39  test,v 1.75 2009
0310: 2f 30 32 2f 30 34 20 30 38 3a 31 37 3a 35 37 20  /02/04 08:17:57 
0320: 64 61 6e 69 65 6c 6b 31 39 37 37 20 45 78 70 20  danielk1977 Exp 
0330: 24 0a 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b  $..set testdir [
0340: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72  file dirname $ar
0350: 67 76 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73  gv0].source $tes
0360: 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a  tdir/tester.tcl.
0370: 0a 0a 23 20 4f 6e 6c 79 20 72 75 6e 20 74 68 65  ..# Only run the
0380: 73 65 20 74 65 73 74 73 20 69 66 20 6d 65 6d 6f  se tests if memo
0390: 72 79 20 64 65 62 75 67 67 69 6e 67 20 69 73 20  ry debugging is 
03a0: 74 75 72 6e 65 64 20 6f 6e 2e 0a 23 0a 73 6f 75  turned on..#.sou
03b0: 72 63 65 20 24 74 65 73 74 64 69 72 2f 6d 61 6c  rce $testdir/mal
03c0: 6c 6f 63 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a 69  loc_common.tcl.i
03d0: 66 20 7b 21 24 4d 45 4d 44 45 42 55 47 7d 20 7b  f {!$MEMDEBUG} {
03e0: 0a 20 20 20 70 75 74 73 20 22 53 6b 69 70 70 69  .   puts "Skippi
03f0: 6e 67 20 6d 61 6c 6c 6f 63 20 74 65 73 74 73 3a  ng malloc tests:
0400: 20 6e 6f 74 20 63 6f 6d 70 69 6c 65 64 20 77 69   not compiled wi
0410: 74 68 20 2d 44 53 51 4c 49 54 45 5f 4d 45 4d 44  th -DSQLITE_MEMD
0420: 45 42 55 47 2e 2e 2e 22 0a 20 20 20 66 69 6e 69  EBUG...".   fini
0430: 73 68 5f 74 65 73 74 0a 20 20 20 72 65 74 75 72  sh_test.   retur
0440: 6e 0a 7d 0a 0a 23 20 44 6f 20 61 20 63 6f 75 70  n.}..# Do a coup
0450: 6c 65 20 6f 66 20 6d 65 6d 6f 72 79 20 64 75 6d  le of memory dum
0460: 70 73 20 6a 75 73 74 20 74 6f 20 65 78 65 72 63  ps just to exerc
0470: 69 73 65 20 74 68 65 20 6d 65 6d 6f 72 79 20 64  ise the memory d
0480: 75 6d 70 20 6c 6f 67 69 63 0a 23 20 74 68 61 74  ump logic.# that
0490: 20 74 68 61 74 20 77 65 20 63 61 6e 20 73 61 79   that we can say
04a0: 20 74 68 61 74 20 77 65 20 68 61 76 65 2e 0a 23   that we have..#
04b0: 0a 70 75 74 73 20 73 74 64 65 72 72 20 22 54 68  .puts stderr "Th
04c0: 69 73 20 69 73 20 61 20 74 65 73 74 2e 20 20 49  is is a test.  I
04d0: 67 6e 6f 72 65 20 74 68 65 20 65 72 72 6f 72 20  gnore the error 
04e0: 74 68 61 74 20 66 6f 6c 6c 6f 77 73 3a 22 0a 73  that follows:".s
04f0: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
0500: 64 75 6d 70 20 24 74 65 73 74 64 69 72 0a 70 75  dump $testdir.pu
0510: 74 73 20 22 4d 65 6d 6f 72 79 20 64 75 6d 70 20  ts "Memory dump 
0520: 74 6f 20 66 69 6c 65 20 6d 65 6d 64 75 6d 70 2e  to file memdump.
0530: 74 78 74 2e 2e 2e 22 0a 73 71 6c 69 74 65 33 5f  txt...".sqlite3_
0540: 6d 65 6d 64 65 62 75 67 5f 64 75 6d 70 20 6d 65  memdebug_dump me
0550: 6d 64 75 6d 70 2e 74 78 74 0a 0a 69 66 63 61 70  mdump.txt..ifcap
0560: 61 62 6c 65 20 62 6c 6f 62 6c 69 74 26 26 73 75  able bloblit&&su
0570: 62 71 75 65 72 79 20 7b 0a 20 20 64 6f 5f 6d 61  bquery {.  do_ma
0580: 6c 6c 6f 63 5f 74 65 73 74 20 31 20 2d 74 63 6c  lloc_test 1 -tcl
0590: 70 72 65 70 20 7b 0a 20 20 20 20 64 62 20 63 6c  prep {.    db cl
05a0: 6f 73 65 0a 20 20 7d 20 2d 74 63 6c 62 6f 64 79  ose.  } -tclbody
05b0: 20 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63   {.    if {[catc
05c0: 68 20 7b 73 71 6c 69 74 65 33 20 64 62 20 74 65  h {sqlite3 db te
05d0: 73 74 2e 64 62 7d 5d 7d 20 7b 0a 20 20 20 20 20  st.db}]} {.     
05e0: 20 65 72 72 6f 72 20 22 6f 75 74 20 6f 66 20 6d   error "out of m
05f0: 65 6d 6f 72 79 22 0a 20 20 20 20 7d 0a 20 20 20  emory".    }.   
0600: 20 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65   sqlite3_extende
0610: 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 20 64  d_result_codes d
0620: 62 20 31 0a 20 20 7d 20 2d 73 71 6c 62 6f 64 79  b 1.  } -sqlbody
0630: 20 7b 0a 20 20 20 20 44 52 4f 50 20 54 41 42 4c   {.    DROP TABL
0640: 45 20 49 46 20 45 58 49 53 54 53 20 74 31 3b 0a  E IF EXISTS t1;.
0650: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
0660: 20 74 31 28 0a 20 20 20 20 20 20 20 61 20 69 6e   t1(.       a in
0670: 74 2c 20 62 20 66 6c 6f 61 74 2c 20 63 20 64 6f  t, b float, c do
0680: 75 62 6c 65 2c 20 64 20 74 65 78 74 2c 20 65 20  uble, d text, e 
0690: 76 61 72 63 68 61 72 28 32 30 29 2c 0a 20 20 20  varchar(20),.   
06a0: 20 20 20 20 70 72 69 6d 61 72 79 20 6b 65 79 28      primary key(
06b0: 61 2c 62 2c 63 29 0a 20 20 20 20 29 3b 0a 20 20  a,b,c).    );.  
06c0: 20 20 43 52 45 41 54 45 20 49 4e 44 45 58 20 69    CREATE INDEX i
06d0: 31 20 4f 4e 20 74 31 28 61 2c 62 29 3b 0a 20 20  1 ON t1(a,b);.  
06e0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
06f0: 20 56 41 4c 55 45 53 28 31 2c 32 2e 33 2c 34 2e   VALUES(1,2.3,4.
0700: 35 2c 27 68 69 27 2c 78 27 37 34 36 38 36 35 37  5,'hi',x'7468657
0710: 32 36 35 30 30 27 29 3b 0a 20 20 20 20 49 4e 53  26500');.    INS
0720: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
0730: 45 53 28 36 2c 37 2e 30 2c 30 2e 38 2c 27 68 65  ES(6,7.0,0.8,'he
0740: 6c 6c 6f 27 2c 27 6f 75 74 20 79 6f 6e 64 65 72  llo','out yonder
0750: 27 29 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a  ');.    SELECT *
0760: 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20 53 45   FROM t1;.    SE
0770: 4c 45 43 54 20 61 76 67 28 62 29 20 46 52 4f 4d  LECT avg(b) FROM
0780: 20 74 31 20 47 52 4f 55 50 20 42 59 20 61 20 48   t1 GROUP BY a H
0790: 41 56 49 4e 47 20 62 3e 32 30 2e 30 3b 0a 20 20  AVING b>20.0;.  
07a0: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31    DELETE FROM t1
07b0: 20 57 48 45 52 45 20 61 20 49 4e 20 28 53 45 4c   WHERE a IN (SEL
07c0: 45 43 54 20 6d 69 6e 28 61 29 20 46 52 4f 4d 20  ECT min(a) FROM 
07d0: 74 31 29 3b 0a 20 20 20 20 53 45 4c 45 43 54 20  t1);.    SELECT 
07e0: 63 6f 75 6e 74 28 2a 29 2c 20 67 72 6f 75 70 5f  count(*), group_
07f0: 63 6f 6e 63 61 74 28 65 29 20 46 52 4f 4d 20 74  concat(e) FROM t
0800: 31 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 62 20  1;.    SELECT b 
0810: 46 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42 59  FROM t1 ORDER BY
0820: 20 31 20 43 4f 4c 4c 41 54 45 20 6e 6f 63 61 73   1 COLLATE nocas
0830: 65 3b 0a 20 20 7d 20 0a 7d 0a 0a 23 20 45 6e 73  e;.  } .}..# Ens
0840: 75 72 65 20 74 68 61 74 20 6e 6f 20 66 69 6c 65  ure that no file
0850: 20 64 65 73 63 72 69 70 74 6f 72 73 20 77 65 72   descriptors wer
0860: 65 20 6c 65 61 6b 65 64 2e 0a 64 6f 5f 74 65 73  e leaked..do_tes
0870: 74 20 6d 61 6c 6c 6f 63 2d 31 2e 58 20 7b 0a 20  t malloc-1.X {. 
0880: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65   catch {db close
0890: 7d 0a 20 20 73 65 74 20 73 71 6c 69 74 65 5f 6f  }.  set sqlite_o
08a0: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 7d  pen_file_count.}
08b0: 20 7b 30 7d 0a 0a 69 66 63 61 70 61 62 6c 65 20   {0}..ifcapable 
08c0: 73 75 62 71 75 65 72 79 20 7b 0a 20 20 64 6f 5f  subquery {.  do_
08d0: 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 32 20 2d 73  malloc_test 2 -s
08e0: 71 6c 62 6f 64 79 20 7b 0a 20 20 20 20 43 52 45  qlbody {.    CRE
08f0: 41 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 69  ATE TABLE t1(a i
0900: 6e 74 2c 20 62 20 69 6e 74 20 64 65 66 61 75 6c  nt, b int defaul
0910: 74 20 27 61 62 63 27 2c 20 63 20 69 6e 74 20 64  t 'abc', c int d
0920: 65 66 61 75 6c 74 20 31 29 3b 0a 20 20 20 20 43  efault 1);.    C
0930: 52 45 41 54 45 20 49 4e 44 45 58 20 69 31 20 4f  REATE INDEX i1 O
0940: 4e 20 74 31 28 61 2c 62 29 3b 0a 20 20 20 20 49  N t1(a,b);.    I
0950: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0960: 4c 55 45 53 28 31 2c 31 2c 27 39 39 20 61 62 63  LUES(1,1,'99 abc
0970: 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73  defghijklmnopqrs
0980: 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20 20 49  tuvwxyz');.    I
0990: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
09a0: 4c 55 45 53 28 32 2c 34 2c 27 39 38 20 61 62 63  LUES(2,4,'98 abc
09b0: 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73  defghijklmnopqrs
09c0: 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20 20 49  tuvwxyz');.    I
09d0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
09e0: 4c 55 45 53 28 33 2c 39 2c 27 39 37 20 61 62 63  LUES(3,9,'97 abc
09f0: 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73  defghijklmnopqrs
0a00: 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20 20 49  tuvwxyz');.    I
0a10: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0a20: 4c 55 45 53 28 34 2c 31 36 2c 27 39 36 20 61 62  LUES(4,16,'96 ab
0a30: 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72  cdefghijklmnopqr
0a40: 73 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20 20  stuvwxyz');.    
0a50: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
0a60: 41 4c 55 45 53 28 35 2c 32 35 2c 27 39 35 20 61  ALUES(5,25,'95 a
0a70: 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71  bcdefghijklmnopq
0a80: 72 73 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20  rstuvwxyz');.   
0a90: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
0aa0: 56 41 4c 55 45 53 28 36 2c 33 36 2c 27 39 34 20  VALUES(6,36,'94 
0ab0: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70  abcdefghijklmnop
0ac0: 71 72 73 74 75 76 77 78 79 7a 27 29 3b 0a 20 20  qrstuvwxyz');.  
0ad0: 20 20 53 45 4c 45 43 54 20 27 73 74 75 66 66 27    SELECT 'stuff'
0ae0: 2c 20 63 6f 75 6e 74 28 2a 29 20 61 73 20 27 6f  , count(*) as 'o
0af0: 74 68 65 72 20 73 74 75 66 66 27 2c 20 6d 61 78  ther stuff', max
0b00: 28 61 2b 31 30 29 20 46 52 4f 4d 20 74 31 3b 0a  (a+10) FROM t1;.
0b10: 20 20 20 20 55 50 44 41 54 45 20 74 31 20 53 45      UPDATE t1 SE
0b20: 54 20 62 3d 62 7c 7c 62 7c 7c 62 7c 7c 62 3b 0a  T b=b||b||b||b;.
0b30: 20 20 20 20 55 50 44 41 54 45 20 74 31 20 53 45      UPDATE t1 SE
0b40: 54 20 62 3d 61 20 57 48 45 52 45 20 61 20 69 6e  T b=a WHERE a in
0b50: 20 28 31 30 2c 31 32 2c 32 32 29 3b 0a 20 20 20   (10,12,22);.   
0b60: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 28   INSERT INTO t1(
0b70: 63 2c 62 2c 61 29 20 56 41 4c 55 45 53 28 32 30  c,b,a) VALUES(20
0b80: 2c 31 30 2c 35 29 3b 0a 20 20 20 20 49 4e 53 45  ,10,5);.    INSE
0b90: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
0ba0: 54 20 2a 20 46 52 4f 4d 20 74 31 0a 20 20 20 20  T * FROM t1.    
0bb0: 20 20 20 20 57 48 45 52 45 20 61 20 49 4e 20 28      WHERE a IN (
0bc0: 53 45 4c 45 43 54 20 61 20 46 52 4f 4d 20 74 31  SELECT a FROM t1
0bd0: 20 57 48 45 52 45 20 61 3c 31 30 29 3b 0a 20 20   WHERE a<10);.  
0be0: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31    DELETE FROM t1
0bf0: 20 57 48 45 52 45 20 61 3e 3d 31 30 3b 0a 20 20   WHERE a>=10;.  
0c00: 20 20 44 52 4f 50 20 49 4e 44 45 58 20 69 31 3b    DROP INDEX i1;
0c10: 0a 20 20 20 20 44 45 4c 45 54 45 20 46 52 4f 4d  .    DELETE FROM
0c20: 20 74 31 3b 0a 20 20 7d 20 0a 7d 0a 0a 23 20 45   t1;.  } .}..# E
0c30: 6e 73 75 72 65 20 74 68 61 74 20 6e 6f 20 66 69  nsure that no fi
0c40: 6c 65 20 64 65 73 63 72 69 70 74 6f 72 73 20 77  le descriptors w
0c50: 65 72 65 20 6c 65 61 6b 65 64 2e 0a 64 6f 5f 74  ere leaked..do_t
0c60: 65 73 74 20 6d 61 6c 6c 6f 63 2d 32 2e 58 20 7b  est malloc-2.X {
0c70: 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f  .  catch {db clo
0c80: 73 65 7d 0a 20 20 73 65 74 20 73 71 6c 69 74 65  se}.  set sqlite
0c90: 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74  _open_file_count
0ca0: 0a 7d 20 7b 30 7d 0a 0a 64 6f 5f 6d 61 6c 6c 6f  .} {0}..do_mallo
0cb0: 63 5f 74 65 73 74 20 33 20 2d 73 71 6c 62 6f 64  c_test 3 -sqlbod
0cc0: 79 20 7b 0a 20 20 42 45 47 49 4e 20 54 52 41 4e  y {.  BEGIN TRAN
0cd0: 53 41 43 54 49 4f 4e 3b 0a 20 20 43 52 45 41 54  SACTION;.  CREAT
0ce0: 45 20 54 41 42 4c 45 20 74 31 28 61 20 69 6e 74  E TABLE t1(a int
0cf0: 2c 20 62 20 69 6e 74 2c 20 63 20 69 6e 74 29 3b  , b int, c int);
0d00: 0a 20 20 43 52 45 41 54 45 20 49 4e 44 45 58 20  .  CREATE INDEX 
0d10: 69 31 20 4f 4e 20 74 31 28 61 2c 62 29 3b 0a 20  i1 ON t1(a,b);. 
0d20: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
0d30: 56 41 4c 55 45 53 28 31 2c 31 2c 39 39 29 3b 0a  VALUES(1,1,99);.
0d40: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0d50: 20 56 41 4c 55 45 53 28 32 2c 34 2c 39 38 29 3b   VALUES(2,4,98);
0d60: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  .  INSERT INTO t
0d70: 31 20 56 41 4c 55 45 53 28 33 2c 39 2c 39 37 29  1 VALUES(3,9,97)
0d80: 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  ;.  INSERT INTO 
0d90: 74 31 20 56 41 4c 55 45 53 28 34 2c 31 36 2c 39  t1 VALUES(4,16,9
0da0: 36 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  6);.  INSERT INT
0db0: 4f 20 74 31 20 56 41 4c 55 45 53 28 35 2c 32 35  O t1 VALUES(5,25
0dc0: 2c 39 35 29 3b 0a 20 20 49 4e 53 45 52 54 20 49  ,95);.  INSERT I
0dd0: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 36 2c  NTO t1 VALUES(6,
0de0: 33 36 2c 39 34 29 3b 0a 20 20 49 4e 53 45 52 54  36,94);.  INSERT
0df0: 20 49 4e 54 4f 20 74 31 28 63 2c 62 2c 61 29 20   INTO t1(c,b,a) 
0e00: 56 41 4c 55 45 53 28 32 30 2c 31 30 2c 35 29 3b  VALUES(20,10,5);
0e10: 0a 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74  .  DELETE FROM t
0e20: 31 20 57 48 45 52 45 20 61 3e 3d 31 30 3b 0a 20  1 WHERE a>=10;. 
0e30: 20 44 52 4f 50 20 49 4e 44 45 58 20 69 31 3b 0a   DROP INDEX i1;.
0e40: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31    DELETE FROM t1
0e50: 3b 0a 20 20 52 4f 4c 4c 42 41 43 4b 3b 0a 7d 20  ;.  ROLLBACK;.} 
0e60: 0a 0a 0a 23 20 45 6e 73 75 72 65 20 74 68 61 74  ...# Ensure that
0e70: 20 6e 6f 20 66 69 6c 65 20 64 65 73 63 72 69 70   no file descrip
0e80: 74 6f 72 73 20 77 65 72 65 20 6c 65 61 6b 65 64  tors were leaked
0e90: 2e 0a 64 6f 5f 74 65 73 74 20 6d 61 6c 6c 6f 63  ..do_test malloc
0ea0: 2d 33 2e 58 20 7b 0a 20 20 63 61 74 63 68 20 7b  -3.X {.  catch {
0eb0: 64 62 20 63 6c 6f 73 65 7d 0a 20 20 73 65 74 20  db close}.  set 
0ec0: 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65  sqlite_open_file
0ed0: 5f 63 6f 75 6e 74 0a 7d 20 7b 30 7d 0a 0a 69 66  _count.} {0}..if
0ee0: 63 61 70 61 62 6c 65 20 73 75 62 71 75 65 72 79  capable subquery
0ef0: 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74   {.  do_malloc_t
0f00: 65 73 74 20 34 20 2d 73 71 6c 62 6f 64 79 20 7b  est 4 -sqlbody {
0f10: 0a 20 20 20 20 42 45 47 49 4e 20 54 52 41 4e 53  .    BEGIN TRANS
0f20: 41 43 54 49 4f 4e 3b 0a 20 20 20 20 43 52 45 41  ACTION;.    CREA
0f30: 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 69 6e  TE TABLE t1(a in
0f40: 74 2c 20 62 20 69 6e 74 2c 20 63 20 69 6e 74 29  t, b int, c int)
0f50: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 49 4e 44  ;.    CREATE IND
0f60: 45 58 20 69 31 20 4f 4e 20 74 31 28 61 2c 62 29  EX i1 ON t1(a,b)
0f70: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
0f80: 4f 20 74 31 20 56 41 4c 55 45 53 28 31 2c 31 2c  O t1 VALUES(1,1,
0f90: 39 39 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20  99);.    INSERT 
0fa0: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 32  INTO t1 VALUES(2
0fb0: 2c 34 2c 39 38 29 3b 0a 20 20 20 20 49 4e 53 45  ,4,98);.    INSE
0fc0: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
0fd0: 53 28 33 2c 39 2c 39 37 29 3b 0a 20 20 20 20 49  S(3,9,97);.    I
0fe0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0ff0: 4c 55 45 53 28 34 2c 31 36 2c 39 36 29 3b 0a 20  LUES(4,16,96);. 
1000: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1010: 31 20 56 41 4c 55 45 53 28 35 2c 32 35 2c 39 35  1 VALUES(5,25,95
1020: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
1030: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 36 2c 33  TO t1 VALUES(6,3
1040: 36 2c 39 34 29 3b 0a 20 20 20 20 55 50 44 41 54  6,94);.    UPDAT
1050: 45 20 74 31 20 53 45 54 20 62 3d 61 20 57 48 45  E t1 SET b=a WHE
1060: 52 45 20 61 20 69 6e 20 28 31 30 2c 31 32 2c 32  RE a in (10,12,2
1070: 32 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  2);.    INSERT I
1080: 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20 2a 20  NTO t1 SELECT * 
1090: 46 52 4f 4d 20 74 31 0a 20 20 20 20 20 20 20 57  FROM t1.       W
10a0: 48 45 52 45 20 61 20 49 4e 20 28 53 45 4c 45 43  HERE a IN (SELEC
10b0: 54 20 61 20 46 52 4f 4d 20 74 31 20 57 48 45 52  T a FROM t1 WHER
10c0: 45 20 61 3c 31 30 29 3b 0a 20 20 20 20 44 52 4f  E a<10);.    DRO
10d0: 50 20 49 4e 44 45 58 20 69 31 3b 0a 20 20 20 20  P INDEX i1;.    
10e0: 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31 3b 0a  DELETE FROM t1;.
10f0: 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d 20      COMMIT;.  } 
1100: 0a 7d 0a 0a 23 20 45 6e 73 75 72 65 20 74 68 61  .}..# Ensure tha
1110: 74 20 6e 6f 20 66 69 6c 65 20 64 65 73 63 72 69  t no file descri
1120: 70 74 6f 72 73 20 77 65 72 65 20 6c 65 61 6b 65  ptors were leake
1130: 64 2e 0a 64 6f 5f 74 65 73 74 20 6d 61 6c 6c 6f  d..do_test mallo
1140: 63 2d 34 2e 58 20 7b 0a 20 20 63 61 74 63 68 20  c-4.X {.  catch 
1150: 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 73 65 74  {db close}.  set
1160: 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c   sqlite_open_fil
1170: 65 5f 63 6f 75 6e 74 0a 7d 20 7b 30 7d 0a 0a 69  e_count.} {0}..i
1180: 66 63 61 70 61 62 6c 65 20 74 72 69 67 67 65 72  fcapable trigger
1190: 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74   {.  do_malloc_t
11a0: 65 73 74 20 35 20 2d 73 71 6c 62 6f 64 79 20 7b  est 5 -sqlbody {
11b0: 0a 20 20 20 20 42 45 47 49 4e 20 54 52 41 4e 53  .    BEGIN TRANS
11c0: 41 43 54 49 4f 4e 3b 0a 20 20 20 20 43 52 45 41  ACTION;.    CREA
11d0: 54 45 20 54 41 42 4c 45 20 74 31 28 61 2c 62 29  TE TABLE t1(a,b)
11e0: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ;.    CREATE TAB
11f0: 4c 45 20 74 32 28 78 2c 79 29 3b 0a 20 20 20 20  LE t2(x,y);.    
1200: 43 52 45 41 54 45 20 54 52 49 47 47 45 52 20 72  CREATE TRIGGER r
1210: 31 20 41 46 54 45 52 20 49 4e 53 45 52 54 20 4f  1 AFTER INSERT O
1220: 4e 20 74 31 20 57 48 45 4e 20 6e 65 77 2e 61 20  N t1 WHEN new.a 
1230: 3d 20 32 20 42 45 47 49 4e 0a 20 20 20 20 20 20  = 2 BEGIN.      
1240: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 28 78  INSERT INTO t2(x
1250: 2c 79 29 20 56 41 4c 55 45 53 28 6e 65 77 2e 72  ,y) VALUES(new.r
1260: 6f 77 69 64 2c 31 29 3b 0a 20 20 20 20 20 20 49  owid,1);.      I
1270: 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 28 78 2c  NSERT INTO t2(x,
1280: 79 29 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  y) SELECT * FROM
1290: 20 74 32 3b 0a 20 20 20 20 20 20 49 4e 53 45 52   t2;.      INSER
12a0: 54 20 49 4e 54 4f 20 74 32 20 53 45 4c 45 43 54  T INTO t2 SELECT
12b0: 20 2a 20 46 52 4f 4d 20 74 32 3b 0a 20 20 20 20   * FROM t2;.    
12c0: 20 20 55 50 44 41 54 45 20 74 32 20 53 45 54 20    UPDATE t2 SET 
12d0: 79 3d 79 2b 31 20 57 48 45 52 45 20 78 3d 6e 65  y=y+1 WHERE x=ne
12e0: 77 2e 72 6f 77 69 64 3b 0a 20 20 20 20 20 20 53  w.rowid;.      S
12f0: 45 4c 45 43 54 20 31 32 33 3b 0a 20 20 20 20 20  ELECT 123;.     
1300: 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 32 20   DELETE FROM t2 
1310: 57 48 45 52 45 20 78 3d 6e 65 77 2e 72 6f 77 69  WHERE x=new.rowi
1320: 64 3b 0a 20 20 20 20 45 4e 44 3b 0a 20 20 20 20  d;.    END;.    
1330: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 28 61  INSERT INTO t1(a
1340: 2c 62 29 20 56 41 4c 55 45 53 28 32 2c 33 29 3b  ,b) VALUES(2,3);
1350: 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d  .    COMMIT;.  }
1360: 20 0a 7d 0a 0a 23 20 45 6e 73 75 72 65 20 74 68   .}..# Ensure th
1370: 61 74 20 6e 6f 20 66 69 6c 65 20 64 65 73 63 72  at no file descr
1380: 69 70 74 6f 72 73 20 77 65 72 65 20 6c 65 61 6b  iptors were leak
1390: 65 64 2e 0a 64 6f 5f 74 65 73 74 20 6d 61 6c 6c  ed..do_test mall
13a0: 6f 63 2d 35 2e 58 20 7b 0a 20 20 63 61 74 63 68  oc-5.X {.  catch
13b0: 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 73 65   {db close}.  se
13c0: 74 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69  t sqlite_open_fi
13d0: 6c 65 5f 63 6f 75 6e 74 0a 7d 20 7b 30 7d 0a 0a  le_count.} {0}..
13e0: 69 66 63 61 70 61 62 6c 65 20 76 61 63 75 75 6d  ifcapable vacuum
13f0: 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74   {.  do_malloc_t
1400: 65 73 74 20 36 20 2d 73 71 6c 70 72 65 70 20 7b  est 6 -sqlprep {
1410: 0a 20 20 20 20 42 45 47 49 4e 20 54 52 41 4e 53  .    BEGIN TRANS
1420: 41 43 54 49 4f 4e 3b 0a 20 20 20 20 43 52 45 41  ACTION;.    CREA
1430: 54 45 20 54 41 42 4c 45 20 74 31 28 61 29 3b 0a  TE TABLE t1(a);.
1440: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1450: 74 31 20 56 41 4c 55 45 53 28 31 29 3b 0a 20 20  t1 VALUES(1);.  
1460: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
1470: 20 53 45 4c 45 43 54 20 61 2a 32 20 46 52 4f 4d   SELECT a*2 FROM
1480: 20 74 31 3b 0a 20 20 20 20 49 4e 53 45 52 54 20   t1;.    INSERT 
1490: 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20 61  INTO t1 SELECT a
14a0: 2a 32 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20  *2 FROM t1;.    
14b0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
14c0: 45 4c 45 43 54 20 61 2a 32 20 46 52 4f 4d 20 74  ELECT a*2 FROM t
14d0: 31 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  1;.    INSERT IN
14e0: 54 4f 20 74 31 20 53 45 4c 45 43 54 20 61 2a 32  TO t1 SELECT a*2
14f0: 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20 49 4e   FROM t1;.    IN
1500: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
1510: 45 43 54 20 61 2a 32 20 46 52 4f 4d 20 74 31 3b  ECT a*2 FROM t1;
1520: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
1530: 20 74 31 20 53 45 4c 45 43 54 20 61 2a 32 20 46   t1 SELECT a*2 F
1540: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 49 4e 53 45  ROM t1;.    INSE
1550: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
1560: 54 20 61 2a 32 20 46 52 4f 4d 20 74 31 3b 0a 20  T a*2 FROM t1;. 
1570: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1580: 31 20 53 45 4c 45 43 54 20 61 2a 32 20 46 52 4f  1 SELECT a*2 FRO
1590: 4d 20 74 31 3b 0a 20 20 20 20 49 4e 53 45 52 54  M t1;.    INSERT
15a0: 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20   INTO t1 SELECT 
15b0: 61 2a 32 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20  a*2 FROM t1;.   
15c0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
15d0: 53 45 4c 45 43 54 20 61 2a 32 20 46 52 4f 4d 20  SELECT a*2 FROM 
15e0: 74 31 3b 0a 20 20 20 20 44 45 4c 45 54 45 20 46  t1;.    DELETE F
15f0: 52 4f 4d 20 74 31 20 77 68 65 72 65 20 72 6f 77  ROM t1 where row
1600: 69 64 25 35 20 3d 20 30 3b 0a 20 20 20 20 43 4f  id%5 = 0;.    CO
1610: 4d 4d 49 54 3b 0a 20 20 7d 20 2d 73 71 6c 62 6f  MMIT;.  } -sqlbo
1620: 64 79 20 7b 0a 20 20 20 20 56 41 43 55 55 4d 3b  dy {.    VACUUM;
1630: 0a 20 20 7d 20 0a 7d 0a 0a 64 6f 5f 6d 61 6c 6c  .  } .}..do_mall
1640: 6f 63 5f 74 65 73 74 20 37 20 2d 73 71 6c 70 72  oc_test 7 -sqlpr
1650: 65 70 20 7b 0a 20 20 43 52 45 41 54 45 20 54 41  ep {.  CREATE TA
1660: 42 4c 45 20 74 31 28 61 2c 20 62 29 3b 0a 20 20  BLE t1(a, b);.  
1670: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
1680: 41 4c 55 45 53 28 31 2c 20 32 29 3b 0a 20 20 49  ALUES(1, 2);.  I
1690: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
16a0: 4c 55 45 53 28 33 2c 20 34 29 3b 0a 20 20 49 4e  LUES(3, 4);.  IN
16b0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
16c0: 55 45 53 28 35 2c 20 36 29 3b 0a 20 20 49 4e 53  UES(5, 6);.  INS
16d0: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
16e0: 45 53 28 37 2c 20 72 61 6e 64 73 74 72 28 31 32  ES(7, randstr(12
16f0: 30 30 2c 31 32 30 30 29 29 3b 0a 7d 20 2d 73 71  00,1200));.} -sq
1700: 6c 62 6f 64 79 20 7b 0a 20 20 53 45 4c 45 43 54  lbody {.  SELECT
1710: 20 6d 69 6e 28 61 29 20 46 52 4f 4d 20 74 31 20   min(a) FROM t1 
1720: 57 48 45 52 45 20 61 3c 36 20 47 52 4f 55 50 20  WHERE a<6 GROUP 
1730: 42 59 20 62 3b 0a 20 20 53 45 4c 45 43 54 20 61  BY b;.  SELECT a
1740: 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20 61   FROM t1 WHERE a
1750: 3c 36 20 4f 52 44 45 52 20 42 59 20 61 3b 0a 20  <6 ORDER BY a;. 
1760: 20 53 45 4c 45 43 54 20 62 20 46 52 4f 4d 20 74   SELECT b FROM t
1770: 31 20 57 48 45 52 45 20 61 3e 36 3b 0a 7d 0a 0a  1 WHERE a>6;.}..
1780: 23 20 54 68 69 73 20 62 6c 6f 63 6b 20 69 73 20  # This block is 
1790: 64 65 73 69 67 6e 65 64 20 74 6f 20 74 65 73 74  designed to test
17a0: 20 74 68 61 74 20 73 6f 6d 65 20 6d 61 6c 6c 6f   that some mallo
17b0: 63 20 66 61 69 6c 75 72 65 73 20 74 68 61 74 20  c failures that 
17c0: 6d 61 79 0a 23 20 6f 63 63 75 72 20 69 6e 20 76  may.# occur in v
17d0: 64 62 65 61 70 69 2e 63 2e 20 53 70 65 63 69 66  dbeapi.c. Specif
17e0: 69 63 61 6c 6c 79 2c 20 69 66 20 61 20 6d 61 6c  ically, if a mal
17f0: 6c 6f 63 20 66 61 69 6c 75 72 65 20 74 68 61 74  loc failure that
1800: 20 6f 63 63 75 72 73 0a 23 20 77 68 65 6e 20 63   occurs.# when c
1810: 6f 6e 76 65 72 74 69 6e 67 20 55 54 46 2d 31 36  onverting UTF-16
1820: 20 74 65 78 74 20 74 6f 20 69 6e 74 65 67 65 72   text to integer
1830: 73 20 61 6e 64 20 72 65 61 6c 20 6e 75 6d 62 65  s and real numbe
1840: 72 73 20 69 73 20 68 61 6e 64 6c 65 64 0a 23 20  rs is handled.# 
1850: 63 6f 72 72 65 63 74 6c 79 2e 20 0a 23 0a 23 20  correctly. .#.# 
1860: 54 68 69 73 20 69 73 20 64 6f 6e 65 20 62 79 20  This is done by 
1870: 72 65 74 72 69 65 76 69 6e 67 20 61 20 73 74 72  retrieving a str
1880: 69 6e 67 20 66 72 6f 6d 20 74 68 65 20 64 61 74  ing from the dat
1890: 61 62 61 73 65 20 65 6e 67 69 6e 65 20 61 6e 64  abase engine and
18a0: 0a 23 20 6d 61 6e 69 70 75 6c 61 74 69 6e 67 20  .# manipulating 
18b0: 69 74 20 75 73 69 6e 67 20 74 68 65 20 73 71 6c  it using the sql
18c0: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 2a 2a 2a 20  ite3_column_*** 
18d0: 41 50 49 73 2e 20 54 68 69 73 20 64 6f 65 73 6e  APIs. This doesn
18e0: 27 74 20 0a 23 20 61 63 74 75 61 6c 6c 79 20 72  't .# actually r
18f0: 65 74 75 72 6e 20 61 6e 20 65 72 72 6f 72 20 74  eturn an error t
1900: 6f 20 74 68 65 20 75 73 65 72 20 77 68 65 6e 20  o the user when 
1910: 61 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 6c 73  a malloc() fails
1920: 2e 2e 20 54 68 61 74 20 0a 23 20 63 6f 75 6c 64  .. That .# could
1930: 20 62 65 20 76 69 65 77 65 64 20 61 73 20 61 20   be viewed as a 
1940: 62 75 67 2e 0a 23 0a 23 20 54 68 65 73 65 20 74  bug..#.# These t
1950: 65 73 74 73 20 6f 6e 6c 79 20 72 75 6e 20 69 66  ests only run if
1960: 20 55 54 46 2d 31 36 20 73 75 70 70 6f 72 74 20   UTF-16 support 
1970: 69 73 20 63 6f 6d 70 69 6c 65 64 20 69 6e 2e 0a  is compiled in..
1980: 23 0a 69 66 63 61 70 61 62 6c 65 20 75 74 66 31  #.ifcapable utf1
1990: 36 20 7b 0a 20 20 73 65 74 20 3a 3a 53 54 4d 54  6 {.  set ::STMT
19a0: 20 7b 7d 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f   {}.  do_malloc_
19b0: 74 65 73 74 20 38 20 2d 74 63 6c 70 72 65 70 20  test 8 -tclprep 
19c0: 7b 0a 20 20 20 20 73 65 74 20 73 71 6c 20 22 53  {.    set sql "S
19d0: 45 4c 45 43 54 20 27 5b 73 74 72 69 6e 67 20 72  ELECT '[string r
19e0: 65 70 65 61 74 20 61 62 63 20 32 30 5d 27 2c 20  epeat abc 20]', 
19f0: 27 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20  '[string repeat 
1a00: 64 65 66 20 32 30 5d 27 2c 20 3f 22 0a 20 20 20  def 20]', ?".   
1a10: 20 73 65 74 20 3a 3a 53 54 4d 54 20 5b 73 71 6c   set ::STMT [sql
1a20: 69 74 65 33 5f 70 72 65 70 61 72 65 20 64 62 20  ite3_prepare db 
1a30: 24 73 71 6c 20 2d 31 20 58 5d 0a 20 20 20 20 73  $sql -1 X].    s
1a40: 71 6c 69 74 65 33 5f 73 74 65 70 20 24 3a 3a 53  qlite3_step $::S
1a50: 54 4d 54 0a 20 20 20 20 69 66 20 7b 20 24 3a 3a  TMT.    if { $::
1a60: 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 62 79 74  tcl_platform(byt
1a70: 65 4f 72 64 65 72 29 3d 3d 22 6c 69 74 74 6c 65  eOrder)=="little
1a80: 45 6e 64 69 61 6e 22 20 7d 20 7b 0a 20 20 20 20  Endian" } {.    
1a90: 20 20 73 65 74 20 3a 3a 62 6f 6d 73 74 72 20 22    set ::bomstr "
1aa0: 5c 78 46 46 5c 78 46 45 22 0a 20 20 20 20 7d 20  \xFF\xFE".    } 
1ab0: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 73 65 74  else {.      set
1ac0: 20 3a 3a 62 6f 6d 73 74 72 20 22 5c 78 46 45 5c   ::bomstr "\xFE\
1ad0: 78 46 46 22 0a 20 20 20 20 7d 0a 20 20 20 20 61  xFF".    }.    a
1ae0: 70 70 65 6e 64 20 3a 3a 62 6f 6d 73 74 72 20 5b  ppend ::bomstr [
1af0: 65 6e 63 6f 64 69 6e 67 20 63 6f 6e 76 65 72 74  encoding convert
1b00: 74 6f 20 75 6e 69 63 6f 64 65 20 22 31 32 33 34  to unicode "1234
1b10: 35 36 37 38 39 5f 31 32 33 34 35 36 37 38 39 5f  56789_123456789_
1b20: 31 32 33 34 35 36 37 38 22 5d 0a 20 20 7d 20 2d  12345678"].  } -
1b30: 74 63 6c 62 6f 64 79 20 7b 0a 20 20 20 20 73 71  tclbody {.    sq
1b40: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78  lite3_column_tex
1b50: 74 31 36 20 24 3a 3a 53 54 4d 54 20 30 0a 20 20  t16 $::STMT 0.  
1b60: 20 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e    sqlite3_column
1b70: 5f 69 6e 74 20 24 3a 3a 53 54 4d 54 20 30 0a 20  _int $::STMT 0. 
1b80: 20 20 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d     sqlite3_colum
1b90: 6e 5f 74 65 78 74 31 36 20 24 3a 3a 53 54 4d 54  n_text16 $::STMT
1ba0: 20 31 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63   1.    sqlite3_c
1bb0: 6f 6c 75 6d 6e 5f 64 6f 75 62 6c 65 20 24 3a 3a  olumn_double $::
1bc0: 53 54 4d 54 20 31 0a 20 20 20 20 73 65 74 20 72  STMT 1.    set r
1bd0: 63 20 5b 73 71 6c 69 74 65 33 5f 72 65 73 65 74  c [sqlite3_reset
1be0: 20 24 3a 3a 53 54 4d 54 5d 0a 20 20 20 20 69 66   $::STMT].    if
1bf0: 20 7b 24 72 63 20 65 71 20 22 53 51 4c 49 54 45   {$rc eq "SQLITE
1c00: 5f 4e 4f 4d 45 4d 22 7d 20 7b 65 72 72 6f 72 20  _NOMEM"} {error 
1c10: 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 7d  "out of memory"}
1c20: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e  .    sqlite3_bin
1c30: 64 5f 74 65 78 74 31 36 20 24 3a 3a 53 54 4d 54  d_text16 $::STMT
1c40: 20 31 20 24 3a 3a 62 6f 6d 73 74 72 20 36 30 0a   1 $::bomstr 60.
1c50: 20 20 20 20 23 63 61 74 63 68 20 7b 73 71 6c 69      #catch {sqli
1c60: 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 3a 3a  te3_finalize $::
1c70: 53 54 4d 54 7d 0a 20 20 20 20 23 69 66 20 7b 5b  STMT}.    #if {[
1c80: 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65 5f 6d  lindex [sqlite_m
1c90: 61 6c 6c 6f 63 5f 73 74 61 74 5d 20 32 5d 3c 3d  alloc_stat] 2]<=
1ca0: 30 7d 20 7b 0a 20 20 20 20 23 20 20 65 72 72 6f  0} {.    #  erro
1cb0: 72 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79  r "out of memory
1cc0: 22 0a 20 20 20 20 23 7d 0a 20 20 7d 20 2d 63 6c  ".    #}.  } -cl
1cd0: 65 61 6e 75 70 20 7b 0a 20 20 20 20 69 66 20 7b  eanup {.    if {
1ce0: 24 3a 3a 53 54 4d 54 21 3d 22 22 7d 20 7b 0a 20  $::STMT!=""} {. 
1cf0: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 69 6e       sqlite3_fin
1d00: 61 6c 69 7a 65 20 24 3a 3a 53 54 4d 54 0a 20 20  alize $::STMT.  
1d10: 20 20 20 20 73 65 74 20 3a 3a 53 54 4d 54 20 7b      set ::STMT {
1d20: 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23  }.    }.  }.}..#
1d30: 20 54 68 69 73 20 62 6c 6f 63 6b 20 74 65 73 74   This block test
1d40: 73 20 74 68 61 74 20 6d 61 6c 6c 6f 63 28 29 20  s that malloc() 
1d50: 66 61 69 6c 75 72 65 73 20 74 68 61 74 20 6f 63  failures that oc
1d60: 63 75 72 20 77 68 69 6c 73 74 20 63 6f 6d 6d 69  cur whilst commi
1d70: 74 69 6e 67 0a 23 20 61 20 6d 75 6c 74 69 2d 66  ting.# a multi-f
1d80: 69 6c 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20  ile transaction 
1d90: 61 72 65 20 68 61 6e 64 6c 65 64 20 63 6f 72 72  are handled corr
1da0: 65 63 74 6c 79 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c  ectly..#.do_mall
1db0: 6f 63 5f 74 65 73 74 20 39 20 2d 73 71 6c 70 72  oc_test 9 -sqlpr
1dc0: 65 70 20 7b 0a 20 20 41 54 54 41 43 48 20 27 74  ep {.  ATTACH 't
1dd0: 65 73 74 32 2e 64 62 27 20 61 73 20 74 65 73 74  est2.db' as test
1de0: 32 3b 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c  2;.  CREATE TABL
1df0: 45 20 61 62 63 31 28 61 2c 20 62 2c 20 63 29 3b  E abc1(a, b, c);
1e00: 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20  .  CREATE TABLE 
1e10: 74 65 73 74 32 2e 61 62 63 32 28 61 2c 20 62 2c  test2.abc2(a, b,
1e20: 20 63 29 3b 0a 7d 20 2d 73 71 6c 62 6f 64 79 20   c);.} -sqlbody 
1e30: 7b 0a 20 20 42 45 47 49 4e 3b 0a 20 20 49 4e 53  {.  BEGIN;.  INS
1e40: 45 52 54 20 49 4e 54 4f 20 61 62 63 31 20 56 41  ERT INTO abc1 VA
1e50: 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 0a 20  LUES(1, 2, 3);. 
1e60: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63   INSERT INTO abc
1e70: 32 20 56 41 4c 55 45 53 28 31 2c 20 32 2c 20 33  2 VALUES(1, 2, 3
1e80: 29 3b 0a 20 20 43 4f 4d 4d 49 54 3b 0a 7d 0a 0a  );.  COMMIT;.}..
1e90: 23 20 54 68 69 73 20 62 6c 6f 63 6b 20 74 65 73  # This block tes
1ea0: 74 73 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 6c  ts malloc() fail
1eb0: 75 72 65 73 20 74 68 61 74 20 6f 63 63 75 72 20  ures that occur 
1ec0: 77 68 69 6c 65 20 6f 70 65 6e 69 6e 67 20 61 20  while opening a 
1ed0: 0a 23 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f  .# connection to
1ee0: 20 61 20 64 61 74 61 62 61 73 65 2e 0a 64 6f 5f   a database..do_
1ef0: 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 31 30 20 2d  malloc_test 10 -
1f00: 74 63 6c 70 72 65 70 20 7b 0a 20 20 63 61 74 63  tclprep {.  catc
1f10: 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20  h {db2 close}.  
1f20: 64 62 20 63 6c 6f 73 65 0a 20 20 66 69 6c 65 20  db close.  file 
1f30: 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65  delete -force te
1f40: 73 74 2e 64 62 20 74 65 73 74 2e 64 62 2d 6a 6f  st.db test.db-jo
1f50: 75 72 6e 61 6c 0a 20 20 73 71 6c 69 74 65 33 20  urnal.  sqlite3 
1f60: 64 62 20 74 65 73 74 2e 64 62 0a 20 20 73 71 6c  db test.db.  sql
1f70: 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65  ite3_extended_re
1f80: 73 75 6c 74 5f 63 6f 64 65 73 20 64 62 20 31 0a  sult_codes db 1.
1f90: 20 20 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54    db eval {CREAT
1fa0: 45 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62  E TABLE abc(a, b
1fb0: 2c 20 63 29 7d 0a 7d 20 2d 74 63 6c 62 6f 64 79  , c)}.} -tclbody
1fc0: 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20   {.  db close.  
1fd0: 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73 74  sqlite3 db2 test
1fe0: 2e 64 62 0a 20 20 73 71 6c 69 74 65 33 5f 65 78  .db.  sqlite3_ex
1ff0: 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f  tended_result_co
2000: 64 65 73 20 64 62 32 20 31 0a 20 20 64 62 32 20  des db2 1.  db2 
2010: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  eval {SELECT * F
2020: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
2030: 72 7d 0a 20 20 64 62 32 20 63 6c 6f 73 65 0a 7d  r}.  db2 close.}
2040: 0a 0a 23 20 54 68 69 73 20 62 6c 6f 63 6b 20 74  ..# This block t
2050: 65 73 74 73 20 6d 61 6c 6c 6f 63 28 29 20 66 61  ests malloc() fa
2060: 69 6c 75 72 65 73 20 74 68 61 74 20 6f 63 63 75  ilures that occu
2070: 72 20 77 69 74 68 69 6e 20 63 61 6c 6c 73 20 74  r within calls t
2080: 6f 0a 23 20 73 71 6c 69 74 65 33 5f 63 72 65 61  o.# sqlite3_crea
2090: 74 65 5f 66 75 6e 63 74 69 6f 6e 28 29 2e 0a 64  te_function()..d
20a0: 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 31 31  o_malloc_test 11
20b0: 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 73 65   -tclbody {.  se
20c0: 74 20 72 63 20 5b 73 71 6c 69 74 65 33 5f 63 72  t rc [sqlite3_cr
20d0: 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e 20 64 62  eate_function db
20e0: 5d 0a 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20  ].  if {[string 
20f0: 6d 61 74 63 68 20 24 72 63 20 53 51 4c 49 54 45  match $rc SQLITE
2100: 5f 4f 4b 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20  _OK]} {.    set 
2110: 72 63 20 5b 73 71 6c 69 74 65 33 5f 63 72 65 61  rc [sqlite3_crea
2120: 74 65 5f 61 67 67 72 65 67 61 74 65 20 64 62 5d  te_aggregate db]
2130: 0a 20 20 7d 0a 20 20 69 66 20 7b 5b 73 74 72 69  .  }.  if {[stri
2140: 6e 67 20 6d 61 74 63 68 20 24 72 63 20 53 51 4c  ng match $rc SQL
2150: 49 54 45 5f 4e 4f 4d 45 4d 5d 7d 20 7b 0a 20 20  ITE_NOMEM]} {.  
2160: 20 20 65 72 72 6f 72 20 22 6f 75 74 20 6f 66 20    error "out of 
2170: 6d 65 6d 6f 72 79 22 0a 20 20 7d 0a 7d 0a 0a 64  memory".  }.}..d
2180: 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 31 32  o_malloc_test 12
2190: 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 73 65   -tclbody {.  se
21a0: 74 20 73 71 6c 31 36 20 5b 65 6e 63 6f 64 69 6e  t sql16 [encodin
21b0: 67 20 63 6f 6e 76 65 72 74 74 6f 20 75 6e 69 63  g convertto unic
21c0: 6f 64 65 20 22 53 45 4c 45 43 54 20 2a 20 46 52  ode "SELECT * FR
21d0: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
21e0: 22 5d 0a 20 20 61 70 70 65 6e 64 20 73 71 6c 31  "].  append sql1
21f0: 36 20 22 5c 30 30 5c 30 30 22 0a 20 20 73 65 74  6 "\00\00".  set
2200: 20 3a 3a 53 54 4d 54 20 5b 73 71 6c 69 74 65 33   ::STMT [sqlite3
2210: 5f 70 72 65 70 61 72 65 31 36 20 64 62 20 24 73  _prepare16 db $s
2220: 71 6c 31 36 20 2d 31 20 44 55 4d 4d 59 5d 0a 20  ql16 -1 DUMMY]. 
2230: 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a   sqlite3_finaliz
2240: 65 20 24 3a 3a 53 54 4d 54 0a 7d 0a 0a 23 20 54  e $::STMT.}..# T
2250: 65 73 74 20 6d 61 6c 6c 6f 63 20 65 72 72 6f 72  est malloc error
2260: 73 20 77 68 65 6e 20 72 65 70 6c 61 79 69 6e 67  s when replaying
2270: 20 74 77 6f 20 68 6f 74 20 6a 6f 75 72 6e 61 6c   two hot journal
2280: 73 20 66 72 6f 6d 20 61 20 32 2d 66 69 6c 65 20  s from a 2-file 
2290: 0a 23 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 0a  .# transaction..
22a0: 69 66 63 61 70 61 62 6c 65 20 63 72 61 73 68 74  ifcapable crasht
22b0: 65 73 74 26 26 61 74 74 61 63 68 20 7b 0a 20 20  est&&attach {.  
22c0: 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 31  do_malloc_test 1
22d0: 33 20 2d 74 63 6c 70 72 65 70 20 7b 0a 20 20 20  3 -tclprep {.   
22e0: 20 73 65 74 20 72 63 20 5b 63 72 61 73 68 73 71   set rc [crashsq
22f0: 6c 20 2d 64 65 6c 61 79 20 31 20 2d 66 69 6c 65  l -delay 1 -file
2300: 20 74 65 73 74 32 2e 64 62 20 7b 0a 20 20 20 20   test2.db {.    
2310: 20 20 41 54 54 41 43 48 20 27 74 65 73 74 32 2e    ATTACH 'test2.
2320: 64 62 27 20 61 73 20 61 75 78 3b 0a 20 20 20 20  db' as aux;.    
2330: 20 20 50 52 41 47 4d 41 20 63 61 63 68 65 5f 73    PRAGMA cache_s
2340: 69 7a 65 20 3d 20 31 30 3b 0a 20 20 20 20 20 20  ize = 10;.      
2350: 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 43 52 45  BEGIN;.      CRE
2360: 41 54 45 20 54 41 42 4c 45 20 61 75 78 2e 74 32  ATE TABLE aux.t2
2370: 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 20 20 20  (a, b, c);.     
2380: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31   CREATE TABLE t1
2390: 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 20 20 20  (a, b, c);.     
23a0: 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20 7d 5d 0a   COMMIT;.    }].
23b0: 20 20 20 20 69 66 20 7b 24 72 63 21 3d 22 31 20      if {$rc!="1 
23c0: 7b 63 68 69 6c 64 20 70 72 6f 63 65 73 73 20 65  {child process e
23d0: 78 69 74 65 64 20 61 62 6e 6f 72 6d 61 6c 6c 79  xited abnormally
23e0: 7d 22 7d 20 7b 0a 20 20 20 20 20 20 65 72 72 6f  }"} {.      erro
23f0: 72 20 22 57 72 6f 6e 67 20 65 72 72 6f 72 20 6d  r "Wrong error m
2400: 65 73 73 61 67 65 3a 20 24 72 63 22 0a 20 20 20  essage: $rc".   
2410: 20 7d 0a 20 20 7d 20 2d 74 63 6c 62 6f 64 79 20   }.  } -tclbody 
2420: 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b 41  {.    db eval {A
2430: 54 54 41 43 48 20 27 74 65 73 74 32 2e 64 62 27  TTACH 'test2.db'
2440: 20 61 73 20 61 75 78 3b 7d 0a 20 20 20 20 73 65   as aux;}.    se
2450: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 64 62 20  t rc [catch {db 
2460: 65 76 61 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c  eval {.      SEL
2470: 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 3b 20 0a  ECT * FROM t1; .
2480: 20 20 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46        SELECT * F
2490: 52 4f 4d 20 74 32 3b 0a 20 20 20 20 7d 7d 20 65  ROM t2;.    }} e
24a0: 72 72 5d 0a 20 20 20 20 69 66 20 7b 24 72 63 20  rr].    if {$rc 
24b0: 26 26 20 24 65 72 72 21 3d 22 6e 6f 20 73 75 63  && $err!="no suc
24c0: 68 20 74 61 62 6c 65 3a 20 74 31 22 7d 20 7b 0a  h table: t1"} {.
24d0: 20 20 20 20 20 20 65 72 72 6f 72 20 24 65 72 72        error $err
24e0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 69 66  .    }.  }.}..if
24f0: 20 7b 24 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28   {$tcl_platform(
2500: 70 6c 61 74 66 6f 72 6d 29 21 3d 22 77 69 6e 64  platform)!="wind
2510: 6f 77 73 22 7d 20 7b 0a 20 20 64 6f 5f 6d 61 6c  ows"} {.  do_mal
2520: 6c 6f 63 5f 74 65 73 74 20 31 34 20 2d 74 63 6c  loc_test 14 -tcl
2530: 70 72 65 70 20 7b 0a 20 20 20 20 63 61 74 63 68  prep {.    catch
2540: 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 20 20   {db close}.    
2550: 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73 74  sqlite3 db2 test
2560: 32 2e 64 62 0a 20 20 20 20 73 71 6c 69 74 65 33  2.db.    sqlite3
2570: 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74  _extended_result
2580: 5f 63 6f 64 65 73 20 64 62 32 20 31 0a 20 20 20  _codes db2 1.   
2590: 20 64 62 32 20 65 76 61 6c 20 7b 0a 20 20 20 20   db2 eval {.    
25a0: 20 20 50 52 41 47 4d 41 20 73 79 6e 63 68 72 6f    PRAGMA synchro
25b0: 6e 6f 75 73 20 3d 20 30 3b 0a 20 20 20 20 20 20  nous = 0;.      
25c0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28  CREATE TABLE t1(
25d0: 61 2c 20 62 29 3b 0a 20 20 20 20 20 20 49 4e 53  a, b);.      INS
25e0: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
25f0: 45 53 28 31 2c 20 32 29 3b 0a 20 20 20 20 20 20  ES(1, 2);.      
2600: 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 49 4e 53  BEGIN;.      INS
2610: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
2620: 45 53 28 33 2c 20 34 29 3b 0a 20 20 20 20 7d 0a  ES(3, 4);.    }.
2630: 20 20 20 20 63 6f 70 79 5f 66 69 6c 65 20 74 65      copy_file te
2640: 73 74 32 2e 64 62 20 74 65 73 74 2e 64 62 0a 20  st2.db test.db. 
2650: 20 20 20 63 6f 70 79 5f 66 69 6c 65 20 74 65 73     copy_file tes
2660: 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 20 74 65  t2.db-journal te
2670: 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20  st.db-journal.  
2680: 20 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 7d 20    db2 close.  } 
2690: 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 20 20 73  -tclbody {.    s
26a0: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
26b0: 62 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 65 78  b.    sqlite3_ex
26c0: 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f  tended_result_co
26d0: 64 65 73 20 64 62 20 31 0a 0a 20 20 20 20 23 20  des db 1..    # 
26e0: 49 66 20 61 6e 20 6f 75 74 2d 6f 66 2d 6d 65 6d  If an out-of-mem
26f0: 6f 72 79 20 6f 63 63 75 72 73 20 77 69 74 68 69  ory occurs withi
2700: 6e 20 61 20 63 61 6c 6c 20 74 6f 20 61 20 56 46  n a call to a VF
2710: 53 20 6c 61 79 65 72 20 66 75 6e 63 74 69 6f 6e  S layer function
2720: 20 64 75 72 69 6e 67 0a 20 20 20 20 23 20 68 6f   during.    # ho
2730: 74 2d 6a 6f 75 72 6e 61 6c 20 72 6f 6c 6c 62 61  t-journal rollba
2740: 63 6b 2c 20 73 71 6c 69 74 65 20 77 69 6c 6c 20  ck, sqlite will 
2750: 72 65 70 6f 72 74 20 53 51 4c 49 54 45 5f 43 4f  report SQLITE_CO
2760: 52 52 55 50 54 2e 20 53 65 65 20 63 6f 6d 6d 69  RRUPT. See commi
2770: 74 0a 20 20 20 20 23 20 5b 35 36 36 38 5d 20 66  t.    # [5668] f
2780: 6f 72 20 64 65 74 61 69 6c 73 2e 0a 20 20 20 20  or details..    
2790: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 64  set rc [catch {d
27a0: 62 20 65 76 61 6c 20 7b 20 53 45 4c 45 43 54 20  b eval { SELECT 
27b0: 2a 20 46 52 4f 4d 20 74 31 20 7d 7d 20 6d 73 67  * FROM t1 }} msg
27c0: 5d 0a 20 20 20 20 69 66 20 7b 24 6d 73 67 20 65  ].    if {$msg e
27d0: 71 20 22 64 61 74 61 62 61 73 65 20 64 69 73 6b  q "database disk
27e0: 20 69 6d 61 67 65 20 69 73 20 6d 61 6c 66 6f 72   image is malfor
27f0: 6d 65 64 22 7d 20 7b 20 73 65 74 20 6d 73 67 20  med"} { set msg 
2800: 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 20  "out of memory" 
2810: 7d 0a 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b  }.    if {$rc} {
2820: 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20 20   error $msg }.  
2830: 20 20 73 65 74 20 6d 73 67 0a 20 20 7d 0a 7d 0a    set msg.  }.}.
2840: 0a 70 72 6f 63 20 73 74 72 69 6e 67 5f 63 6f 6d  .proc string_com
2850: 70 61 72 65 20 7b 61 20 62 7d 20 7b 0a 20 20 72  pare {a b} {.  r
2860: 65 74 75 72 6e 20 5b 73 74 72 69 6e 67 20 63 6f  eturn [string co
2870: 6d 70 61 72 65 20 24 61 20 24 62 5d 0a 7d 0a 0a  mpare $a $b].}..
2880: 23 20 54 65 73 74 20 66 6f 72 20 6d 61 6c 6c 6f  # Test for mallo
2890: 63 28 29 20 66 61 69 6c 75 72 65 73 20 69 6e 20  c() failures in 
28a0: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 63  sqlite3_create_c
28b0: 6f 6c 6c 61 74 69 6f 6e 28 29 20 61 6e 64 20 0a  ollation() and .
28c0: 23 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65  # sqlite3_create
28d0: 5f 63 6f 6c 6c 61 74 69 6f 6e 31 36 28 29 2e 0a  _collation16()..
28e0: 23 0a 69 66 63 61 70 61 62 6c 65 20 75 74 66 31  #.ifcapable utf1
28f0: 36 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f  6 {.  do_malloc_
2900: 74 65 73 74 20 31 35 20 2d 73 74 61 72 74 20 34  test 15 -start 4
2910: 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 20 20   -tclbody {.    
2920: 64 62 20 63 6f 6c 6c 61 74 65 20 73 74 72 69 6e  db collate strin
2930: 67 5f 63 6f 6d 70 61 72 65 20 73 74 72 69 6e 67  g_compare string
2940: 5f 63 6f 6d 70 61 72 65 0a 20 20 20 20 69 66 20  _compare.    if 
2950: 7b 5b 63 61 74 63 68 20 7b 61 64 64 5f 74 65 73  {[catch {add_tes
2960: 74 5f 63 6f 6c 6c 61 74 65 20 64 62 20 31 20 31  t_collate db 1 1
2970: 20 31 7d 20 6d 73 67 5d 7d 20 7b 0a 20 20 20 20   1} msg]} {.    
2980: 20 20 69 66 20 7b 24 6d 73 67 3d 3d 22 53 51 4c    if {$msg=="SQL
2990: 49 54 45 5f 4e 4f 4d 45 4d 22 7d 20 7b 73 65 74  ITE_NOMEM"} {set
29a0: 20 6d 73 67 20 22 6f 75 74 20 6f 66 20 6d 65 6d   msg "out of mem
29b0: 6f 72 79 22 7d 0a 20 20 20 20 20 20 65 72 72 6f  ory"}.      erro
29c0: 72 20 24 6d 73 67 0a 20 20 20 20 7d 0a 20 20 0a  r $msg.    }.  .
29d0: 20 20 20 20 64 62 20 63 6f 6d 70 6c 65 74 65 20      db complete 
29e0: 7b 53 45 4c 45 43 54 20 22 68 65 6c 6c 6f 20 22  {SELECT "hello "
29f0: 22 22 7c 7c 27 77 6f 72 6c 64 22 27 20 5b 6d 69  ""||'world"' [mi
2a00: 63 72 6f 73 6f 66 74 5d 2c 20 2a 20 46 52 4f 4d  crosoft], * FROM
2a10: 20 61 6e 69 63 65 74 61 62 6c 65 3b 7d 0a 20 20   anicetable;}.  
2a20: 20 20 64 62 20 63 6f 6d 70 6c 65 74 65 20 7b 2d    db complete {-
2a30: 2d 20 55 73 65 66 75 6c 20 63 6f 6d 6d 65 6e 74  - Useful comment
2a40: 7d 0a 20 20 0a 20 20 20 20 65 78 65 63 73 71 6c  }.  .    execsql
2a50: 20 7b 0a 20 20 20 20 20 20 43 52 45 41 54 45 20   {.      CREATE 
2a60: 54 41 42 4c 45 20 74 31 28 61 2c 20 62 20 43 4f  TABLE t1(a, b CO
2a70: 4c 4c 41 54 45 20 73 74 72 69 6e 67 5f 63 6f 6d  LLATE string_com
2a80: 70 61 72 65 29 3b 0a 20 20 20 20 20 20 49 4e 53  pare);.      INS
2a90: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
2aa0: 45 53 28 31 30 2c 20 27 73 74 72 69 6e 67 27 29  ES(10, 'string')
2ab0: 3b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49  ;.      INSERT I
2ac0: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31 30  NTO t1 VALUES(10
2ad0: 2c 20 27 73 74 72 69 6e 67 32 27 29 3b 0a 20 20  , 'string2');.  
2ae0: 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 41 6c 73    }.  }.}..# Als
2af0: 6f 20 74 65 73 74 20 73 71 6c 69 74 65 33 5f 63  o test sqlite3_c
2b00: 6f 6d 70 6c 65 74 65 28 29 2e 20 54 68 65 72 65  omplete(). There
2b10: 20 61 72 65 20 28 63 75 72 72 65 6e 74 6c 79 29   are (currently)
2b20: 20 6e 6f 20 6d 61 6c 6c 6f 63 28 29 0a 23 20 63   no malloc().# c
2b30: 61 6c 6c 73 20 69 6e 20 74 68 69 73 20 66 75 6e  alls in this fun
2b40: 63 74 69 6f 6e 2c 20 62 75 74 20 74 65 73 74 20  ction, but test 
2b50: 61 6e 79 77 61 79 20 61 67 61 69 6e 73 74 20 66  anyway against f
2b60: 75 74 75 72 65 20 63 68 61 6e 67 65 73 2e 0a 23  uture changes..#
2b70: 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20  .do_malloc_test 
2b80: 31 36 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20  16 -tclbody {.  
2b90: 64 62 20 63 6f 6d 70 6c 65 74 65 20 7b 53 45 4c  db complete {SEL
2ba0: 45 43 54 20 22 68 65 6c 6c 6f 20 22 22 22 7c 7c  ECT "hello """||
2bb0: 27 77 6f 72 6c 64 22 27 20 5b 6d 69 63 72 6f 73  'world"' [micros
2bc0: 6f 66 74 5d 2c 20 2a 20 46 52 4f 4d 20 61 6e 69  oft], * FROM ani
2bd0: 63 65 74 61 62 6c 65 3b 7d 0a 20 20 64 62 20 63  cetable;}.  db c
2be0: 6f 6d 70 6c 65 74 65 20 7b 2d 2d 20 55 73 65 66  omplete {-- Usef
2bf0: 75 6c 20 63 6f 6d 6d 65 6e 74 7d 0a 20 20 64 62  ul comment}.  db
2c00: 20 65 76 61 6c 20 7b 0a 20 20 20 20 53 45 4c 45   eval {.    SELE
2c10: 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65  CT * FROM sqlite
2c20: 5f 6d 61 73 74 65 72 3b 0a 20 20 7d 0a 7d 0a 0a  _master;.  }.}..
2c30: 23 20 54 65 73 74 20 68 61 6e 64 6c 69 6e 67 20  # Test handling 
2c40: 6f 66 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 6c  of malloc() fail
2c50: 75 72 65 73 20 69 6e 20 73 71 6c 69 74 65 33 5f  ures in sqlite3_
2c60: 6f 70 65 6e 31 36 28 29 2e 0a 23 0a 69 66 63 61  open16()..#.ifca
2c70: 70 61 62 6c 65 20 75 74 66 31 36 20 7b 0a 20 20  pable utf16 {.  
2c80: 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 31  do_malloc_test 1
2c90: 37 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 20  7 -tclbody {.   
2ca0: 20 73 65 74 20 44 42 32 20 30 0a 20 20 20 20 73   set DB2 0.    s
2cb0: 65 74 20 53 54 4d 54 20 30 0a 20 20 0a 20 20 20  et STMT 0.  .   
2cc0: 20 23 20 6f 70 65 6e 20 64 61 74 61 62 61 73 65   # open database
2cd0: 20 75 73 69 6e 67 20 73 71 6c 69 74 65 33 5f 6f   using sqlite3_o
2ce0: 70 65 6e 31 36 28 29 0a 20 20 20 20 73 65 74 20  pen16().    set 
2cf0: 66 69 6c 65 6e 61 6d 65 20 5b 65 6e 63 6f 64 69  filename [encodi
2d00: 6e 67 20 63 6f 6e 76 65 72 74 74 6f 20 75 6e 69  ng convertto uni
2d10: 63 6f 64 65 20 74 65 73 74 2e 64 62 5d 0a 20 20  code test.db].  
2d20: 20 20 61 70 70 65 6e 64 20 66 69 6c 65 6e 61 6d    append filenam
2d30: 65 20 22 5c 78 30 30 5c 78 30 30 22 0a 20 20 20  e "\x00\x00".   
2d40: 20 73 65 74 20 44 42 32 20 5b 73 71 6c 69 74 65   set DB2 [sqlite
2d50: 33 5f 6f 70 65 6e 31 36 20 24 66 69 6c 65 6e 61  3_open16 $filena
2d60: 6d 65 20 2d 75 6e 75 73 65 64 5d 0a 20 20 20 20  me -unused].    
2d70: 69 66 20 7b 30 3d 3d 24 44 42 32 7d 20 7b 0a 20  if {0==$DB2} {. 
2d80: 20 20 20 20 20 65 72 72 6f 72 20 22 6f 75 74 20       error "out 
2d90: 6f 66 20 6d 65 6d 6f 72 79 22 0a 20 20 20 20 7d  of memory".    }
2da0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 65 78 74  .    sqlite3_ext
2db0: 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64  ended_result_cod
2dc0: 65 73 20 24 44 42 32 20 31 0a 20 20 0a 20 20 20  es $DB2 1.  .   
2dd0: 20 23 20 50 72 65 70 61 72 65 20 73 74 61 74 65   # Prepare state
2de0: 6d 65 6e 74 0a 20 20 20 20 73 65 74 20 72 63 20  ment.    set rc 
2df0: 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 33 5f  [catch {sqlite3_
2e00: 70 72 65 70 61 72 65 20 24 44 42 32 20 7b 53 45  prepare $DB2 {SE
2e10: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69  LECT * FROM sqli
2e20: 74 65 5f 6d 61 73 74 65 72 7d 20 2d 31 20 58 7d  te_master} -1 X}
2e30: 20 6d 73 67 5d 0a 20 20 20 20 69 66 20 7b 5b 73   msg].    if {[s
2e40: 71 6c 69 74 65 33 5f 65 72 72 63 6f 64 65 20 24  qlite3_errcode $
2e50: 44 42 32 5d 20 65 71 20 22 53 51 4c 49 54 45 5f  DB2] eq "SQLITE_
2e60: 49 4f 45 52 52 2b 31 32 22 7d 20 7b 0a 20 20 20  IOERR+12"} {.   
2e70: 20 20 20 65 72 72 6f 72 20 22 6f 75 74 20 6f 66     error "out of
2e80: 20 6d 65 6d 6f 72 79 22 0a 20 20 20 20 7d 0a 20   memory".    }. 
2e90: 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 22     if {[regexp "
2ea0: 2e 2a 61 75 74 6f 6d 61 74 69 63 20 65 78 74 65  .*automatic exte
2eb0: 6e 73 69 6f 6e 20 6c 6f 61 64 69 6e 67 2e 2a 22  nsion loading.*"
2ec0: 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67   [sqlite3_errmsg
2ed0: 20 24 44 42 32 5d 5d 7d 20 7b 0a 20 20 20 20 20   $DB2]]} {.     
2ee0: 20 65 72 72 6f 72 20 22 6f 75 74 20 6f 66 20 6d   error "out of m
2ef0: 65 6d 6f 72 79 22 0a 20 20 20 20 7d 0a 20 20 20  emory".    }.   
2f00: 20 69 66 20 7b 24 72 63 7d 20 7b 0a 20 20 20 20   if {$rc} {.    
2f10: 20 20 65 72 72 6f 72 20 5b 73 74 72 69 6e 67 20    error [string 
2f20: 72 61 6e 67 65 20 24 6d 73 67 20 34 20 65 6e 64  range $msg 4 end
2f30: 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20  ].    }.    set 
2f40: 53 54 4d 54 20 24 6d 73 67 0a 20 20 0a 20 20 20  STMT $msg.  .   
2f50: 20 23 20 46 69 6e 61 6c 69 7a 65 20 73 74 61 74   # Finalize stat
2f60: 65 6d 65 6e 74 0a 20 20 20 20 73 65 74 20 72 63  ement.    set rc
2f70: 20 5b 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69   [sqlite3_finali
2f80: 7a 65 20 24 53 54 4d 54 5d 0a 20 20 20 20 69 66  ze $STMT].    if
2f90: 20 7b 24 72 63 21 3d 22 53 51 4c 49 54 45 5f 4f   {$rc!="SQLITE_O
2fa0: 4b 22 7d 20 7b 0a 20 20 20 20 20 20 65 72 72 6f  K"} {.      erro
2fb0: 72 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 6d 73  r [sqlite3_errms
2fc0: 67 20 24 44 42 32 5d 0a 20 20 20 20 7d 0a 20 20  g $DB2].    }.  
2fd0: 20 20 73 65 74 20 53 54 4d 54 20 30 0a 20 20 0a    set STMT 0.  .
2fe0: 20 20 20 20 23 20 43 6c 6f 73 65 20 64 61 74 61      # Close data
2ff0: 62 61 73 65 0a 20 20 20 20 73 65 74 20 72 63 20  base.    set rc 
3000: 5b 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 20 24  [sqlite3_close $
3010: 44 42 32 5d 0a 20 20 20 20 69 66 20 7b 24 72 63  DB2].    if {$rc
3020: 21 3d 22 53 51 4c 49 54 45 5f 4f 4b 22 7d 20 7b  !="SQLITE_OK"} {
3030: 0a 20 20 20 20 20 20 65 72 72 6f 72 20 5b 73 71  .      error [sq
3040: 6c 69 74 65 33 5f 65 72 72 6d 73 67 20 24 44 42  lite3_errmsg $DB
3050: 32 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74  2].    }.    set
3060: 20 44 42 32 20 30 0a 20 20 7d 20 2d 63 6c 65 61   DB2 0.  } -clea
3070: 6e 75 70 20 7b 0a 20 20 20 20 69 66 20 7b 24 53  nup {.    if {$S
3080: 54 4d 54 21 3d 22 30 22 7d 20 7b 0a 20 20 20 20  TMT!="0"} {.    
3090: 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69    sqlite3_finali
30a0: 7a 65 20 24 53 54 4d 54 0a 20 20 20 20 7d 0a 20  ze $STMT.    }. 
30b0: 20 20 20 69 66 20 7b 24 44 42 32 21 3d 22 30 22     if {$DB2!="0"
30c0: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72 63  } {.      set rc
30d0: 20 5b 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 20   [sqlite3_close 
30e0: 24 44 42 32 5d 0a 20 20 20 20 7d 0a 20 20 7d 0a  $DB2].    }.  }.
30f0: 7d 0a 0a 23 20 54 65 73 74 20 68 61 6e 64 6c 69  }..# Test handli
3100: 6e 67 20 6f 66 20 6d 61 6c 6c 6f 63 28 29 20 66  ng of malloc() f
3110: 61 69 6c 75 72 65 73 20 69 6e 20 73 71 6c 69 74  ailures in sqlit
3120: 65 33 5f 65 72 72 6d 73 67 31 36 28 29 2e 0a 23  e3_errmsg16()..#
3130: 0a 69 66 63 61 70 61 62 6c 65 20 75 74 66 31 36  .ifcapable utf16
3140: 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74   {.  do_malloc_t
3150: 65 73 74 20 31 38 20 2d 74 63 6c 70 72 65 70 20  est 18 -tclprep 
3160: 7b 0a 20 20 20 20 63 61 74 63 68 20 7b 0a 20 20  {.    catch {.  
3170: 20 20 20 20 64 62 20 65 76 61 6c 20 22 53 45 4c      db eval "SEL
3180: 45 43 54 20 5b 73 74 72 69 6e 67 20 72 65 70 65  ECT [string repe
3190: 61 74 20 6c 6f 6e 67 63 6f 6c 75 6d 6e 6e 61 6d  at longcolumnnam
31a0: 65 20 31 30 5d 20 46 52 4f 4d 20 73 71 6c 69 74  e 10] FROM sqlit
31b0: 65 5f 6d 61 73 74 65 72 22 0a 20 20 20 20 7d 0a  e_master".    }.
31c0: 20 20 7d 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20    } -tclbody {. 
31d0: 20 20 20 73 65 74 20 75 74 66 31 36 20 5b 73 71     set utf16 [sq
31e0: 6c 69 74 65 33 5f 65 72 72 6d 73 67 31 36 20 5b  lite3_errmsg16 [
31f0: 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69  sqlite3_connecti
3200: 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 5d 0a  on_pointer db]].
3210: 20 20 20 20 62 69 6e 61 72 79 20 73 63 61 6e 20      binary scan 
3220: 24 75 74 66 31 36 20 63 2a 20 62 79 74 65 73 0a  $utf16 c* bytes.
3230: 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68      if {[llength
3240: 20 24 62 79 74 65 73 5d 3d 3d 30 7d 20 7b 0a 20   $bytes]==0} {. 
3250: 20 20 20 20 20 65 72 72 6f 72 20 22 6f 75 74 20       error "out 
3260: 6f 66 20 6d 65 6d 6f 72 79 22 0a 20 20 20 20 7d  of memory".    }
3270: 0a 20 20 7d 0a 7d 0a 0a 23 20 54 68 69 73 20 74  .  }.}..# This t
3280: 65 73 74 20 69 73 20 61 69 6d 65 64 20 61 74 20  est is aimed at 
3290: 63 6f 76 65 72 61 67 65 20 74 65 73 74 69 6e 67  coverage testing
32a0: 2e 20 53 70 65 63 69 66 69 63 6c 79 2c 20 69 74  . Specificly, it
32b0: 20 69 73 20 73 75 70 70 6f 73 65 64 20 74 6f 0a   is supposed to.
32c0: 23 20 63 61 75 73 65 20 61 20 6d 61 6c 6c 6f 63  # cause a malloc
32d0: 28 29 20 6f 6e 6c 79 20 75 73 65 64 20 77 68 65  () only used whe
32e0: 6e 20 63 6f 6e 76 65 72 74 69 6e 67 20 62 65 74  n converting bet
32f0: 77 65 65 6e 20 74 68 65 20 74 77 6f 20 75 74 66  ween the two utf
3300: 2d 31 36 20 0a 23 20 65 6e 63 6f 64 69 6e 67 73  -16 .# encodings
3310: 20 74 6f 20 66 61 69 6c 20 28 69 2e 65 2e 20 6c   to fail (i.e. l
3320: 69 74 74 6c 65 2d 65 6e 64 69 61 6e 2d 3e 62 69  ittle-endian->bi
3330: 67 2d 65 6e 64 69 61 6e 29 2e 20 49 74 20 6f 6e  g-endian). It on
3340: 6c 79 20 61 63 74 75 61 6c 6c 79 20 0a 23 20 68  ly actually .# h
3350: 69 74 73 20 74 68 69 73 20 6d 61 6c 6c 6f 63 28  its this malloc(
3360: 29 20 6f 6e 20 6c 69 74 74 6c 65 2d 65 6e 64 69  ) on little-endi
3370: 61 6e 20 68 6f 73 74 73 2e 0a 23 0a 73 65 74 20  an hosts..#.set 
3380: 73 74 61 74 69 63 5f 73 74 72 69 6e 67 20 22 5c  static_string "\
3390: 78 30 30 68 5c 78 30 30 65 5c 78 30 30 6c 5c 78  x00h\x00e\x00l\x
33a0: 30 30 6c 5c 78 30 30 6f 22 0a 66 6f 72 20 7b 73  00l\x00o".for {s
33b0: 65 74 20 6c 20 30 7d 20 7b 24 6c 3c 31 30 7d 20  et l 0} {$l<10} 
33c0: 7b 69 6e 63 72 20 6c 7d 20 7b 0a 20 20 61 70 70  {incr l} {.  app
33d0: 65 6e 64 20 73 74 61 74 69 63 5f 73 74 72 69 6e  end static_strin
33e0: 67 20 24 73 74 61 74 69 63 5f 73 74 72 69 6e 67  g $static_string
33f0: 0a 7d 0a 61 70 70 65 6e 64 20 73 74 61 74 69 63  .}.append static
3400: 5f 73 74 72 69 6e 67 20 22 5c 78 30 30 5c 78 30  _string "\x00\x0
3410: 30 22 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73  0".do_malloc_tes
3420: 74 20 31 39 20 2d 74 63 6c 70 72 65 70 20 7b 0a  t 19 -tclprep {.
3430: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
3440: 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20  PRAGMA encoding 
3450: 3d 20 22 55 54 46 31 36 62 65 22 3b 0a 20 20 20  = "UTF16be";.   
3460: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 61 62   CREATE TABLE ab
3470: 63 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 7d 0a  c(a, b, c);.  }.
3480: 7d 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 75  } -tclbody {.  u
3490: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
34a0: 20 3a 3a 53 54 4d 54 0a 20 20 73 65 74 20 72 20   ::STMT.  set r 
34b0: 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 73 65 74  [catch {.    set
34c0: 20 3a 3a 53 54 4d 54 20 5b 73 71 6c 69 74 65 33   ::STMT [sqlite3
34d0: 5f 70 72 65 70 61 72 65 20 64 62 20 7b 53 45 4c  _prepare db {SEL
34e0: 45 43 54 20 3f 7d 20 2d 31 20 44 55 4d 4d 59 5d  ECT ?} -1 DUMMY]
34f0: 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e  .    sqlite3_bin
3500: 64 5f 74 65 78 74 31 36 20 2d 73 74 61 74 69 63  d_text16 -static
3510: 20 24 3a 3a 53 54 4d 54 20 31 20 24 73 74 61 74   $::STMT 1 $stat
3520: 69 63 5f 73 74 72 69 6e 67 20 31 31 32 0a 20 20  ic_string 112.  
3530: 7d 20 6d 73 67 5d 0a 20 20 69 66 20 7b 24 72 7d  } msg].  if {$r}
3540: 20 7b 65 72 72 6f 72 20 5b 73 74 72 69 6e 67 20   {error [string 
3550: 72 61 6e 67 65 20 24 6d 73 67 20 34 20 65 6e 64  range $msg 4 end
3560: 5d 7d 0a 20 20 73 65 74 20 6d 73 67 0a 7d 20 2d  ]}.  set msg.} -
3570: 63 6c 65 61 6e 75 70 20 7b 0a 20 20 69 66 20 7b  cleanup {.  if {
3580: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53  [info exists ::S
3590: 54 4d 54 5d 7d 20 7b 0a 20 20 20 20 73 71 6c 69  TMT]} {.    sqli
35a0: 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 3a 3a  te3_finalize $::
35b0: 53 54 4d 54 0a 20 20 7d 0a 7d 0a 75 6e 73 65 74  STMT.  }.}.unset
35c0: 20 73 74 61 74 69 63 5f 73 74 72 69 6e 67 0a 0a   static_string..
35d0: 23 20 4d 61 6b 65 20 73 75 72 65 20 53 51 4c 49  # Make sure SQLI
35e0: 54 45 5f 4e 4f 4d 45 4d 20 69 73 20 72 65 70 6f  TE_NOMEM is repo
35f0: 72 74 65 64 20 6f 75 74 20 6f 6e 20 61 6e 20 41  rted out on an A
3600: 54 54 41 43 48 20 66 61 69 6c 75 72 65 20 65 76  TTACH failure ev
3610: 65 6e 0a 23 20 77 68 65 6e 20 74 68 65 20 6d 61  en.# when the ma
3620: 6c 6c 6f 63 20 66 61 69 6c 75 72 65 20 6f 63 63  lloc failure occ
3630: 75 72 73 20 77 69 74 68 69 6e 20 74 68 65 20 6e  urs within the n
3640: 65 73 74 65 64 20 70 61 72 73 65 2e 0a 23 0a 69  ested parse..#.i
3650: 66 63 61 70 61 62 6c 65 20 61 74 74 61 63 68 20  fcapable attach 
3660: 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  {.  do_malloc_te
3670: 73 74 20 32 30 20 2d 74 63 6c 70 72 65 70 20 7b  st 20 -tclprep {
3680: 0a 20 20 20 20 64 62 20 63 6c 6f 73 65 0a 20 20  .    db close.  
3690: 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66    file delete -f
36a0: 6f 72 63 65 20 74 65 73 74 32 2e 64 62 20 74 65  orce test2.db te
36b0: 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20  st2.db-journal. 
36c0: 20 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65     sqlite3 db te
36d0: 73 74 32 2e 64 62 0a 20 20 20 20 73 71 6c 69 74  st2.db.    sqlit
36e0: 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75  e3_extended_resu
36f0: 6c 74 5f 63 6f 64 65 73 20 64 62 20 31 0a 20 20  lt_codes db 1.  
3700: 20 20 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54    db eval {CREAT
3710: 45 20 54 41 42 4c 45 20 74 31 28 78 29 3b 7d 0a  E TABLE t1(x);}.
3720: 20 20 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 7d      db close.  }
3730: 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 20 20   -tclbody {.    
3740: 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69  if {[catch {sqli
3750: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 7d 5d  te3 db test.db}]
3760: 7d 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20  } {.      error 
3770: 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 0a  "out of memory".
3780: 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65      }.    sqlite
3790: 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c  3_extended_resul
37a0: 74 5f 63 6f 64 65 73 20 64 62 20 31 0a 20 20 7d  t_codes db 1.  }
37b0: 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 20 20   -sqlbody {.    
37c0: 41 54 54 41 43 48 20 44 41 54 41 42 41 53 45 20  ATTACH DATABASE 
37d0: 27 74 65 73 74 32 2e 64 62 27 20 41 53 20 74 32  'test2.db' AS t2
37e0: 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46  ;.    SELECT * F
37f0: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 44 45 54 41  ROM t1;.    DETA
3800: 43 48 20 44 41 54 41 42 41 53 45 20 74 32 3b 0a  CH DATABASE t2;.
3810: 20 20 7d 20 0a 7d 0a 0a 23 20 54 65 73 74 20 6d    } .}..# Test m
3820: 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65 20 77 68  alloc failure wh
3830: 69 6c 73 74 20 69 6e 73 74 61 6c 6c 69 6e 67 20  ilst installing 
3840: 61 20 66 6f 72 65 69 67 6e 20 6b 65 79 2e 0a 23  a foreign key..#
3850: 0a 69 66 63 61 70 61 62 6c 65 20 66 6f 72 65 69  .ifcapable forei
3860: 67 6e 6b 65 79 20 7b 0a 20 20 64 6f 5f 6d 61 6c  gnkey {.  do_mal
3870: 6c 6f 63 5f 74 65 73 74 20 32 31 20 2d 73 71 6c  loc_test 21 -sql
3880: 62 6f 64 79 20 7b 0a 20 20 20 20 43 52 45 41 54  body {.    CREAT
3890: 45 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62  E TABLE abc(a, b
38a0: 2c 20 63 2c 20 46 4f 52 45 49 47 4e 20 4b 45 59  , c, FOREIGN KEY
38b0: 28 61 29 20 52 45 46 45 52 45 4e 43 45 53 20 61  (a) REFERENCES a
38c0: 62 63 28 62 29 29 0a 20 20 7d 20 0a 7d 0a 0a 23  bc(b)).  } .}..#
38d0: 20 54 65 73 74 20 6d 61 6c 6c 6f 63 20 66 61 69   Test malloc fai
38e0: 6c 75 72 65 20 69 6e 20 61 6e 20 73 71 6c 69 74  lure in an sqlit
38f0: 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28 29 20  e3_prepare_v2() 
3900: 63 61 6c 6c 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f  call..#.do_mallo
3910: 63 5f 74 65 73 74 20 32 32 20 2d 74 63 6c 62 6f  c_test 22 -tclbo
3920: 64 79 20 7b 0a 20 20 73 65 74 20 3a 3a 53 54 4d  dy {.  set ::STM
3930: 54 20 22 22 0a 20 20 73 65 74 20 72 20 5b 63 61  T "".  set r [ca
3940: 74 63 68 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a  tch {.    set ::
3950: 53 54 4d 54 20 5b 0a 20 20 20 20 20 20 73 71 6c  STMT [.      sql
3960: 69 74 65 33 5f 70 72 65 70 61 72 65 5f 76 32 20  ite3_prepare_v2 
3970: 64 62 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f  db "SELECT * FRO
3980: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 22  M sqlite_master"
3990: 20 2d 31 20 44 55 4d 4d 59 0a 20 20 20 20 5d 0a   -1 DUMMY.    ].
39a0: 20 20 7d 20 6d 73 67 5d 0a 20 20 69 66 20 7b 24    } msg].  if {$
39b0: 72 7d 20 7b 65 72 72 6f 72 20 5b 73 74 72 69 6e  r} {error [strin
39c0: 67 20 72 61 6e 67 65 20 24 6d 73 67 20 34 20 65  g range $msg 4 e
39d0: 6e 64 5d 7d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20  nd]}.} -cleanup 
39e0: 7b 0a 20 20 69 66 20 7b 24 3a 3a 53 54 4d 54 20  {.  if {$::STMT 
39f0: 6e 65 20 22 22 7d 20 7b 0a 20 20 20 20 73 71 6c  ne ""} {.    sql
3a00: 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 3a  ite3_finalize $:
3a10: 3a 53 54 4d 54 0a 20 20 20 20 73 65 74 20 3a 3a  :STMT.    set ::
3a20: 53 54 4d 54 20 22 22 0a 20 20 7d 0a 7d 0a 0a 69  STMT "".  }.}..i
3a30: 66 63 61 70 61 62 6c 65 20 7b 70 61 67 65 72 5f  fcapable {pager_
3a40: 70 72 61 67 6d 61 73 7d 20 7b 0a 20 20 23 20 54  pragmas} {.  # T
3a50: 68 69 73 20 74 65 73 74 73 20 61 20 73 70 65 63  his tests a spec
3a60: 69 61 6c 20 63 61 73 65 20 2d 20 74 68 61 74 20  ial case - that 
3a70: 61 6e 20 65 72 72 6f 72 20 74 68 61 74 20 6f 63  an error that oc
3a80: 63 75 72 73 20 77 68 69 6c 65 20 74 68 65 20 70  curs while the p
3a90: 61 67 65 72 0a 20 20 23 20 69 73 20 74 72 79 69  ager.  # is tryi
3aa0: 6e 67 20 74 6f 20 72 65 63 6f 76 65 72 20 66 72  ng to recover fr
3ab0: 6f 6d 20 65 72 72 6f 72 2d 73 74 61 74 65 20 69  om error-state i
3ac0: 6e 20 65 78 63 6c 75 73 69 76 65 2d 61 63 63 65  n exclusive-acce
3ad0: 73 73 20 6d 6f 64 65 20 77 6f 72 6b 73 2e 0a 20  ss mode works.. 
3ae0: 20 23 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74   #.  do_malloc_t
3af0: 65 73 74 20 32 33 20 2d 74 63 6c 70 72 65 70 20  est 23 -tclprep 
3b00: 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b 0a  {.    db eval {.
3b10: 20 20 20 20 20 20 50 52 41 47 4d 41 20 63 61 63        PRAGMA cac
3b20: 68 65 5f 73 69 7a 65 20 3d 20 31 30 3b 0a 20 20  he_size = 10;.  
3b30: 20 20 20 20 50 52 41 47 4d 41 20 6c 6f 63 6b 69      PRAGMA locki
3b40: 6e 67 5f 6d 6f 64 65 20 3d 20 65 78 63 6c 75 73  ng_mode = exclus
3b50: 69 76 65 3b 0a 20 20 20 20 20 20 42 45 47 49 4e  ive;.      BEGIN
3b60: 3b 0a 20 20 20 20 20 20 43 52 45 41 54 45 20 54  ;.      CREATE T
3b70: 41 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63  ABLE abc(a, b, c
3b80: 29 3b 0a 20 20 20 20 20 20 43 52 45 41 54 45 20  );.      CREATE 
3b90: 49 4e 44 45 58 20 61 62 63 5f 69 20 4f 4e 20 61  INDEX abc_i ON a
3ba0: 62 63 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 20  bc(a, b, c);.   
3bb0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61     INSERT INTO a
3bc0: 62 63 20 0a 20 20 20 20 20 20 20 20 56 41 4c 55  bc .        VALU
3bd0: 45 53 28 72 61 6e 64 73 74 72 28 31 30 30 2c 31  ES(randstr(100,1
3be0: 30 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30  00), randstr(100
3bf0: 2c 31 30 30 29 2c 20 72 61 6e 64 73 74 72 28 31  ,100), randstr(1
3c00: 30 30 2c 31 30 30 29 29 3b 0a 20 20 20 20 20 20  00,100));.      
3c10: 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20  INSERT INTO abc 
3c20: 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20  .        SELECT 
3c30: 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29  randstr(100,100)
3c40: 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30  , randstr(100,10
3c50: 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c  0), randstr(100,
3c60: 31 30 30 29 20 46 52 4f 4d 20 61 62 63 3b 0a 20  100) FROM abc;. 
3c70: 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f       INSERT INTO
3c80: 20 61 62 63 20 0a 20 20 20 20 20 20 20 20 53 45   abc .        SE
3c90: 4c 45 43 54 20 72 61 6e 64 73 74 72 28 31 30 30  LECT randstr(100
3ca0: 2c 31 30 30 29 2c 20 72 61 6e 64 73 74 72 28 31  ,100), randstr(1
3cb0: 30 30 2c 31 30 30 29 2c 20 72 61 6e 64 73 74 72  00,100), randstr
3cc0: 28 31 30 30 2c 31 30 30 29 20 46 52 4f 4d 20 61  (100,100) FROM a
3cd0: 62 63 3b 0a 20 20 20 20 20 20 49 4e 53 45 52 54  bc;.      INSERT
3ce0: 20 49 4e 54 4f 20 61 62 63 20 0a 20 20 20 20 20   INTO abc .     
3cf0: 20 20 20 53 45 4c 45 43 54 20 72 61 6e 64 73 74     SELECT randst
3d00: 72 28 31 30 30 2c 31 30 30 29 2c 20 72 61 6e 64  r(100,100), rand
3d10: 73 74 72 28 31 30 30 2c 31 30 30 29 2c 20 72 61  str(100,100), ra
3d20: 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29 20 46  ndstr(100,100) F
3d30: 52 4f 4d 20 61 62 63 3b 0a 20 20 20 20 20 20 49  ROM abc;.      I
3d40: 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20 0a  NSERT INTO abc .
3d50: 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 72          SELECT r
3d60: 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29 2c  andstr(100,100),
3d70: 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30   randstr(100,100
3d80: 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31  ), randstr(100,1
3d90: 30 30 29 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20  00) FROM abc;.  
3da0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
3db0: 61 62 63 20 0a 20 20 20 20 20 20 20 20 53 45 4c  abc .        SEL
3dc0: 45 43 54 20 72 61 6e 64 73 74 72 28 31 30 30 2c  ECT randstr(100,
3dd0: 31 30 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30  100), randstr(10
3de0: 30 2c 31 30 30 29 2c 20 72 61 6e 64 73 74 72 28  0,100), randstr(
3df0: 31 30 30 2c 31 30 30 29 20 46 52 4f 4d 20 61 62  100,100) FROM ab
3e00: 63 3b 0a 20 20 20 20 20 20 43 4f 4d 4d 49 54 3b  c;.      COMMIT;
3e10: 0a 20 20 20 20 7d 0a 20 20 0a 20 20 20 20 23 20  .    }.  .    # 
3e20: 54 68 69 73 20 70 75 74 73 20 74 68 65 20 70 61  This puts the pa
3e30: 67 65 72 20 69 6e 74 6f 20 65 72 72 6f 72 20 73  ger into error s
3e40: 74 61 74 65 2e 0a 20 20 20 20 23 0a 20 20 20 20  tate..    #.    
3e50: 64 62 20 65 76 61 6c 20 42 45 47 49 4e 0a 20 20  db eval BEGIN.  
3e60: 20 20 64 62 20 65 76 61 6c 20 7b 55 50 44 41 54    db eval {UPDAT
3e70: 45 20 61 62 63 20 53 45 54 20 61 20 3d 20 30 20  E abc SET a = 0 
3e80: 57 48 45 52 45 20 6f 69 64 25 32 7d 0a 20 20 20  WHERE oid%2}.   
3e90: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
3ea0: 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 31  _error_pending 1
3eb0: 30 0a 20 20 20 20 63 61 74 63 68 20 7b 64 62 20  0.    catch {db 
3ec0: 65 76 61 6c 20 7b 52 4f 4c 4c 42 41 43 4b 7d 7d  eval {ROLLBACK}}
3ed0: 20 6d 73 67 0a 0a 20 20 7d 20 2d 74 63 6c 62 6f   msg..  } -tclbo
3ee0: 64 79 20 7b 0a 20 20 20 20 23 20 49 66 20 61 6e  dy {.    # If an
3ef0: 20 6f 75 74 2d 6f 66 2d 6d 65 6d 6f 72 79 20 6f   out-of-memory o
3f00: 63 63 75 72 73 20 77 69 74 68 69 6e 20 61 20 63  ccurs within a c
3f10: 61 6c 6c 20 74 6f 20 61 20 56 46 53 20 6c 61 79  all to a VFS lay
3f20: 65 72 20 66 75 6e 63 74 69 6f 6e 20 64 75 72 69  er function duri
3f30: 6e 67 0a 20 20 20 20 23 20 68 6f 74 2d 6a 6f 75  ng.    # hot-jou
3f40: 72 6e 61 6c 20 72 6f 6c 6c 62 61 63 6b 2c 20 73  rnal rollback, s
3f50: 71 6c 69 74 65 20 77 69 6c 6c 20 72 65 70 6f 72  qlite will repor
3f60: 74 20 53 51 4c 49 54 45 5f 43 4f 52 52 55 50 54  t SQLITE_CORRUPT
3f70: 2e 20 53 65 65 20 63 6f 6d 6d 69 74 0a 20 20 20  . See commit.   
3f80: 20 23 20 5b 35 36 36 38 5d 20 66 6f 72 20 64 65   # [5668] for de
3f90: 74 61 69 6c 73 2e 0a 20 20 20 20 73 65 74 20 72  tails..    set r
3fa0: 63 20 5b 63 61 74 63 68 20 7b 64 62 20 65 76 61  c [catch {db eva
3fb0: 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f  l { SELECT * FRO
3fc0: 4d 20 61 62 63 20 4c 49 4d 49 54 20 31 30 20 7d  M abc LIMIT 10 }
3fd0: 7d 20 6d 73 67 5d 0a 20 20 20 20 69 66 20 7b 24  } msg].    if {$
3fe0: 6d 73 67 20 65 71 20 22 64 61 74 61 62 61 73 65  msg eq "database
3ff0: 20 64 69 73 6b 20 69 6d 61 67 65 20 69 73 20 6d   disk image is m
4000: 61 6c 66 6f 72 6d 65 64 22 7d 20 7b 20 73 65 74  alformed"} { set
4010: 20 6d 73 67 20 22 6f 75 74 20 6f 66 20 6d 65 6d   msg "out of mem
4020: 6f 72 79 22 20 7d 0a 20 20 20 20 69 66 20 7b 24  ory" }.    if {$
4030: 72 63 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73 67  rc} { error $msg
4040: 20 7d 0a 20 20 20 20 73 65 74 20 6d 73 67 0a 20   }.    set msg. 
4050: 20 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20   } -cleanup {.  
4060: 20 20 73 65 74 20 65 20 5b 64 62 20 65 76 61 6c    set e [db eval
4070: 20 7b 50 52 41 47 4d 41 20 69 6e 74 65 67 72 69   {PRAGMA integri
4080: 74 79 5f 63 68 65 63 6b 7d 5d 0a 20 20 20 20 69  ty_check}].    i
4090: 66 20 7b 24 65 20 6e 65 20 22 6f 6b 22 7d 20 7b  f {$e ne "ok"} {
40a0: 65 72 72 6f 72 20 24 65 7d 0a 20 20 7d 0a 7d 0a  error $e}.  }.}.
40b0: 0a 69 66 63 61 70 61 62 6c 65 20 63 6f 6d 70 6f  .ifcapable compo
40c0: 75 6e 64 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f  und {.  do_mallo
40d0: 63 5f 74 65 73 74 20 32 34 20 2d 73 71 6c 70 72  c_test 24 -sqlpr
40e0: 65 70 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20  ep {.    CREATE 
40f0: 54 41 42 4c 45 20 74 31 28 61 2c 20 62 2c 20 63  TABLE t1(a, b, c
4100: 29 0a 20 20 7d 20 2d 73 71 6c 62 6f 64 79 20 7b  ).  } -sqlbody {
4110: 0a 20 20 20 20 53 45 4c 45 43 54 20 31 20 46 52  .    SELECT 1 FR
4120: 4f 4d 20 74 31 20 55 4e 49 4f 4e 20 53 45 4c 45  OM t1 UNION SELE
4130: 43 54 20 32 20 46 52 4f 4d 20 74 31 20 4f 52 44  CT 2 FROM t1 ORD
4140: 45 52 20 42 59 20 31 0a 20 20 7d 0a 7d 0a 0a 69  ER BY 1.  }.}..i
4150: 66 63 61 70 61 62 6c 65 20 76 69 65 77 26 26 74  fcapable view&&t
4160: 72 69 67 67 65 72 20 7b 0a 20 20 64 6f 5f 6d 61  rigger {.  do_ma
4170: 6c 6c 6f 63 5f 74 65 73 74 20 32 35 20 2d 73 71  lloc_test 25 -sq
4180: 6c 70 72 65 70 20 7b 0a 20 20 20 20 43 52 45 41  lprep {.    CREA
4190: 54 45 20 54 41 42 4c 45 20 74 31 28 61 2c 20 62  TE TABLE t1(a, b
41a0: 2c 20 63 29 3b 0a 20 20 20 20 43 52 45 41 54 45  , c);.    CREATE
41b0: 20 56 49 45 57 20 76 31 20 41 53 20 53 45 4c 45   VIEW v1 AS SELE
41c0: 43 54 20 2a 20 46 52 4f 4d 20 74 31 3b 0a 20 20  CT * FROM t1;.  
41d0: 20 20 43 52 45 41 54 45 20 54 52 49 47 47 45 52    CREATE TRIGGER
41e0: 20 76 31 74 31 20 49 4e 53 54 45 41 44 20 4f 46   v1t1 INSTEAD OF
41f0: 20 44 45 4c 45 54 45 20 4f 4e 20 76 31 20 42 45   DELETE ON v1 BE
4200: 47 49 4e 20 53 45 4c 45 43 54 20 31 3b 20 45 4e  GIN SELECT 1; EN
4210: 44 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 52  D;.    CREATE TR
4220: 49 47 47 45 52 20 76 31 74 32 20 49 4e 53 54 45  IGGER v1t2 INSTE
4230: 41 44 20 4f 46 20 49 4e 53 45 52 54 20 4f 4e 20  AD OF INSERT ON 
4240: 76 31 20 42 45 47 49 4e 20 53 45 4c 45 43 54 20  v1 BEGIN SELECT 
4250: 31 3b 20 45 4e 44 3b 0a 20 20 20 20 43 52 45 41  1; END;.    CREA
4260: 54 45 20 54 52 49 47 47 45 52 20 76 31 74 33 20  TE TRIGGER v1t3 
4270: 49 4e 53 54 45 41 44 20 4f 46 20 55 50 44 41 54  INSTEAD OF UPDAT
4280: 45 20 4f 4e 20 76 31 20 42 45 47 49 4e 20 53 45  E ON v1 BEGIN SE
4290: 4c 45 43 54 20 31 3b 20 45 4e 44 3b 0a 20 20 7d  LECT 1; END;.  }
42a0: 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 20 20   -sqlbody {.    
42b0: 44 45 4c 45 54 45 20 46 52 4f 4d 20 76 31 20 57  DELETE FROM v1 W
42c0: 48 45 52 45 20 61 20 3d 20 31 3b 0a 20 20 20 20  HERE a = 1;.    
42d0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 76 31 20 56  INSERT INTO v1 V
42e0: 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 0a  ALUES(1, 2, 3);.
42f0: 20 20 20 20 55 50 44 41 54 45 20 76 31 20 53 45      UPDATE v1 SE
4300: 54 20 61 20 3d 20 31 20 57 48 45 52 45 20 62 20  T a = 1 WHERE b 
4310: 3d 20 32 3b 0a 20 20 7d 0a 7d 0a 0a 64 6f 5f 6d  = 2;.  }.}..do_m
4320: 61 6c 6c 6f 63 5f 74 65 73 74 20 32 35 20 2d 73  alloc_test 25 -s
4330: 71 6c 70 72 65 70 20 7b 0a 20 20 43 52 45 41 54  qlprep {.  CREAT
4340: 45 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62  E TABLE abc(a, b
4350: 2c 20 63 29 3b 0a 20 20 43 52 45 41 54 45 20 49  , c);.  CREATE I
4360: 4e 44 45 58 20 69 31 20 4f 4e 20 61 62 63 28 61  NDEX i1 ON abc(a
4370: 2c 20 62 29 3b 0a 20 20 49 4e 53 45 52 54 20 49  , b);.  INSERT I
4380: 4e 54 4f 20 61 62 63 20 56 41 4c 55 45 53 28 31  NTO abc VALUES(1
4390: 2c 20 32 2c 20 33 29 3b 0a 20 20 49 4e 53 45 52  , 2, 3);.  INSER
43a0: 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55 45  T INTO abc VALUE
43b0: 53 28 34 2c 20 35 2c 20 36 29 3b 0a 7d 20 2d 74  S(4, 5, 6);.} -t
43c0: 63 6c 62 6f 64 79 20 7b 0a 20 20 23 20 46 6f 72  clbody {.  # For
43d0: 20 65 61 63 68 20 55 50 44 41 54 45 20 65 78 65   each UPDATE exe
43e0: 63 75 74 65 64 2c 20 74 68 65 20 63 75 72 73 6f  cuted, the curso
43f0: 72 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 53  r used for the S
4400: 45 4c 45 43 54 20 73 74 61 74 65 6d 65 6e 74 0a  ELECT statement.
4410: 20 20 23 20 6d 75 73 74 20 62 65 20 22 73 61 76    # must be "sav
4420: 65 64 22 2e 20 42 65 63 61 75 73 65 20 74 68 65  ed". Because the
4430: 20 63 75 72 73 6f 72 20 69 73 20 6f 70 65 6e 20   cursor is open 
4440: 6f 6e 20 61 6e 20 69 6e 64 65 78 2c 20 74 68 69  on an index, thi
4450: 73 20 72 65 71 75 69 72 65 73 0a 20 20 23 20 61  s requires.  # a
4460: 20 6d 61 6c 6c 6f 63 28 29 20 74 6f 20 61 6c 6c   malloc() to all
4470: 6f 63 61 74 65 20 73 70 61 63 65 20 74 6f 20 73  ocate space to s
4480: 61 76 65 20 74 68 65 20 69 6e 64 65 78 20 6b 65  ave the index ke
4490: 79 2e 20 54 68 69 73 20 74 65 73 74 20 63 61 73  y. This test cas
44a0: 65 20 69 73 0a 20 20 23 20 61 69 6d 65 64 20 61  e is.  # aimed a
44b0: 74 20 74 65 73 74 69 6e 67 20 74 68 65 20 72 65  t testing the re
44c0: 73 70 6f 6e 73 65 20 6f 66 20 74 68 65 20 6c 69  sponse of the li
44d0: 62 72 61 72 79 20 74 6f 20 61 20 66 61 69 6c 75  brary to a failu
44e0: 72 65 20 69 6e 20 74 68 61 74 0a 20 20 23 20 70  re in that.  # p
44f0: 61 72 74 69 63 75 6c 61 72 20 6d 61 6c 6c 6f 63  articular malloc
4500: 28 29 20 63 61 6c 6c 2e 0a 20 20 64 62 20 65 76  () call..  db ev
4510: 61 6c 20 7b 53 45 4c 45 43 54 20 61 20 46 52 4f  al {SELECT a FRO
4520: 4d 20 61 62 63 20 4f 52 44 45 52 20 42 59 20 61  M abc ORDER BY a
4530: 7d 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20  } {.    db eval 
4540: 7b 55 50 44 41 54 45 20 61 62 63 20 53 45 54 20  {UPDATE abc SET 
4550: 62 20 3d 20 62 20 2d 20 31 20 57 48 45 52 45 20  b = b - 1 WHERE 
4560: 61 20 3d 20 24 61 7d 0a 20 20 7d 0a 7d 0a 0a 23  a = $a}.  }.}..#
4570: 20 54 68 69 73 20 74 65 73 74 20 69 73 20 64 65   This test is de
4580: 73 69 67 6e 65 64 20 74 6f 20 74 65 73 74 20 61  signed to test a
4590: 20 73 70 65 63 69 66 69 63 20 6a 75 6e 63 74 75   specific junctu
45a0: 72 65 20 69 6e 20 74 68 65 20 73 71 6c 69 74 65  re in the sqlite
45b0: 20 63 6f 64 65 2e 0a 23 20 54 68 65 20 64 61 74   code..# The dat
45c0: 61 62 61 73 65 20 73 65 74 20 75 70 20 62 79 20  abase set up by 
45d0: 2d 73 71 6c 70 72 65 70 20 73 63 72 69 70 74 20  -sqlprep script 
45e0: 63 6f 6e 74 61 69 6e 73 20 61 20 73 69 6e 67 6c  contains a singl
45f0: 65 20 74 61 62 6c 65 20 42 2d 54 72 65 65 0a 23  e table B-Tree.#
4600: 20 6f 66 20 68 65 69 67 68 74 20 32 2e 20 49 6e   of height 2. In
4610: 20 74 68 65 20 2d 74 63 6c 62 6f 64 79 20 73 63   the -tclbody sc
4620: 72 69 70 74 2c 20 74 68 65 20 65 78 69 73 74 69  ript, the existi
4630: 6e 67 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e  ng database conn
4640: 65 63 74 69 6f 6e 0a 23 20 69 73 20 63 6c 6f 73  ection.# is clos
4650: 65 64 20 61 6e 64 20 61 20 6e 65 77 20 6f 6e 65  ed and a new one
4660: 20 6f 70 65 6e 65 64 20 61 6e 64 20 75 73 65 64   opened and used
4670: 20 74 6f 20 69 6e 73 65 72 74 20 61 20 6e 65 77   to insert a new
4680: 20 72 6f 77 20 69 6e 74 6f 20 74 68 65 0a 23 20   row into the.# 
4690: 74 61 62 6c 65 20 42 2d 54 72 65 65 2e 20 42 79  table B-Tree. By
46a0: 20 75 73 69 6e 67 20 61 20 6e 65 77 20 63 6f 6e   using a new con
46b0: 6e 65 63 74 69 6f 6e 2c 20 74 68 65 20 6f 75 74  nection, the out
46c0: 63 6f 6d 65 20 6f 66 20 61 20 6d 61 6c 6c 6f 63  come of a malloc
46d0: 28 29 20 0a 23 20 66 61 69 6c 75 72 65 20 77 68  () .# failure wh
46e0: 69 6c 65 20 73 65 65 6b 69 6e 67 20 74 6f 20 74  ile seeking to t
46f0: 68 65 20 72 69 67 68 74 2d 68 61 6e 64 20 73 69  he right-hand si
4700: 64 65 20 6f 66 20 74 68 65 20 42 2d 54 72 65 65  de of the B-Tree
4710: 20 74 6f 20 69 6e 73 65 72 74 20 0a 23 20 61 20   to insert .# a 
4720: 6e 65 77 20 72 65 63 6f 72 64 20 63 61 6e 20 62  new record can b
4730: 65 20 74 65 73 74 65 64 2e 0a 23 0a 64 6f 5f 6d  e tested..#.do_m
4740: 61 6c 6c 6f 63 5f 74 65 73 74 20 32 36 20 2d 73  alloc_test 26 -s
4750: 71 6c 70 72 65 70 20 7b 0a 20 20 42 45 47 49 4e  qlprep {.  BEGIN
4760: 3b 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c 45  ;.  CREATE TABLE
4770: 20 74 31 28 61 2c 20 62 29 3b 0a 20 20 49 4e 53   t1(a, b);.  INS
4780: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
4790: 45 53 28 31 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62  ES(1, randomblob
47a0: 28 32 31 30 29 29 3b 0a 20 20 49 4e 53 45 52 54  (210));.  INSERT
47b0: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
47c0: 31 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 32 31  1, randomblob(21
47d0: 30 29 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e  0));.  INSERT IN
47e0: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31 2c 20  TO t1 VALUES(1, 
47f0: 72 61 6e 64 6f 6d 62 6c 6f 62 28 32 31 30 29 29  randomblob(210))
4800: 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  ;.  INSERT INTO 
4810: 74 31 20 56 41 4c 55 45 53 28 31 2c 20 72 61 6e  t1 VALUES(1, ran
4820: 64 6f 6d 62 6c 6f 62 28 32 31 30 29 29 3b 0a 20  domblob(210));. 
4830: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
4840: 56 41 4c 55 45 53 28 31 2c 20 72 61 6e 64 6f 6d  VALUES(1, random
4850: 62 6c 6f 62 28 32 31 30 29 29 3b 0a 20 20 43 4f  blob(210));.  CO
4860: 4d 4d 49 54 3b 0a 7d 20 2d 74 63 6c 62 6f 64 79  MMIT;.} -tclbody
4870: 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20   {.  db close.  
4880: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
4890: 64 62 0a 20 20 64 62 20 65 76 61 6c 20 7b 20 49  db.  db eval { I
48a0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
48b0: 4c 55 45 53 28 31 2c 20 72 61 6e 64 6f 6d 62 6c  LUES(1, randombl
48c0: 6f 62 28 32 31 30 29 29 20 7d 0a 7d 0a 0a 23 20  ob(210)) }.}..# 
48d0: 54 65 73 74 20 74 68 61 74 20 6e 6f 20 6d 65 6d  Test that no mem
48e0: 6f 72 79 20 69 73 20 6c 65 61 6b 65 64 20 66 6f  ory is leaked fo
48f0: 6c 6c 6f 77 69 6e 67 20 61 20 6d 61 6c 6c 6f 63  llowing a malloc
4900: 28 29 20 66 61 69 6c 75 72 65 20 69 6e 0a 23 20  () failure in.# 
4910: 73 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c 69  sqlite3_initiali
4920: 7a 65 28 29 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f  ze()..#.do_mallo
4930: 63 5f 74 65 73 74 20 32 37 20 2d 74 63 6c 70 72  c_test 27 -tclpr
4940: 65 70 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a  ep {.  db close.
4950: 20 20 73 71 6c 69 74 65 33 5f 73 68 75 74 64 6f    sqlite3_shutdo
4960: 77 6e 0a 7d 20 2d 74 63 6c 62 6f 64 79 20 7b 0a  wn.} -tclbody {.
4970: 20 20 73 65 74 20 72 63 20 5b 73 71 6c 69 74 65    set rc [sqlite
4980: 33 5f 69 6e 69 74 69 61 6c 69 7a 65 5d 0a 20 20  3_initialize].  
4990: 69 66 20 7b 24 72 63 20 3d 3d 20 22 53 51 4c 49  if {$rc == "SQLI
49a0: 54 45 5f 4e 4f 4d 45 4d 22 7d 20 7b 0a 20 20 20  TE_NOMEM"} {.   
49b0: 20 65 72 72 6f 72 20 22 6f 75 74 20 6f 66 20 6d   error "out of m
49c0: 65 6d 6f 72 79 22 0a 20 20 7d 0a 7d 0a 0a 23 20  emory".  }.}..# 
49d0: 54 65 73 74 20 74 68 61 74 20 6d 61 6c 6c 6f 63  Test that malloc
49e0: 20 66 61 69 6c 75 72 65 73 20 74 68 61 74 20 6f   failures that o
49f0: 63 63 75 72 20 77 68 69 6c 65 20 70 72 6f 63 65  ccur while proce
4a00: 73 73 69 6e 67 20 49 4e 44 45 58 45 44 20 42 59  ssing INDEXED BY
4a10: 0a 23 20 63 6c 61 75 73 65 73 20 61 72 65 20 68  .# clauses are h
4a20: 61 6e 64 6c 65 64 20 63 6f 72 72 65 63 74 6c 79  andled correctly
4a30: 2e 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74  ..do_malloc_test
4a40: 20 32 38 20 2d 73 71 6c 70 72 65 70 20 7b 0a 20   28 -sqlprep {. 
4a50: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31   CREATE TABLE t1
4a60: 28 61 2c 20 62 29 3b 0a 20 20 43 52 45 41 54 45  (a, b);.  CREATE
4a70: 20 49 4e 44 45 58 20 69 31 20 4f 4e 20 74 31 28   INDEX i1 ON t1(
4a80: 61 29 3b 0a 20 20 43 52 45 41 54 45 20 56 49 45  a);.  CREATE VIE
4a90: 57 20 76 31 20 41 53 20 53 45 4c 45 43 54 20 2a  W v1 AS SELECT *
4aa0: 20 46 52 4f 4d 20 74 31 20 49 4e 44 45 58 45 44   FROM t1 INDEXED
4ab0: 20 42 59 20 69 31 20 57 48 45 52 45 20 61 20 3d   BY i1 WHERE a =
4ac0: 20 31 30 3b 0a 7d 20 2d 73 71 6c 62 6f 64 79 20   10;.} -sqlbody 
4ad0: 7b 0a 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f  {.  SELECT * FRO
4ae0: 4d 20 74 31 20 49 4e 44 45 58 45 44 20 42 59 20  M t1 INDEXED BY 
4af0: 69 31 20 4f 52 44 45 52 20 42 59 20 61 3b 0a 20  i1 ORDER BY a;. 
4b00: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 76   SELECT * FROM v
4b10: 31 3b 0a 7d 0a 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f  1;.}..do_malloc_
4b20: 74 65 73 74 20 32 39 20 2d 73 71 6c 70 72 65 70  test 29 -sqlprep
4b30: 20 7b 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c   {.  CREATE TABL
4b40: 45 20 74 31 28 61 20 54 45 58 54 2c 20 62 20 54  E t1(a TEXT, b T
4b50: 45 58 54 29 3b 0a 7d 20 2d 73 71 6c 62 6f 64 79  EXT);.} -sqlbody
4b60: 20 7b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f   {.  INSERT INTO
4b70: 20 74 31 20 56 41 4c 55 45 53 28 31 2c 20 2d 32   t1 VALUES(1, -2
4b80: 33 34 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e  34);.  INSERT IN
4b90: 54 4f 20 74 31 20 53 45 4c 45 43 54 20 2a 20 46  TO t1 SELECT * F
4ba0: 52 4f 4d 20 74 31 20 55 4e 49 4f 4e 20 41 4c 4c  ROM t1 UNION ALL
4bb0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
4bc0: 31 3b 0a 7d 0a 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f  1;.}..do_malloc_
4bd0: 74 65 73 74 20 33 30 20 2d 74 63 6c 70 72 65 70  test 30 -tclprep
4be0: 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20   {.  db eval {. 
4bf0: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
4c00: 74 31 28 78 20 50 52 49 4d 41 52 59 20 4b 45 59  t1(x PRIMARY KEY
4c10: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
4c20: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 72 61 6e  TO t1 VALUES(ran
4c30: 64 73 74 72 28 35 30 30 2c 35 30 30 29 29 3b 0a  dstr(500,500));.
4c40: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
4c50: 74 31 20 56 41 4c 55 45 53 28 72 61 6e 64 73 74  t1 VALUES(randst
4c60: 72 28 35 30 30 2c 35 30 30 29 29 3b 0a 20 20 20  r(500,500));.   
4c70: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
4c80: 56 41 4c 55 45 53 28 72 61 6e 64 73 74 72 28 35  VALUES(randstr(5
4c90: 30 30 2c 35 30 30 29 29 3b 0a 20 20 7d 0a 20 20  00,500));.  }.  
4ca0: 64 62 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69 74  db close.  sqlit
4cb0: 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 0a 20  e3 db test.db.. 
4cc0: 20 23 20 54 68 65 20 44 45 4c 45 54 45 20 63 6f   # The DELETE co
4cd0: 6d 6d 61 6e 64 20 69 6e 20 74 68 65 20 66 6f 6c  mmand in the fol
4ce0: 6c 6f 77 69 6e 67 20 62 6c 6f 63 6b 20 6d 6f 76  lowing block mov
4cf0: 65 73 20 74 68 65 20 6f 76 65 72 66 6c 6f 77 20  es the overflow 
4d00: 70 61 67 65 73 20 74 68 61 74 0a 20 20 23 20 61  pages that.  # a
4d10: 72 65 20 70 61 72 74 20 6f 66 20 74 68 65 20 70  re part of the p
4d20: 72 69 6d 61 72 79 20 6b 65 79 20 69 6e 64 65 78  rimary key index
4d30: 20 74 6f 20 74 68 65 20 66 72 65 65 2d 6c 69 73   to the free-lis
4d40: 74 2e 20 42 75 74 20 69 74 20 64 6f 65 73 20 6e  t. But it does n
4d50: 6f 74 0a 20 20 23 20 61 63 74 75 61 6c 6c 79 20  ot.  # actually 
4d60: 6c 6f 61 64 20 74 68 65 20 63 6f 6e 74 65 6e 74  load the content
4d70: 20 6f 66 20 74 68 65 20 70 61 67 65 73 2e 20 54   of the pages. T
4d80: 68 69 73 20 6c 65 61 64 73 20 74 6f 20 74 68 65  his leads to the
4d90: 20 70 65 63 75 6c 69 61 72 0a 20 20 23 20 73 69   peculiar.  # si
4da0: 74 75 61 74 69 6f 6e 20 77 68 65 72 65 20 63 61  tuation where ca
4db0: 63 68 65 20 65 6e 74 72 69 65 73 20 65 78 69 73  che entries exis
4dc0: 74 2c 20 62 75 74 20 61 72 65 20 6e 6f 74 20 70  t, but are not p
4dd0: 6f 70 75 6c 61 74 65 64 20 77 69 74 68 20 64 61  opulated with da
4de0: 74 61 2e 0a 20 20 23 20 54 68 65 79 20 61 72 65  ta..  # They are
4df0: 20 70 6f 70 75 6c 61 74 65 64 20 6e 65 78 74 20   populated next 
4e00: 74 69 6d 65 20 74 68 65 79 20 61 72 65 20 72 65  time they are re
4e10: 71 75 65 73 74 65 64 20 62 79 20 74 68 65 20 62  quested by the b
4e20: 2d 74 72 65 65 20 6c 61 79 65 72 2e 0a 20 20 23  -tree layer..  #
4e30: 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20  .  db eval {.   
4e40: 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 44 45   BEGIN;.      DE
4e50: 4c 45 54 45 20 46 52 4f 4d 20 74 31 3b 0a 20 20  LETE FROM t1;.  
4e60: 20 20 52 4f 4c 4c 42 41 43 4b 3b 0a 20 20 7d 0a    ROLLBACK;.  }.
4e70: 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 2d  } -sqlbody {.  -
4e80: 2d 20 54 68 69 73 20 73 74 61 74 65 6d 65 6e 74  - This statement
4e90: 20 72 65 71 75 69 72 65 73 20 74 68 65 20 27 6e   requires the 'n
4ea0: 6f 2d 63 6f 6e 74 65 6e 74 27 20 70 61 67 65 73  o-content' pages
4eb0: 20 6c 6f 61 64 65 64 20 62 79 20 74 68 65 20 44   loaded by the D
4ec0: 45 4c 45 54 45 0a 20 20 2d 2d 20 73 74 61 74 65  ELETE.  -- state
4ed0: 6d 65 6e 74 20 61 62 6f 76 65 2e 20 57 68 65 6e  ment above. When
4ee0: 20 72 65 71 75 65 73 74 69 6e 67 20 74 68 65 20   requesting the 
4ef0: 70 61 67 65 73 2c 20 74 68 65 20 63 6f 6e 74 65  pages, the conte
4f00: 6e 74 20 69 73 20 6c 6f 61 64 65 64 0a 20 20 2d  nt is loaded.  -
4f10: 2d 20 66 72 6f 6d 20 74 68 65 20 64 61 74 61 62  - from the datab
4f20: 61 73 65 20 66 69 6c 65 2e 20 54 68 65 20 70 6f  ase file. The po
4f30: 69 6e 74 20 6f 66 20 74 68 69 73 20 74 65 73 74  int of this test
4f40: 20 63 61 73 65 20 69 73 20 74 6f 20 74 65 73 74   case is to test
4f50: 20 68 61 6e 64 6c 69 6e 67 0a 20 20 2d 2d 20 6f   handling.  -- o
4f60: 66 20 6d 61 6c 6c 6f 63 20 65 72 72 6f 72 73 20  f malloc errors 
4f70: 28 69 6e 63 6c 75 64 69 6e 67 20 53 51 4c 49 54  (including SQLIT
4f80: 45 5f 49 4f 45 52 52 5f 4e 4f 4d 45 4d 20 65 72  E_IOERR_NOMEM er
4f90: 72 6f 72 73 29 20 77 68 65 6e 20 6c 6f 61 64 69  rors) when loadi
4fa0: 6e 67 0a 20 20 2d 2d 20 74 68 65 20 63 6f 6e 74  ng.  -- the cont
4fb0: 65 6e 74 2e 0a 20 20 53 45 4c 45 43 54 20 2a 20  ent..  SELECT * 
4fc0: 46 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42 59  FROM t1 ORDER BY
4fd0: 20 78 3b 0a 7d 0a 0a 23 20 41 66 74 65 72 20 63   x;.}..# After c
4fe0: 6f 6d 6d 69 74 74 69 6e 67 20 61 20 74 72 61 6e  ommitting a tran
4ff0: 73 61 63 74 69 6f 6e 20 69 6e 20 70 65 72 73 69  saction in persi
5000: 73 74 65 6e 74 2d 6a 6f 75 72 6e 61 6c 20 6d 6f  stent-journal mo
5010: 64 65 2c 20 69 66 20 61 20 6a 6f 75 72 6e 61 6c  de, if a journal
5020: 0a 23 20 73 69 7a 65 20 6c 69 6d 69 74 20 69 73  .# size limit is
5030: 20 63 6f 6e 66 69 67 75 72 65 64 20 53 51 4c 69   configured SQLi
5040: 74 65 20 6d 61 79 20 61 74 74 65 6d 70 74 20 74  te may attempt t
5050: 6f 20 74 72 75 6e 63 61 74 65 20 74 68 65 20 6a  o truncate the j
5060: 6f 75 72 6e 61 6c 20 66 69 6c 65 2e 0a 23 20 54  ournal file..# T
5070: 68 69 73 20 74 65 73 74 20 76 65 72 69 66 69 65  his test verifie
5080: 73 20 74 68 65 20 6c 69 62 72 61 72 69 65 73 20  s the libraries 
5090: 72 65 73 70 6f 6e 73 65 20 74 6f 20 61 20 6d 61  response to a ma
50a0: 6c 6c 6f 63 28 29 20 66 61 69 6c 75 72 65 20 64  lloc() failure d
50b0: 75 72 69 6e 67 0a 23 20 74 68 69 73 20 6f 70 65  uring.# this ope
50c0: 72 61 74 69 6f 6e 2e 0a 23 0a 64 6f 5f 6d 61 6c  ration..#.do_mal
50d0: 6c 6f 63 5f 74 65 73 74 20 33 31 20 2d 73 71 6c  loc_test 31 -sql
50e0: 70 72 65 70 20 7b 0a 20 20 50 52 41 47 4d 41 20  prep {.  PRAGMA 
50f0: 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 70  journal_mode = p
5100: 65 72 73 69 73 74 3b 0a 20 20 50 52 41 47 4d 41  ersist;.  PRAGMA
5110: 20 6a 6f 75 72 6e 61 6c 5f 73 69 7a 65 5f 6c 69   journal_size_li
5120: 6d 69 74 20 3d 20 31 30 32 34 3b 0a 20 20 43 52  mit = 1024;.  CR
5130: 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 61 20  EATE TABLE t1(a 
5140: 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 62 29 3b  PRIMARY KEY, b);
5150: 0a 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20  .} -sqlbody {.  
5160: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
5170: 41 4c 55 45 53 28 31 2c 20 32 29 3b 0a 7d 0a 0a  ALUES(1, 2);.}..
5180: 23 20 57 68 65 6e 20 77 72 69 74 74 65 6e 2c 20  # When written, 
5190: 74 68 69 73 20 74 65 73 74 20 70 72 6f 76 6f 6b  this test provok
51a0: 65 64 20 61 6e 20 6f 62 73 63 75 72 65 20 63 68  ed an obscure ch
51b0: 61 6e 67 65 2d 63 6f 75 6e 74 65 72 20 62 75 67  ange-counter bug
51c0: 2e 0a 23 20 0a 23 20 49 66 2c 20 77 68 65 6e 20  ..# .# If, when 
51d0: 72 75 6e 6e 69 6e 67 20 69 6e 20 65 78 63 6c 75  running in exclu
51e0: 73 69 76 65 20 6d 6f 64 65 2c 20 61 20 6d 61 6c  sive mode, a mal
51f0: 6c 6f 63 28 29 20 66 61 69 6c 75 72 65 20 6f 63  loc() failure oc
5200: 63 75 72 73 0a 23 20 61 66 74 65 72 20 74 68 65  curs.# after the
5210: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 63   database file c
5220: 68 61 6e 67 65 2d 63 6f 75 6e 74 65 72 20 68 61  hange-counter ha
5230: 73 20 62 65 65 6e 20 77 72 69 74 74 65 6e 20 62  s been written b
5240: 75 74 0a 23 20 62 65 66 6f 72 65 20 74 68 65 20  ut.# before the 
5250: 74 72 61 6e 73 61 63 74 69 6f 6e 20 68 61 73 20  transaction has 
5260: 62 65 65 6e 20 63 6f 6d 6d 69 74 74 65 64 2c 20  been committed, 
5270: 74 68 65 6e 20 74 68 65 20 74 72 61 6e 73 61 63  then the transac
5280: 74 69 6f 6e 0a 23 20 69 73 20 61 75 74 6f 6d 61  tion.# is automa
5290: 74 69 63 61 6c 6c 79 20 72 6f 6c 6c 65 64 20 62  tically rolled b
52a0: 61 63 6b 2e 20 48 6f 77 65 76 65 72 2c 20 69 6e  ack. However, in
52b0: 74 65 72 6e 61 6c 6c 79 20 74 68 65 20 0a 23 20  ternally the .# 
52c0: 50 61 67 65 72 2e 63 68 61 6e 67 65 43 6f 75 6e  Pager.changeCoun
52d0: 74 65 72 44 6f 6e 65 20 66 6c 61 67 20 77 61 73  terDone flag was
52e0: 20 62 65 69 6e 67 20 6c 65 66 74 20 73 65 74 2e   being left set.
52f0: 20 54 68 69 73 20 6d 65 61 6e 73 0a 23 20 74 68   This means.# th
5300: 61 74 20 69 66 20 74 68 65 20 73 61 6d 65 20 63  at if the same c
5310: 6f 6e 6e 65 63 74 69 6f 6e 20 61 74 74 65 6d 70  onnection attemp
5320: 74 73 20 61 6e 6f 74 68 65 72 20 74 72 61 6e 73  ts another trans
5330: 61 63 74 69 6f 6e 20 66 6f 6c 6c 6f 77 69 6e 67  action following
5340: 0a 23 20 74 68 65 20 6d 61 6c 6c 6f 63 20 66 61  .# the malloc fa
5350: 69 6c 75 72 65 20 61 6e 64 20 72 6f 6c 6c 62 61  ilure and rollba
5360: 63 6b 2c 20 74 68 65 20 63 68 61 6e 67 65 20 63  ck, the change c
5370: 6f 75 6e 74 65 72 20 77 69 6c 6c 20 6e 6f 74 0a  ounter will not.
5380: 23 20 62 65 20 75 70 64 61 74 65 64 2e 20 54 68  # be updated. Th
5390: 69 73 20 63 6f 75 6c 64 20 63 6f 72 72 75 70 74  is could corrupt
53a0: 20 61 6e 6f 74 68 65 72 20 70 72 6f 63 65 73 73   another process
53b0: 65 73 20 63 61 63 68 65 2e 0a 23 0a 64 6f 5f 6d  es cache..#.do_m
53c0: 61 6c 6c 6f 63 5f 74 65 73 74 20 33 32 20 2d 74  alloc_test 32 -t
53d0: 63 6c 70 72 65 70 20 7b 0a 20 20 23 20 42 75 69  clprep {.  # Bui
53e0: 6c 64 20 61 20 73 6d 61 6c 6c 20 64 61 74 61 62  ld a small datab
53f0: 61 73 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 61  ase containing a
5400: 6e 20 69 6e 64 65 78 65 64 20 74 61 62 6c 65 2e  n indexed table.
5410: 0a 20 20 23 0a 20 20 64 62 20 65 76 61 6c 20 7b  .  #.  db eval {
5420: 0a 20 20 20 20 50 52 41 47 4d 41 20 6c 6f 63 6b  .    PRAGMA lock
5430: 69 6e 67 5f 6d 6f 64 65 20 3d 20 6e 6f 72 6d 61  ing_mode = norma
5440: 6c 3b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20 20  l;.    BEGIN;.  
5450: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74    CREATE TABLE t
5460: 31 28 61 20 50 52 49 4d 41 52 59 20 4b 45 59 2c  1(a PRIMARY KEY,
5470: 20 62 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20   b);.    INSERT 
5480: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31  INTO t1 VALUES(1
5490: 2c 20 27 6f 6e 65 27 29 3b 0a 20 20 20 20 49 4e  , 'one');.    IN
54a0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
54b0: 55 45 53 28 32 2c 20 27 74 77 6f 27 29 3b 0a 20  UES(2, 'two');. 
54c0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
54d0: 31 20 56 41 4c 55 45 53 28 33 2c 20 27 74 68 72  1 VALUES(3, 'thr
54e0: 65 65 27 29 3b 0a 20 20 20 20 43 4f 4d 4d 49 54  ee');.    COMMIT
54f0: 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 6c 6f 63  ;.    PRAGMA loc
5500: 6b 69 6e 67 5f 6d 6f 64 65 20 3d 20 65 78 63 6c  king_mode = excl
5510: 75 73 69 76 65 3b 0a 20 20 7d 0a 0a 20 20 23 20  usive;.  }..  # 
5520: 4f 70 65 6e 20 61 20 73 65 63 6f 6e 64 20 64 61  Open a second da
5530: 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69 6f  tabase connectio
5540: 6e 2e 20 4c 6f 61 64 20 74 68 65 20 74 61 62 6c  n. Load the tabl
5550: 65 20 28 62 75 74 20 6e 6f 74 20 69 6e 64 65 78  e (but not index
5560: 29 0a 20 20 23 20 69 6e 74 6f 20 74 68 65 20 73  ).  # into the s
5570: 65 63 6f 6e 64 20 63 6f 6e 6e 65 63 74 69 6f 6e  econd connection
5580: 73 20 70 61 67 65 72 20 63 61 63 68 65 2e 0a 20  s pager cache.. 
5590: 20 23 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32   #.  sqlite3 db2
55a0: 20 74 65 73 74 2e 64 62 0a 20 20 64 62 32 20 65   test.db.  db2 e
55b0: 76 61 6c 20 7b 20 0a 20 20 20 20 50 52 41 47 4d  val { .    PRAGM
55c0: 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d  A locking_mode =
55d0: 20 6e 6f 72 6d 61 6c 3b 0a 20 20 20 20 53 45 4c   normal;.    SEL
55e0: 45 43 54 20 62 20 46 52 4f 4d 20 74 31 3b 0a 20  ECT b FROM t1;. 
55f0: 20 7d 0a 0a 7d 20 2d 74 63 6c 62 6f 64 79 20 7b   }..} -tclbody {
5600: 0a 20 20 23 20 52 75 6e 6e 69 6e 67 20 69 6e 20  .  # Running in 
5610: 65 78 63 6c 75 73 69 76 65 20 6d 6f 64 65 2c 20  exclusive mode, 
5620: 70 65 72 66 6f 72 6d 20 61 20 64 61 74 61 62 61  perform a databa
5630: 73 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 74  se transaction t
5640: 68 61 74 20 0a 20 20 23 20 6d 6f 64 69 66 69 65  hat .  # modifie
5650: 73 20 62 6f 74 68 20 74 68 65 20 64 61 74 61 62  s both the datab
5660: 61 73 65 20 74 61 62 6c 65 20 61 6e 64 20 69 6e  ase table and in
5670: 64 65 78 2e 20 46 6f 72 20 69 74 65 72 61 74 69  dex. For iterati
5680: 6f 6e 73 20 77 68 65 72 65 0a 20 20 23 20 74 68  ons where.  # th
5690: 65 20 6d 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65  e malloc failure
56a0: 20 6f 63 63 75 72 73 20 61 66 74 65 72 20 75 70   occurs after up
56b0: 64 61 74 69 6e 67 20 74 68 65 20 63 68 61 6e 67  dating the chang
56c0: 65 20 63 6f 75 6e 74 65 72 20 62 75 74 0a 20 20  e counter but.  
56d0: 23 20 62 65 66 6f 72 65 20 63 6f 6d 6d 69 74 74  # before committ
56e0: 69 6e 67 20 74 68 65 20 74 72 61 6e 73 61 63 74  ing the transact
56f0: 69 6f 6e 2c 20 74 68 69 73 20 73 68 6f 75 6c 64  ion, this should
5700: 20 72 65 73 75 6c 74 20 69 6e 20 74 68 65 0a 20   result in the. 
5710: 20 23 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 62   # transaction b
5720: 65 69 6e 67 20 72 6f 6c 6c 65 64 20 62 61 63 6b  eing rolled back
5730: 20 62 75 74 20 74 68 65 20 63 68 61 6e 67 65 43   but the changeC
5740: 6f 75 6e 74 65 72 44 6f 6e 65 20 66 6c 61 67 0a  ounterDone flag.
5750: 20 20 23 20 6c 65 66 74 20 73 65 74 2e 0a 20 20    # left set..  
5760: 23 0a 20 20 64 62 20 65 76 61 6c 20 7b 20 55 50  #.  db eval { UP
5770: 44 41 54 45 20 74 31 20 53 45 54 20 61 20 3d 20  DATE t1 SET a = 
5780: 61 20 2b 20 33 20 7d 0a 7d 20 2d 63 6c 65 61 6e  a + 3 }.} -clean
5790: 75 70 20 7b 0a 0a 20 20 23 20 50 65 72 66 6f 72  up {..  # Perfor
57a0: 6d 20 61 6e 6f 74 68 65 72 20 74 72 61 6e 73 61  m another transa
57b0: 63 74 69 6f 6e 20 75 73 69 6e 67 20 74 68 65 20  ction using the 
57c0: 66 69 72 73 74 20 63 6f 6e 6e 65 63 74 69 6f 6e  first connection
57d0: 2e 20 55 6e 6c 6f 63 6b 0a 20 20 23 20 74 68 65  . Unlock.  # the
57e0: 20 64 61 74 61 62 61 73 65 20 61 66 74 65 72 20   database after 
57f0: 64 6f 69 6e 67 20 73 6f 2e 20 49 66 20 74 68 69  doing so. If thi
5800: 73 20 69 73 20 6f 6e 65 20 6f 66 20 74 68 65 20  s is one of the 
5810: 72 69 67 68 74 20 69 74 65 72 61 74 69 6f 6e 73  right iterations
5820: 2c 0a 20 20 23 20 74 68 65 6e 20 74 68 69 73 20  ,.  # then this 
5830: 73 68 6f 75 6c 64 20 72 65 73 75 6c 74 20 69 6e  should result in
5840: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 63 6f   the database co
5850: 6e 74 65 6e 74 73 20 62 65 69 6e 67 20 75 70 64  ntents being upd
5860: 61 74 65 64 20 62 75 74 0a 20 20 23 20 74 68 65  ated but.  # the
5870: 20 63 68 61 6e 67 65 2d 63 6f 75 6e 74 65 72 20   change-counter 
5880: 6c 65 66 74 20 61 73 20 69 74 20 69 73 2e 0a 20  left as it is.. 
5890: 20 23 0a 20 20 64 62 20 65 76 61 6c 20 7b 20 0a   #.  db eval { .
58a0: 20 20 20 20 50 52 41 47 4d 41 20 6c 6f 63 6b 69      PRAGMA locki
58b0: 6e 67 5f 6d 6f 64 65 20 3d 20 6e 6f 72 6d 61 6c  ng_mode = normal
58c0: 3b 0a 20 20 20 20 55 50 44 41 54 45 20 74 31 20  ;.    UPDATE t1 
58d0: 53 45 54 20 61 20 3d 20 61 20 2b 20 33 3b 0a 20  SET a = a + 3;. 
58e0: 20 7d 0a 0a 20 20 23 20 4e 6f 77 20 64 6f 20 61   }..  # Now do a
58f0: 6e 20 69 6e 74 65 67 72 69 74 79 20 63 68 65 63  n integrity chec
5900: 6b 20 77 69 74 68 20 74 68 65 20 73 65 63 6f 6e  k with the secon
5910: 64 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 54 68  d connection. Th
5920: 65 20 73 65 63 6f 6e 64 0a 20 20 23 20 63 6f 6e  e second.  # con
5930: 6e 65 63 74 69 6f 6e 20 73 74 69 6c 6c 20 68 61  nection still ha
5940: 73 20 74 68 65 20 64 61 74 61 62 61 73 65 20 74  s the database t
5950: 61 62 6c 65 20 69 6e 20 69 74 73 20 63 61 63 68  able in its cach
5960: 65 2e 20 49 66 20 74 68 69 73 20 69 73 0a 20 20  e. If this is.  
5970: 23 20 6f 6e 65 20 6f 66 20 74 68 65 20 6d 61 67  # one of the mag
5980: 69 63 20 69 74 65 72 61 74 69 6f 6e 73 20 61 6e  ic iterations an
5990: 64 20 74 68 65 20 63 68 61 6e 67 65 20 63 6f 75  d the change cou
59a0: 6e 74 65 72 20 77 61 73 20 6e 6f 74 20 6d 6f 64  nter was not mod
59b0: 69 66 69 65 64 2c 0a 20 20 23 20 74 68 65 6e 20  ified,.  # then 
59c0: 69 74 20 77 6f 6e 27 74 20 72 65 61 6c 69 7a 65  it won't realize
59d0: 20 74 68 61 74 20 74 68 65 20 63 61 63 68 65 64   that the cached
59e0: 20 64 61 74 61 20 69 73 20 6f 75 74 20 6f 66 20   data is out of 
59f0: 64 61 74 65 2e 20 53 69 6e 63 65 0a 20 20 23 20  date. Since.  # 
5a00: 74 68 65 20 63 61 63 68 65 64 20 64 61 74 61 20  the cached data 
5a10: 77 6f 6e 27 74 20 6d 61 74 63 68 20 74 68 65 20  won't match the 
5a20: 75 70 20 74 6f 20 64 61 74 65 20 69 6e 64 65 78  up to date index
5a30: 20 64 61 74 61 20 72 65 61 64 20 66 72 6f 6d 0a   data read from.
5a40: 20 20 23 20 74 68 65 20 64 61 74 61 62 61 73 65    # the database
5a50: 20 66 69 6c 65 2c 20 74 68 65 20 69 6e 74 65 67   file, the integ
5a60: 72 69 74 79 20 63 68 65 63 6b 20 73 68 6f 75 6c  rity check shoul
5a70: 64 20 66 61 69 6c 2e 0a 20 20 23 0a 20 20 73 65  d fail..  #.  se
5a80: 74 20 7a 52 65 70 65 61 74 20 22 74 72 61 6e 73  t zRepeat "trans
5a90: 69 65 6e 74 22 0a 20 20 69 66 20 7b 24 3a 3a 69  ient".  if {$::i
5aa0: 52 65 70 65 61 74 7d 20 7b 73 65 74 20 7a 52 65  Repeat} {set zRe
5ab0: 70 65 61 74 20 22 70 65 72 73 69 73 74 65 6e 74  peat "persistent
5ac0: 22 7d 0a 20 20 64 6f 5f 74 65 73 74 20 6d 61 6c  "}.  do_test mal
5ad0: 6c 6f 63 2d 33 32 2e 24 7a 52 65 70 65 61 74 2e  loc-32.$zRepeat.
5ae0: 24 7b 3a 3a 6e 7d 2e 69 6e 74 65 67 72 69 74 79  ${::n}.integrity
5af0: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b   {.    execsql {
5b00: 50 52 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79  PRAGMA integrity
5b10: 5f 63 68 65 63 6b 7d 20 64 62 32 0a 20 20 7d 20  _check} db2.  } 
5b20: 7b 6f 6b 7d 0a 20 20 64 62 32 20 63 6c 6f 73 65  {ok}.  db2 close
5b30: 0a 7d 0a 0a 23 20 45 6e 73 75 72 65 20 74 68 61  .}..# Ensure tha
5b40: 74 20 6e 6f 20 66 69 6c 65 20 64 65 73 63 72 69  t no file descri
5b50: 70 74 6f 72 73 20 77 65 72 65 20 6c 65 61 6b 65  ptors were leake
5b60: 64 2e 0a 64 6f 5f 74 65 73 74 20 6d 61 6c 6c 6f  d..do_test mallo
5b70: 63 2d 39 39 2e 58 20 7b 0a 20 20 63 61 74 63 68  c-99.X {.  catch
5b80: 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 73 65   {db close}.  se
5b90: 74 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69  t sqlite_open_fi
5ba0: 6c 65 5f 63 6f 75 6e 74 0a 7d 20 7b 30 7d 0a 0a  le_count.} {0}..
5bb0: 70 75 74 73 20 6f 70 65 6e 2d 66 69 6c 65 2d 63  puts open-file-c
5bc0: 6f 75 6e 74 3d 24 73 71 6c 69 74 65 5f 6f 70 65  ount=$sqlite_ope
5bd0: 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 66 69 6e  n_file_count.fin
5be0: 69 73 68 5f 74 65 73 74 0a                       ish_test.