/ Hex Artifact Content
Login

Artifact 18dd1c4188c81ca79cf123527c71b19ee0c31feb9947fdffb0dc6ceb1436816a:


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 38 31 20 32 30 30 39  test,v 1.81 2009
0310: 2f 30 36 2f 32 34 20 31 33 3a 31 33 3a 34 35 20  /06/24 13:13:45 
0320: 64 72 68 20 45 78 70 20 24 0a 0a 73 65 74 20 74  drh Exp $..set t
0330: 65 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72  estdir [file dir
0340: 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f 75  name $argv0].sou
0350: 72 63 65 20 24 74 65 73 74 64 69 72 2f 74 65 73  rce $testdir/tes
0360: 74 65 72 2e 74 63 6c 0a 73 65 74 20 3a 3a 74 65  ter.tcl.set ::te
0370: 73 74 70 72 65 66 69 78 20 6d 61 6c 6c 6f 63 0a  stprefix malloc.
0380: 0a 0a 23 20 4f 6e 6c 79 20 72 75 6e 20 74 68 65  ..# Only run the
0390: 73 65 20 74 65 73 74 73 20 69 66 20 6d 65 6d 6f  se tests if memo
03a0: 72 79 20 64 65 62 75 67 67 69 6e 67 20 69 73 20  ry debugging is 
03b0: 74 75 72 6e 65 64 20 6f 6e 2e 0a 23 0a 73 6f 75  turned on..#.sou
03c0: 72 63 65 20 24 74 65 73 74 64 69 72 2f 6d 61 6c  rce $testdir/mal
03d0: 6c 6f 63 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a 69  loc_common.tcl.i
03e0: 66 20 7b 21 24 4d 45 4d 44 45 42 55 47 7d 20 7b  f {!$MEMDEBUG} {
03f0: 0a 20 20 20 70 75 74 73 20 22 53 6b 69 70 70 69  .   puts "Skippi
0400: 6e 67 20 6d 61 6c 6c 6f 63 20 74 65 73 74 73 3a  ng malloc tests:
0410: 20 6e 6f 74 20 63 6f 6d 70 69 6c 65 64 20 77 69   not compiled wi
0420: 74 68 20 2d 44 53 51 4c 49 54 45 5f 4d 45 4d 44  th -DSQLITE_MEMD
0430: 45 42 55 47 2e 2e 2e 22 0a 20 20 20 66 69 6e 69  EBUG...".   fini
0440: 73 68 5f 74 65 73 74 0a 20 20 20 72 65 74 75 72  sh_test.   retur
0450: 6e 0a 7d 0a 0a 23 20 44 6f 20 61 20 63 6f 75 70  n.}..# Do a coup
0460: 6c 65 20 6f 66 20 6d 65 6d 6f 72 79 20 64 75 6d  le of memory dum
0470: 70 73 20 6a 75 73 74 20 74 6f 20 65 78 65 72 63  ps just to exerc
0480: 69 73 65 20 74 68 65 20 6d 65 6d 6f 72 79 20 64  ise the memory d
0490: 75 6d 70 20 6c 6f 67 69 63 0a 23 20 74 68 61 74  ump logic.# that
04a0: 20 74 68 61 74 20 77 65 20 63 61 6e 20 73 61 79   that we can say
04b0: 20 74 68 61 74 20 77 65 20 68 61 76 65 2e 0a 23   that we have..#
04c0: 0a 70 75 74 73 20 73 74 64 65 72 72 20 22 54 68  .puts stderr "Th
04d0: 69 73 20 69 73 20 61 20 74 65 73 74 2e 20 20 49  is is a test.  I
04e0: 67 6e 6f 72 65 20 74 68 65 20 65 72 72 6f 72 20  gnore the error 
04f0: 74 68 61 74 20 66 6f 6c 6c 6f 77 73 3a 22 0a 73  that follows:".s
0500: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
0510: 64 75 6d 70 20 24 74 65 73 74 64 69 72 0a 70 75  dump $testdir.pu
0520: 74 73 20 22 4d 65 6d 6f 72 79 20 64 75 6d 70 20  ts "Memory dump 
0530: 74 6f 20 66 69 6c 65 20 6d 65 6d 64 75 6d 70 2e  to file memdump.
0540: 74 78 74 2e 2e 2e 22 0a 73 71 6c 69 74 65 33 5f  txt...".sqlite3_
0550: 6d 65 6d 64 65 62 75 67 5f 64 75 6d 70 20 6d 65  memdebug_dump me
0560: 6d 64 75 6d 70 2e 74 78 74 0a 0a 69 66 63 61 70  mdump.txt..ifcap
0570: 61 62 6c 65 20 62 6c 6f 62 6c 69 74 26 26 73 75  able bloblit&&su
0580: 62 71 75 65 72 79 20 7b 0a 20 20 64 6f 5f 6d 61  bquery {.  do_ma
0590: 6c 6c 6f 63 5f 74 65 73 74 20 31 20 2d 74 63 6c  lloc_test 1 -tcl
05a0: 70 72 65 70 20 7b 0a 20 20 20 20 64 62 20 63 6c  prep {.    db cl
05b0: 6f 73 65 0a 20 20 7d 20 2d 74 63 6c 62 6f 64 79  ose.  } -tclbody
05c0: 20 7b 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 63   {.    if {[catc
05d0: 68 20 7b 73 71 6c 69 74 65 33 20 64 62 20 74 65  h {sqlite3 db te
05e0: 73 74 2e 64 62 7d 5d 7d 20 7b 0a 20 20 20 20 20  st.db}]} {.     
05f0: 20 65 72 72 6f 72 20 22 6f 75 74 20 6f 66 20 6d   error "out of m
0600: 65 6d 6f 72 79 22 0a 20 20 20 20 7d 0a 20 20 20  emory".    }.   
0610: 20 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65   sqlite3_extende
0620: 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 20 64  d_result_codes d
0630: 62 20 31 0a 20 20 7d 20 2d 73 71 6c 62 6f 64 79  b 1.  } -sqlbody
0640: 20 7b 0a 20 20 20 20 44 52 4f 50 20 54 41 42 4c   {.    DROP TABL
0650: 45 20 49 46 20 45 58 49 53 54 53 20 74 31 3b 0a  E IF EXISTS t1;.
0660: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
0670: 20 74 31 28 0a 20 20 20 20 20 20 20 61 20 69 6e   t1(.       a in
0680: 74 2c 20 62 20 66 6c 6f 61 74 2c 20 63 20 64 6f  t, b float, c do
0690: 75 62 6c 65 2c 20 64 20 74 65 78 74 2c 20 65 20  uble, d text, e 
06a0: 76 61 72 63 68 61 72 28 32 30 29 2c 0a 20 20 20  varchar(20),.   
06b0: 20 20 20 20 70 72 69 6d 61 72 79 20 6b 65 79 28      primary key(
06c0: 61 2c 62 2c 63 29 0a 20 20 20 20 29 3b 0a 20 20  a,b,c).    );.  
06d0: 20 20 43 52 45 41 54 45 20 49 4e 44 45 58 20 69    CREATE INDEX i
06e0: 31 20 4f 4e 20 74 31 28 61 2c 62 29 3b 0a 20 20  1 ON t1(a,b);.  
06f0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0700: 20 56 41 4c 55 45 53 28 31 2c 32 2e 33 2c 34 2e   VALUES(1,2.3,4.
0710: 35 2c 27 68 69 27 2c 78 27 37 34 36 38 36 35 37  5,'hi',x'7468657
0720: 32 36 35 30 30 27 29 3b 0a 20 20 20 20 49 4e 53  26500');.    INS
0730: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
0740: 45 53 28 36 2c 37 2e 30 2c 30 2e 38 2c 27 68 65  ES(6,7.0,0.8,'he
0750: 6c 6c 6f 27 2c 27 6f 75 74 20 79 6f 6e 64 65 72  llo','out yonder
0760: 27 29 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a  ');.    SELECT *
0770: 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20 53 45   FROM t1;.    SE
0780: 4c 45 43 54 20 61 76 67 28 62 29 20 46 52 4f 4d  LECT avg(b) FROM
0790: 20 74 31 20 47 52 4f 55 50 20 42 59 20 61 20 48   t1 GROUP BY a H
07a0: 41 56 49 4e 47 20 62 3e 32 30 2e 30 3b 0a 20 20  AVING b>20.0;.  
07b0: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31    DELETE FROM t1
07c0: 20 57 48 45 52 45 20 61 20 49 4e 20 28 53 45 4c   WHERE a IN (SEL
07d0: 45 43 54 20 6d 69 6e 28 61 29 20 46 52 4f 4d 20  ECT min(a) FROM 
07e0: 74 31 29 3b 0a 20 20 20 20 53 45 4c 45 43 54 20  t1);.    SELECT 
07f0: 63 6f 75 6e 74 28 2a 29 2c 20 67 72 6f 75 70 5f  count(*), group_
0800: 63 6f 6e 63 61 74 28 65 29 20 46 52 4f 4d 20 74  concat(e) FROM t
0810: 31 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 62 20  1;.    SELECT b 
0820: 46 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42 59  FROM t1 ORDER BY
0830: 20 31 20 43 4f 4c 4c 41 54 45 20 6e 6f 63 61 73   1 COLLATE nocas
0840: 65 3b 0a 20 20 7d 20 0a 7d 0a 0a 23 20 45 6e 73  e;.  } .}..# Ens
0850: 75 72 65 20 74 68 61 74 20 6e 6f 20 66 69 6c 65  ure that no file
0860: 20 64 65 73 63 72 69 70 74 6f 72 73 20 77 65 72   descriptors wer
0870: 65 20 6c 65 61 6b 65 64 2e 0a 64 6f 5f 74 65 73  e leaked..do_tes
0880: 74 20 6d 61 6c 6c 6f 63 2d 31 2e 58 20 7b 0a 20  t malloc-1.X {. 
0890: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65   catch {db close
08a0: 7d 0a 20 20 73 65 74 20 73 71 6c 69 74 65 5f 6f  }.  set sqlite_o
08b0: 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a 7d  pen_file_count.}
08c0: 20 7b 30 7d 0a 0a 69 66 63 61 70 61 62 6c 65 20   {0}..ifcapable 
08d0: 73 75 62 71 75 65 72 79 20 7b 0a 20 20 64 6f 5f  subquery {.  do_
08e0: 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 32 20 2d 73  malloc_test 2 -s
08f0: 71 6c 62 6f 64 79 20 7b 0a 20 20 20 20 43 52 45  qlbody {.    CRE
0900: 41 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 69  ATE TABLE t1(a i
0910: 6e 74 2c 20 62 20 69 6e 74 20 64 65 66 61 75 6c  nt, b int defaul
0920: 74 20 27 61 62 63 27 2c 20 63 20 69 6e 74 20 64  t 'abc', c int d
0930: 65 66 61 75 6c 74 20 31 29 3b 0a 20 20 20 20 43  efault 1);.    C
0940: 52 45 41 54 45 20 49 4e 44 45 58 20 69 31 20 4f  REATE INDEX i1 O
0950: 4e 20 74 31 28 61 2c 62 29 3b 0a 20 20 20 20 49  N t1(a,b);.    I
0960: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0970: 4c 55 45 53 28 31 2c 31 2c 27 39 39 20 61 62 63  LUES(1,1,'99 abc
0980: 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73  defghijklmnopqrs
0990: 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20 20 49  tuvwxyz');.    I
09a0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
09b0: 4c 55 45 53 28 32 2c 34 2c 27 39 38 20 61 62 63  LUES(2,4,'98 abc
09c0: 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73  defghijklmnopqrs
09d0: 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20 20 49  tuvwxyz');.    I
09e0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
09f0: 4c 55 45 53 28 33 2c 39 2c 27 39 37 20 61 62 63  LUES(3,9,'97 abc
0a00: 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73  defghijklmnopqrs
0a10: 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20 20 49  tuvwxyz');.    I
0a20: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0a30: 4c 55 45 53 28 34 2c 31 36 2c 27 39 36 20 61 62  LUES(4,16,'96 ab
0a40: 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72  cdefghijklmnopqr
0a50: 73 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20 20  stuvwxyz');.    
0a60: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
0a70: 41 4c 55 45 53 28 35 2c 32 35 2c 27 39 35 20 61  ALUES(5,25,'95 a
0a80: 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71  bcdefghijklmnopq
0a90: 72 73 74 75 76 77 78 79 7a 27 29 3b 0a 20 20 20  rstuvwxyz');.   
0aa0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
0ab0: 56 41 4c 55 45 53 28 36 2c 33 36 2c 27 39 34 20  VALUES(6,36,'94 
0ac0: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70  abcdefghijklmnop
0ad0: 71 72 73 74 75 76 77 78 79 7a 27 29 3b 0a 20 20  qrstuvwxyz');.  
0ae0: 20 20 53 45 4c 45 43 54 20 27 73 74 75 66 66 27    SELECT 'stuff'
0af0: 2c 20 63 6f 75 6e 74 28 2a 29 20 61 73 20 27 6f  , count(*) as 'o
0b00: 74 68 65 72 20 73 74 75 66 66 27 2c 20 6d 61 78  ther stuff', max
0b10: 28 61 2b 31 30 29 20 46 52 4f 4d 20 74 31 3b 0a  (a+10) FROM t1;.
0b20: 20 20 20 20 55 50 44 41 54 45 20 74 31 20 53 45      UPDATE t1 SE
0b30: 54 20 62 3d 62 7c 7c 62 7c 7c 62 7c 7c 62 3b 0a  T b=b||b||b||b;.
0b40: 20 20 20 20 55 50 44 41 54 45 20 74 31 20 53 45      UPDATE t1 SE
0b50: 54 20 62 3d 61 20 57 48 45 52 45 20 61 20 69 6e  T b=a WHERE a in
0b60: 20 28 31 30 2c 31 32 2c 32 32 29 3b 0a 20 20 20   (10,12,22);.   
0b70: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 28   INSERT INTO t1(
0b80: 63 2c 62 2c 61 29 20 56 41 4c 55 45 53 28 32 30  c,b,a) VALUES(20
0b90: 2c 31 30 2c 35 29 3b 0a 20 20 20 20 49 4e 53 45  ,10,5);.    INSE
0ba0: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
0bb0: 54 20 2a 20 46 52 4f 4d 20 74 31 0a 20 20 20 20  T * FROM t1.    
0bc0: 20 20 20 20 57 48 45 52 45 20 61 20 49 4e 20 28      WHERE a IN (
0bd0: 53 45 4c 45 43 54 20 61 20 46 52 4f 4d 20 74 31  SELECT a FROM t1
0be0: 20 57 48 45 52 45 20 61 3c 31 30 29 3b 0a 20 20   WHERE a<10);.  
0bf0: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31    DELETE FROM t1
0c00: 20 57 48 45 52 45 20 61 3e 3d 31 30 3b 0a 20 20   WHERE a>=10;.  
0c10: 20 20 44 52 4f 50 20 49 4e 44 45 58 20 69 31 3b    DROP INDEX i1;
0c20: 0a 20 20 20 20 44 45 4c 45 54 45 20 46 52 4f 4d  .    DELETE FROM
0c30: 20 74 31 3b 0a 20 20 7d 20 0a 7d 0a 0a 23 20 45   t1;.  } .}..# E
0c40: 6e 73 75 72 65 20 74 68 61 74 20 6e 6f 20 66 69  nsure that no fi
0c50: 6c 65 20 64 65 73 63 72 69 70 74 6f 72 73 20 77  le descriptors w
0c60: 65 72 65 20 6c 65 61 6b 65 64 2e 0a 64 6f 5f 74  ere leaked..do_t
0c70: 65 73 74 20 6d 61 6c 6c 6f 63 2d 32 2e 58 20 7b  est malloc-2.X {
0c80: 0a 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f  .  catch {db clo
0c90: 73 65 7d 0a 20 20 73 65 74 20 73 71 6c 69 74 65  se}.  set sqlite
0ca0: 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74  _open_file_count
0cb0: 0a 7d 20 7b 30 7d 0a 0a 64 6f 5f 6d 61 6c 6c 6f  .} {0}..do_mallo
0cc0: 63 5f 74 65 73 74 20 33 20 2d 73 71 6c 62 6f 64  c_test 3 -sqlbod
0cd0: 79 20 7b 0a 20 20 42 45 47 49 4e 20 54 52 41 4e  y {.  BEGIN TRAN
0ce0: 53 41 43 54 49 4f 4e 3b 0a 20 20 43 52 45 41 54  SACTION;.  CREAT
0cf0: 45 20 54 41 42 4c 45 20 74 31 28 61 20 69 6e 74  E TABLE t1(a int
0d00: 2c 20 62 20 69 6e 74 2c 20 63 20 69 6e 74 29 3b  , b int, c int);
0d10: 0a 20 20 43 52 45 41 54 45 20 49 4e 44 45 58 20  .  CREATE INDEX 
0d20: 69 31 20 4f 4e 20 74 31 28 61 2c 62 29 3b 0a 20  i1 ON t1(a,b);. 
0d30: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
0d40: 56 41 4c 55 45 53 28 31 2c 31 2c 39 39 29 3b 0a  VALUES(1,1,99);.
0d50: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0d60: 20 56 41 4c 55 45 53 28 32 2c 34 2c 39 38 29 3b   VALUES(2,4,98);
0d70: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  .  INSERT INTO t
0d80: 31 20 56 41 4c 55 45 53 28 33 2c 39 2c 39 37 29  1 VALUES(3,9,97)
0d90: 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  ;.  INSERT INTO 
0da0: 74 31 20 56 41 4c 55 45 53 28 34 2c 31 36 2c 39  t1 VALUES(4,16,9
0db0: 36 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  6);.  INSERT INT
0dc0: 4f 20 74 31 20 56 41 4c 55 45 53 28 35 2c 32 35  O t1 VALUES(5,25
0dd0: 2c 39 35 29 3b 0a 20 20 49 4e 53 45 52 54 20 49  ,95);.  INSERT I
0de0: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 36 2c  NTO t1 VALUES(6,
0df0: 33 36 2c 39 34 29 3b 0a 20 20 49 4e 53 45 52 54  36,94);.  INSERT
0e00: 20 49 4e 54 4f 20 74 31 28 63 2c 62 2c 61 29 20   INTO t1(c,b,a) 
0e10: 56 41 4c 55 45 53 28 32 30 2c 31 30 2c 35 29 3b  VALUES(20,10,5);
0e20: 0a 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74  .  DELETE FROM t
0e30: 31 20 57 48 45 52 45 20 61 3e 3d 31 30 3b 0a 20  1 WHERE a>=10;. 
0e40: 20 44 52 4f 50 20 49 4e 44 45 58 20 69 31 3b 0a   DROP INDEX i1;.
0e50: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31    DELETE FROM t1
0e60: 3b 0a 20 20 52 4f 4c 4c 42 41 43 4b 3b 0a 7d 20  ;.  ROLLBACK;.} 
0e70: 0a 0a 0a 23 20 45 6e 73 75 72 65 20 74 68 61 74  ...# Ensure that
0e80: 20 6e 6f 20 66 69 6c 65 20 64 65 73 63 72 69 70   no file descrip
0e90: 74 6f 72 73 20 77 65 72 65 20 6c 65 61 6b 65 64  tors were leaked
0ea0: 2e 0a 64 6f 5f 74 65 73 74 20 6d 61 6c 6c 6f 63  ..do_test malloc
0eb0: 2d 33 2e 58 20 7b 0a 20 20 63 61 74 63 68 20 7b  -3.X {.  catch {
0ec0: 64 62 20 63 6c 6f 73 65 7d 0a 20 20 73 65 74 20  db close}.  set 
0ed0: 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65  sqlite_open_file
0ee0: 5f 63 6f 75 6e 74 0a 7d 20 7b 30 7d 0a 0a 69 66  _count.} {0}..if
0ef0: 63 61 70 61 62 6c 65 20 73 75 62 71 75 65 72 79  capable subquery
0f00: 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74   {.  do_malloc_t
0f10: 65 73 74 20 34 20 2d 73 71 6c 62 6f 64 79 20 7b  est 4 -sqlbody {
0f20: 0a 20 20 20 20 42 45 47 49 4e 20 54 52 41 4e 53  .    BEGIN TRANS
0f30: 41 43 54 49 4f 4e 3b 0a 20 20 20 20 43 52 45 41  ACTION;.    CREA
0f40: 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 69 6e  TE TABLE t1(a in
0f50: 74 2c 20 62 20 69 6e 74 2c 20 63 20 69 6e 74 29  t, b int, c int)
0f60: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 49 4e 44  ;.    CREATE IND
0f70: 45 58 20 69 31 20 4f 4e 20 74 31 28 61 2c 62 29  EX i1 ON t1(a,b)
0f80: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
0f90: 4f 20 74 31 20 56 41 4c 55 45 53 28 31 2c 31 2c  O t1 VALUES(1,1,
0fa0: 39 39 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20  99);.    INSERT 
0fb0: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 32  INTO t1 VALUES(2
0fc0: 2c 34 2c 39 38 29 3b 0a 20 20 20 20 49 4e 53 45  ,4,98);.    INSE
0fd0: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
0fe0: 53 28 33 2c 39 2c 39 37 29 3b 0a 20 20 20 20 49  S(3,9,97);.    I
0ff0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
1000: 4c 55 45 53 28 34 2c 31 36 2c 39 36 29 3b 0a 20  LUES(4,16,96);. 
1010: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1020: 31 20 56 41 4c 55 45 53 28 35 2c 32 35 2c 39 35  1 VALUES(5,25,95
1030: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
1040: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 36 2c 33  TO t1 VALUES(6,3
1050: 36 2c 39 34 29 3b 0a 20 20 20 20 55 50 44 41 54  6,94);.    UPDAT
1060: 45 20 74 31 20 53 45 54 20 62 3d 61 20 57 48 45  E t1 SET b=a WHE
1070: 52 45 20 61 20 69 6e 20 28 31 30 2c 31 32 2c 32  RE a in (10,12,2
1080: 32 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  2);.    INSERT I
1090: 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20 2a 20  NTO t1 SELECT * 
10a0: 46 52 4f 4d 20 74 31 0a 20 20 20 20 20 20 20 57  FROM t1.       W
10b0: 48 45 52 45 20 61 20 49 4e 20 28 53 45 4c 45 43  HERE a IN (SELEC
10c0: 54 20 61 20 46 52 4f 4d 20 74 31 20 57 48 45 52  T a FROM t1 WHER
10d0: 45 20 61 3c 31 30 29 3b 0a 20 20 20 20 44 52 4f  E a<10);.    DRO
10e0: 50 20 49 4e 44 45 58 20 69 31 3b 0a 20 20 20 20  P INDEX i1;.    
10f0: 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31 3b 0a  DELETE FROM t1;.
1100: 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d 20      COMMIT;.  } 
1110: 0a 7d 0a 0a 23 20 45 6e 73 75 72 65 20 74 68 61  .}..# Ensure tha
1120: 74 20 6e 6f 20 66 69 6c 65 20 64 65 73 63 72 69  t no file descri
1130: 70 74 6f 72 73 20 77 65 72 65 20 6c 65 61 6b 65  ptors were leake
1140: 64 2e 0a 64 6f 5f 74 65 73 74 20 6d 61 6c 6c 6f  d..do_test mallo
1150: 63 2d 34 2e 58 20 7b 0a 20 20 63 61 74 63 68 20  c-4.X {.  catch 
1160: 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 73 65 74  {db close}.  set
1170: 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c   sqlite_open_fil
1180: 65 5f 63 6f 75 6e 74 0a 7d 20 7b 30 7d 0a 0a 69  e_count.} {0}..i
1190: 66 63 61 70 61 62 6c 65 20 74 72 69 67 67 65 72  fcapable trigger
11a0: 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74   {.  do_malloc_t
11b0: 65 73 74 20 35 20 2d 73 71 6c 62 6f 64 79 20 7b  est 5 -sqlbody {
11c0: 0a 20 20 20 20 42 45 47 49 4e 20 54 52 41 4e 53  .    BEGIN TRANS
11d0: 41 43 54 49 4f 4e 3b 0a 20 20 20 20 43 52 45 41  ACTION;.    CREA
11e0: 54 45 20 54 41 42 4c 45 20 74 31 28 61 2c 62 29  TE TABLE t1(a,b)
11f0: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ;.    CREATE TAB
1200: 4c 45 20 74 32 28 78 2c 79 29 3b 0a 20 20 20 20  LE t2(x,y);.    
1210: 43 52 45 41 54 45 20 54 52 49 47 47 45 52 20 72  CREATE TRIGGER r
1220: 31 20 41 46 54 45 52 20 49 4e 53 45 52 54 20 4f  1 AFTER INSERT O
1230: 4e 20 74 31 20 57 48 45 4e 20 6e 65 77 2e 61 20  N t1 WHEN new.a 
1240: 3d 20 32 20 42 45 47 49 4e 0a 20 20 20 20 20 20  = 2 BEGIN.      
1250: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 28 78  INSERT INTO t2(x
1260: 2c 79 29 20 56 41 4c 55 45 53 28 6e 65 77 2e 72  ,y) VALUES(new.r
1270: 6f 77 69 64 2c 31 29 3b 0a 20 20 20 20 20 20 49  owid,1);.      I
1280: 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 28 78 2c  NSERT INTO t2(x,
1290: 79 29 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  y) SELECT * FROM
12a0: 20 74 32 3b 0a 20 20 20 20 20 20 49 4e 53 45 52   t2;.      INSER
12b0: 54 20 49 4e 54 4f 20 74 32 20 53 45 4c 45 43 54  T INTO t2 SELECT
12c0: 20 2a 20 46 52 4f 4d 20 74 32 3b 0a 20 20 20 20   * FROM t2;.    
12d0: 20 20 55 50 44 41 54 45 20 74 32 20 53 45 54 20    UPDATE t2 SET 
12e0: 79 3d 79 2b 31 20 57 48 45 52 45 20 78 3d 6e 65  y=y+1 WHERE x=ne
12f0: 77 2e 72 6f 77 69 64 3b 0a 20 20 20 20 20 20 53  w.rowid;.      S
1300: 45 4c 45 43 54 20 31 32 33 3b 0a 20 20 20 20 20  ELECT 123;.     
1310: 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 32 20   DELETE FROM t2 
1320: 57 48 45 52 45 20 78 3d 6e 65 77 2e 72 6f 77 69  WHERE x=new.rowi
1330: 64 3b 0a 20 20 20 20 45 4e 44 3b 0a 20 20 20 20  d;.    END;.    
1340: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 28 61  INSERT INTO t1(a
1350: 2c 62 29 20 56 41 4c 55 45 53 28 32 2c 33 29 3b  ,b) VALUES(2,3);
1360: 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d  .    COMMIT;.  }
1370: 20 0a 7d 0a 0a 23 20 45 6e 73 75 72 65 20 74 68   .}..# Ensure th
1380: 61 74 20 6e 6f 20 66 69 6c 65 20 64 65 73 63 72  at no file descr
1390: 69 70 74 6f 72 73 20 77 65 72 65 20 6c 65 61 6b  iptors were leak
13a0: 65 64 2e 0a 64 6f 5f 74 65 73 74 20 6d 61 6c 6c  ed..do_test mall
13b0: 6f 63 2d 35 2e 58 20 7b 0a 20 20 63 61 74 63 68  oc-5.X {.  catch
13c0: 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 20 20 73 65   {db close}.  se
13d0: 74 20 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69  t sqlite_open_fi
13e0: 6c 65 5f 63 6f 75 6e 74 0a 7d 20 7b 30 7d 0a 0a  le_count.} {0}..
13f0: 69 66 63 61 70 61 62 6c 65 20 76 61 63 75 75 6d  ifcapable vacuum
1400: 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74   {.  do_malloc_t
1410: 65 73 74 20 36 20 2d 73 71 6c 70 72 65 70 20 7b  est 6 -sqlprep {
1420: 0a 20 20 20 20 42 45 47 49 4e 20 54 52 41 4e 53  .    BEGIN TRANS
1430: 41 43 54 49 4f 4e 3b 0a 20 20 20 20 43 52 45 41  ACTION;.    CREA
1440: 54 45 20 54 41 42 4c 45 20 74 31 28 61 29 3b 0a  TE TABLE t1(a);.
1450: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1460: 74 31 20 56 41 4c 55 45 53 28 31 29 3b 0a 20 20  t1 VALUES(1);.  
1470: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
1480: 20 53 45 4c 45 43 54 20 61 2a 32 20 46 52 4f 4d   SELECT a*2 FROM
1490: 20 74 31 3b 0a 20 20 20 20 49 4e 53 45 52 54 20   t1;.    INSERT 
14a0: 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20 61  INTO t1 SELECT a
14b0: 2a 32 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20  *2 FROM t1;.    
14c0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
14d0: 45 4c 45 43 54 20 61 2a 32 20 46 52 4f 4d 20 74  ELECT a*2 FROM t
14e0: 31 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  1;.    INSERT IN
14f0: 54 4f 20 74 31 20 53 45 4c 45 43 54 20 61 2a 32  TO t1 SELECT a*2
1500: 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20 49 4e   FROM t1;.    IN
1510: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
1520: 45 43 54 20 61 2a 32 20 46 52 4f 4d 20 74 31 3b  ECT a*2 FROM t1;
1530: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
1540: 20 74 31 20 53 45 4c 45 43 54 20 61 2a 32 20 46   t1 SELECT a*2 F
1550: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 49 4e 53 45  ROM t1;.    INSE
1560: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
1570: 54 20 61 2a 32 20 46 52 4f 4d 20 74 31 3b 0a 20  T a*2 FROM t1;. 
1580: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1590: 31 20 53 45 4c 45 43 54 20 61 2a 32 20 46 52 4f  1 SELECT a*2 FRO
15a0: 4d 20 74 31 3b 0a 20 20 20 20 49 4e 53 45 52 54  M t1;.    INSERT
15b0: 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20   INTO t1 SELECT 
15c0: 61 2a 32 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20  a*2 FROM t1;.   
15d0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
15e0: 53 45 4c 45 43 54 20 61 2a 32 20 46 52 4f 4d 20  SELECT a*2 FROM 
15f0: 74 31 3b 0a 20 20 20 20 44 45 4c 45 54 45 20 46  t1;.    DELETE F
1600: 52 4f 4d 20 74 31 20 77 68 65 72 65 20 72 6f 77  ROM t1 where row
1610: 69 64 25 35 20 3d 20 30 3b 0a 20 20 20 20 43 4f  id%5 = 0;.    CO
1620: 4d 4d 49 54 3b 0a 20 20 7d 20 2d 73 71 6c 62 6f  MMIT;.  } -sqlbo
1630: 64 79 20 7b 0a 20 20 20 20 56 41 43 55 55 4d 3b  dy {.    VACUUM;
1640: 0a 20 20 7d 20 0a 7d 0a 0a 61 75 74 6f 69 6e 73  .  } .}..autoins
1650: 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63 74 69  tall_test_functi
1660: 6f 6e 73 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  ons.do_malloc_te
1670: 73 74 20 37 20 2d 73 71 6c 70 72 65 70 20 7b 0a  st 7 -sqlprep {.
1680: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74    CREATE TABLE t
1690: 31 28 61 2c 20 62 29 3b 0a 20 20 49 4e 53 45 52  1(a, b);.  INSER
16a0: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
16b0: 28 31 2c 20 32 29 3b 0a 20 20 49 4e 53 45 52 54  (1, 2);.  INSERT
16c0: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
16d0: 33 2c 20 34 29 3b 0a 20 20 49 4e 53 45 52 54 20  3, 4);.  INSERT 
16e0: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 35  INTO t1 VALUES(5
16f0: 2c 20 36 29 3b 0a 20 20 49 4e 53 45 52 54 20 49  , 6);.  INSERT I
1700: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 37 2c  NTO t1 VALUES(7,
1710: 20 72 61 6e 64 73 74 72 28 31 32 30 30 2c 31 32   randstr(1200,12
1720: 30 30 29 29 3b 0a 7d 20 2d 73 71 6c 62 6f 64 79  00));.} -sqlbody
1730: 20 7b 0a 20 20 53 45 4c 45 43 54 20 6d 69 6e 28   {.  SELECT min(
1740: 61 29 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45  a) FROM t1 WHERE
1750: 20 61 3c 36 20 47 52 4f 55 50 20 42 59 20 62 3b   a<6 GROUP BY b;
1760: 0a 20 20 53 45 4c 45 43 54 20 61 20 46 52 4f 4d  .  SELECT a FROM
1770: 20 74 31 20 57 48 45 52 45 20 61 3c 36 20 4f 52   t1 WHERE a<6 OR
1780: 44 45 52 20 42 59 20 61 3b 0a 20 20 53 45 4c 45  DER BY a;.  SELE
1790: 43 54 20 62 20 46 52 4f 4d 20 74 31 20 57 48 45  CT b FROM t1 WHE
17a0: 52 45 20 61 3e 36 3b 0a 7d 0a 0a 23 20 54 68 69  RE a>6;.}..# Thi
17b0: 73 20 62 6c 6f 63 6b 20 69 73 20 64 65 73 69 67  s block is desig
17c0: 6e 65 64 20 74 6f 20 74 65 73 74 20 74 68 61 74  ned to test that
17d0: 20 73 6f 6d 65 20 6d 61 6c 6c 6f 63 20 66 61 69   some malloc fai
17e0: 6c 75 72 65 73 20 74 68 61 74 20 6d 61 79 0a 23  lures that may.#
17f0: 20 6f 63 63 75 72 20 69 6e 20 76 64 62 65 61 70   occur in vdbeap
1800: 69 2e 63 2e 20 53 70 65 63 69 66 69 63 61 6c 6c  i.c. Specificall
1810: 79 2c 20 69 66 20 61 20 6d 61 6c 6c 6f 63 20 66  y, if a malloc f
1820: 61 69 6c 75 72 65 20 74 68 61 74 20 6f 63 63 75  ailure that occu
1830: 72 73 0a 23 20 77 68 65 6e 20 63 6f 6e 76 65 72  rs.# when conver
1840: 74 69 6e 67 20 55 54 46 2d 31 36 20 74 65 78 74  ting UTF-16 text
1850: 20 74 6f 20 69 6e 74 65 67 65 72 73 20 61 6e 64   to integers and
1860: 20 72 65 61 6c 20 6e 75 6d 62 65 72 73 20 69 73   real numbers is
1870: 20 68 61 6e 64 6c 65 64 0a 23 20 63 6f 72 72 65   handled.# corre
1880: 63 74 6c 79 2e 20 0a 23 0a 23 20 54 68 69 73 20  ctly. .#.# This 
1890: 69 73 20 64 6f 6e 65 20 62 79 20 72 65 74 72 69  is done by retri
18a0: 65 76 69 6e 67 20 61 20 73 74 72 69 6e 67 20 66  eving a string f
18b0: 72 6f 6d 20 74 68 65 20 64 61 74 61 62 61 73 65  rom the database
18c0: 20 65 6e 67 69 6e 65 20 61 6e 64 0a 23 20 6d 61   engine and.# ma
18d0: 6e 69 70 75 6c 61 74 69 6e 67 20 69 74 20 75 73  nipulating it us
18e0: 69 6e 67 20 74 68 65 20 73 71 6c 69 74 65 33 5f  ing the sqlite3_
18f0: 63 6f 6c 75 6d 6e 5f 2a 2a 2a 20 41 50 49 73 2e  column_*** APIs.
1900: 20 54 68 69 73 20 64 6f 65 73 6e 27 74 20 0a 23   This doesn't .#
1910: 20 61 63 74 75 61 6c 6c 79 20 72 65 74 75 72 6e   actually return
1920: 20 61 6e 20 65 72 72 6f 72 20 74 6f 20 74 68 65   an error to the
1930: 20 75 73 65 72 20 77 68 65 6e 20 61 20 6d 61 6c   user when a mal
1940: 6c 6f 63 28 29 20 66 61 69 6c 73 2e 2e 20 54 68  loc() fails.. Th
1950: 61 74 20 0a 23 20 63 6f 75 6c 64 20 62 65 20 76  at .# could be v
1960: 69 65 77 65 64 20 61 73 20 61 20 62 75 67 2e 0a  iewed as a bug..
1970: 23 0a 23 20 54 68 65 73 65 20 74 65 73 74 73 20  #.# These tests 
1980: 6f 6e 6c 79 20 72 75 6e 20 69 66 20 55 54 46 2d  only run if UTF-
1990: 31 36 20 73 75 70 70 6f 72 74 20 69 73 20 63 6f  16 support is co
19a0: 6d 70 69 6c 65 64 20 69 6e 2e 0a 23 0a 69 66 63  mpiled in..#.ifc
19b0: 61 70 61 62 6c 65 20 75 74 66 31 36 20 7b 0a 20  apable utf16 {. 
19c0: 20 73 65 74 20 3a 3a 53 54 4d 54 20 7b 7d 0a 20   set ::STMT {}. 
19d0: 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20   do_malloc_test 
19e0: 38 20 2d 74 63 6c 70 72 65 70 20 7b 0a 20 20 20  8 -tclprep {.   
19f0: 20 73 65 74 20 73 71 6c 20 22 53 45 4c 45 43 54   set sql "SELECT
1a00: 20 27 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74   '[string repeat
1a10: 20 61 62 63 20 32 30 5d 27 2c 20 27 5b 73 74 72   abc 20]', '[str
1a20: 69 6e 67 20 72 65 70 65 61 74 20 64 65 66 20 32  ing repeat def 2
1a30: 30 5d 27 2c 20 3f 22 0a 20 20 20 20 73 65 74 20  0]', ?".    set 
1a40: 3a 3a 53 54 4d 54 20 5b 73 71 6c 69 74 65 33 5f  ::STMT [sqlite3_
1a50: 70 72 65 70 61 72 65 20 64 62 20 24 73 71 6c 20  prepare db $sql 
1a60: 2d 31 20 58 5d 0a 20 20 20 20 73 71 6c 69 74 65  -1 X].    sqlite
1a70: 33 5f 73 74 65 70 20 24 3a 3a 53 54 4d 54 0a 20  3_step $::STMT. 
1a80: 20 20 20 69 66 20 7b 20 24 3a 3a 74 63 6c 5f 70     if { $::tcl_p
1a90: 6c 61 74 66 6f 72 6d 28 62 79 74 65 4f 72 64 65  latform(byteOrde
1aa0: 72 29 3d 3d 22 6c 69 74 74 6c 65 45 6e 64 69 61  r)=="littleEndia
1ab0: 6e 22 20 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  n" } {.      set
1ac0: 20 3a 3a 62 6f 6d 73 74 72 20 22 5c 78 46 46 5c   ::bomstr "\xFF\
1ad0: 78 46 45 22 0a 20 20 20 20 7d 20 65 6c 73 65 20  xFE".    } else 
1ae0: 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 62 6f  {.      set ::bo
1af0: 6d 73 74 72 20 22 5c 78 46 45 5c 78 46 46 22 0a  mstr "\xFE\xFF".
1b00: 20 20 20 20 7d 0a 20 20 20 20 61 70 70 65 6e 64      }.    append
1b10: 20 3a 3a 62 6f 6d 73 74 72 20 5b 65 6e 63 6f 64   ::bomstr [encod
1b20: 69 6e 67 20 63 6f 6e 76 65 72 74 74 6f 20 75 6e  ing convertto un
1b30: 69 63 6f 64 65 20 22 31 32 33 34 35 36 37 38 39  icode "123456789
1b40: 5f 31 32 33 34 35 36 37 38 39 5f 31 32 33 34 35  _123456789_12345
1b50: 36 37 38 39 22 5d 0a 20 20 7d 20 2d 74 63 6c 62  6789"].  } -tclb
1b60: 6f 64 79 20 7b 0a 20 20 20 20 73 71 6c 69 74 65  ody {.    sqlite
1b70: 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 20  3_column_text16 
1b80: 24 3a 3a 53 54 4d 54 20 30 0a 20 20 20 20 73 71  $::STMT 0.    sq
1b90: 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74  lite3_column_int
1ba0: 20 24 3a 3a 53 54 4d 54 20 30 0a 20 20 20 20 73   $::STMT 0.    s
1bb0: 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65  qlite3_column_te
1bc0: 78 74 31 36 20 24 3a 3a 53 54 4d 54 20 31 0a 20  xt16 $::STMT 1. 
1bd0: 20 20 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d     sqlite3_colum
1be0: 6e 5f 64 6f 75 62 6c 65 20 24 3a 3a 53 54 4d 54  n_double $::STMT
1bf0: 20 31 0a 20 20 20 20 73 65 74 20 72 63 20 5b 73   1.    set rc [s
1c00: 71 6c 69 74 65 33 5f 72 65 73 65 74 20 24 3a 3a  qlite3_reset $::
1c10: 53 54 4d 54 5d 0a 20 20 20 20 69 66 20 7b 24 72  STMT].    if {$r
1c20: 63 20 65 71 20 22 53 51 4c 49 54 45 5f 4e 4f 4d  c eq "SQLITE_NOM
1c30: 45 4d 22 7d 20 7b 65 72 72 6f 72 20 22 6f 75 74  EM"} {error "out
1c40: 20 6f 66 20 6d 65 6d 6f 72 79 22 7d 0a 20 20 20   of memory"}.   
1c50: 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 74 65   sqlite3_bind_te
1c60: 78 74 31 36 20 24 3a 3a 53 54 4d 54 20 31 20 24  xt16 $::STMT 1 $
1c70: 3a 3a 62 6f 6d 73 74 72 20 36 30 0a 20 20 20 20  ::bomstr 60.    
1c80: 23 63 61 74 63 68 20 7b 73 71 6c 69 74 65 33 5f  #catch {sqlite3_
1c90: 66 69 6e 61 6c 69 7a 65 20 24 3a 3a 53 54 4d 54  finalize $::STMT
1ca0: 7d 0a 20 20 20 20 23 69 66 20 7b 5b 6c 69 6e 64  }.    #if {[lind
1cb0: 65 78 20 5b 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f  ex [sqlite_mallo
1cc0: 63 5f 73 74 61 74 5d 20 32 5d 3c 3d 30 7d 20 7b  c_stat] 2]<=0} {
1cd0: 0a 20 20 20 20 23 20 20 65 72 72 6f 72 20 22 6f  .    #  error "o
1ce0: 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20 20  ut of memory".  
1cf0: 20 20 23 7d 0a 20 20 7d 20 2d 63 6c 65 61 6e 75    #}.  } -cleanu
1d00: 70 20 7b 0a 20 20 20 20 69 66 20 7b 24 3a 3a 53  p {.    if {$::S
1d10: 54 4d 54 21 3d 22 22 7d 20 7b 0a 20 20 20 20 20  TMT!=""} {.     
1d20: 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a   sqlite3_finaliz
1d30: 65 20 24 3a 3a 53 54 4d 54 0a 20 20 20 20 20 20  e $::STMT.      
1d40: 73 65 74 20 3a 3a 53 54 4d 54 20 7b 7d 0a 20 20  set ::STMT {}.  
1d50: 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 54 68 69    }.  }.}..# Thi
1d60: 73 20 62 6c 6f 63 6b 20 74 65 73 74 73 20 74 68  s block tests th
1d70: 61 74 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 6c  at malloc() fail
1d80: 75 72 65 73 20 74 68 61 74 20 6f 63 63 75 72 20  ures that occur 
1d90: 77 68 69 6c 73 74 20 63 6f 6d 6d 69 74 69 6e 67  whilst commiting
1da0: 0a 23 20 61 20 6d 75 6c 74 69 2d 66 69 6c 65 20  .# a multi-file 
1db0: 74 72 61 6e 73 61 63 74 69 6f 6e 20 61 72 65 20  transaction are 
1dc0: 68 61 6e 64 6c 65 64 20 63 6f 72 72 65 63 74 6c  handled correctl
1dd0: 79 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74  y..#.do_malloc_t
1de0: 65 73 74 20 39 20 2d 73 71 6c 70 72 65 70 20 7b  est 9 -sqlprep {
1df0: 0a 20 20 41 54 54 41 43 48 20 27 74 65 73 74 32  .  ATTACH 'test2
1e00: 2e 64 62 27 20 61 73 20 74 65 73 74 32 3b 0a 20  .db' as test2;. 
1e10: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 61 62   CREATE TABLE ab
1e20: 63 31 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 43  c1(a, b, c);.  C
1e30: 52 45 41 54 45 20 54 41 42 4c 45 20 74 65 73 74  REATE TABLE test
1e40: 32 2e 61 62 63 32 28 61 2c 20 62 2c 20 63 29 3b  2.abc2(a, b, c);
1e50: 0a 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20  .} -sqlbody {.  
1e60: 42 45 47 49 4e 3b 0a 20 20 49 4e 53 45 52 54 20  BEGIN;.  INSERT 
1e70: 49 4e 54 4f 20 61 62 63 31 20 56 41 4c 55 45 53  INTO abc1 VALUES
1e80: 28 31 2c 20 32 2c 20 33 29 3b 0a 20 20 49 4e 53  (1, 2, 3);.  INS
1e90: 45 52 54 20 49 4e 54 4f 20 61 62 63 32 20 56 41  ERT INTO abc2 VA
1ea0: 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 0a 20  LUES(1, 2, 3);. 
1eb0: 20 43 4f 4d 4d 49 54 3b 0a 7d 0a 0a 23 20 54 68   COMMIT;.}..# Th
1ec0: 69 73 20 62 6c 6f 63 6b 20 74 65 73 74 73 20 6d  is block tests m
1ed0: 61 6c 6c 6f 63 28 29 20 66 61 69 6c 75 72 65 73  alloc() failures
1ee0: 20 74 68 61 74 20 6f 63 63 75 72 20 77 68 69 6c   that occur whil
1ef0: 65 20 6f 70 65 6e 69 6e 67 20 61 20 0a 23 20 63  e opening a .# c
1f00: 6f 6e 6e 65 63 74 69 6f 6e 20 74 6f 20 61 20 64  onnection to a d
1f10: 61 74 61 62 61 73 65 2e 0a 64 6f 5f 6d 61 6c 6c  atabase..do_mall
1f20: 6f 63 5f 74 65 73 74 20 31 30 20 2d 74 63 6c 70  oc_test 10 -tclp
1f30: 72 65 70 20 7b 0a 20 20 63 61 74 63 68 20 7b 64  rep {.  catch {d
1f40: 62 32 20 63 6c 6f 73 65 7d 0a 20 20 64 62 20 63  b2 close}.  db c
1f50: 6c 6f 73 65 0a 20 20 66 6f 72 63 65 64 65 6c 65  lose.  forcedele
1f60: 74 65 20 74 65 73 74 2e 64 62 20 74 65 73 74 2e  te test.db test.
1f70: 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20 73 71 6c  db-journal.  sql
1f80: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a  ite3 db test.db.
1f90: 20 20 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64    sqlite3_extend
1fa0: 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 20  ed_result_codes 
1fb0: 64 62 20 31 0a 20 20 64 62 20 65 76 61 6c 20 7b  db 1.  db eval {
1fc0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 61 62 63  CREATE TABLE abc
1fd0: 28 61 2c 20 62 2c 20 63 29 7d 0a 7d 20 2d 74 63  (a, b, c)}.} -tc
1fe0: 6c 62 6f 64 79 20 7b 0a 20 20 64 62 20 63 6c 6f  lbody {.  db clo
1ff0: 73 65 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32  se.  sqlite3 db2
2000: 20 74 65 73 74 2e 64 62 0a 20 20 73 71 6c 69 74   test.db.  sqlit
2010: 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75  e3_extended_resu
2020: 6c 74 5f 63 6f 64 65 73 20 64 62 32 20 31 0a 20  lt_codes db2 1. 
2030: 20 64 62 32 20 65 76 61 6c 20 7b 53 45 4c 45 43   db2 eval {SELEC
2040: 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  T * FROM sqlite_
2050: 6d 61 73 74 65 72 7d 0a 20 20 64 62 32 20 63 6c  master}.  db2 cl
2060: 6f 73 65 0a 7d 0a 0a 23 20 54 68 69 73 20 62 6c  ose.}..# This bl
2070: 6f 63 6b 20 74 65 73 74 73 20 6d 61 6c 6c 6f 63  ock tests malloc
2080: 28 29 20 66 61 69 6c 75 72 65 73 20 74 68 61 74  () failures that
2090: 20 6f 63 63 75 72 20 77 69 74 68 69 6e 20 63 61   occur within ca
20a0: 6c 6c 73 20 74 6f 0a 23 20 73 71 6c 69 74 65 33  lls to.# sqlite3
20b0: 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f 6e  _create_function
20c0: 28 29 2e 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  ()..do_malloc_te
20d0: 73 74 20 31 31 20 2d 74 63 6c 62 6f 64 79 20 7b  st 11 -tclbody {
20e0: 0a 20 20 73 65 74 20 72 63 20 5b 73 71 6c 69 74  .  set rc [sqlit
20f0: 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69  e3_create_functi
2100: 6f 6e 20 64 62 5d 0a 20 20 69 66 20 7b 5b 73 74  on db].  if {[st
2110: 72 69 6e 67 20 6d 61 74 63 68 20 24 72 63 20 53  ring match $rc S
2120: 51 4c 49 54 45 5f 4f 4b 5d 7d 20 7b 0a 20 20 20  QLITE_OK]} {.   
2130: 20 73 65 74 20 72 63 20 5b 73 71 6c 69 74 65 33   set rc [sqlite3
2140: 5f 63 72 65 61 74 65 5f 61 67 67 72 65 67 61 74  _create_aggregat
2150: 65 20 64 62 5d 0a 20 20 7d 0a 20 20 69 66 20 7b  e db].  }.  if {
2160: 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20 24 72  [string match $r
2170: 63 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 5d 7d  c SQLITE_NOMEM]}
2180: 20 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 6f 75   {.    error "ou
2190: 74 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20 20 7d  t of memory".  }
21a0: 0a 7d 0a 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  .}..do_malloc_te
21b0: 73 74 20 31 32 20 2d 74 63 6c 62 6f 64 79 20 7b  st 12 -tclbody {
21c0: 0a 20 20 73 65 74 20 73 71 6c 31 36 20 5b 65 6e  .  set sql16 [en
21d0: 63 6f 64 69 6e 67 20 63 6f 6e 76 65 72 74 74 6f  coding convertto
21e0: 20 75 6e 69 63 6f 64 65 20 22 53 45 4c 45 43 54   unicode "SELECT
21f0: 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d   * FROM sqlite_m
2200: 61 73 74 65 72 22 5d 0a 20 20 61 70 70 65 6e 64  aster"].  append
2210: 20 73 71 6c 31 36 20 22 5c 30 30 5c 30 30 22 0a   sql16 "\00\00".
2220: 20 20 73 65 74 20 3a 3a 53 54 4d 54 20 5b 73 71    set ::STMT [sq
2230: 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31 36 20  lite3_prepare16 
2240: 64 62 20 24 73 71 6c 31 36 20 2d 31 20 44 55 4d  db $sql16 -1 DUM
2250: 4d 59 5d 0a 20 20 73 71 6c 69 74 65 33 5f 66 69  MY].  sqlite3_fi
2260: 6e 61 6c 69 7a 65 20 24 3a 3a 53 54 4d 54 0a 7d  nalize $::STMT.}
2270: 0a 0a 23 20 54 65 73 74 20 6d 61 6c 6c 6f 63 20  ..# Test malloc 
2280: 65 72 72 6f 72 73 20 77 68 65 6e 20 72 65 70 6c  errors when repl
2290: 61 79 69 6e 67 20 74 77 6f 20 68 6f 74 20 6a 6f  aying two hot jo
22a0: 75 72 6e 61 6c 73 20 66 72 6f 6d 20 61 20 32 2d  urnals from a 2-
22b0: 66 69 6c 65 20 0a 23 20 74 72 61 6e 73 61 63 74  file .# transact
22c0: 69 6f 6e 2e 0a 69 66 63 61 70 61 62 6c 65 20 63  ion..ifcapable c
22d0: 72 61 73 68 74 65 73 74 26 26 61 74 74 61 63 68  rashtest&&attach
22e0: 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74   {.  do_malloc_t
22f0: 65 73 74 20 31 33 20 2d 74 63 6c 70 72 65 70 20  est 13 -tclprep 
2300: 7b 0a 20 20 20 20 73 65 74 20 72 63 20 5b 63 72  {.    set rc [cr
2310: 61 73 68 73 71 6c 20 2d 64 65 6c 61 79 20 31 20  ashsql -delay 1 
2320: 2d 66 69 6c 65 20 74 65 73 74 32 2e 64 62 20 7b  -file test2.db {
2330: 0a 20 20 20 20 20 20 41 54 54 41 43 48 20 27 74  .      ATTACH 't
2340: 65 73 74 32 2e 64 62 27 20 61 73 20 61 75 78 3b  est2.db' as aux;
2350: 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 63 61  .      PRAGMA ca
2360: 63 68 65 5f 73 69 7a 65 20 3d 20 31 30 3b 0a 20  che_size = 10;. 
2370: 20 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20       BEGIN;.    
2380: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 61    CREATE TABLE a
2390: 75 78 2e 74 32 28 61 2c 20 62 2c 20 63 29 3b 0a  ux.t2(a, b, c);.
23a0: 20 20 20 20 20 20 43 52 45 41 54 45 20 54 41 42        CREATE TAB
23b0: 4c 45 20 74 31 28 61 2c 20 62 2c 20 63 29 3b 0a  LE t1(a, b, c);.
23c0: 20 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20        COMMIT;.  
23d0: 20 20 7d 5d 0a 20 20 20 20 69 66 20 7b 24 72 63    }].    if {$rc
23e0: 21 3d 22 31 20 7b 63 68 69 6c 64 20 70 72 6f 63  !="1 {child proc
23f0: 65 73 73 20 65 78 69 74 65 64 20 61 62 6e 6f 72  ess exited abnor
2400: 6d 61 6c 6c 79 7d 22 7d 20 7b 0a 20 20 20 20 20  mally}"} {.     
2410: 20 65 72 72 6f 72 20 22 57 72 6f 6e 67 20 65 72   error "Wrong er
2420: 72 6f 72 20 6d 65 73 73 61 67 65 3a 20 24 72 63  ror message: $rc
2430: 22 0a 20 20 20 20 7d 0a 20 20 7d 20 2d 74 63 6c  ".    }.  } -tcl
2440: 62 6f 64 79 20 7b 0a 20 20 20 20 64 62 20 65 76  body {.    db ev
2450: 61 6c 20 7b 41 54 54 41 43 48 20 27 74 65 73 74  al {ATTACH 'test
2460: 32 2e 64 62 27 20 61 73 20 61 75 78 3b 7d 0a 20  2.db' as aux;}. 
2470: 20 20 20 73 65 74 20 72 63 20 5b 63 61 74 63 68     set rc [catch
2480: 20 7b 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20   {db eval {.    
2490: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
24a0: 74 31 3b 20 0a 20 20 20 20 20 20 53 45 4c 45 43  t1; .      SELEC
24b0: 54 20 2a 20 46 52 4f 4d 20 74 32 3b 0a 20 20 20  T * FROM t2;.   
24c0: 20 7d 7d 20 65 72 72 5d 0a 20 20 20 20 69 66 20   }} err].    if 
24d0: 7b 24 72 63 20 26 26 20 24 65 72 72 21 3d 22 6e  {$rc && $err!="n
24e0: 6f 20 73 75 63 68 20 74 61 62 6c 65 3a 20 74 31  o such table: t1
24f0: 22 7d 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72  "} {.      error
2500: 20 24 65 72 72 0a 20 20 20 20 7d 0a 20 20 7d 0a   $err.    }.  }.
2510: 7d 0a 0a 69 66 20 7b 24 74 63 6c 5f 70 6c 61 74  }..if {$tcl_plat
2520: 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 21 3d  form(platform)!=
2530: 22 77 69 6e 64 6f 77 73 22 20 26 26 20 5b 61 74  "windows" && [at
2540: 6f 6d 69 63 5f 62 61 74 63 68 5f 77 72 69 74 65  omic_batch_write
2550: 20 74 65 73 74 2e 64 62 5d 3d 3d 30 7d 20 7b 0a   test.db]==0} {.
2560: 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74    do_malloc_test
2570: 20 31 34 20 2d 74 63 6c 70 72 65 70 20 7b 0a 20   14 -tclprep {. 
2580: 20 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f     catch {db clo
2590: 73 65 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 20  se}.    sqlite3 
25a0: 64 62 32 20 74 65 73 74 32 2e 64 62 0a 20 20 20  db2 test2.db.   
25b0: 20 73 71 6c 69 74 65 33 5f 65 78 74 65 6e 64 65   sqlite3_extende
25c0: 64 5f 72 65 73 75 6c 74 5f 63 6f 64 65 73 20 64  d_result_codes d
25d0: 62 32 20 31 0a 20 20 20 20 64 62 32 20 65 76 61  b2 1.    db2 eva
25e0: 6c 20 7b 0a 20 20 20 20 20 20 50 52 41 47 4d 41  l {.      PRAGMA
25f0: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20   journal_mode = 
2600: 44 45 4c 45 54 45 3b 20 20 20 20 2f 2a 20 46 6f  DELETE;    /* Fo
2610: 72 20 69 6e 6d 65 6d 6f 72 79 5f 6a 6f 75 72 6e  r inmemory_journ
2620: 61 6c 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 2a  al permutation *
2630: 2f 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 73  /.      PRAGMA s
2640: 79 6e 63 68 72 6f 6e 6f 75 73 20 3d 20 30 3b 0a  ynchronous = 0;.
2650: 20 20 20 20 20 20 43 52 45 41 54 45 20 54 41 42        CREATE TAB
2660: 4c 45 20 74 31 28 61 2c 20 62 29 3b 0a 20 20 20  LE t1(a, b);.   
2670: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
2680: 31 20 56 41 4c 55 45 53 28 31 2c 20 32 29 3b 0a  1 VALUES(1, 2);.
2690: 20 20 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20        BEGIN;.   
26a0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
26b0: 31 20 56 41 4c 55 45 53 28 33 2c 20 34 29 3b 0a  1 VALUES(3, 4);.
26c0: 20 20 20 20 7d 0a 20 20 20 20 66 6f 72 63 65 63      }.    forcec
26d0: 6f 70 79 20 74 65 73 74 32 2e 64 62 20 74 65 73  opy test2.db tes
26e0: 74 2e 64 62 0a 20 20 20 20 66 6f 72 63 65 63 6f  t.db.    forceco
26f0: 70 79 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72  py test2.db-jour
2700: 6e 61 6c 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  nal test.db-jour
2710: 6e 61 6c 0a 20 20 20 20 64 62 32 20 63 6c 6f 73  nal.    db2 clos
2720: 65 0a 20 20 7d 20 2d 74 63 6c 62 6f 64 79 20 7b  e.  } -tclbody {
2730: 0a 20 20 20 20 73 71 6c 69 74 65 33 20 64 62 20  .    sqlite3 db 
2740: 74 65 73 74 2e 64 62 0a 20 20 20 20 73 71 6c 69  test.db.    sqli
2750: 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73  te3_extended_res
2760: 75 6c 74 5f 63 6f 64 65 73 20 64 62 20 31 0a 0a  ult_codes db 1..
2770: 20 20 20 20 23 20 49 66 20 61 6e 20 6f 75 74 2d      # If an out-
2780: 6f 66 2d 6d 65 6d 6f 72 79 20 6f 63 63 75 72 73  of-memory occurs
2790: 20 77 69 74 68 69 6e 20 61 20 63 61 6c 6c 20 74   within a call t
27a0: 6f 20 61 20 56 46 53 20 6c 61 79 65 72 20 66 75  o a VFS layer fu
27b0: 6e 63 74 69 6f 6e 20 64 75 72 69 6e 67 0a 20 20  nction during.  
27c0: 20 20 23 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c 20    # hot-journal 
27d0: 72 6f 6c 6c 62 61 63 6b 2c 20 73 71 6c 69 74 65  rollback, sqlite
27e0: 20 77 69 6c 6c 20 72 65 70 6f 72 74 20 53 51 4c   will report SQL
27f0: 49 54 45 5f 43 4f 52 52 55 50 54 2e 20 53 65 65  ITE_CORRUPT. See
2800: 20 63 6f 6d 6d 69 74 0a 20 20 20 20 23 20 5b 35   commit.    # [5
2810: 36 36 38 5d 20 66 6f 72 20 64 65 74 61 69 6c 73  668] for details
2820: 2e 0a 20 20 20 20 73 65 74 20 72 63 20 5b 63 61  ..    set rc [ca
2830: 74 63 68 20 7b 64 62 20 65 76 61 6c 20 7b 20 53  tch {db eval { S
2840: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20  ELECT * FROM t1 
2850: 7d 7d 20 6d 73 67 5d 0a 20 20 20 20 69 66 20 7b  }} msg].    if {
2860: 24 6d 73 67 20 65 71 20 22 64 61 74 61 62 61 73  $msg eq "databas
2870: 65 20 64 69 73 6b 20 69 6d 61 67 65 20 69 73 20  e disk image is 
2880: 6d 61 6c 66 6f 72 6d 65 64 22 7d 20 7b 20 73 65  malformed"} { se
2890: 74 20 6d 73 67 20 22 6f 75 74 20 6f 66 20 6d 65  t msg "out of me
28a0: 6d 6f 72 79 22 20 7d 0a 20 20 20 20 69 66 20 7b  mory" }.    if {
28b0: 24 72 63 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73  $rc} { error $ms
28c0: 67 20 7d 0a 20 20 20 20 73 65 74 20 6d 73 67 0a  g }.    set msg.
28d0: 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 73 74 72 69    }.}..proc stri
28e0: 6e 67 5f 63 6f 6d 70 61 72 65 20 7b 61 20 62 7d  ng_compare {a b}
28f0: 20 7b 0a 20 20 72 65 74 75 72 6e 20 5b 73 74 72   {.  return [str
2900: 69 6e 67 20 63 6f 6d 70 61 72 65 20 24 61 20 24  ing compare $a $
2910: 62 5d 0a 7d 0a 0a 23 20 54 65 73 74 20 66 6f 72  b].}..# Test for
2920: 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 6c 75 72   malloc() failur
2930: 65 73 20 69 6e 20 73 71 6c 69 74 65 33 5f 63 72  es in sqlite3_cr
2940: 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 29  eate_collation()
2950: 20 61 6e 64 20 0a 23 20 73 71 6c 69 74 65 33 5f   and .# sqlite3_
2960: 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e  create_collation
2970: 31 36 28 29 2e 0a 23 0a 69 66 63 61 70 61 62 6c  16()..#.ifcapabl
2980: 65 20 75 74 66 31 36 20 7b 0a 20 20 64 6f 5f 6d  e utf16 {.  do_m
2990: 61 6c 6c 6f 63 5f 74 65 73 74 20 31 35 20 2d 73  alloc_test 15 -s
29a0: 74 61 72 74 20 34 20 2d 74 63 6c 62 6f 64 79 20  tart 4 -tclbody 
29b0: 7b 0a 20 20 20 20 64 62 20 63 6f 6c 6c 61 74 65  {.    db collate
29c0: 20 73 74 72 69 6e 67 5f 63 6f 6d 70 61 72 65 20   string_compare 
29d0: 73 74 72 69 6e 67 5f 63 6f 6d 70 61 72 65 0a 20  string_compare. 
29e0: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 61     if {[catch {a
29f0: 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20  dd_test_collate 
2a00: 64 62 20 31 20 31 20 31 7d 20 6d 73 67 5d 7d 20  db 1 1 1} msg]} 
2a10: 7b 0a 20 20 20 20 20 20 69 66 20 7b 24 6d 73 67  {.      if {$msg
2a20: 3d 3d 22 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 22  =="SQLITE_NOMEM"
2a30: 7d 20 7b 73 65 74 20 6d 73 67 20 22 6f 75 74 20  } {set msg "out 
2a40: 6f 66 20 6d 65 6d 6f 72 79 22 7d 0a 20 20 20 20  of memory"}.    
2a50: 20 20 65 72 72 6f 72 20 24 6d 73 67 0a 20 20 20    error $msg.   
2a60: 20 7d 0a 20 20 0a 20 20 20 20 64 62 20 63 6f 6d   }.  .    db com
2a70: 70 6c 65 74 65 20 7b 53 45 4c 45 43 54 20 22 68  plete {SELECT "h
2a80: 65 6c 6c 6f 20 22 22 22 7c 7c 27 77 6f 72 6c 64  ello """||'world
2a90: 22 27 20 5b 6d 69 63 72 6f 73 6f 66 74 5d 2c 20  "' [microsoft], 
2aa0: 2a 20 46 52 4f 4d 20 61 6e 69 63 65 74 61 62 6c  * FROM anicetabl
2ab0: 65 3b 7d 0a 20 20 20 20 64 62 20 63 6f 6d 70 6c  e;}.    db compl
2ac0: 65 74 65 20 7b 2d 2d 20 55 73 65 66 75 6c 20 63  ete {-- Useful c
2ad0: 6f 6d 6d 65 6e 74 7d 0a 20 20 0a 20 20 20 20 65  omment}.  .    e
2ae0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 43  xecsql {.      C
2af0: 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 61  REATE TABLE t1(a
2b00: 2c 20 62 20 43 4f 4c 4c 41 54 45 20 73 74 72 69  , b COLLATE stri
2b10: 6e 67 5f 63 6f 6d 70 61 72 65 29 3b 0a 20 20 20  ng_compare);.   
2b20: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
2b30: 31 20 56 41 4c 55 45 53 28 31 30 2c 20 27 73 74  1 VALUES(10, 'st
2b40: 72 69 6e 67 27 29 3b 0a 20 20 20 20 20 20 49 4e  ring');.      IN
2b50: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
2b60: 55 45 53 28 31 30 2c 20 27 73 74 72 69 6e 67 32  UES(10, 'string2
2b70: 27 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  ');.    }.  }.}.
2b80: 0a 23 20 41 6c 73 6f 20 74 65 73 74 20 73 71 6c  .# Also test sql
2b90: 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 28 29 2e  ite3_complete().
2ba0: 20 54 68 65 72 65 20 61 72 65 20 28 63 75 72 72   There are (curr
2bb0: 65 6e 74 6c 79 29 20 6e 6f 20 6d 61 6c 6c 6f 63  ently) no malloc
2bc0: 28 29 0a 23 20 63 61 6c 6c 73 20 69 6e 20 74 68  ().# calls in th
2bd0: 69 73 20 66 75 6e 63 74 69 6f 6e 2c 20 62 75 74  is function, but
2be0: 20 74 65 73 74 20 61 6e 79 77 61 79 20 61 67 61   test anyway aga
2bf0: 69 6e 73 74 20 66 75 74 75 72 65 20 63 68 61 6e  inst future chan
2c00: 67 65 73 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63  ges..#.do_malloc
2c10: 5f 74 65 73 74 20 31 36 20 2d 74 63 6c 62 6f 64  _test 16 -tclbod
2c20: 79 20 7b 0a 20 20 64 62 20 63 6f 6d 70 6c 65 74  y {.  db complet
2c30: 65 20 7b 53 45 4c 45 43 54 20 22 68 65 6c 6c 6f  e {SELECT "hello
2c40: 20 22 22 22 7c 7c 27 77 6f 72 6c 64 22 27 20 5b   """||'world"' [
2c50: 6d 69 63 72 6f 73 6f 66 74 5d 2c 20 2a 20 46 52  microsoft], * FR
2c60: 4f 4d 20 61 6e 69 63 65 74 61 62 6c 65 3b 7d 0a  OM anicetable;}.
2c70: 20 20 64 62 20 63 6f 6d 70 6c 65 74 65 20 7b 2d    db complete {-
2c80: 2d 20 55 73 65 66 75 6c 20 63 6f 6d 6d 65 6e 74  - Useful comment
2c90: 7d 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20  }.  db eval {.  
2ca0: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
2cb0: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20  sqlite_master;. 
2cc0: 20 7d 0a 7d 0a 0a 23 20 54 65 73 74 20 68 61 6e   }.}..# Test han
2cd0: 64 6c 69 6e 67 20 6f 66 20 6d 61 6c 6c 6f 63 28  dling of malloc(
2ce0: 29 20 66 61 69 6c 75 72 65 73 20 69 6e 20 73 71  ) failures in sq
2cf0: 6c 69 74 65 33 5f 6f 70 65 6e 31 36 28 29 2e 0a  lite3_open16()..
2d00: 23 0a 69 66 63 61 70 61 62 6c 65 20 75 74 66 31  #.ifcapable utf1
2d10: 36 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f  6 {.  do_malloc_
2d20: 74 65 73 74 20 31 37 20 2d 74 63 6c 62 6f 64 79  test 17 -tclbody
2d30: 20 7b 0a 20 20 20 20 73 65 74 20 44 42 32 20 30   {.    set DB2 0
2d40: 0a 20 20 20 20 73 65 74 20 53 54 4d 54 20 30 0a  .    set STMT 0.
2d50: 20 20 0a 20 20 20 20 23 20 6f 70 65 6e 20 64 61    .    # open da
2d60: 74 61 62 61 73 65 20 75 73 69 6e 67 20 73 71 6c  tabase using sql
2d70: 69 74 65 33 5f 6f 70 65 6e 31 36 28 29 0a 20 20  ite3_open16().  
2d80: 20 20 73 65 74 20 66 69 6c 65 6e 61 6d 65 20 5b    set filename [
2d90: 65 6e 63 6f 64 69 6e 67 20 63 6f 6e 76 65 72 74  encoding convert
2da0: 74 6f 20 75 6e 69 63 6f 64 65 20 74 65 73 74 2e  to unicode test.
2db0: 64 62 5d 0a 20 20 20 20 61 70 70 65 6e 64 20 66  db].    append f
2dc0: 69 6c 65 6e 61 6d 65 20 22 5c 78 30 30 5c 78 30  ilename "\x00\x0
2dd0: 30 22 0a 20 20 20 20 73 65 74 20 44 42 32 20 5b  0".    set DB2 [
2de0: 73 71 6c 69 74 65 33 5f 6f 70 65 6e 31 36 20 24  sqlite3_open16 $
2df0: 66 69 6c 65 6e 61 6d 65 20 2d 75 6e 75 73 65 64  filename -unused
2e00: 5d 0a 20 20 20 20 69 66 20 7b 30 3d 3d 24 44 42  ].    if {0==$DB
2e10: 32 7d 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72  2} {.      error
2e20: 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22   "out of memory"
2e30: 0a 20 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74  .    }.    sqlit
2e40: 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75  e3_extended_resu
2e50: 6c 74 5f 63 6f 64 65 73 20 24 44 42 32 20 31 0a  lt_codes $DB2 1.
2e60: 20 20 0a 20 20 20 20 23 20 50 72 65 70 61 72 65    .    # Prepare
2e70: 20 73 74 61 74 65 6d 65 6e 74 0a 20 20 20 20 73   statement.    s
2e80: 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 73 71  et rc [catch {sq
2e90: 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20 24 44  lite3_prepare $D
2ea0: 42 32 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  B2 {SELECT * FRO
2eb0: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d  M sqlite_master}
2ec0: 20 2d 31 20 58 7d 20 6d 73 67 5d 0a 20 20 20 20   -1 X} msg].    
2ed0: 69 66 20 7b 5b 73 71 6c 69 74 65 33 5f 65 72 72  if {[sqlite3_err
2ee0: 63 6f 64 65 20 24 44 42 32 5d 20 65 71 20 22 53  code $DB2] eq "S
2ef0: 51 4c 49 54 45 5f 49 4f 45 52 52 2b 31 32 22 7d  QLITE_IOERR+12"}
2f00: 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22   {.      error "
2f10: 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20  out of memory". 
2f20: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 5b 72 65     }.    if {[re
2f30: 67 65 78 70 20 22 2e 2a 61 75 74 6f 6d 61 74 69  gexp ".*automati
2f40: 63 20 65 78 74 65 6e 73 69 6f 6e 20 6c 6f 61 64  c extension load
2f50: 69 6e 67 2e 2a 22 20 5b 73 71 6c 69 74 65 33 5f  ing.*" [sqlite3_
2f60: 65 72 72 6d 73 67 20 24 44 42 32 5d 5d 7d 20 7b  errmsg $DB2]]} {
2f70: 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22 6f 75  .      error "ou
2f80: 74 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20 20 20  t of memory".   
2f90: 20 7d 0a 20 20 20 20 69 66 20 7b 24 72 63 7d 20   }.    if {$rc} 
2fa0: 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20 5b 73  {.      error [s
2fb0: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 6d 73 67  tring range $msg
2fc0: 20 34 20 65 6e 64 5d 0a 20 20 20 20 7d 0a 20 20   4 end].    }.  
2fd0: 20 20 73 65 74 20 53 54 4d 54 20 24 6d 73 67 0a    set STMT $msg.
2fe0: 20 20 0a 20 20 20 20 23 20 46 69 6e 61 6c 69 7a    .    # Finaliz
2ff0: 65 20 73 74 61 74 65 6d 65 6e 74 0a 20 20 20 20  e statement.    
3000: 73 65 74 20 72 63 20 5b 73 71 6c 69 74 65 33 5f  set rc [sqlite3_
3010: 66 69 6e 61 6c 69 7a 65 20 24 53 54 4d 54 5d 0a  finalize $STMT].
3020: 20 20 20 20 69 66 20 7b 24 72 63 21 3d 22 53 51      if {$rc!="SQ
3030: 4c 49 54 45 5f 4f 4b 22 7d 20 7b 0a 20 20 20 20  LITE_OK"} {.    
3040: 20 20 65 72 72 6f 72 20 5b 73 71 6c 69 74 65 33    error [sqlite3
3050: 5f 65 72 72 6d 73 67 20 24 44 42 32 5d 0a 20 20  _errmsg $DB2].  
3060: 20 20 7d 0a 20 20 20 20 73 65 74 20 53 54 4d 54    }.    set STMT
3070: 20 30 0a 20 20 0a 20 20 20 20 23 20 43 6c 6f 73   0.  .    # Clos
3080: 65 20 64 61 74 61 62 61 73 65 0a 20 20 20 20 73  e database.    s
3090: 65 74 20 72 63 20 5b 73 71 6c 69 74 65 33 5f 63  et rc [sqlite3_c
30a0: 6c 6f 73 65 20 24 44 42 32 5d 0a 20 20 20 20 69  lose $DB2].    i
30b0: 66 20 7b 24 72 63 21 3d 22 53 51 4c 49 54 45 5f  f {$rc!="SQLITE_
30c0: 4f 4b 22 7d 20 7b 0a 20 20 20 20 20 20 65 72 72  OK"} {.      err
30d0: 6f 72 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 6d  or [sqlite3_errm
30e0: 73 67 20 24 44 42 32 5d 0a 20 20 20 20 7d 0a 20  sg $DB2].    }. 
30f0: 20 20 20 73 65 74 20 44 42 32 20 30 0a 20 20 7d     set DB2 0.  }
3100: 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20 20   -cleanup {.    
3110: 69 66 20 7b 24 53 54 4d 54 21 3d 22 30 22 7d 20  if {$STMT!="0"} 
3120: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
3130: 66 69 6e 61 6c 69 7a 65 20 24 53 54 4d 54 0a 20  finalize $STMT. 
3140: 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 44 42     }.    if {$DB
3150: 32 21 3d 22 30 22 7d 20 7b 0a 20 20 20 20 20 20  2!="0"} {.      
3160: 73 65 74 20 72 63 20 5b 73 71 6c 69 74 65 33 5f  set rc [sqlite3_
3170: 63 6c 6f 73 65 20 24 44 42 32 5d 0a 20 20 20 20  close $DB2].    
3180: 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 54 65 73 74 20  }.  }.}..# Test 
3190: 68 61 6e 64 6c 69 6e 67 20 6f 66 20 6d 61 6c 6c  handling of mall
31a0: 6f 63 28 29 20 66 61 69 6c 75 72 65 73 20 69 6e  oc() failures in
31b0: 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 31   sqlite3_errmsg1
31c0: 36 28 29 2e 0a 23 0a 69 66 63 61 70 61 62 6c 65  6()..#.ifcapable
31d0: 20 75 74 66 31 36 20 7b 0a 20 20 64 6f 5f 6d 61   utf16 {.  do_ma
31e0: 6c 6c 6f 63 5f 74 65 73 74 20 31 38 20 2d 74 63  lloc_test 18 -tc
31f0: 6c 70 72 65 70 20 7b 0a 20 20 20 20 63 61 74 63  lprep {.    catc
3200: 68 20 7b 0a 20 20 20 20 20 20 64 62 20 65 76 61  h {.      db eva
3210: 6c 20 22 53 45 4c 45 43 54 20 5b 73 74 72 69 6e  l "SELECT [strin
3220: 67 20 72 65 70 65 61 74 20 6c 6f 6e 67 63 6f 6c  g repeat longcol
3230: 75 6d 6e 6e 61 6d 65 20 31 30 5d 20 46 52 4f 4d  umnname 10] FROM
3240: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 22 0a   sqlite_master".
3250: 20 20 20 20 7d 0a 20 20 7d 20 2d 74 63 6c 62 6f      }.  } -tclbo
3260: 64 79 20 7b 0a 20 20 20 20 73 65 74 20 75 74 66  dy {.    set utf
3270: 31 36 20 5b 73 71 6c 69 74 65 33 5f 65 72 72 6d  16 [sqlite3_errm
3280: 73 67 31 36 20 5b 73 71 6c 69 74 65 33 5f 63 6f  sg16 [sqlite3_co
3290: 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72  nnection_pointer
32a0: 20 64 62 5d 5d 0a 20 20 20 20 62 69 6e 61 72 79   db]].    binary
32b0: 20 73 63 61 6e 20 24 75 74 66 31 36 20 63 2a 20   scan $utf16 c* 
32c0: 62 79 74 65 73 0a 20 20 20 20 69 66 20 7b 5b 6c  bytes.    if {[l
32d0: 6c 65 6e 67 74 68 20 24 62 79 74 65 73 5d 3d 3d  length $bytes]==
32e0: 30 7d 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72  0} {.      error
32f0: 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22   "out of memory"
3300: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20  .    }.  }.}..# 
3310: 54 68 69 73 20 74 65 73 74 20 69 73 20 61 69 6d  This test is aim
3320: 65 64 20 61 74 20 63 6f 76 65 72 61 67 65 20 74  ed at coverage t
3330: 65 73 74 69 6e 67 2e 20 53 70 65 63 69 66 69 63  esting. Specific
3340: 6c 79 2c 20 69 74 20 69 73 20 73 75 70 70 6f 73  ly, it is suppos
3350: 65 64 20 74 6f 0a 23 20 63 61 75 73 65 20 61 20  ed to.# cause a 
3360: 6d 61 6c 6c 6f 63 28 29 20 6f 6e 6c 79 20 75 73  malloc() only us
3370: 65 64 20 77 68 65 6e 20 63 6f 6e 76 65 72 74 69  ed when converti
3380: 6e 67 20 62 65 74 77 65 65 6e 20 74 68 65 20 74  ng between the t
3390: 77 6f 20 75 74 66 2d 31 36 20 0a 23 20 65 6e 63  wo utf-16 .# enc
33a0: 6f 64 69 6e 67 73 20 74 6f 20 66 61 69 6c 20 28  odings to fail (
33b0: 69 2e 65 2e 20 6c 69 74 74 6c 65 2d 65 6e 64 69  i.e. little-endi
33c0: 61 6e 2d 3e 62 69 67 2d 65 6e 64 69 61 6e 29 2e  an->big-endian).
33d0: 20 49 74 20 6f 6e 6c 79 20 61 63 74 75 61 6c 6c   It only actuall
33e0: 79 20 0a 23 20 68 69 74 73 20 74 68 69 73 20 6d  y .# hits this m
33f0: 61 6c 6c 6f 63 28 29 20 6f 6e 20 6c 69 74 74 6c  alloc() on littl
3400: 65 2d 65 6e 64 69 61 6e 20 68 6f 73 74 73 2e 0a  e-endian hosts..
3410: 23 0a 73 65 74 20 73 74 61 74 69 63 5f 73 74 72  #.set static_str
3420: 69 6e 67 20 22 5c 78 30 30 68 5c 78 30 30 65 5c  ing "\x00h\x00e\
3430: 78 30 30 6c 5c 78 30 30 6c 5c 78 30 30 6f 22 0a  x00l\x00l\x00o".
3440: 66 6f 72 20 7b 73 65 74 20 6c 20 30 7d 20 7b 24  for {set l 0} {$
3450: 6c 3c 31 30 7d 20 7b 69 6e 63 72 20 6c 7d 20 7b  l<10} {incr l} {
3460: 0a 20 20 61 70 70 65 6e 64 20 73 74 61 74 69 63  .  append static
3470: 5f 73 74 72 69 6e 67 20 24 73 74 61 74 69 63 5f  _string $static_
3480: 73 74 72 69 6e 67 0a 7d 0a 61 70 70 65 6e 64 20  string.}.append 
3490: 73 74 61 74 69 63 5f 73 74 72 69 6e 67 20 22 5c  static_string "\
34a0: 78 30 30 5c 78 30 30 22 0a 64 6f 5f 6d 61 6c 6c  x00\x00".do_mall
34b0: 6f 63 5f 74 65 73 74 20 31 39 20 2d 74 63 6c 70  oc_test 19 -tclp
34c0: 72 65 70 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  rep {.  execsql 
34d0: 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63  {.    PRAGMA enc
34e0: 6f 64 69 6e 67 20 3d 20 22 55 54 46 31 36 62 65  oding = "UTF16be
34f0: 22 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  ";.    CREATE TA
3500: 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29  BLE abc(a, b, c)
3510: 3b 0a 20 20 7d 0a 7d 20 2d 74 63 6c 62 6f 64 79  ;.  }.} -tclbody
3520: 20 7b 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f   {.  unset -noco
3530: 6d 70 6c 61 69 6e 20 3a 3a 53 54 4d 54 0a 20 20  mplain ::STMT.  
3540: 73 65 74 20 72 20 5b 63 61 74 63 68 20 7b 0a 20  set r [catch {. 
3550: 20 20 20 73 65 74 20 3a 3a 53 54 4d 54 20 5b 73     set ::STMT [s
3560: 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20 64  qlite3_prepare d
3570: 62 20 7b 53 45 4c 45 43 54 20 3f 7d 20 2d 31 20  b {SELECT ?} -1 
3580: 44 55 4d 4d 59 5d 0a 20 20 20 20 73 71 6c 69 74  DUMMY].    sqlit
3590: 65 33 5f 62 69 6e 64 5f 74 65 78 74 31 36 20 2d  e3_bind_text16 -
35a0: 73 74 61 74 69 63 20 24 3a 3a 53 54 4d 54 20 31  static $::STMT 1
35b0: 20 24 73 74 61 74 69 63 5f 73 74 72 69 6e 67 20   $static_string 
35c0: 31 31 32 0a 20 20 7d 20 6d 73 67 5d 0a 20 20 69  112.  } msg].  i
35d0: 66 20 7b 24 72 7d 20 7b 65 72 72 6f 72 20 5b 73  f {$r} {error [s
35e0: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 6d 73 67  tring range $msg
35f0: 20 34 20 65 6e 64 5d 7d 0a 20 20 73 65 74 20 6d   4 end]}.  set m
3600: 73 67 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a  sg.} -cleanup {.
3610: 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73    if {[info exis
3620: 74 73 20 3a 3a 53 54 4d 54 5d 7d 20 7b 0a 20 20  ts ::STMT]} {.  
3630: 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69    sqlite3_finali
3640: 7a 65 20 24 3a 3a 53 54 4d 54 0a 20 20 7d 0a 7d  ze $::STMT.  }.}
3650: 0a 75 6e 73 65 74 20 73 74 61 74 69 63 5f 73 74  .unset static_st
3660: 72 69 6e 67 0a 0a 23 20 4d 61 6b 65 20 73 75 72  ring..# Make sur
3670: 65 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 20 69  e SQLITE_NOMEM i
3680: 73 20 72 65 70 6f 72 74 65 64 20 6f 75 74 20 6f  s reported out o
3690: 6e 20 61 6e 20 41 54 54 41 43 48 20 66 61 69 6c  n an ATTACH fail
36a0: 75 72 65 20 65 76 65 6e 0a 23 20 77 68 65 6e 20  ure even.# when 
36b0: 74 68 65 20 6d 61 6c 6c 6f 63 20 66 61 69 6c 75  the malloc failu
36c0: 72 65 20 6f 63 63 75 72 73 20 77 69 74 68 69 6e  re occurs within
36d0: 20 74 68 65 20 6e 65 73 74 65 64 20 70 61 72 73   the nested pars
36e0: 65 2e 0a 23 0a 69 66 63 61 70 61 62 6c 65 20 61  e..#.ifcapable a
36f0: 74 74 61 63 68 20 7b 0a 20 20 64 6f 5f 6d 61 6c  ttach {.  do_mal
3700: 6c 6f 63 5f 74 65 73 74 20 32 30 20 2d 74 63 6c  loc_test 20 -tcl
3710: 70 72 65 70 20 7b 0a 20 20 20 20 64 62 20 63 6c  prep {.    db cl
3720: 6f 73 65 0a 20 20 20 20 66 6f 72 63 65 64 65 6c  ose.    forcedel
3730: 65 74 65 20 74 65 73 74 32 2e 64 62 20 74 65 73  ete test2.db tes
3740: 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20  t2.db-journal.  
3750: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73    sqlite3 db tes
3760: 74 32 2e 64 62 0a 20 20 20 20 73 71 6c 69 74 65  t2.db.    sqlite
3770: 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c  3_extended_resul
3780: 74 5f 63 6f 64 65 73 20 64 62 20 31 0a 20 20 20  t_codes db 1.   
3790: 20 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54 45   db eval {CREATE
37a0: 20 54 41 42 4c 45 20 74 31 28 78 29 3b 7d 0a 20   TABLE t1(x);}. 
37b0: 20 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 7d 20     db close.  } 
37c0: 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 20 20 69  -tclbody {.    i
37d0: 66 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c 69 74  f {[catch {sqlit
37e0: 65 33 20 64 62 20 74 65 73 74 2e 64 62 7d 5d 7d  e3 db test.db}]}
37f0: 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22   {.      error "
3800: 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20  out of memory". 
3810: 20 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33     }.    sqlite3
3820: 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74  _extended_result
3830: 5f 63 6f 64 65 73 20 64 62 20 31 0a 20 20 7d 20  _codes db 1.  } 
3840: 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 20 20 41  -sqlbody {.    A
3850: 54 54 41 43 48 20 44 41 54 41 42 41 53 45 20 27  TTACH DATABASE '
3860: 74 65 73 74 32 2e 64 62 27 20 41 53 20 74 32 3b  test2.db' AS t2;
3870: 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52  .    SELECT * FR
3880: 4f 4d 20 74 31 3b 0a 20 20 20 20 44 45 54 41 43  OM t1;.    DETAC
3890: 48 20 44 41 54 41 42 41 53 45 20 74 32 3b 0a 20  H DATABASE t2;. 
38a0: 20 7d 20 0a 7d 0a 0a 23 20 54 65 73 74 20 6d 61   } .}..# Test ma
38b0: 6c 6c 6f 63 20 66 61 69 6c 75 72 65 20 77 68 69  lloc failure whi
38c0: 6c 73 74 20 69 6e 73 74 61 6c 6c 69 6e 67 20 61  lst installing a
38d0: 20 66 6f 72 65 69 67 6e 20 6b 65 79 2e 0a 23 0a   foreign key..#.
38e0: 69 66 63 61 70 61 62 6c 65 20 66 6f 72 65 69 67  ifcapable foreig
38f0: 6e 6b 65 79 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c  nkey {.  do_mall
3900: 6f 63 5f 74 65 73 74 20 32 31 20 2d 73 71 6c 62  oc_test 21 -sqlb
3910: 6f 64 79 20 7b 0a 20 20 20 20 43 52 45 41 54 45  ody {.    CREATE
3920: 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62 2c   TABLE abc(a, b,
3930: 20 63 2c 20 46 4f 52 45 49 47 4e 20 4b 45 59 28   c, FOREIGN KEY(
3940: 61 29 20 52 45 46 45 52 45 4e 43 45 53 20 61 62  a) REFERENCES ab
3950: 63 28 62 29 29 0a 20 20 7d 20 0a 7d 0a 0a 23 20  c(b)).  } .}..# 
3960: 54 65 73 74 20 6d 61 6c 6c 6f 63 20 66 61 69 6c  Test malloc fail
3970: 75 72 65 20 69 6e 20 61 6e 20 73 71 6c 69 74 65  ure in an sqlite
3980: 33 5f 70 72 65 70 61 72 65 5f 76 32 28 29 20 63  3_prepare_v2() c
3990: 61 6c 6c 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63  all..#.do_malloc
39a0: 5f 74 65 73 74 20 32 32 20 2d 74 63 6c 62 6f 64  _test 22 -tclbod
39b0: 79 20 7b 0a 20 20 73 65 74 20 3a 3a 53 54 4d 54  y {.  set ::STMT
39c0: 20 22 22 0a 20 20 73 65 74 20 72 20 5b 63 61 74   "".  set r [cat
39d0: 63 68 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 53  ch {.    set ::S
39e0: 54 4d 54 20 5b 0a 20 20 20 20 20 20 73 71 6c 69  TMT [.      sqli
39f0: 74 65 33 5f 70 72 65 70 61 72 65 5f 76 32 20 64  te3_prepare_v2 d
3a00: 62 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  b "SELECT * FROM
3a10: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 22 20   sqlite_master" 
3a20: 2d 31 20 44 55 4d 4d 59 0a 20 20 20 20 5d 0a 20  -1 DUMMY.    ]. 
3a30: 20 7d 20 6d 73 67 5d 0a 20 20 69 66 20 7b 24 72   } msg].  if {$r
3a40: 7d 20 7b 65 72 72 6f 72 20 5b 73 74 72 69 6e 67  } {error [string
3a50: 20 72 61 6e 67 65 20 24 6d 73 67 20 34 20 65 6e   range $msg 4 en
3a60: 64 5d 7d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b  d]}.} -cleanup {
3a70: 0a 20 20 69 66 20 7b 24 3a 3a 53 54 4d 54 20 6e  .  if {$::STMT n
3a80: 65 20 22 22 7d 20 7b 0a 20 20 20 20 73 71 6c 69  e ""} {.    sqli
3a90: 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 3a 3a  te3_finalize $::
3aa0: 53 54 4d 54 0a 20 20 20 20 73 65 74 20 3a 3a 53  STMT.    set ::S
3ab0: 54 4d 54 20 22 22 0a 20 20 7d 0a 7d 0a 0a 69 66  TMT "".  }.}..if
3ac0: 63 61 70 61 62 6c 65 20 7b 70 61 67 65 72 5f 70  capable {pager_p
3ad0: 72 61 67 6d 61 73 7d 20 7b 0a 20 20 23 20 54 68  ragmas} {.  # Th
3ae0: 69 73 20 74 65 73 74 73 20 61 20 73 70 65 63 69  is tests a speci
3af0: 61 6c 20 63 61 73 65 20 2d 20 74 68 61 74 20 61  al case - that a
3b00: 6e 20 65 72 72 6f 72 20 74 68 61 74 20 6f 63 63  n error that occ
3b10: 75 72 73 20 77 68 69 6c 65 20 74 68 65 20 70 61  urs while the pa
3b20: 67 65 72 0a 20 20 23 20 69 73 20 74 72 79 69 6e  ger.  # is tryin
3b30: 67 20 74 6f 20 72 65 63 6f 76 65 72 20 66 72 6f  g to recover fro
3b40: 6d 20 65 72 72 6f 72 2d 73 74 61 74 65 20 69 6e  m error-state in
3b50: 20 65 78 63 6c 75 73 69 76 65 2d 61 63 63 65 73   exclusive-acces
3b60: 73 20 6d 6f 64 65 20 77 6f 72 6b 73 2e 0a 20 20  s mode works..  
3b70: 23 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  #.  do_malloc_te
3b80: 73 74 20 32 33 20 2d 74 63 6c 70 72 65 70 20 7b  st 23 -tclprep {
3b90: 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b 0a 20  .    db eval {. 
3ba0: 20 20 20 20 20 50 52 41 47 4d 41 20 63 61 63 68       PRAGMA cach
3bb0: 65 5f 73 69 7a 65 20 3d 20 31 30 3b 0a 20 20 20  e_size = 10;.   
3bc0: 20 20 20 50 52 41 47 4d 41 20 6c 6f 63 6b 69 6e     PRAGMA lockin
3bd0: 67 5f 6d 6f 64 65 20 3d 20 65 78 63 6c 75 73 69  g_mode = exclusi
3be0: 76 65 3b 0a 20 20 20 20 20 20 42 45 47 49 4e 3b  ve;.      BEGIN;
3bf0: 0a 20 20 20 20 20 20 43 52 45 41 54 45 20 54 41  .      CREATE TA
3c00: 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29  BLE abc(a, b, c)
3c10: 3b 0a 20 20 20 20 20 20 43 52 45 41 54 45 20 49  ;.      CREATE I
3c20: 4e 44 45 58 20 61 62 63 5f 69 20 4f 4e 20 61 62  NDEX abc_i ON ab
3c30: 63 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 20 20  c(a, b, c);.    
3c40: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62    INSERT INTO ab
3c50: 63 20 0a 20 20 20 20 20 20 20 20 56 41 4c 55 45  c .        VALUE
3c60: 53 28 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30  S(randstr(100,10
3c70: 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c  0), randstr(100,
3c80: 31 30 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30  100), randstr(10
3c90: 30 2c 31 30 30 29 29 3b 0a 20 20 20 20 20 20 49  0,100));.      I
3ca0: 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20 0a  NSERT INTO abc .
3cb0: 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 72          SELECT r
3cc0: 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29 2c  andstr(100,100),
3cd0: 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30   randstr(100,100
3ce0: 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31  ), randstr(100,1
3cf0: 30 30 29 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20  00) FROM abc;.  
3d00: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
3d10: 61 62 63 20 0a 20 20 20 20 20 20 20 20 53 45 4c  abc .        SEL
3d20: 45 43 54 20 72 61 6e 64 73 74 72 28 31 30 30 2c  ECT randstr(100,
3d30: 31 30 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30  100), randstr(10
3d40: 30 2c 31 30 30 29 2c 20 72 61 6e 64 73 74 72 28  0,100), randstr(
3d50: 31 30 30 2c 31 30 30 29 20 46 52 4f 4d 20 61 62  100,100) FROM ab
3d60: 63 3b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20  c;.      INSERT 
3d70: 49 4e 54 4f 20 61 62 63 20 0a 20 20 20 20 20 20  INTO abc .      
3d80: 20 20 53 45 4c 45 43 54 20 72 61 6e 64 73 74 72    SELECT randstr
3d90: 28 31 30 30 2c 31 30 30 29 2c 20 72 61 6e 64 73  (100,100), rands
3da0: 74 72 28 31 30 30 2c 31 30 30 29 2c 20 72 61 6e  tr(100,100), ran
3db0: 64 73 74 72 28 31 30 30 2c 31 30 30 29 20 46 52  dstr(100,100) FR
3dc0: 4f 4d 20 61 62 63 3b 0a 20 20 20 20 20 20 49 4e  OM abc;.      IN
3dd0: 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20 0a 20  SERT INTO abc . 
3de0: 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 72 61         SELECT ra
3df0: 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29 2c 20  ndstr(100,100), 
3e00: 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29  randstr(100,100)
3e10: 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30  , randstr(100,10
3e20: 30 29 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 20  0) FROM abc;.   
3e30: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61     INSERT INTO a
3e40: 62 63 20 0a 20 20 20 20 20 20 20 20 53 45 4c 45  bc .        SELE
3e50: 43 54 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31  CT randstr(100,1
3e60: 30 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30  00), randstr(100
3e70: 2c 31 30 30 29 2c 20 72 61 6e 64 73 74 72 28 31  ,100), randstr(1
3e80: 30 30 2c 31 30 30 29 20 46 52 4f 4d 20 61 62 63  00,100) FROM abc
3e90: 3b 0a 20 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a  ;.      COMMIT;.
3ea0: 20 20 20 20 7d 0a 20 20 0a 20 20 20 20 23 20 54      }.  .    # T
3eb0: 68 69 73 20 70 75 74 73 20 74 68 65 20 70 61 67  his puts the pag
3ec0: 65 72 20 69 6e 74 6f 20 65 72 72 6f 72 20 73 74  er into error st
3ed0: 61 74 65 2e 0a 20 20 20 20 23 0a 20 20 20 20 64  ate..    #.    d
3ee0: 62 20 65 76 61 6c 20 42 45 47 49 4e 0a 20 20 20  b eval BEGIN.   
3ef0: 20 64 62 20 65 76 61 6c 20 7b 55 50 44 41 54 45   db eval {UPDATE
3f00: 20 61 62 63 20 53 45 54 20 61 20 3d 20 30 20 57   abc SET a = 0 W
3f10: 48 45 52 45 20 6f 69 64 25 32 7d 0a 20 20 20 20  HERE oid%2}.    
3f20: 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f  set ::sqlite_io_
3f30: 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 31 30  error_pending 10
3f40: 0a 20 20 20 20 63 61 74 63 68 20 7b 64 62 20 65  .    catch {db e
3f50: 76 61 6c 20 7b 52 4f 4c 4c 42 41 43 4b 7d 7d 20  val {ROLLBACK}} 
3f60: 6d 73 67 0a 0a 20 20 7d 20 2d 74 63 6c 62 6f 64  msg..  } -tclbod
3f70: 79 20 7b 0a 20 20 20 20 23 20 49 66 20 61 6e 20  y {.    # If an 
3f80: 6f 75 74 2d 6f 66 2d 6d 65 6d 6f 72 79 20 6f 63  out-of-memory oc
3f90: 63 75 72 73 20 77 69 74 68 69 6e 20 61 20 63 61  curs within a ca
3fa0: 6c 6c 20 74 6f 20 61 20 56 46 53 20 6c 61 79 65  ll to a VFS laye
3fb0: 72 20 66 75 6e 63 74 69 6f 6e 20 64 75 72 69 6e  r function durin
3fc0: 67 0a 20 20 20 20 23 20 68 6f 74 2d 6a 6f 75 72  g.    # hot-jour
3fd0: 6e 61 6c 20 72 6f 6c 6c 62 61 63 6b 2c 20 73 71  nal rollback, sq
3fe0: 6c 69 74 65 20 77 69 6c 6c 20 72 65 70 6f 72 74  lite will report
3ff0: 20 53 51 4c 49 54 45 5f 43 4f 52 52 55 50 54 2e   SQLITE_CORRUPT.
4000: 20 53 65 65 20 63 6f 6d 6d 69 74 0a 20 20 20 20   See commit.    
4010: 23 20 5b 35 36 36 38 5d 20 66 6f 72 20 64 65 74  # [5668] for det
4020: 61 69 6c 73 2e 0a 20 20 20 20 73 65 74 20 72 63  ails..    set rc
4030: 20 5b 63 61 74 63 68 20 7b 64 62 20 65 76 61 6c   [catch {db eval
4040: 20 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d   { SELECT * FROM
4050: 20 61 62 63 20 4c 49 4d 49 54 20 31 30 20 7d 7d   abc LIMIT 10 }}
4060: 20 6d 73 67 5d 0a 20 20 20 20 69 66 20 7b 24 6d   msg].    if {$m
4070: 73 67 20 65 71 20 22 64 61 74 61 62 61 73 65 20  sg eq "database 
4080: 64 69 73 6b 20 69 6d 61 67 65 20 69 73 20 6d 61  disk image is ma
4090: 6c 66 6f 72 6d 65 64 22 7d 20 7b 20 73 65 74 20  lformed"} { set 
40a0: 6d 73 67 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f  msg "out of memo
40b0: 72 79 22 20 7d 0a 20 20 20 20 69 66 20 7b 24 72  ry" }.    if {$r
40c0: 63 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73 67 20  c} { error $msg 
40d0: 7d 0a 20 20 20 20 73 65 74 20 6d 73 67 0a 20 20  }.    set msg.  
40e0: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20  } -cleanup {.   
40f0: 20 73 65 74 20 65 20 5b 64 62 20 65 76 61 6c 20   set e [db eval 
4100: 7b 50 52 41 47 4d 41 20 69 6e 74 65 67 72 69 74  {PRAGMA integrit
4110: 79 5f 63 68 65 63 6b 7d 5d 0a 20 20 20 20 69 66  y_check}].    if
4120: 20 7b 24 65 20 6e 65 20 22 6f 6b 22 7d 20 7b 65   {$e ne "ok"} {e
4130: 72 72 6f 72 20 24 65 7d 0a 20 20 7d 0a 7d 0a 0a  rror $e}.  }.}..
4140: 69 66 63 61 70 61 62 6c 65 20 63 6f 6d 70 6f 75  ifcapable compou
4150: 6e 64 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63  nd {.  do_malloc
4160: 5f 74 65 73 74 20 32 34 20 2d 73 71 6c 70 72 65  _test 24 -sqlpre
4170: 70 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54  p {.    CREATE T
4180: 41 42 4c 45 20 74 31 28 61 2c 20 62 2c 20 63 29  ABLE t1(a, b, c)
4190: 0a 20 20 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a  .  } -sqlbody {.
41a0: 20 20 20 20 53 45 4c 45 43 54 20 31 20 46 52 4f      SELECT 1 FRO
41b0: 4d 20 74 31 20 55 4e 49 4f 4e 20 53 45 4c 45 43  M t1 UNION SELEC
41c0: 54 20 32 20 46 52 4f 4d 20 74 31 20 4f 52 44 45  T 2 FROM t1 ORDE
41d0: 52 20 42 59 20 31 0a 20 20 7d 0a 7d 0a 0a 69 66  R BY 1.  }.}..if
41e0: 63 61 70 61 62 6c 65 20 76 69 65 77 26 26 74 72  capable view&&tr
41f0: 69 67 67 65 72 20 7b 0a 20 20 64 6f 5f 6d 61 6c  igger {.  do_mal
4200: 6c 6f 63 5f 74 65 73 74 20 32 35 20 2d 73 71 6c  loc_test 25 -sql
4210: 70 72 65 70 20 7b 0a 20 20 20 20 43 52 45 41 54  prep {.    CREAT
4220: 45 20 54 41 42 4c 45 20 74 31 28 61 2c 20 62 2c  E TABLE t1(a, b,
4230: 20 63 29 3b 0a 20 20 20 20 43 52 45 41 54 45 20   c);.    CREATE 
4240: 56 49 45 57 20 76 31 20 41 53 20 53 45 4c 45 43  VIEW v1 AS SELEC
4250: 54 20 2a 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20  T * FROM t1;.   
4260: 20 43 52 45 41 54 45 20 54 52 49 47 47 45 52 20   CREATE TRIGGER 
4270: 76 31 74 31 20 49 4e 53 54 45 41 44 20 4f 46 20  v1t1 INSTEAD OF 
4280: 44 45 4c 45 54 45 20 4f 4e 20 76 31 20 42 45 47  DELETE ON v1 BEG
4290: 49 4e 20 53 45 4c 45 43 54 20 31 3b 20 45 4e 44  IN SELECT 1; END
42a0: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 52 49  ;.    CREATE TRI
42b0: 47 47 45 52 20 76 31 74 32 20 49 4e 53 54 45 41  GGER v1t2 INSTEA
42c0: 44 20 4f 46 20 49 4e 53 45 52 54 20 4f 4e 20 76  D OF INSERT ON v
42d0: 31 20 42 45 47 49 4e 20 53 45 4c 45 43 54 20 31  1 BEGIN SELECT 1
42e0: 3b 20 45 4e 44 3b 0a 20 20 20 20 43 52 45 41 54  ; END;.    CREAT
42f0: 45 20 54 52 49 47 47 45 52 20 76 31 74 33 20 49  E TRIGGER v1t3 I
4300: 4e 53 54 45 41 44 20 4f 46 20 55 50 44 41 54 45  NSTEAD OF UPDATE
4310: 20 4f 4e 20 76 31 20 42 45 47 49 4e 20 53 45 4c   ON v1 BEGIN SEL
4320: 45 43 54 20 31 3b 20 45 4e 44 3b 0a 20 20 7d 20  ECT 1; END;.  } 
4330: 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 20 20 44  -sqlbody {.    D
4340: 45 4c 45 54 45 20 46 52 4f 4d 20 76 31 20 57 48  ELETE FROM v1 WH
4350: 45 52 45 20 61 20 3d 20 31 3b 0a 20 20 20 20 49  ERE a = 1;.    I
4360: 4e 53 45 52 54 20 49 4e 54 4f 20 76 31 20 56 41  NSERT INTO v1 VA
4370: 4c 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 0a 20  LUES(1, 2, 3);. 
4380: 20 20 20 55 50 44 41 54 45 20 76 31 20 53 45 54     UPDATE v1 SET
4390: 20 61 20 3d 20 31 20 57 48 45 52 45 20 62 20 3d   a = 1 WHERE b =
43a0: 20 32 3b 0a 20 20 7d 0a 7d 0a 0a 64 6f 5f 6d 61   2;.  }.}..do_ma
43b0: 6c 6c 6f 63 5f 74 65 73 74 20 32 35 20 2d 73 71  lloc_test 25 -sq
43c0: 6c 70 72 65 70 20 7b 0a 20 20 43 52 45 41 54 45  lprep {.  CREATE
43d0: 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62 2c   TABLE abc(a, b,
43e0: 20 63 29 3b 0a 20 20 43 52 45 41 54 45 20 49 4e   c);.  CREATE IN
43f0: 44 45 58 20 69 31 20 4f 4e 20 61 62 63 28 61 2c  DEX i1 ON abc(a,
4400: 20 62 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e   b);.  INSERT IN
4410: 54 4f 20 61 62 63 20 56 41 4c 55 45 53 28 31 2c  TO abc VALUES(1,
4420: 20 32 2c 20 33 29 3b 0a 20 20 49 4e 53 45 52 54   2, 3);.  INSERT
4430: 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55 45 53   INTO abc VALUES
4440: 28 34 2c 20 35 2c 20 36 29 3b 0a 7d 20 2d 74 63  (4, 5, 6);.} -tc
4450: 6c 62 6f 64 79 20 7b 0a 20 20 23 20 46 6f 72 20  lbody {.  # For 
4460: 65 61 63 68 20 55 50 44 41 54 45 20 65 78 65 63  each UPDATE exec
4470: 75 74 65 64 2c 20 74 68 65 20 63 75 72 73 6f 72  uted, the cursor
4480: 20 75 73 65 64 20 66 6f 72 20 74 68 65 20 53 45   used for the SE
4490: 4c 45 43 54 20 73 74 61 74 65 6d 65 6e 74 0a 20  LECT statement. 
44a0: 20 23 20 6d 75 73 74 20 62 65 20 22 73 61 76 65   # must be "save
44b0: 64 22 2e 20 42 65 63 61 75 73 65 20 74 68 65 20  d". Because the 
44c0: 63 75 72 73 6f 72 20 69 73 20 6f 70 65 6e 20 6f  cursor is open o
44d0: 6e 20 61 6e 20 69 6e 64 65 78 2c 20 74 68 69 73  n an index, this
44e0: 20 72 65 71 75 69 72 65 73 0a 20 20 23 20 61 20   requires.  # a 
44f0: 6d 61 6c 6c 6f 63 28 29 20 74 6f 20 61 6c 6c 6f  malloc() to allo
4500: 63 61 74 65 20 73 70 61 63 65 20 74 6f 20 73 61  cate space to sa
4510: 76 65 20 74 68 65 20 69 6e 64 65 78 20 6b 65 79  ve the index key
4520: 2e 20 54 68 69 73 20 74 65 73 74 20 63 61 73 65  . This test case
4530: 20 69 73 0a 20 20 23 20 61 69 6d 65 64 20 61 74   is.  # aimed at
4540: 20 74 65 73 74 69 6e 67 20 74 68 65 20 72 65 73   testing the res
4550: 70 6f 6e 73 65 20 6f 66 20 74 68 65 20 6c 69 62  ponse of the lib
4560: 72 61 72 79 20 74 6f 20 61 20 66 61 69 6c 75 72  rary to a failur
4570: 65 20 69 6e 20 74 68 61 74 0a 20 20 23 20 70 61  e in that.  # pa
4580: 72 74 69 63 75 6c 61 72 20 6d 61 6c 6c 6f 63 28  rticular malloc(
4590: 29 20 63 61 6c 6c 2e 0a 20 20 64 62 20 65 76 61  ) call..  db eva
45a0: 6c 20 7b 53 45 4c 45 43 54 20 61 20 46 52 4f 4d  l {SELECT a FROM
45b0: 20 61 62 63 20 4f 52 44 45 52 20 42 59 20 61 7d   abc ORDER BY a}
45c0: 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b   {.    db eval {
45d0: 55 50 44 41 54 45 20 61 62 63 20 53 45 54 20 62  UPDATE abc SET b
45e0: 20 3d 20 62 20 2d 20 31 20 57 48 45 52 45 20 61   = b - 1 WHERE a
45f0: 20 3d 20 24 61 7d 0a 20 20 7d 0a 7d 0a 0a 23 20   = $a}.  }.}..# 
4600: 54 68 69 73 20 74 65 73 74 20 69 73 20 64 65 73  This test is des
4610: 69 67 6e 65 64 20 74 6f 20 74 65 73 74 20 61 20  igned to test a 
4620: 73 70 65 63 69 66 69 63 20 6a 75 6e 63 74 75 72  specific junctur
4630: 65 20 69 6e 20 74 68 65 20 73 71 6c 69 74 65 20  e in the sqlite 
4640: 63 6f 64 65 2e 0a 23 20 54 68 65 20 64 61 74 61  code..# The data
4650: 62 61 73 65 20 73 65 74 20 75 70 20 62 79 20 2d  base set up by -
4660: 73 71 6c 70 72 65 70 20 73 63 72 69 70 74 20 63  sqlprep script c
4670: 6f 6e 74 61 69 6e 73 20 61 20 73 69 6e 67 6c 65  ontains a single
4680: 20 74 61 62 6c 65 20 42 2d 54 72 65 65 0a 23 20   table B-Tree.# 
4690: 6f 66 20 68 65 69 67 68 74 20 32 2e 20 49 6e 20  of height 2. In 
46a0: 74 68 65 20 2d 74 63 6c 62 6f 64 79 20 73 63 72  the -tclbody scr
46b0: 69 70 74 2c 20 74 68 65 20 65 78 69 73 74 69 6e  ipt, the existin
46c0: 67 20 64 61 74 61 62 61 73 65 20 63 6f 6e 6e 65  g database conne
46d0: 63 74 69 6f 6e 0a 23 20 69 73 20 63 6c 6f 73 65  ction.# is close
46e0: 64 20 61 6e 64 20 61 20 6e 65 77 20 6f 6e 65 20  d and a new one 
46f0: 6f 70 65 6e 65 64 20 61 6e 64 20 75 73 65 64 20  opened and used 
4700: 74 6f 20 69 6e 73 65 72 74 20 61 20 6e 65 77 20  to insert a new 
4710: 72 6f 77 20 69 6e 74 6f 20 74 68 65 0a 23 20 74  row into the.# t
4720: 61 62 6c 65 20 42 2d 54 72 65 65 2e 20 42 79 20  able B-Tree. By 
4730: 75 73 69 6e 67 20 61 20 6e 65 77 20 63 6f 6e 6e  using a new conn
4740: 65 63 74 69 6f 6e 2c 20 74 68 65 20 6f 75 74 63  ection, the outc
4750: 6f 6d 65 20 6f 66 20 61 20 6d 61 6c 6c 6f 63 28  ome of a malloc(
4760: 29 20 0a 23 20 66 61 69 6c 75 72 65 20 77 68 69  ) .# failure whi
4770: 6c 65 20 73 65 65 6b 69 6e 67 20 74 6f 20 74 68  le seeking to th
4780: 65 20 72 69 67 68 74 2d 68 61 6e 64 20 73 69 64  e right-hand sid
4790: 65 20 6f 66 20 74 68 65 20 42 2d 54 72 65 65 20  e of the B-Tree 
47a0: 74 6f 20 69 6e 73 65 72 74 20 0a 23 20 61 20 6e  to insert .# a n
47b0: 65 77 20 72 65 63 6f 72 64 20 63 61 6e 20 62 65  ew record can be
47c0: 20 74 65 73 74 65 64 2e 0a 23 0a 64 6f 5f 6d 61   tested..#.do_ma
47d0: 6c 6c 6f 63 5f 74 65 73 74 20 32 36 20 2d 73 71  lloc_test 26 -sq
47e0: 6c 70 72 65 70 20 7b 0a 20 20 42 45 47 49 4e 3b  lprep {.  BEGIN;
47f0: 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20  .  CREATE TABLE 
4800: 74 31 28 61 2c 20 62 29 3b 0a 20 20 49 4e 53 45  t1(a, b);.  INSE
4810: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
4820: 53 28 31 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28  S(1, randomblob(
4830: 32 31 30 29 29 3b 0a 20 20 49 4e 53 45 52 54 20  210));.  INSERT 
4840: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31  INTO t1 VALUES(1
4850: 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 32 31 30  , randomblob(210
4860: 29 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  ));.  INSERT INT
4870: 4f 20 74 31 20 56 41 4c 55 45 53 28 31 2c 20 72  O t1 VALUES(1, r
4880: 61 6e 64 6f 6d 62 6c 6f 62 28 32 31 30 29 29 3b  andomblob(210));
4890: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  .  INSERT INTO t
48a0: 31 20 56 41 4c 55 45 53 28 31 2c 20 72 61 6e 64  1 VALUES(1, rand
48b0: 6f 6d 62 6c 6f 62 28 32 31 30 29 29 3b 0a 20 20  omblob(210));.  
48c0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
48d0: 41 4c 55 45 53 28 31 2c 20 72 61 6e 64 6f 6d 62  ALUES(1, randomb
48e0: 6c 6f 62 28 32 31 30 29 29 3b 0a 20 20 43 4f 4d  lob(210));.  COM
48f0: 4d 49 54 3b 0a 7d 20 2d 74 63 6c 62 6f 64 79 20  MIT;.} -tclbody 
4900: 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 73  {.  db close.  s
4910: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
4920: 62 0a 20 20 64 62 20 65 76 61 6c 20 7b 20 49 4e  b.  db eval { IN
4930: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
4940: 55 45 53 28 31 2c 20 72 61 6e 64 6f 6d 62 6c 6f  UES(1, randomblo
4950: 62 28 32 31 30 29 29 20 7d 0a 7d 0a 0a 23 20 54  b(210)) }.}..# T
4960: 65 73 74 20 74 68 61 74 20 6e 6f 20 6d 65 6d 6f  est that no memo
4970: 72 79 20 69 73 20 6c 65 61 6b 65 64 20 66 6f 6c  ry is leaked fol
4980: 6c 6f 77 69 6e 67 20 61 20 6d 61 6c 6c 6f 63 28  lowing a malloc(
4990: 29 20 66 61 69 6c 75 72 65 20 69 6e 0a 23 20 73  ) failure in.# s
49a0: 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a  qlite3_initializ
49b0: 65 28 29 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63  e()..#.do_malloc
49c0: 5f 74 65 73 74 20 32 37 20 2d 74 63 6c 70 72 65  _test 27 -tclpre
49d0: 70 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20  p {.  db close. 
49e0: 20 73 71 6c 69 74 65 33 5f 73 68 75 74 64 6f 77   sqlite3_shutdow
49f0: 6e 0a 7d 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20  n.} -tclbody {. 
4a00: 20 73 65 74 20 72 63 20 5b 73 71 6c 69 74 65 33   set rc [sqlite3
4a10: 5f 69 6e 69 74 69 61 6c 69 7a 65 5d 0a 20 20 69  _initialize].  i
4a20: 66 20 7b 24 72 63 20 3d 3d 20 22 53 51 4c 49 54  f {$rc == "SQLIT
4a30: 45 5f 4e 4f 4d 45 4d 22 7d 20 7b 0a 20 20 20 20  E_NOMEM"} {.    
4a40: 65 72 72 6f 72 20 22 6f 75 74 20 6f 66 20 6d 65  error "out of me
4a50: 6d 6f 72 79 22 0a 20 20 7d 0a 7d 0a 61 75 74 6f  mory".  }.}.auto
4a60: 69 6e 73 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e  install_test_fun
4a70: 63 74 69 6f 6e 73 0a 0a 23 20 54 65 73 74 20 74  ctions..# Test t
4a80: 68 61 74 20 6d 61 6c 6c 6f 63 20 66 61 69 6c 75  hat malloc failu
4a90: 72 65 73 20 74 68 61 74 20 6f 63 63 75 72 20 77  res that occur w
4aa0: 68 69 6c 65 20 70 72 6f 63 65 73 73 69 6e 67 20  hile processing 
4ab0: 49 4e 44 45 58 45 44 20 42 59 0a 23 20 63 6c 61  INDEXED BY.# cla
4ac0: 75 73 65 73 20 61 72 65 20 68 61 6e 64 6c 65 64  uses are handled
4ad0: 20 63 6f 72 72 65 63 74 6c 79 2e 0a 64 6f 5f 6d   correctly..do_m
4ae0: 61 6c 6c 6f 63 5f 74 65 73 74 20 32 38 20 2d 73  alloc_test 28 -s
4af0: 71 6c 70 72 65 70 20 7b 0a 20 20 43 52 45 41 54  qlprep {.  CREAT
4b00: 45 20 54 41 42 4c 45 20 74 31 28 61 2c 20 62 29  E TABLE t1(a, b)
4b10: 3b 0a 20 20 43 52 45 41 54 45 20 49 4e 44 45 58  ;.  CREATE INDEX
4b20: 20 69 31 20 4f 4e 20 74 31 28 61 29 3b 0a 20 20   i1 ON t1(a);.  
4b30: 43 52 45 41 54 45 20 56 49 45 57 20 76 31 20 41  CREATE VIEW v1 A
4b40: 53 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20  S SELECT * FROM 
4b50: 74 31 20 49 4e 44 45 58 45 44 20 42 59 20 69 31  t1 INDEXED BY i1
4b60: 20 57 48 45 52 45 20 61 20 3d 20 31 30 3b 0a 7d   WHERE a = 10;.}
4b70: 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 53 45   -sqlbody {.  SE
4b80: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 49  LECT * FROM t1 I
4b90: 4e 44 45 58 45 44 20 42 59 20 69 31 20 4f 52 44  NDEXED BY i1 ORD
4ba0: 45 52 20 42 59 20 61 3b 0a 20 20 53 45 4c 45 43  ER BY a;.  SELEC
4bb0: 54 20 2a 20 46 52 4f 4d 20 76 31 3b 0a 7d 0a 0a  T * FROM v1;.}..
4bc0: 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 32  do_malloc_test 2
4bd0: 39 20 2d 73 71 6c 70 72 65 70 20 7b 0a 20 20 43  9 -sqlprep {.  C
4be0: 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 61  REATE TABLE t1(a
4bf0: 20 54 45 58 54 2c 20 62 20 54 45 58 54 29 3b 0a   TEXT, b TEXT);.
4c00: 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 49  } -sqlbody {.  I
4c10: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
4c20: 4c 55 45 53 28 31 2c 20 2d 32 33 34 29 3b 0a 20  LUES(1, -234);. 
4c30: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
4c40: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
4c50: 20 55 4e 49 4f 4e 20 41 4c 4c 20 53 45 4c 45 43   UNION ALL SELEC
4c60: 54 20 2a 20 46 52 4f 4d 20 74 31 3b 0a 7d 0a 0a  T * FROM t1;.}..
4c70: 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 33  do_malloc_test 3
4c80: 30 20 2d 74 63 6c 70 72 65 70 20 7b 0a 20 20 64  0 -tclprep {.  d
4c90: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 43 52 45  b eval {.    CRE
4ca0: 41 54 45 20 54 41 42 4c 45 20 74 31 28 78 20 50  ATE TABLE t1(x P
4cb0: 52 49 4d 41 52 59 20 4b 45 59 29 3b 0a 20 20 20  RIMARY KEY);.   
4cc0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
4cd0: 56 41 4c 55 45 53 28 72 61 6e 64 73 74 72 28 35  VALUES(randstr(5
4ce0: 30 30 2c 35 30 30 29 29 3b 0a 20 20 20 20 49 4e  00,500));.    IN
4cf0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
4d00: 55 45 53 28 72 61 6e 64 73 74 72 28 35 30 30 2c  UES(randstr(500,
4d10: 35 30 30 29 29 3b 0a 20 20 20 20 49 4e 53 45 52  500));.    INSER
4d20: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
4d30: 28 72 61 6e 64 73 74 72 28 35 30 30 2c 35 30 30  (randstr(500,500
4d40: 29 29 3b 0a 20 20 7d 0a 20 20 64 62 20 63 6c 6f  ));.  }.  db clo
4d50: 73 65 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20  se.  sqlite3 db 
4d60: 74 65 73 74 2e 64 62 0a 0a 20 20 23 20 54 68 65  test.db..  # The
4d70: 20 44 45 4c 45 54 45 20 63 6f 6d 6d 61 6e 64 20   DELETE command 
4d80: 69 6e 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  in the following
4d90: 20 62 6c 6f 63 6b 20 6d 6f 76 65 73 20 74 68 65   block moves the
4da0: 20 6f 76 65 72 66 6c 6f 77 20 70 61 67 65 73 20   overflow pages 
4db0: 74 68 61 74 0a 20 20 23 20 61 72 65 20 70 61 72  that.  # are par
4dc0: 74 20 6f 66 20 74 68 65 20 70 72 69 6d 61 72 79  t of the primary
4dd0: 20 6b 65 79 20 69 6e 64 65 78 20 74 6f 20 74 68   key index to th
4de0: 65 20 66 72 65 65 2d 6c 69 73 74 2e 20 42 75 74  e free-list. But
4df0: 20 69 74 20 64 6f 65 73 20 6e 6f 74 0a 20 20 23   it does not.  #
4e00: 20 61 63 74 75 61 6c 6c 79 20 6c 6f 61 64 20 74   actually load t
4e10: 68 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 74 68  he content of th
4e20: 65 20 70 61 67 65 73 2e 20 54 68 69 73 20 6c 65  e pages. This le
4e30: 61 64 73 20 74 6f 20 74 68 65 20 70 65 63 75 6c  ads to the pecul
4e40: 69 61 72 0a 20 20 23 20 73 69 74 75 61 74 69 6f  iar.  # situatio
4e50: 6e 20 77 68 65 72 65 20 63 61 63 68 65 20 65 6e  n where cache en
4e60: 74 72 69 65 73 20 65 78 69 73 74 2c 20 62 75 74  tries exist, but
4e70: 20 61 72 65 20 6e 6f 74 20 70 6f 70 75 6c 61 74   are not populat
4e80: 65 64 20 77 69 74 68 20 64 61 74 61 2e 0a 20 20  ed with data..  
4e90: 23 20 54 68 65 79 20 61 72 65 20 70 6f 70 75 6c  # They are popul
4ea0: 61 74 65 64 20 6e 65 78 74 20 74 69 6d 65 20 74  ated next time t
4eb0: 68 65 79 20 61 72 65 20 72 65 71 75 65 73 74 65  hey are requeste
4ec0: 64 20 62 79 20 74 68 65 20 62 2d 74 72 65 65 20  d by the b-tree 
4ed0: 6c 61 79 65 72 2e 0a 20 20 23 0a 20 20 64 62 20  layer..  #.  db 
4ee0: 65 76 61 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e  eval {.    BEGIN
4ef0: 3b 0a 20 20 20 20 20 20 44 45 4c 45 54 45 20 46  ;.      DELETE F
4f00: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 52 4f 4c 4c  ROM t1;.    ROLL
4f10: 42 41 43 4b 3b 0a 20 20 7d 0a 7d 20 2d 73 71 6c  BACK;.  }.} -sql
4f20: 62 6f 64 79 20 7b 0a 20 20 2d 2d 20 54 68 69 73  body {.  -- This
4f30: 20 73 74 61 74 65 6d 65 6e 74 20 72 65 71 75 69   statement requi
4f40: 72 65 73 20 74 68 65 20 27 6e 6f 2d 63 6f 6e 74  res the 'no-cont
4f50: 65 6e 74 27 20 70 61 67 65 73 20 6c 6f 61 64 65  ent' pages loade
4f60: 64 20 62 79 20 74 68 65 20 44 45 4c 45 54 45 0a  d by the DELETE.
4f70: 20 20 2d 2d 20 73 74 61 74 65 6d 65 6e 74 20 61    -- statement a
4f80: 62 6f 76 65 2e 20 57 68 65 6e 20 72 65 71 75 65  bove. When reque
4f90: 73 74 69 6e 67 20 74 68 65 20 70 61 67 65 73 2c  sting the pages,
4fa0: 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 69 73 20   the content is 
4fb0: 6c 6f 61 64 65 64 0a 20 20 2d 2d 20 66 72 6f 6d  loaded.  -- from
4fc0: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 66 69   the database fi
4fd0: 6c 65 2e 20 54 68 65 20 70 6f 69 6e 74 20 6f 66  le. The point of
4fe0: 20 74 68 69 73 20 74 65 73 74 20 63 61 73 65 20   this test case 
4ff0: 69 73 20 74 6f 20 74 65 73 74 20 68 61 6e 64 6c  is to test handl
5000: 69 6e 67 0a 20 20 2d 2d 20 6f 66 20 6d 61 6c 6c  ing.  -- of mall
5010: 6f 63 20 65 72 72 6f 72 73 20 28 69 6e 63 6c 75  oc errors (inclu
5020: 64 69 6e 67 20 53 51 4c 49 54 45 5f 49 4f 45 52  ding SQLITE_IOER
5030: 52 5f 4e 4f 4d 45 4d 20 65 72 72 6f 72 73 29 20  R_NOMEM errors) 
5040: 77 68 65 6e 20 6c 6f 61 64 69 6e 67 0a 20 20 2d  when loading.  -
5050: 2d 20 74 68 65 20 63 6f 6e 74 65 6e 74 2e 0a 20  - the content.. 
5060: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
5070: 31 20 4f 52 44 45 52 20 42 59 20 78 3b 0a 7d 0a  1 ORDER BY x;.}.
5080: 0a 23 20 41 66 74 65 72 20 63 6f 6d 6d 69 74 74  .# After committ
5090: 69 6e 67 20 61 20 74 72 61 6e 73 61 63 74 69 6f  ing a transactio
50a0: 6e 20 69 6e 20 70 65 72 73 69 73 74 65 6e 74 2d  n in persistent-
50b0: 6a 6f 75 72 6e 61 6c 20 6d 6f 64 65 2c 20 69 66  journal mode, if
50c0: 20 61 20 6a 6f 75 72 6e 61 6c 0a 23 20 73 69 7a   a journal.# siz
50d0: 65 20 6c 69 6d 69 74 20 69 73 20 63 6f 6e 66 69  e limit is confi
50e0: 67 75 72 65 64 20 53 51 4c 69 74 65 20 6d 61 79  gured SQLite may
50f0: 20 61 74 74 65 6d 70 74 20 74 6f 20 74 72 75 6e   attempt to trun
5100: 63 61 74 65 20 74 68 65 20 6a 6f 75 72 6e 61 6c  cate the journal
5110: 20 66 69 6c 65 2e 0a 23 20 54 68 69 73 20 74 65   file..# This te
5120: 73 74 20 76 65 72 69 66 69 65 73 20 74 68 65 20  st verifies the 
5130: 6c 69 62 72 61 72 69 65 73 20 72 65 73 70 6f 6e  libraries respon
5140: 73 65 20 74 6f 20 61 20 6d 61 6c 6c 6f 63 28 29  se to a malloc()
5150: 20 66 61 69 6c 75 72 65 20 64 75 72 69 6e 67 0a   failure during.
5160: 23 20 74 68 69 73 20 6f 70 65 72 61 74 69 6f 6e  # this operation
5170: 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  ..#.do_malloc_te
5180: 73 74 20 33 31 20 2d 73 71 6c 70 72 65 70 20 7b  st 31 -sqlprep {
5190: 0a 20 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61  .  PRAGMA journa
51a0: 6c 5f 6d 6f 64 65 20 3d 20 70 65 72 73 69 73 74  l_mode = persist
51b0: 3b 0a 20 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e  ;.  PRAGMA journ
51c0: 61 6c 5f 73 69 7a 65 5f 6c 69 6d 69 74 20 3d 20  al_size_limit = 
51d0: 31 30 32 34 3b 0a 20 20 43 52 45 41 54 45 20 54  1024;.  CREATE T
51e0: 41 42 4c 45 20 74 31 28 61 20 50 52 49 4d 41 52  ABLE t1(a PRIMAR
51f0: 59 20 4b 45 59 2c 20 62 29 3b 0a 7d 20 2d 73 71  Y KEY, b);.} -sq
5200: 6c 62 6f 64 79 20 7b 0a 20 20 49 4e 53 45 52 54  lbody {.  INSERT
5210: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
5220: 31 2c 20 32 29 3b 0a 7d 0a 0a 23 20 57 68 65 6e  1, 2);.}..# When
5230: 20 77 72 69 74 74 65 6e 2c 20 74 68 69 73 20 74   written, this t
5240: 65 73 74 20 70 72 6f 76 6f 6b 65 64 20 61 6e 20  est provoked an 
5250: 6f 62 73 63 75 72 65 20 63 68 61 6e 67 65 2d 63  obscure change-c
5260: 6f 75 6e 74 65 72 20 62 75 67 2e 0a 23 20 0a 23  ounter bug..# .#
5270: 20 49 66 2c 20 77 68 65 6e 20 72 75 6e 6e 69 6e   If, when runnin
5280: 67 20 69 6e 20 65 78 63 6c 75 73 69 76 65 20 6d  g in exclusive m
5290: 6f 64 65 2c 20 61 20 6d 61 6c 6c 6f 63 28 29 20  ode, a malloc() 
52a0: 66 61 69 6c 75 72 65 20 6f 63 63 75 72 73 0a 23  failure occurs.#
52b0: 20 61 66 74 65 72 20 74 68 65 20 64 61 74 61 62   after the datab
52c0: 61 73 65 20 66 69 6c 65 20 63 68 61 6e 67 65 2d  ase file change-
52d0: 63 6f 75 6e 74 65 72 20 68 61 73 20 62 65 65 6e  counter has been
52e0: 20 77 72 69 74 74 65 6e 20 62 75 74 0a 23 20 62   written but.# b
52f0: 65 66 6f 72 65 20 74 68 65 20 74 72 61 6e 73 61  efore the transa
5300: 63 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 63  ction has been c
5310: 6f 6d 6d 69 74 74 65 64 2c 20 74 68 65 6e 20 74  ommitted, then t
5320: 68 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 0a 23  he transaction.#
5330: 20 69 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c   is automaticall
5340: 79 20 72 6f 6c 6c 65 64 20 62 61 63 6b 2e 20 48  y rolled back. H
5350: 6f 77 65 76 65 72 2c 20 69 6e 74 65 72 6e 61 6c  owever, internal
5360: 6c 79 20 74 68 65 20 0a 23 20 50 61 67 65 72 2e  ly the .# Pager.
5370: 63 68 61 6e 67 65 43 6f 75 6e 74 65 72 44 6f 6e  changeCounterDon
5380: 65 20 66 6c 61 67 20 77 61 73 20 62 65 69 6e 67  e flag was being
5390: 20 6c 65 66 74 20 73 65 74 2e 20 54 68 69 73 20   left set. This 
53a0: 6d 65 61 6e 73 0a 23 20 74 68 61 74 20 69 66 20  means.# that if 
53b0: 74 68 65 20 73 61 6d 65 20 63 6f 6e 6e 65 63 74  the same connect
53c0: 69 6f 6e 20 61 74 74 65 6d 70 74 73 20 61 6e 6f  ion attempts ano
53d0: 74 68 65 72 20 74 72 61 6e 73 61 63 74 69 6f 6e  ther transaction
53e0: 20 66 6f 6c 6c 6f 77 69 6e 67 0a 23 20 74 68 65   following.# the
53f0: 20 6d 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65 20   malloc failure 
5400: 61 6e 64 20 72 6f 6c 6c 62 61 63 6b 2c 20 74 68  and rollback, th
5410: 65 20 63 68 61 6e 67 65 20 63 6f 75 6e 74 65 72  e change counter
5420: 20 77 69 6c 6c 20 6e 6f 74 0a 23 20 62 65 20 75   will not.# be u
5430: 70 64 61 74 65 64 2e 20 54 68 69 73 20 63 6f 75  pdated. This cou
5440: 6c 64 20 63 6f 72 72 75 70 74 20 61 6e 6f 74 68  ld corrupt anoth
5450: 65 72 20 70 72 6f 63 65 73 73 65 73 20 63 61 63  er processes cac
5460: 68 65 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f  he..#.do_malloc_
5470: 74 65 73 74 20 33 32 20 2d 74 63 6c 70 72 65 70  test 32 -tclprep
5480: 20 7b 0a 20 20 23 20 42 75 69 6c 64 20 61 20 73   {.  # Build a s
5490: 6d 61 6c 6c 20 64 61 74 61 62 61 73 65 20 63 6f  mall database co
54a0: 6e 74 61 69 6e 69 6e 67 20 61 6e 20 69 6e 64 65  ntaining an inde
54b0: 78 65 64 20 74 61 62 6c 65 2e 0a 20 20 23 0a 20  xed table..  #. 
54c0: 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 50   db eval {.    P
54d0: 52 41 47 4d 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f  RAGMA locking_mo
54e0: 64 65 20 3d 20 6e 6f 72 6d 61 6c 3b 0a 20 20 20  de = normal;.   
54f0: 20 42 45 47 49 4e 3b 0a 20 20 20 20 43 52 45 41   BEGIN;.    CREA
5500: 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 50 52  TE TABLE t1(a PR
5510: 49 4d 41 52 59 20 4b 45 59 2c 20 62 29 3b 0a 20  IMARY KEY, b);. 
5520: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
5530: 31 20 56 41 4c 55 45 53 28 31 2c 20 27 6f 6e 65  1 VALUES(1, 'one
5540: 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  ');.    INSERT I
5550: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 32 2c  NTO t1 VALUES(2,
5560: 20 27 74 77 6f 27 29 3b 0a 20 20 20 20 49 4e 53   'two');.    INS
5570: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
5580: 45 53 28 33 2c 20 27 74 68 72 65 65 27 29 3b 0a  ES(3, 'three');.
5590: 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20      COMMIT;.    
55a0: 50 52 41 47 4d 41 20 6c 6f 63 6b 69 6e 67 5f 6d  PRAGMA locking_m
55b0: 6f 64 65 20 3d 20 65 78 63 6c 75 73 69 76 65 3b  ode = exclusive;
55c0: 0a 20 20 7d 0a 0a 20 20 23 20 4f 70 65 6e 20 61  .  }..  # Open a
55d0: 20 73 65 63 6f 6e 64 20 64 61 74 61 62 61 73 65   second database
55e0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 4c 6f 61   connection. Loa
55f0: 64 20 74 68 65 20 74 61 62 6c 65 20 28 62 75 74  d the table (but
5600: 20 6e 6f 74 20 69 6e 64 65 78 29 0a 20 20 23 20   not index).  # 
5610: 69 6e 74 6f 20 74 68 65 20 73 65 63 6f 6e 64 20  into the second 
5620: 63 6f 6e 6e 65 63 74 69 6f 6e 73 20 70 61 67 65  connections page
5630: 72 20 63 61 63 68 65 2e 0a 20 20 23 0a 20 20 73  r cache..  #.  s
5640: 71 6c 69 74 65 33 20 64 62 32 20 74 65 73 74 2e  qlite3 db2 test.
5650: 64 62 0a 20 20 64 62 32 20 65 76 61 6c 20 7b 20  db.  db2 eval { 
5660: 0a 20 20 20 20 50 52 41 47 4d 41 20 6c 6f 63 6b  .    PRAGMA lock
5670: 69 6e 67 5f 6d 6f 64 65 20 3d 20 6e 6f 72 6d 61  ing_mode = norma
5680: 6c 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 62 20  l;.    SELECT b 
5690: 46 52 4f 4d 20 74 31 3b 0a 20 20 7d 0a 0a 7d 20  FROM t1;.  }..} 
56a0: 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 23 20 52  -tclbody {.  # R
56b0: 75 6e 6e 69 6e 67 20 69 6e 20 65 78 63 6c 75 73  unning in exclus
56c0: 69 76 65 20 6d 6f 64 65 2c 20 70 65 72 66 6f 72  ive mode, perfor
56d0: 6d 20 61 20 64 61 74 61 62 61 73 65 20 74 72 61  m a database tra
56e0: 6e 73 61 63 74 69 6f 6e 20 74 68 61 74 20 0a 20  nsaction that . 
56f0: 20 23 20 6d 6f 64 69 66 69 65 73 20 62 6f 74 68   # modifies both
5700: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 74 61   the database ta
5710: 62 6c 65 20 61 6e 64 20 69 6e 64 65 78 2e 20 46  ble and index. F
5720: 6f 72 20 69 74 65 72 61 74 69 6f 6e 73 20 77 68  or iterations wh
5730: 65 72 65 0a 20 20 23 20 74 68 65 20 6d 61 6c 6c  ere.  # the mall
5740: 6f 63 20 66 61 69 6c 75 72 65 20 6f 63 63 75 72  oc failure occur
5750: 73 20 61 66 74 65 72 20 75 70 64 61 74 69 6e 67  s after updating
5760: 20 74 68 65 20 63 68 61 6e 67 65 20 63 6f 75 6e   the change coun
5770: 74 65 72 20 62 75 74 0a 20 20 23 20 62 65 66 6f  ter but.  # befo
5780: 72 65 20 63 6f 6d 6d 69 74 74 69 6e 67 20 74 68  re committing th
5790: 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c 20 74  e transaction, t
57a0: 68 69 73 20 73 68 6f 75 6c 64 20 72 65 73 75 6c  his should resul
57b0: 74 20 69 6e 20 74 68 65 0a 20 20 23 20 74 72 61  t in the.  # tra
57c0: 6e 73 61 63 74 69 6f 6e 20 62 65 69 6e 67 20 72  nsaction being r
57d0: 6f 6c 6c 65 64 20 62 61 63 6b 20 62 75 74 20 74  olled back but t
57e0: 68 65 20 63 68 61 6e 67 65 43 6f 75 6e 74 65 72  he changeCounter
57f0: 44 6f 6e 65 20 66 6c 61 67 0a 20 20 23 20 6c 65  Done flag.  # le
5800: 66 74 20 73 65 74 2e 0a 20 20 23 0a 20 20 64 62  ft set..  #.  db
5810: 20 65 76 61 6c 20 7b 20 55 50 44 41 54 45 20 74   eval { UPDATE t
5820: 31 20 53 45 54 20 61 20 3d 20 61 20 2b 20 33 20  1 SET a = a + 3 
5830: 7d 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 0a  }.} -cleanup {..
5840: 20 20 23 20 50 65 72 66 6f 72 6d 20 61 6e 6f 74    # Perform anot
5850: 68 65 72 20 74 72 61 6e 73 61 63 74 69 6f 6e 20  her transaction 
5860: 75 73 69 6e 67 20 74 68 65 20 66 69 72 73 74 20  using the first 
5870: 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 55 6e 6c 6f  connection. Unlo
5880: 63 6b 0a 20 20 23 20 74 68 65 20 64 61 74 61 62  ck.  # the datab
5890: 61 73 65 20 61 66 74 65 72 20 64 6f 69 6e 67 20  ase after doing 
58a0: 73 6f 2e 20 49 66 20 74 68 69 73 20 69 73 20 6f  so. If this is o
58b0: 6e 65 20 6f 66 20 74 68 65 20 72 69 67 68 74 20  ne of the right 
58c0: 69 74 65 72 61 74 69 6f 6e 73 2c 0a 20 20 23 20  iterations,.  # 
58d0: 74 68 65 6e 20 74 68 69 73 20 73 68 6f 75 6c 64  then this should
58e0: 20 72 65 73 75 6c 74 20 69 6e 20 74 68 65 20 64   result in the d
58f0: 61 74 61 62 61 73 65 20 63 6f 6e 74 65 6e 74 73  atabase contents
5900: 20 62 65 69 6e 67 20 75 70 64 61 74 65 64 20 62   being updated b
5910: 75 74 0a 20 20 23 20 74 68 65 20 63 68 61 6e 67  ut.  # the chang
5920: 65 2d 63 6f 75 6e 74 65 72 20 6c 65 66 74 20 61  e-counter left a
5930: 73 20 69 74 20 69 73 2e 0a 20 20 23 0a 20 20 64  s it is..  #.  d
5940: 62 20 65 76 61 6c 20 7b 20 0a 20 20 20 20 50 52  b eval { .    PR
5950: 41 47 4d 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64  AGMA locking_mod
5960: 65 20 3d 20 6e 6f 72 6d 61 6c 3b 0a 20 20 20 20  e = normal;.    
5970: 55 50 44 41 54 45 20 74 31 20 53 45 54 20 61 20  UPDATE t1 SET a 
5980: 3d 20 61 20 2b 20 33 3b 0a 20 20 7d 0a 0a 20 20  = a + 3;.  }..  
5990: 23 20 4e 6f 77 20 64 6f 20 61 6e 20 69 6e 74 65  # Now do an inte
59a0: 67 72 69 74 79 20 63 68 65 63 6b 20 77 69 74 68  grity check with
59b0: 20 74 68 65 20 73 65 63 6f 6e 64 20 63 6f 6e 6e   the second conn
59c0: 65 63 74 69 6f 6e 2e 20 54 68 65 20 73 65 63 6f  ection. The seco
59d0: 6e 64 0a 20 20 23 20 63 6f 6e 6e 65 63 74 69 6f  nd.  # connectio
59e0: 6e 20 73 74 69 6c 6c 20 68 61 73 20 74 68 65 20  n still has the 
59f0: 64 61 74 61 62 61 73 65 20 74 61 62 6c 65 20 69  database table i
5a00: 6e 20 69 74 73 20 63 61 63 68 65 2e 20 49 66 20  n its cache. If 
5a10: 74 68 69 73 20 69 73 0a 20 20 23 20 6f 6e 65 20  this is.  # one 
5a20: 6f 66 20 74 68 65 20 6d 61 67 69 63 20 69 74 65  of the magic ite
5a30: 72 61 74 69 6f 6e 73 20 61 6e 64 20 74 68 65 20  rations and the 
5a40: 63 68 61 6e 67 65 20 63 6f 75 6e 74 65 72 20 77  change counter w
5a50: 61 73 20 6e 6f 74 20 6d 6f 64 69 66 69 65 64 2c  as not modified,
5a60: 0a 20 20 23 20 74 68 65 6e 20 69 74 20 77 6f 6e  .  # then it won
5a70: 27 74 20 72 65 61 6c 69 7a 65 20 74 68 61 74 20  't realize that 
5a80: 74 68 65 20 63 61 63 68 65 64 20 64 61 74 61 20  the cached data 
5a90: 69 73 20 6f 75 74 20 6f 66 20 64 61 74 65 2e 20  is out of date. 
5aa0: 53 69 6e 63 65 0a 20 20 23 20 74 68 65 20 63 61  Since.  # the ca
5ab0: 63 68 65 64 20 64 61 74 61 20 77 6f 6e 27 74 20  ched data won't 
5ac0: 6d 61 74 63 68 20 74 68 65 20 75 70 20 74 6f 20  match the up to 
5ad0: 64 61 74 65 20 69 6e 64 65 78 20 64 61 74 61 20  date index data 
5ae0: 72 65 61 64 20 66 72 6f 6d 0a 20 20 23 20 74 68  read from.  # th
5af0: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 2c  e database file,
5b00: 20 74 68 65 20 69 6e 74 65 67 72 69 74 79 20 63   the integrity c
5b10: 68 65 63 6b 20 73 68 6f 75 6c 64 20 66 61 69 6c  heck should fail
5b20: 2e 0a 20 20 23 0a 20 20 73 65 74 20 7a 52 65 70  ..  #.  set zRep
5b30: 65 61 74 20 22 74 72 61 6e 73 69 65 6e 74 22 0a  eat "transient".
5b40: 20 20 69 66 20 7b 24 3a 3a 69 52 65 70 65 61 74    if {$::iRepeat
5b50: 7d 20 7b 73 65 74 20 7a 52 65 70 65 61 74 20 22  } {set zRepeat "
5b60: 70 65 72 73 69 73 74 65 6e 74 22 7d 0a 20 20 64  persistent"}.  d
5b70: 6f 5f 74 65 73 74 20 6d 61 6c 6c 6f 63 2d 33 32  o_test malloc-32
5b80: 2e 24 7a 52 65 70 65 61 74 2e 24 7b 3a 3a 6e 7d  .$zRepeat.${::n}
5b90: 2e 69 6e 74 65 67 72 69 74 79 20 7b 0a 20 20 20  .integrity {.   
5ba0: 20 65 78 65 63 73 71 6c 20 7b 50 52 41 47 4d 41   execsql {PRAGMA
5bb0: 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b   integrity_check
5bc0: 7d 20 64 62 32 0a 20 20 7d 20 7b 6f 6b 7d 0a 20  } db2.  } {ok}. 
5bd0: 20 64 62 32 20 63 6c 6f 73 65 0a 7d 0a 0a 23 20   db2 close.}..# 
5be0: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77  The following tw
5bf0: 6f 20 4f 4f 4d 20 74 65 73 74 73 20 76 65 72 69  o OOM tests veri
5c00: 66 79 20 74 68 61 74 20 4f 4f 4d 20 68 61 6e 64  fy that OOM hand
5c10: 6c 69 6e 67 20 77 6f 72 6b 73 20 69 6e 20 74 68  ling works in th
5c20: 65 0a 23 20 63 6f 64 65 20 75 73 65 64 20 74 6f  e.# code used to
5c30: 20 6f 70 74 69 6d 69 7a 65 20 22 53 45 4c 45 43   optimize "SELEC
5c40: 54 20 63 6f 75 6e 74 28 2a 29 20 46 52 4f 4d 20  T count(*) FROM 
5c50: 3c 74 62 6c 3e 22 2e 0a 23 0a 64 6f 5f 6d 61 6c  <tbl>"..#.do_mal
5c60: 6c 6f 63 5f 74 65 73 74 20 33 33 20 2d 74 63 6c  loc_test 33 -tcl
5c70: 70 72 65 70 20 7b 0a 20 20 64 62 20 65 76 61 6c  prep {.  db eval
5c80: 20 7b 20 50 52 41 47 4d 41 20 63 61 63 68 65 5f   { PRAGMA cache_
5c90: 73 69 7a 65 20 3d 20 31 30 20 7d 0a 20 20 64 62  size = 10 }.  db
5ca0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20   transaction {. 
5cb0: 20 20 20 64 62 20 65 76 61 6c 20 7b 20 43 52 45     db eval { CRE
5cc0: 41 54 45 20 54 41 42 4c 45 20 61 62 63 28 61 2c  ATE TABLE abc(a,
5cd0: 20 62 29 20 7d 0a 20 20 20 20 66 6f 72 20 7b 73   b) }.    for {s
5ce0: 65 74 20 69 20 30 7d 20 7b 24 69 3c 35 30 30 7d  et i 0} {$i<500}
5cf0: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
5d00: 20 20 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52    db eval {INSER
5d10: 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55 45  T INTO abc VALUE
5d20: 53 28 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30  S(randstr(100,10
5d30: 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30 30  0), randstr(1000
5d40: 2c 31 30 30 30 29 29 7d 0a 20 20 20 20 7d 0a 20  ,1000))}.    }. 
5d50: 20 7d 0a 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a   }.} -sqlbody {.
5d60: 20 20 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a    SELECT count(*
5d70: 29 20 46 52 4f 4d 20 61 62 63 3b 0a 7d 0a 64 6f  ) FROM abc;.}.do
5d80: 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 33 34 20  _malloc_test 34 
5d90: 2d 74 63 6c 70 72 65 70 20 7b 0a 20 20 64 62 20  -tclprep {.  db 
5da0: 65 76 61 6c 20 7b 20 50 52 41 47 4d 41 20 63 61  eval { PRAGMA ca
5db0: 63 68 65 5f 73 69 7a 65 20 3d 20 31 30 20 7d 0a  che_size = 10 }.
5dc0: 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e    db transaction
5dd0: 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b   {.    db eval {
5de0: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 61 62   CREATE TABLE ab
5df0: 63 28 61 20 50 52 49 4d 41 52 59 20 4b 45 59 2c  c(a PRIMARY KEY,
5e00: 20 62 29 20 7d 0a 20 20 20 20 66 6f 72 20 7b 73   b) }.    for {s
5e10: 65 74 20 69 20 30 7d 20 7b 24 69 3c 35 30 30 7d  et i 0} {$i<500}
5e20: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
5e30: 20 20 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52    db eval {INSER
5e40: 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55 45  T INTO abc VALUE
5e50: 53 28 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30  S(randstr(100,10
5e60: 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30 30  0), randstr(1000
5e70: 2c 31 30 30 30 29 29 7d 0a 20 20 20 20 7d 0a 20  ,1000))}.    }. 
5e80: 20 7d 0a 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a   }.} -sqlbody {.
5e90: 20 20 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a    SELECT count(*
5ea0: 29 20 46 52 4f 4d 20 61 62 63 3b 0a 7d 0a 0a 70  ) FROM abc;.}..p
5eb0: 72 6f 63 20 66 20 7b 61 72 67 73 7d 20 7b 20 65  roc f {args} { e
5ec0: 72 72 6f 72 20 22 51 75 69 74 65 20 61 20 6c 6f  rror "Quite a lo
5ed0: 6e 67 20 65 72 72 6f 72 21 22 20 7d 0a 64 6f 5f  ng error!" }.do_
5ee0: 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 33 35 20 2d  malloc_test 35 -
5ef0: 74 63 6c 70 72 65 70 20 7b 0a 20 20 64 62 20 66  tclprep {.  db f
5f00: 75 6e 63 20 66 20 66 0a 20 20 73 65 74 20 3a 3a  unc f f.  set ::
5f10: 53 54 4d 54 20 5b 73 71 6c 69 74 65 33 5f 70 72  STMT [sqlite3_pr
5f20: 65 70 61 72 65 20 64 62 20 22 53 45 4c 45 43 54  epare db "SELECT
5f30: 20 66 28 29 22 20 2d 31 20 44 55 4d 4d 59 5d 0a   f()" -1 DUMMY].
5f40: 20 20 73 71 6c 69 74 65 33 5f 73 74 65 70 20 24    sqlite3_step $
5f50: 3a 3a 53 54 4d 54 0a 7d 20 2d 74 63 6c 62 6f 64  ::STMT.} -tclbod
5f60: 79 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 66 69  y {.  sqlite3_fi
5f70: 6e 61 6c 69 7a 65 20 24 3a 3a 53 54 4d 54 0a 7d  nalize $::STMT.}
5f80: 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 23 20   -cleanup {.  # 
5f90: 41 74 20 6f 6e 65 20 70 6f 69 6e 74 20 61 6e 20  At one point an 
5fa0: 61 73 73 65 72 74 28 20 21 64 62 2d 3e 6d 61 6c  assert( !db->mal
5fb0: 6c 6f 63 46 61 69 6c 65 64 20 29 20 63 6f 75 6c  locFailed ) coul
5fc0: 64 20 66 61 69 6c 20 69 6e 20 74 68 65 20 66 6f  d fail in the fo
5fd0: 6c 6c 6f 77 69 6e 67 0a 20 20 23 20 63 61 6c 6c  llowing.  # call
5fe0: 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 72 72 6d   to sqlite3_errm
5ff0: 73 67 28 29 2e 20 42 65 63 61 75 73 65 20 73 71  sg(). Because sq
6000: 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 29  lite3_finalize()
6010: 20 68 61 64 20 66 61 69 6c 65 64 20 74 6f 20 63   had failed to c
6020: 6c 65 61 72 0a 20 20 23 20 74 68 65 20 66 6c 61  lear.  # the fla
6030: 67 20 62 65 66 6f 72 65 20 72 65 74 75 72 6e 69  g before returni
6040: 6e 67 2e 0a 20 20 73 71 6c 69 74 65 33 5f 65 72  ng..  sqlite3_er
6050: 72 6d 73 67 31 36 20 64 62 0a 7d 0a 0a 64 6f 5f  rmsg16 db.}..do_
6060: 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 33 36 20 2d  malloc_test 36 -
6070: 73 71 6c 70 72 65 70 20 7b 0a 20 20 43 52 45 41  sqlprep {.  CREA
6080: 54 45 20 54 41 42 4c 45 20 74 31 28 61 2c 20 62  TE TABLE t1(a, b
6090: 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  );.  INSERT INTO
60a0: 20 74 31 20 56 41 4c 55 45 53 28 31 2c 20 32 29   t1 VALUES(1, 2)
60b0: 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  ;.  INSERT INTO 
60c0: 74 31 20 56 41 4c 55 45 53 28 33 2c 20 34 29 3b  t1 VALUES(3, 4);
60d0: 0a 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20  .} -sqlbody {.  
60e0: 53 45 4c 45 43 54 20 74 65 73 74 5f 61 67 67 5f  SELECT test_agg_
60f0: 65 72 72 6d 73 67 31 36 28 29 2c 20 67 72 6f 75  errmsg16(), grou
6100: 70 5f 63 6f 6e 63 61 74 28 61 29 20 46 52 4f 4d  p_concat(a) FROM
6110: 20 74 31 0a 7d 0a 0a 23 20 41 74 20 6f 6e 65 20   t1.}..# At one 
6120: 70 6f 69 6e 74 2c 20 69 66 20 61 6e 20 4f 4f 4d  point, if an OOM
6130: 20 6f 63 63 75 72 72 65 64 20 69 6d 6d 65 64 69   occurred immedi
6140: 61 74 65 6c 79 20 61 66 74 65 72 20 6f 62 74 61  ately after obta
6150: 69 6e 69 6e 67 20 61 20 73 68 61 72 65 64 20 6c  ining a shared l
6160: 6f 63 6b 0a 23 20 6f 6e 20 74 68 65 20 64 61 74  ock.# on the dat
6170: 61 62 61 73 65 20 66 69 6c 65 2c 20 74 68 65 20  abase file, the 
6180: 66 69 6c 65 20 72 65 6d 61 69 6e 65 64 20 6c 6f  file remained lo
6190: 63 6b 65 64 2e 20 54 68 69 73 20 74 65 73 74 20  cked. This test 
61a0: 63 61 73 65 20 65 6e 73 75 72 65 73 0a 23 20 74  case ensures.# t
61b0: 68 61 74 20 62 75 67 20 68 61 73 20 62 65 65 6e  hat bug has been
61c0: 20 66 69 78 65 64 2e 69 0a 69 66 20 7b 5b 64 62   fixed.i.if {[db
61d0: 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20 6c 6f   eval {PRAGMA lo
61e0: 63 6b 69 6e 67 5f 6d 6f 64 65 7d 5d 21 3d 22 65  cking_mode}]!="e
61f0: 78 63 6c 75 73 69 76 65 22 7d 20 7b 0a 20 20 64  xclusive"} {.  d
6200: 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 33 37  o_malloc_test 37
6210: 20 2d 74 63 6c 70 72 65 70 20 7b 0a 20 20 20 20   -tclprep {.    
6220: 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73 74  sqlite3 db2 test
6230: 2e 64 62 0a 20 20 20 20 65 78 65 63 73 71 6c 20  .db.    execsql 
6240: 7b 0a 20 20 20 20 20 20 43 52 45 41 54 45 20 54  {.      CREATE T
6250: 41 42 4c 45 20 74 31 28 61 2c 20 62 29 3b 0a 20  ABLE t1(a, b);. 
6260: 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f       INSERT INTO
6270: 20 74 31 20 56 41 4c 55 45 53 28 31 2c 20 32 29   t1 VALUES(1, 2)
6280: 3b 0a 20 20 20 20 7d 20 64 62 32 0a 20 20 7d 20  ;.    } db2.  } 
6290: 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 20 20 53  -sqlbody {.    S
62a0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 3b  ELECT * FROM t1;
62b0: 0a 20 20 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a  .  } -cleanup {.
62c0: 20 20 20 20 23 20 54 72 79 20 74 6f 20 77 72 69      # Try to wri
62d0: 74 65 20 74 6f 20 74 68 65 20 64 61 74 61 62 61  te to the databa
62e0: 73 65 20 75 73 69 6e 67 20 63 6f 6e 6e 65 63 74  se using connect
62f0: 69 6f 6e 20 5b 64 62 32 5d 2e 20 49 66 20 63 6f  ion [db2]. If co
6300: 6e 6e 65 63 74 69 6f 6e 20 5b 64 62 5d 0a 20 20  nnection [db].  
6310: 20 20 23 20 68 61 73 20 63 6f 72 72 65 63 74 6c    # has correctl
6320: 79 20 72 65 6c 65 61 73 65 64 20 74 68 65 20 73  y released the s
6330: 68 61 72 65 64 20 6c 6f 63 6b 2c 20 74 68 69 73  hared lock, this
6340: 20 77 72 69 74 65 20 61 74 74 65 6d 70 74 20 73   write attempt s
6350: 68 6f 75 6c 64 20 0a 20 20 20 20 23 20 73 75 63  hould .    # suc
6360: 63 65 65 64 2e 20 49 66 20 5b 64 62 5d 20 68 61  ceed. If [db] ha
6370: 73 20 6e 6f 74 20 72 65 6c 65 61 73 65 64 20 74  s not released t
6380: 68 65 20 6c 6f 63 6b 2c 20 74 68 69 73 20 73 68  he lock, this sh
6390: 6f 75 6c 64 20 68 69 74 20 61 6e 20 0a 20 20 20  ould hit an .   
63a0: 20 23 20 53 51 4c 49 54 45 5f 42 55 53 59 20 65   # SQLITE_BUSY e
63b0: 72 72 6f 72 2e 0a 20 20 20 20 64 6f 5f 74 65 73  rror..    do_tes
63c0: 74 20 6d 61 6c 6c 6f 63 2d 33 36 2e 24 7a 52 65  t malloc-36.$zRe
63d0: 70 65 61 74 2e 24 7b 3a 3a 6e 7d 2e 75 6e 6c 6f  peat.${::n}.unlo
63e0: 63 6b 65 64 20 7b 0a 20 20 20 20 20 20 65 78 65  cked {.      exe
63f0: 63 73 71 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54  csql {INSERT INT
6400: 4f 20 74 31 20 56 41 4c 55 45 53 28 33 2c 20 34  O t1 VALUES(3, 4
6410: 29 7d 20 64 62 32 0a 20 20 20 20 7d 20 7b 7d 0a  )} db2.    } {}.
6420: 20 20 20 20 64 62 32 20 63 6c 6f 73 65 0a 20 20      db2 close.  
6430: 7d 0a 20 20 63 61 74 63 68 20 7b 20 64 62 32 20  }.  catch { db2 
6440: 63 6c 6f 73 65 20 7d 0a 7d 0a 0a 0a 23 20 54 65  close }.}...# Te
6450: 73 74 20 74 68 61 74 20 69 66 20 61 6e 20 4f 4f  st that if an OO
6460: 4d 20 65 72 72 6f 72 20 6f 63 63 75 72 73 2c 20  M error occurs, 
6470: 61 75 78 2d 64 61 74 61 20 69 73 20 73 74 69 6c  aux-data is stil
6480: 6c 20 63 6f 72 72 65 63 74 6c 79 20 64 65 73 74  l correctly dest
6490: 72 6f 79 65 64 2e 0a 23 20 54 68 69 73 20 74 65  royed..# This te
64a0: 73 74 20 63 61 73 65 20 77 61 73 20 63 61 75 73  st case was caus
64b0: 69 6e 67 20 65 69 74 68 65 72 20 61 20 6d 65 6d  ing either a mem
64c0: 6f 72 79 2d 6c 65 61 6b 20 6f 72 20 61 6e 20 61  ory-leak or an a
64d0: 73 73 65 72 74 28 29 20 66 61 69 6c 75 72 65 0a  ssert() failure.
64e0: 23 20 61 74 20 6f 6e 65 20 70 6f 69 6e 74 2c 20  # at one point, 
64f0: 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65  depending on the
6500: 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 0a   configuration..
6510: 23 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74  #.do_malloc_test
6520: 20 33 39 20 2d 74 63 6c 70 72 65 70 20 7b 0a 20   39 -tclprep {. 
6530: 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74   sqlite3 db test
6540: 2e 64 62 0a 7d 20 2d 73 71 6c 62 6f 64 79 20 7b  .db.} -sqlbody {
6550: 0a 20 20 53 45 4c 45 43 54 20 74 65 73 74 5f 61  .  SELECT test_a
6560: 75 78 64 61 74 61 28 27 61 62 63 27 2c 20 27 64  uxdata('abc', 'd
6570: 65 66 27 29 3b 0a 7d 20 2d 63 6c 65 61 6e 75 70  ef');.} -cleanup
6580: 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 7d 0a   {.  db close.}.
6590: 0a 72 65 73 65 74 5f 64 62 0a 61 64 64 5f 74 65  .reset_db.add_te
65a0: 73 74 5f 75 74 66 31 36 62 69 6e 5f 63 6f 6c 6c  st_utf16bin_coll
65b0: 61 74 65 20 64 62 0a 64 6f 5f 65 78 65 63 73 71  ate db.do_execsq
65c0: 6c 5f 74 65 73 74 20 34 30 2e 31 20 7b 0a 20 20  l_test 40.1 {.  
65d0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28  CREATE TABLE t1(
65e0: 61 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  a);.  INSERT INT
65f0: 4f 20 74 31 20 56 41 4c 55 45 53 28 27 66 67 68  O t1 VALUES('fgh
6600: 69 6a 27 29 3b 0a 20 20 49 4e 53 45 52 54 20 49  ij');.  INSERT I
6610: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 27 70  NTO t1 VALUES('p
6620: 71 72 73 74 27 29 3b 0a 20 20 49 4e 53 45 52 54  qrst');.  INSERT
6630: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
6640: 27 61 62 63 64 65 27 29 3b 0a 20 20 49 4e 53 45  'abcde');.  INSE
6650: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
6660: 53 28 27 75 76 77 78 79 27 29 3b 0a 20 20 49 4e  S('uvwxy');.  IN
6670: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
6680: 55 45 53 28 27 6b 6c 6d 6e 6f 27 29 3b 0a 7d 0a  UES('klmno');.}.
6690: 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20  do_execsql_test 
66a0: 34 30 2e 32 20 7b 0a 20 20 53 45 4c 45 43 54 20  40.2 {.  SELECT 
66b0: 2a 20 46 52 4f 4d 20 74 31 20 4f 52 44 45 52 20  * FROM t1 ORDER 
66c0: 42 59 20 31 20 43 4f 4c 4c 41 54 45 20 75 74 66  BY 1 COLLATE utf
66d0: 31 36 62 69 6e 3b 0a 7d 20 7b 61 62 63 64 65 20  16bin;.} {abcde 
66e0: 66 67 68 69 6a 20 6b 6c 6d 6e 6f 20 70 71 72 73  fghij klmno pqrs
66f0: 74 20 75 76 77 78 79 7d 0a 64 6f 5f 66 61 75 6c  t uvwxy}.do_faul
6700: 74 73 69 6d 5f 74 65 73 74 20 34 30 2e 33 20 2d  tsim_test 40.3 -
6710: 66 61 75 6c 74 73 20 6f 6f 6d 2d 74 72 61 6e 73  faults oom-trans
6720: 2a 20 2d 62 6f 64 79 20 7b 0a 20 20 65 78 65 63  * -body {.  exec
6730: 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54  sql {.    SELECT
6740: 20 2a 20 46 52 4f 4d 20 74 31 20 4f 52 44 45 52   * FROM t1 ORDER
6750: 20 42 59 20 31 20 43 4f 4c 4c 41 54 45 20 75 74   BY 1 COLLATE ut
6760: 66 31 36 62 69 6e 3b 0a 20 20 7d 0a 7d 20 2d 74  f16bin;.  }.} -t
6770: 65 73 74 20 7b 0a 20 20 66 61 75 6c 74 73 69 6d  est {.  faultsim
6780: 5f 74 65 73 74 5f 72 65 73 75 6c 74 20 7b 30 20  _test_result {0 
6790: 7b 61 62 63 64 65 20 66 67 68 69 6a 20 6b 6c 6d  {abcde fghij klm
67a0: 6e 6f 20 70 71 72 73 74 20 75 76 77 78 79 7d 7d  no pqrst uvwxy}}
67b0: 20 0a 20 20 66 61 75 6c 74 73 69 6d 5f 69 6e 74   .  faultsim_int
67c0: 65 67 72 69 74 79 5f 63 68 65 63 6b 0a 7d 0a 0a  egrity_check.}..
67d0: 72 65 73 65 74 5f 64 62 0a 61 64 64 5f 74 65 73  reset_db.add_tes
67e0: 74 5f 75 74 66 31 36 62 69 6e 5f 63 6f 6c 6c 61  t_utf16bin_colla
67f0: 74 65 20 64 62 0a 73 65 74 20 62 69 67 20 5b 73  te db.set big [s
6800: 74 72 69 6e 67 20 72 65 70 65 61 74 20 78 20 32  tring repeat x 2
6810: 30 30 5d 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74  00].do_execsql_t
6820: 65 73 74 20 34 31 2e 31 20 7b 0a 20 20 44 52 4f  est 41.1 {.  DRO
6830: 50 20 54 41 42 4c 45 20 49 46 20 45 58 49 53 54  P TABLE IF EXIST
6840: 53 20 74 31 3b 0a 20 20 43 52 45 41 54 45 20 54  S t1;.  CREATE T
6850: 41 42 4c 45 20 74 31 28 61 20 43 4f 4c 4c 41 54  ABLE t1(a COLLAT
6860: 45 20 75 74 66 31 36 62 69 6e 29 3b 0a 20 20 49  E utf16bin);.  I
6870: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
6880: 4c 55 45 53 28 27 66 67 68 69 6a 27 20 7c 7c 20  LUES('fghij' || 
6890: 24 3a 3a 62 69 67 29 3b 0a 20 20 49 4e 53 45 52  $::big);.  INSER
68a0: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
68b0: 28 27 70 71 72 73 74 27 20 7c 7c 20 24 3a 3a 62  ('pqrst' || $::b
68c0: 69 67 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e  ig);.  INSERT IN
68d0: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 27 61 62  TO t1 VALUES('ab
68e0: 63 64 65 27 20 7c 7c 20 24 3a 3a 62 69 67 29 3b  cde' || $::big);
68f0: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  .  INSERT INTO t
6900: 31 20 56 41 4c 55 45 53 28 27 75 76 77 78 79 27  1 VALUES('uvwxy'
6910: 20 7c 7c 20 24 3a 3a 62 69 67 29 3b 0a 20 20 49   || $::big);.  I
6920: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
6930: 4c 55 45 53 28 27 6b 6c 6d 6e 6f 27 20 7c 7c 20  LUES('klmno' || 
6940: 24 3a 3a 62 69 67 29 3b 0a 20 20 43 52 45 41 54  $::big);.  CREAT
6950: 45 20 49 4e 44 45 58 20 69 31 20 4f 4e 20 74 31  E INDEX i1 ON t1
6960: 28 61 29 3b 0a 7d 0a 64 6f 5f 66 61 75 6c 74 73  (a);.}.do_faults
6970: 69 6d 5f 74 65 73 74 20 34 31 2e 32 20 2d 66 61  im_test 41.2 -fa
6980: 75 6c 74 73 20 6f 6f 6d 2a 20 2d 62 6f 64 79 20  ults oom* -body 
6990: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 53 45  {.  execsql { SE
69a0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 57  LECT * FROM t1 W
69b0: 48 45 52 45 20 61 20 3d 20 28 27 61 62 63 64 65  HERE a = ('abcde
69c0: 27 20 7c 7c 20 24 3a 3a 62 69 67 29 7d 0a 7d 20  ' || $::big)}.} 
69d0: 2d 74 65 73 74 20 7b 0a 20 20 66 61 75 6c 74 73  -test {.  faults
69e0: 69 6d 5f 74 65 73 74 5f 72 65 73 75 6c 74 20 5b  im_test_result [
69f0: 6c 69 73 74 20 30 20 22 61 62 63 64 65 24 3a 3a  list 0 "abcde$::
6a00: 62 69 67 22 5d 0a 20 20 66 61 75 6c 74 73 69 6d  big"].  faultsim
6a10: 5f 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b  _integrity_check
6a20: 0a 7d 0a 0a 72 65 73 65 74 5f 64 62 0a 64 6f 5f  .}..reset_db.do_
6a30: 65 78 65 63 73 71 6c 5f 74 65 73 74 20 34 32 2e  execsql_test 42.
6a40: 30 20 7b 0a 20 20 43 52 45 41 54 45 20 54 41 42  0 {.  CREATE TAB
6a50: 4c 45 20 74 31 28 78 20 49 4e 54 45 47 45 52 20  LE t1(x INTEGER 
6a60: 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 79 2c 20  PRIMARY KEY, y, 
6a70: 7a 29 3b 0a 20 20 43 52 45 41 54 45 20 54 41 42  z);.  CREATE TAB
6a80: 4c 45 20 74 32 28 61 2c 20 62 29 3b 0a 20 20 43  LE t2(a, b);.  C
6a90: 52 45 41 54 45 20 56 49 45 57 20 61 30 30 32 20  REATE VIEW a002 
6aa0: 41 53 20 53 45 4c 45 43 54 20 2a 2c 20 73 75 6d  AS SELECT *, sum
6ab0: 28 62 29 20 41 53 20 6d 20 46 52 4f 4d 20 74 32  (b) AS m FROM t2
6ac0: 20 47 52 4f 55 50 20 42 59 20 61 3b 0a 7d 0a 66   GROUP BY a;.}.f
6ad0: 61 75 6c 74 73 69 6d 5f 73 61 76 65 5f 61 6e 64  aultsim_save_and
6ae0: 5f 63 6c 6f 73 65 0a 64 6f 5f 66 61 75 6c 74 73  _close.do_faults
6af0: 69 6d 5f 74 65 73 74 20 34 32 20 2d 66 61 75 6c  im_test 42 -faul
6b00: 74 73 20 6f 6f 6d 2d 74 72 61 6e 2a 20 2d 70 72  ts oom-tran* -pr
6b10: 65 70 20 7b 0a 20 20 66 61 75 6c 74 73 69 6d 5f  ep {.  faultsim_
6b20: 72 65 73 74 6f 72 65 5f 61 6e 64 5f 72 65 6f 70  restore_and_reop
6b30: 65 6e 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 53  en.  execsql { S
6b40: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c  ELECT * FROM sql
6b50: 69 74 65 5f 6d 61 73 74 65 72 20 7d 0a 7d 20 2d  ite_master }.} -
6b60: 62 6f 64 79 20 7b 0a 20 20 65 78 65 63 73 71 6c  body {.  execsql
6b70: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 74 31   {.    SELECT t1
6b80: 2e 7a 2c 20 61 30 30 32 2e 6d 0a 20 20 20 20 46  .z, a002.m.    F
6b90: 52 4f 4d 20 74 31 20 4a 4f 49 4e 20 61 30 30 32  ROM t1 JOIN a002
6ba0: 20 4f 4e 20 74 31 2e 79 3d 61 30 30 32 2e 6d 0a   ON t1.y=a002.m.
6bb0: 20 20 20 20 57 48 45 52 45 20 74 31 2e 78 20 49      WHERE t1.x I
6bc0: 4e 20 28 31 2c 32 2c 33 29 3b 0a 20 20 7d 0a 7d  N (1,2,3);.  }.}
6bd0: 20 2d 74 65 73 74 20 7b 0a 20 20 66 61 75 6c 74   -test {.  fault
6be0: 73 69 6d 5f 74 65 73 74 5f 72 65 73 75 6c 74 20  sim_test_result 
6bf0: 7b 30 20 7b 7d 7d 0a 7d 0a 0a 0a 23 20 45 6e 73  {0 {}}.}...# Ens
6c00: 75 72 65 20 74 68 61 74 20 6e 6f 20 66 69 6c 65  ure that no file
6c10: 20 64 65 73 63 72 69 70 74 6f 72 73 20 77 65 72   descriptors wer
6c20: 65 20 6c 65 61 6b 65 64 2e 0a 64 6f 5f 74 65 73  e leaked..do_tes
6c30: 74 20 6d 61 6c 6c 6f 63 2d 39 39 2e 58 20 7b 0a  t malloc-99.X {.
6c40: 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73    catch {db clos
6c50: 65 7d 0a 20 20 73 65 74 20 73 71 6c 69 74 65 5f  e}.  set sqlite_
6c60: 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f 75 6e 74 0a  open_file_count.
6c70: 7d 20 7b 30 7d 0a 0a 70 75 74 73 20 6f 70 65 6e  } {0}..puts open
6c80: 2d 66 69 6c 65 2d 63 6f 75 6e 74 3d 24 73 71 6c  -file-count=$sql
6c90: 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f 63 6f  ite_open_file_co
6ca0: 75 6e 74 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a  unt.finish_test.