/ Hex Artifact Content
Login

Artifact 96939d2d1a6f39667bbebe5bc27c6525f2ab614e:


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 7d 20 7b 0a 20 20 64  "windows"} {.  d
2540: 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 31 34  o_malloc_test 14
2550: 20 2d 74 63 6c 70 72 65 70 20 7b 0a 20 20 20 20   -tclprep {.    
2560: 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d  catch {db close}
2570: 0a 20 20 20 20 73 71 6c 69 74 65 33 20 64 62 32  .    sqlite3 db2
2580: 20 74 65 73 74 32 2e 64 62 0a 20 20 20 20 73 71   test2.db.    sq
2590: 6c 69 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72  lite3_extended_r
25a0: 65 73 75 6c 74 5f 63 6f 64 65 73 20 64 62 32 20  esult_codes db2 
25b0: 31 0a 20 20 20 20 64 62 32 20 65 76 61 6c 20 7b  1.    db2 eval {
25c0: 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 6a 6f  .      PRAGMA jo
25d0: 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 44 45 4c  urnal_mode = DEL
25e0: 45 54 45 3b 20 20 20 20 2f 2a 20 46 6f 72 20 69  ETE;    /* For i
25f0: 6e 6d 65 6d 6f 72 79 5f 6a 6f 75 72 6e 61 6c 20  nmemory_journal 
2600: 70 65 72 6d 75 74 61 74 69 6f 6e 20 2a 2f 0a 20  permutation */. 
2610: 20 20 20 20 20 50 52 41 47 4d 41 20 73 79 6e 63       PRAGMA sync
2620: 68 72 6f 6e 6f 75 73 20 3d 20 30 3b 0a 20 20 20  hronous = 0;.   
2630: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
2640: 74 31 28 61 2c 20 62 29 3b 0a 20 20 20 20 20 20  t1(a, b);.      
2650: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
2660: 41 4c 55 45 53 28 31 2c 20 32 29 3b 0a 20 20 20  ALUES(1, 2);.   
2670: 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20     BEGIN;.      
2680: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
2690: 41 4c 55 45 53 28 33 2c 20 34 29 3b 0a 20 20 20  ALUES(3, 4);.   
26a0: 20 7d 0a 20 20 20 20 66 6f 72 63 65 63 6f 70 79   }.    forcecopy
26b0: 20 74 65 73 74 32 2e 64 62 20 74 65 73 74 2e 64   test2.db test.d
26c0: 62 0a 20 20 20 20 66 6f 72 63 65 63 6f 70 79 20  b.    forcecopy 
26d0: 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c  test2.db-journal
26e0: 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c   test.db-journal
26f0: 0a 20 20 20 20 64 62 32 20 63 6c 6f 73 65 0a 20  .    db2 close. 
2700: 20 7d 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20   } -tclbody {.  
2710: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73    sqlite3 db tes
2720: 74 2e 64 62 0a 20 20 20 20 73 71 6c 69 74 65 33  t.db.    sqlite3
2730: 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74  _extended_result
2740: 5f 63 6f 64 65 73 20 64 62 20 31 0a 0a 20 20 20  _codes db 1..   
2750: 20 23 20 49 66 20 61 6e 20 6f 75 74 2d 6f 66 2d   # If an out-of-
2760: 6d 65 6d 6f 72 79 20 6f 63 63 75 72 73 20 77 69  memory occurs wi
2770: 74 68 69 6e 20 61 20 63 61 6c 6c 20 74 6f 20 61  thin a call to a
2780: 20 56 46 53 20 6c 61 79 65 72 20 66 75 6e 63 74   VFS layer funct
2790: 69 6f 6e 20 64 75 72 69 6e 67 0a 20 20 20 20 23  ion during.    #
27a0: 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c 20 72 6f 6c   hot-journal rol
27b0: 6c 62 61 63 6b 2c 20 73 71 6c 69 74 65 20 77 69  lback, sqlite wi
27c0: 6c 6c 20 72 65 70 6f 72 74 20 53 51 4c 49 54 45  ll report SQLITE
27d0: 5f 43 4f 52 52 55 50 54 2e 20 53 65 65 20 63 6f  _CORRUPT. See co
27e0: 6d 6d 69 74 0a 20 20 20 20 23 20 5b 35 36 36 38  mmit.    # [5668
27f0: 5d 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 0a 20  ] for details.. 
2800: 20 20 20 73 65 74 20 72 63 20 5b 63 61 74 63 68     set rc [catch
2810: 20 7b 64 62 20 65 76 61 6c 20 7b 20 53 45 4c 45   {db eval { SELE
2820: 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 7d 7d 20  CT * FROM t1 }} 
2830: 6d 73 67 5d 0a 20 20 20 20 69 66 20 7b 24 6d 73  msg].    if {$ms
2840: 67 20 65 71 20 22 64 61 74 61 62 61 73 65 20 64  g eq "database d
2850: 69 73 6b 20 69 6d 61 67 65 20 69 73 20 6d 61 6c  isk image is mal
2860: 66 6f 72 6d 65 64 22 7d 20 7b 20 73 65 74 20 6d  formed"} { set m
2870: 73 67 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72  sg "out of memor
2880: 79 22 20 7d 0a 20 20 20 20 69 66 20 7b 24 72 63  y" }.    if {$rc
2890: 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73 67 20 7d  } { error $msg }
28a0: 0a 20 20 20 20 73 65 74 20 6d 73 67 0a 20 20 7d  .    set msg.  }
28b0: 0a 7d 0a 0a 70 72 6f 63 20 73 74 72 69 6e 67 5f  .}..proc string_
28c0: 63 6f 6d 70 61 72 65 20 7b 61 20 62 7d 20 7b 0a  compare {a b} {.
28d0: 20 20 72 65 74 75 72 6e 20 5b 73 74 72 69 6e 67    return [string
28e0: 20 63 6f 6d 70 61 72 65 20 24 61 20 24 62 5d 0a   compare $a $b].
28f0: 7d 0a 0a 23 20 54 65 73 74 20 66 6f 72 20 6d 61  }..# Test for ma
2900: 6c 6c 6f 63 28 29 20 66 61 69 6c 75 72 65 73 20  lloc() failures 
2910: 69 6e 20 73 71 6c 69 74 65 33 5f 63 72 65 61 74  in sqlite3_creat
2920: 65 5f 63 6f 6c 6c 61 74 69 6f 6e 28 29 20 61 6e  e_collation() an
2930: 64 20 0a 23 20 73 71 6c 69 74 65 33 5f 63 72 65  d .# sqlite3_cre
2940: 61 74 65 5f 63 6f 6c 6c 61 74 69 6f 6e 31 36 28  ate_collation16(
2950: 29 2e 0a 23 0a 69 66 63 61 70 61 62 6c 65 20 75  )..#.ifcapable u
2960: 74 66 31 36 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c  tf16 {.  do_mall
2970: 6f 63 5f 74 65 73 74 20 31 35 20 2d 73 74 61 72  oc_test 15 -star
2980: 74 20 34 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20  t 4 -tclbody {. 
2990: 20 20 20 64 62 20 63 6f 6c 6c 61 74 65 20 73 74     db collate st
29a0: 72 69 6e 67 5f 63 6f 6d 70 61 72 65 20 73 74 72  ring_compare str
29b0: 69 6e 67 5f 63 6f 6d 70 61 72 65 0a 20 20 20 20  ing_compare.    
29c0: 69 66 20 7b 5b 63 61 74 63 68 20 7b 61 64 64 5f  if {[catch {add_
29d0: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 64 62 20  test_collate db 
29e0: 31 20 31 20 31 7d 20 6d 73 67 5d 7d 20 7b 0a 20  1 1 1} msg]} {. 
29f0: 20 20 20 20 20 69 66 20 7b 24 6d 73 67 3d 3d 22       if {$msg=="
2a00: 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 22 7d 20 7b  SQLITE_NOMEM"} {
2a10: 73 65 74 20 6d 73 67 20 22 6f 75 74 20 6f 66 20  set msg "out of 
2a20: 6d 65 6d 6f 72 79 22 7d 0a 20 20 20 20 20 20 65  memory"}.      e
2a30: 72 72 6f 72 20 24 6d 73 67 0a 20 20 20 20 7d 0a  rror $msg.    }.
2a40: 20 20 0a 20 20 20 20 64 62 20 63 6f 6d 70 6c 65    .    db comple
2a50: 74 65 20 7b 53 45 4c 45 43 54 20 22 68 65 6c 6c  te {SELECT "hell
2a60: 6f 20 22 22 22 7c 7c 27 77 6f 72 6c 64 22 27 20  o """||'world"' 
2a70: 5b 6d 69 63 72 6f 73 6f 66 74 5d 2c 20 2a 20 46  [microsoft], * F
2a80: 52 4f 4d 20 61 6e 69 63 65 74 61 62 6c 65 3b 7d  ROM anicetable;}
2a90: 0a 20 20 20 20 64 62 20 63 6f 6d 70 6c 65 74 65  .    db complete
2aa0: 20 7b 2d 2d 20 55 73 65 66 75 6c 20 63 6f 6d 6d   {-- Useful comm
2ab0: 65 6e 74 7d 0a 20 20 0a 20 20 20 20 65 78 65 63  ent}.  .    exec
2ac0: 73 71 6c 20 7b 0a 20 20 20 20 20 20 43 52 45 41  sql {.      CREA
2ad0: 54 45 20 54 41 42 4c 45 20 74 31 28 61 2c 20 62  TE TABLE t1(a, b
2ae0: 20 43 4f 4c 4c 41 54 45 20 73 74 72 69 6e 67 5f   COLLATE string_
2af0: 63 6f 6d 70 61 72 65 29 3b 0a 20 20 20 20 20 20  compare);.      
2b00: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
2b10: 41 4c 55 45 53 28 31 30 2c 20 27 73 74 72 69 6e  ALUES(10, 'strin
2b20: 67 27 29 3b 0a 20 20 20 20 20 20 49 4e 53 45 52  g');.      INSER
2b30: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
2b40: 28 31 30 2c 20 27 73 74 72 69 6e 67 32 27 29 3b  (10, 'string2');
2b50: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20  .    }.  }.}..# 
2b60: 41 6c 73 6f 20 74 65 73 74 20 73 71 6c 69 74 65  Also test sqlite
2b70: 33 5f 63 6f 6d 70 6c 65 74 65 28 29 2e 20 54 68  3_complete(). Th
2b80: 65 72 65 20 61 72 65 20 28 63 75 72 72 65 6e 74  ere are (current
2b90: 6c 79 29 20 6e 6f 20 6d 61 6c 6c 6f 63 28 29 0a  ly) no malloc().
2ba0: 23 20 63 61 6c 6c 73 20 69 6e 20 74 68 69 73 20  # calls in this 
2bb0: 66 75 6e 63 74 69 6f 6e 2c 20 62 75 74 20 74 65  function, but te
2bc0: 73 74 20 61 6e 79 77 61 79 20 61 67 61 69 6e 73  st anyway agains
2bd0: 74 20 66 75 74 75 72 65 20 63 68 61 6e 67 65 73  t future changes
2be0: 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  ..#.do_malloc_te
2bf0: 73 74 20 31 36 20 2d 74 63 6c 62 6f 64 79 20 7b  st 16 -tclbody {
2c00: 0a 20 20 64 62 20 63 6f 6d 70 6c 65 74 65 20 7b  .  db complete {
2c10: 53 45 4c 45 43 54 20 22 68 65 6c 6c 6f 20 22 22  SELECT "hello ""
2c20: 22 7c 7c 27 77 6f 72 6c 64 22 27 20 5b 6d 69 63  "||'world"' [mic
2c30: 72 6f 73 6f 66 74 5d 2c 20 2a 20 46 52 4f 4d 20  rosoft], * FROM 
2c40: 61 6e 69 63 65 74 61 62 6c 65 3b 7d 0a 20 20 64  anicetable;}.  d
2c50: 62 20 63 6f 6d 70 6c 65 74 65 20 7b 2d 2d 20 55  b complete {-- U
2c60: 73 65 66 75 6c 20 63 6f 6d 6d 65 6e 74 7d 0a 20  seful comment}. 
2c70: 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 53   db eval {.    S
2c80: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c  ELECT * FROM sql
2c90: 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20 7d 0a  ite_master;.  }.
2ca0: 7d 0a 0a 23 20 54 65 73 74 20 68 61 6e 64 6c 69  }..# Test handli
2cb0: 6e 67 20 6f 66 20 6d 61 6c 6c 6f 63 28 29 20 66  ng of malloc() f
2cc0: 61 69 6c 75 72 65 73 20 69 6e 20 73 71 6c 69 74  ailures in sqlit
2cd0: 65 33 5f 6f 70 65 6e 31 36 28 29 2e 0a 23 0a 69  e3_open16()..#.i
2ce0: 66 63 61 70 61 62 6c 65 20 75 74 66 31 36 20 7b  fcapable utf16 {
2cf0: 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73  .  do_malloc_tes
2d00: 74 20 31 37 20 2d 74 63 6c 62 6f 64 79 20 7b 0a  t 17 -tclbody {.
2d10: 20 20 20 20 73 65 74 20 44 42 32 20 30 0a 20 20      set DB2 0.  
2d20: 20 20 73 65 74 20 53 54 4d 54 20 30 0a 20 20 0a    set STMT 0.  .
2d30: 20 20 20 20 23 20 6f 70 65 6e 20 64 61 74 61 62      # open datab
2d40: 61 73 65 20 75 73 69 6e 67 20 73 71 6c 69 74 65  ase using sqlite
2d50: 33 5f 6f 70 65 6e 31 36 28 29 0a 20 20 20 20 73  3_open16().    s
2d60: 65 74 20 66 69 6c 65 6e 61 6d 65 20 5b 65 6e 63  et filename [enc
2d70: 6f 64 69 6e 67 20 63 6f 6e 76 65 72 74 74 6f 20  oding convertto 
2d80: 75 6e 69 63 6f 64 65 20 74 65 73 74 2e 64 62 5d  unicode test.db]
2d90: 0a 20 20 20 20 61 70 70 65 6e 64 20 66 69 6c 65  .    append file
2da0: 6e 61 6d 65 20 22 5c 78 30 30 5c 78 30 30 22 0a  name "\x00\x00".
2db0: 20 20 20 20 73 65 74 20 44 42 32 20 5b 73 71 6c      set DB2 [sql
2dc0: 69 74 65 33 5f 6f 70 65 6e 31 36 20 24 66 69 6c  ite3_open16 $fil
2dd0: 65 6e 61 6d 65 20 2d 75 6e 75 73 65 64 5d 0a 20  ename -unused]. 
2de0: 20 20 20 69 66 20 7b 30 3d 3d 24 44 42 32 7d 20     if {0==$DB2} 
2df0: 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22 6f  {.      error "o
2e00: 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20 20  ut of memory".  
2e10: 20 20 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f    }.    sqlite3_
2e20: 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f  extended_result_
2e30: 63 6f 64 65 73 20 24 44 42 32 20 31 0a 20 20 0a  codes $DB2 1.  .
2e40: 20 20 20 20 23 20 50 72 65 70 61 72 65 20 73 74      # Prepare st
2e50: 61 74 65 6d 65 6e 74 0a 20 20 20 20 73 65 74 20  atement.    set 
2e60: 72 63 20 5b 63 61 74 63 68 20 7b 73 71 6c 69 74  rc [catch {sqlit
2e70: 65 33 5f 70 72 65 70 61 72 65 20 24 44 42 32 20  e3_prepare $DB2 
2e80: 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73  {SELECT * FROM s
2e90: 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d 20 2d 31  qlite_master} -1
2ea0: 20 58 7d 20 6d 73 67 5d 0a 20 20 20 20 69 66 20   X} msg].    if 
2eb0: 7b 5b 73 71 6c 69 74 65 33 5f 65 72 72 63 6f 64  {[sqlite3_errcod
2ec0: 65 20 24 44 42 32 5d 20 65 71 20 22 53 51 4c 49  e $DB2] eq "SQLI
2ed0: 54 45 5f 49 4f 45 52 52 2b 31 32 22 7d 20 7b 0a  TE_IOERR+12"} {.
2ee0: 20 20 20 20 20 20 65 72 72 6f 72 20 22 6f 75 74        error "out
2ef0: 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20 20 20 20   of memory".    
2f00: 7d 0a 20 20 20 20 69 66 20 7b 5b 72 65 67 65 78  }.    if {[regex
2f10: 70 20 22 2e 2a 61 75 74 6f 6d 61 74 69 63 20 65  p ".*automatic e
2f20: 78 74 65 6e 73 69 6f 6e 20 6c 6f 61 64 69 6e 67  xtension loading
2f30: 2e 2a 22 20 5b 73 71 6c 69 74 65 33 5f 65 72 72  .*" [sqlite3_err
2f40: 6d 73 67 20 24 44 42 32 5d 5d 7d 20 7b 0a 20 20  msg $DB2]]} {.  
2f50: 20 20 20 20 65 72 72 6f 72 20 22 6f 75 74 20 6f      error "out o
2f60: 66 20 6d 65 6d 6f 72 79 22 0a 20 20 20 20 7d 0a  f memory".    }.
2f70: 20 20 20 20 69 66 20 7b 24 72 63 7d 20 7b 0a 20      if {$rc} {. 
2f80: 20 20 20 20 20 65 72 72 6f 72 20 5b 73 74 72 69       error [stri
2f90: 6e 67 20 72 61 6e 67 65 20 24 6d 73 67 20 34 20  ng range $msg 4 
2fa0: 65 6e 64 5d 0a 20 20 20 20 7d 0a 20 20 20 20 73  end].    }.    s
2fb0: 65 74 20 53 54 4d 54 20 24 6d 73 67 0a 20 20 0a  et STMT $msg.  .
2fc0: 20 20 20 20 23 20 46 69 6e 61 6c 69 7a 65 20 73      # Finalize s
2fd0: 74 61 74 65 6d 65 6e 74 0a 20 20 20 20 73 65 74  tatement.    set
2fe0: 20 72 63 20 5b 73 71 6c 69 74 65 33 5f 66 69 6e   rc [sqlite3_fin
2ff0: 61 6c 69 7a 65 20 24 53 54 4d 54 5d 0a 20 20 20  alize $STMT].   
3000: 20 69 66 20 7b 24 72 63 21 3d 22 53 51 4c 49 54   if {$rc!="SQLIT
3010: 45 5f 4f 4b 22 7d 20 7b 0a 20 20 20 20 20 20 65  E_OK"} {.      e
3020: 72 72 6f 72 20 5b 73 71 6c 69 74 65 33 5f 65 72  rror [sqlite3_er
3030: 72 6d 73 67 20 24 44 42 32 5d 0a 20 20 20 20 7d  rmsg $DB2].    }
3040: 0a 20 20 20 20 73 65 74 20 53 54 4d 54 20 30 0a  .    set STMT 0.
3050: 20 20 0a 20 20 20 20 23 20 43 6c 6f 73 65 20 64    .    # Close d
3060: 61 74 61 62 61 73 65 0a 20 20 20 20 73 65 74 20  atabase.    set 
3070: 72 63 20 5b 73 71 6c 69 74 65 33 5f 63 6c 6f 73  rc [sqlite3_clos
3080: 65 20 24 44 42 32 5d 0a 20 20 20 20 69 66 20 7b  e $DB2].    if {
3090: 24 72 63 21 3d 22 53 51 4c 49 54 45 5f 4f 4b 22  $rc!="SQLITE_OK"
30a0: 7d 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20  } {.      error 
30b0: 5b 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 20  [sqlite3_errmsg 
30c0: 24 44 42 32 5d 0a 20 20 20 20 7d 0a 20 20 20 20  $DB2].    }.    
30d0: 73 65 74 20 44 42 32 20 30 0a 20 20 7d 20 2d 63  set DB2 0.  } -c
30e0: 6c 65 61 6e 75 70 20 7b 0a 20 20 20 20 69 66 20  leanup {.    if 
30f0: 7b 24 53 54 4d 54 21 3d 22 30 22 7d 20 7b 0a 20  {$STMT!="0"} {. 
3100: 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 69 6e       sqlite3_fin
3110: 61 6c 69 7a 65 20 24 53 54 4d 54 0a 20 20 20 20  alize $STMT.    
3120: 7d 0a 20 20 20 20 69 66 20 7b 24 44 42 32 21 3d  }.    if {$DB2!=
3130: 22 30 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  "0"} {.      set
3140: 20 72 63 20 5b 73 71 6c 69 74 65 33 5f 63 6c 6f   rc [sqlite3_clo
3150: 73 65 20 24 44 42 32 5d 0a 20 20 20 20 7d 0a 20  se $DB2].    }. 
3160: 20 7d 0a 7d 0a 0a 23 20 54 65 73 74 20 68 61 6e   }.}..# Test han
3170: 64 6c 69 6e 67 20 6f 66 20 6d 61 6c 6c 6f 63 28  dling of malloc(
3180: 29 20 66 61 69 6c 75 72 65 73 20 69 6e 20 73 71  ) failures in sq
3190: 6c 69 74 65 33 5f 65 72 72 6d 73 67 31 36 28 29  lite3_errmsg16()
31a0: 2e 0a 23 0a 69 66 63 61 70 61 62 6c 65 20 75 74  ..#.ifcapable ut
31b0: 66 31 36 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f  f16 {.  do_mallo
31c0: 63 5f 74 65 73 74 20 31 38 20 2d 74 63 6c 70 72  c_test 18 -tclpr
31d0: 65 70 20 7b 0a 20 20 20 20 63 61 74 63 68 20 7b  ep {.    catch {
31e0: 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 22  .      db eval "
31f0: 53 45 4c 45 43 54 20 5b 73 74 72 69 6e 67 20 72  SELECT [string r
3200: 65 70 65 61 74 20 6c 6f 6e 67 63 6f 6c 75 6d 6e  epeat longcolumn
3210: 6e 61 6d 65 20 31 30 5d 20 46 52 4f 4d 20 73 71  name 10] FROM sq
3220: 6c 69 74 65 5f 6d 61 73 74 65 72 22 0a 20 20 20  lite_master".   
3230: 20 7d 0a 20 20 7d 20 2d 74 63 6c 62 6f 64 79 20   }.  } -tclbody 
3240: 7b 0a 20 20 20 20 73 65 74 20 75 74 66 31 36 20  {.    set utf16 
3250: 5b 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 31  [sqlite3_errmsg1
3260: 36 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  6 [sqlite3_conne
3270: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
3280: 5d 5d 0a 20 20 20 20 62 69 6e 61 72 79 20 73 63  ]].    binary sc
3290: 61 6e 20 24 75 74 66 31 36 20 63 2a 20 62 79 74  an $utf16 c* byt
32a0: 65 73 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e  es.    if {[llen
32b0: 67 74 68 20 24 62 79 74 65 73 5d 3d 3d 30 7d 20  gth $bytes]==0} 
32c0: 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22 6f  {.      error "o
32d0: 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20 20  ut of memory".  
32e0: 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 54 68 69    }.  }.}..# Thi
32f0: 73 20 74 65 73 74 20 69 73 20 61 69 6d 65 64 20  s test is aimed 
3300: 61 74 20 63 6f 76 65 72 61 67 65 20 74 65 73 74  at coverage test
3310: 69 6e 67 2e 20 53 70 65 63 69 66 69 63 6c 79 2c  ing. Specificly,
3320: 20 69 74 20 69 73 20 73 75 70 70 6f 73 65 64 20   it is supposed 
3330: 74 6f 0a 23 20 63 61 75 73 65 20 61 20 6d 61 6c  to.# cause a mal
3340: 6c 6f 63 28 29 20 6f 6e 6c 79 20 75 73 65 64 20  loc() only used 
3350: 77 68 65 6e 20 63 6f 6e 76 65 72 74 69 6e 67 20  when converting 
3360: 62 65 74 77 65 65 6e 20 74 68 65 20 74 77 6f 20  between the two 
3370: 75 74 66 2d 31 36 20 0a 23 20 65 6e 63 6f 64 69  utf-16 .# encodi
3380: 6e 67 73 20 74 6f 20 66 61 69 6c 20 28 69 2e 65  ngs to fail (i.e
3390: 2e 20 6c 69 74 74 6c 65 2d 65 6e 64 69 61 6e 2d  . little-endian-
33a0: 3e 62 69 67 2d 65 6e 64 69 61 6e 29 2e 20 49 74  >big-endian). It
33b0: 20 6f 6e 6c 79 20 61 63 74 75 61 6c 6c 79 20 0a   only actually .
33c0: 23 20 68 69 74 73 20 74 68 69 73 20 6d 61 6c 6c  # hits this mall
33d0: 6f 63 28 29 20 6f 6e 20 6c 69 74 74 6c 65 2d 65  oc() on little-e
33e0: 6e 64 69 61 6e 20 68 6f 73 74 73 2e 0a 23 0a 73  ndian hosts..#.s
33f0: 65 74 20 73 74 61 74 69 63 5f 73 74 72 69 6e 67  et static_string
3400: 20 22 5c 78 30 30 68 5c 78 30 30 65 5c 78 30 30   "\x00h\x00e\x00
3410: 6c 5c 78 30 30 6c 5c 78 30 30 6f 22 0a 66 6f 72  l\x00l\x00o".for
3420: 20 7b 73 65 74 20 6c 20 30 7d 20 7b 24 6c 3c 31   {set l 0} {$l<1
3430: 30 7d 20 7b 69 6e 63 72 20 6c 7d 20 7b 0a 20 20  0} {incr l} {.  
3440: 61 70 70 65 6e 64 20 73 74 61 74 69 63 5f 73 74  append static_st
3450: 72 69 6e 67 20 24 73 74 61 74 69 63 5f 73 74 72  ring $static_str
3460: 69 6e 67 0a 7d 0a 61 70 70 65 6e 64 20 73 74 61  ing.}.append sta
3470: 74 69 63 5f 73 74 72 69 6e 67 20 22 5c 78 30 30  tic_string "\x00
3480: 5c 78 30 30 22 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f  \x00".do_malloc_
3490: 74 65 73 74 20 31 39 20 2d 74 63 6c 70 72 65 70  test 19 -tclprep
34a0: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   {.  execsql {. 
34b0: 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69     PRAGMA encodi
34c0: 6e 67 20 3d 20 22 55 54 46 31 36 62 65 22 3b 0a  ng = "UTF16be";.
34d0: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
34e0: 20 61 62 63 28 61 2c 20 62 2c 20 63 29 3b 0a 20   abc(a, b, c);. 
34f0: 20 7d 0a 7d 20 2d 74 63 6c 62 6f 64 79 20 7b 0a   }.} -tclbody {.
3500: 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c    unset -nocompl
3510: 61 69 6e 20 3a 3a 53 54 4d 54 0a 20 20 73 65 74  ain ::STMT.  set
3520: 20 72 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20   r [catch {.    
3530: 73 65 74 20 3a 3a 53 54 4d 54 20 5b 73 71 6c 69  set ::STMT [sqli
3540: 74 65 33 5f 70 72 65 70 61 72 65 20 64 62 20 7b  te3_prepare db {
3550: 53 45 4c 45 43 54 20 3f 7d 20 2d 31 20 44 55 4d  SELECT ?} -1 DUM
3560: 4d 59 5d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f  MY].    sqlite3_
3570: 62 69 6e 64 5f 74 65 78 74 31 36 20 2d 73 74 61  bind_text16 -sta
3580: 74 69 63 20 24 3a 3a 53 54 4d 54 20 31 20 24 73  tic $::STMT 1 $s
3590: 74 61 74 69 63 5f 73 74 72 69 6e 67 20 31 31 32  tatic_string 112
35a0: 0a 20 20 7d 20 6d 73 67 5d 0a 20 20 69 66 20 7b  .  } msg].  if {
35b0: 24 72 7d 20 7b 65 72 72 6f 72 20 5b 73 74 72 69  $r} {error [stri
35c0: 6e 67 20 72 61 6e 67 65 20 24 6d 73 67 20 34 20  ng range $msg 4 
35d0: 65 6e 64 5d 7d 0a 20 20 73 65 74 20 6d 73 67 0a  end]}.  set msg.
35e0: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 69  } -cleanup {.  i
35f0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
3600: 3a 3a 53 54 4d 54 5d 7d 20 7b 0a 20 20 20 20 73  ::STMT]} {.    s
3610: 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20  qlite3_finalize 
3620: 24 3a 3a 53 54 4d 54 0a 20 20 7d 0a 7d 0a 75 6e  $::STMT.  }.}.un
3630: 73 65 74 20 73 74 61 74 69 63 5f 73 74 72 69 6e  set static_strin
3640: 67 0a 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 53  g..# Make sure S
3650: 51 4c 49 54 45 5f 4e 4f 4d 45 4d 20 69 73 20 72  QLITE_NOMEM is r
3660: 65 70 6f 72 74 65 64 20 6f 75 74 20 6f 6e 20 61  eported out on a
3670: 6e 20 41 54 54 41 43 48 20 66 61 69 6c 75 72 65  n ATTACH failure
3680: 20 65 76 65 6e 0a 23 20 77 68 65 6e 20 74 68 65   even.# when the
3690: 20 6d 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65 20   malloc failure 
36a0: 6f 63 63 75 72 73 20 77 69 74 68 69 6e 20 74 68  occurs within th
36b0: 65 20 6e 65 73 74 65 64 20 70 61 72 73 65 2e 0a  e nested parse..
36c0: 23 0a 69 66 63 61 70 61 62 6c 65 20 61 74 74 61  #.ifcapable atta
36d0: 63 68 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63  ch {.  do_malloc
36e0: 5f 74 65 73 74 20 32 30 20 2d 74 63 6c 70 72 65  _test 20 -tclpre
36f0: 70 20 7b 0a 20 20 20 20 64 62 20 63 6c 6f 73 65  p {.    db close
3700: 0a 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74 65  .    forcedelete
3710: 20 74 65 73 74 32 2e 64 62 20 74 65 73 74 32 2e   test2.db test2.
3720: 64 62 2d 6a 6f 75 72 6e 61 6c 0a 20 20 20 20 73  db-journal.    s
3730: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 32 2e  qlite3 db test2.
3740: 64 62 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 65  db.    sqlite3_e
3750: 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63  xtended_result_c
3760: 6f 64 65 73 20 64 62 20 31 0a 20 20 20 20 64 62  odes db 1.    db
3770: 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41   eval {CREATE TA
3780: 42 4c 45 20 74 31 28 78 29 3b 7d 0a 20 20 20 20  BLE t1(x);}.    
3790: 64 62 20 63 6c 6f 73 65 0a 20 20 7d 20 2d 74 63  db close.  } -tc
37a0: 6c 62 6f 64 79 20 7b 0a 20 20 20 20 69 66 20 7b  lbody {.    if {
37b0: 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 33 20  [catch {sqlite3 
37c0: 64 62 20 74 65 73 74 2e 64 62 7d 5d 7d 20 7b 0a  db test.db}]} {.
37d0: 20 20 20 20 20 20 65 72 72 6f 72 20 22 6f 75 74        error "out
37e0: 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20 20 20 20   of memory".    
37f0: 7d 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 65 78  }.    sqlite3_ex
3800: 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f  tended_result_co
3810: 64 65 73 20 64 62 20 31 0a 20 20 7d 20 2d 73 71  des db 1.  } -sq
3820: 6c 62 6f 64 79 20 7b 0a 20 20 20 20 41 54 54 41  lbody {.    ATTA
3830: 43 48 20 44 41 54 41 42 41 53 45 20 27 74 65 73  CH DATABASE 'tes
3840: 74 32 2e 64 62 27 20 41 53 20 74 32 3b 0a 20 20  t2.db' AS t2;.  
3850: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
3860: 74 31 3b 0a 20 20 20 20 44 45 54 41 43 48 20 44  t1;.    DETACH D
3870: 41 54 41 42 41 53 45 20 74 32 3b 0a 20 20 7d 20  ATABASE t2;.  } 
3880: 0a 7d 0a 0a 23 20 54 65 73 74 20 6d 61 6c 6c 6f  .}..# Test mallo
3890: 63 20 66 61 69 6c 75 72 65 20 77 68 69 6c 73 74  c failure whilst
38a0: 20 69 6e 73 74 61 6c 6c 69 6e 67 20 61 20 66 6f   installing a fo
38b0: 72 65 69 67 6e 20 6b 65 79 2e 0a 23 0a 69 66 63  reign key..#.ifc
38c0: 61 70 61 62 6c 65 20 66 6f 72 65 69 67 6e 6b 65  apable foreignke
38d0: 79 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f  y {.  do_malloc_
38e0: 74 65 73 74 20 32 31 20 2d 73 71 6c 62 6f 64 79  test 21 -sqlbody
38f0: 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41   {.    CREATE TA
3900: 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 2c  BLE abc(a, b, c,
3910: 20 46 4f 52 45 49 47 4e 20 4b 45 59 28 61 29 20   FOREIGN KEY(a) 
3920: 52 45 46 45 52 45 4e 43 45 53 20 61 62 63 28 62  REFERENCES abc(b
3930: 29 29 0a 20 20 7d 20 0a 7d 0a 0a 23 20 54 65 73  )).  } .}..# Tes
3940: 74 20 6d 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65  t malloc failure
3950: 20 69 6e 20 61 6e 20 73 71 6c 69 74 65 33 5f 70   in an sqlite3_p
3960: 72 65 70 61 72 65 5f 76 32 28 29 20 63 61 6c 6c  repare_v2() call
3970: 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  ..#.do_malloc_te
3980: 73 74 20 32 32 20 2d 74 63 6c 62 6f 64 79 20 7b  st 22 -tclbody {
3990: 0a 20 20 73 65 74 20 3a 3a 53 54 4d 54 20 22 22  .  set ::STMT ""
39a0: 0a 20 20 73 65 74 20 72 20 5b 63 61 74 63 68 20  .  set r [catch 
39b0: 7b 0a 20 20 20 20 73 65 74 20 3a 3a 53 54 4d 54  {.    set ::STMT
39c0: 20 5b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33   [.      sqlite3
39d0: 5f 70 72 65 70 61 72 65 5f 76 32 20 64 62 20 22  _prepare_v2 db "
39e0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71  SELECT * FROM sq
39f0: 6c 69 74 65 5f 6d 61 73 74 65 72 22 20 2d 31 20  lite_master" -1 
3a00: 44 55 4d 4d 59 0a 20 20 20 20 5d 0a 20 20 7d 20  DUMMY.    ].  } 
3a10: 6d 73 67 5d 0a 20 20 69 66 20 7b 24 72 7d 20 7b  msg].  if {$r} {
3a20: 65 72 72 6f 72 20 5b 73 74 72 69 6e 67 20 72 61  error [string ra
3a30: 6e 67 65 20 24 6d 73 67 20 34 20 65 6e 64 5d 7d  nge $msg 4 end]}
3a40: 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20  .} -cleanup {.  
3a50: 69 66 20 7b 24 3a 3a 53 54 4d 54 20 6e 65 20 22  if {$::STMT ne "
3a60: 22 7d 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  "} {.    sqlite3
3a70: 5f 66 69 6e 61 6c 69 7a 65 20 24 3a 3a 53 54 4d  _finalize $::STM
3a80: 54 0a 20 20 20 20 73 65 74 20 3a 3a 53 54 4d 54  T.    set ::STMT
3a90: 20 22 22 0a 20 20 7d 0a 7d 0a 0a 69 66 63 61 70   "".  }.}..ifcap
3aa0: 61 62 6c 65 20 7b 70 61 67 65 72 5f 70 72 61 67  able {pager_prag
3ab0: 6d 61 73 7d 20 7b 0a 20 20 23 20 54 68 69 73 20  mas} {.  # This 
3ac0: 74 65 73 74 73 20 61 20 73 70 65 63 69 61 6c 20  tests a special 
3ad0: 63 61 73 65 20 2d 20 74 68 61 74 20 61 6e 20 65  case - that an e
3ae0: 72 72 6f 72 20 74 68 61 74 20 6f 63 63 75 72 73  rror that occurs
3af0: 20 77 68 69 6c 65 20 74 68 65 20 70 61 67 65 72   while the pager
3b00: 0a 20 20 23 20 69 73 20 74 72 79 69 6e 67 20 74  .  # is trying t
3b10: 6f 20 72 65 63 6f 76 65 72 20 66 72 6f 6d 20 65  o recover from e
3b20: 72 72 6f 72 2d 73 74 61 74 65 20 69 6e 20 65 78  rror-state in ex
3b30: 63 6c 75 73 69 76 65 2d 61 63 63 65 73 73 20 6d  clusive-access m
3b40: 6f 64 65 20 77 6f 72 6b 73 2e 0a 20 20 23 0a 20  ode works..  #. 
3b50: 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20   do_malloc_test 
3b60: 32 33 20 2d 74 63 6c 70 72 65 70 20 7b 0a 20 20  23 -tclprep {.  
3b70: 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20    db eval {.    
3b80: 20 20 50 52 41 47 4d 41 20 63 61 63 68 65 5f 73    PRAGMA cache_s
3b90: 69 7a 65 20 3d 20 31 30 3b 0a 20 20 20 20 20 20  ize = 10;.      
3ba0: 50 52 41 47 4d 41 20 6c 6f 63 6b 69 6e 67 5f 6d  PRAGMA locking_m
3bb0: 6f 64 65 20 3d 20 65 78 63 6c 75 73 69 76 65 3b  ode = exclusive;
3bc0: 0a 20 20 20 20 20 20 42 45 47 49 4e 3b 0a 20 20  .      BEGIN;.  
3bd0: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
3be0: 20 61 62 63 28 61 2c 20 62 2c 20 63 29 3b 0a 20   abc(a, b, c);. 
3bf0: 20 20 20 20 20 43 52 45 41 54 45 20 49 4e 44 45       CREATE INDE
3c00: 58 20 61 62 63 5f 69 20 4f 4e 20 61 62 63 28 61  X abc_i ON abc(a
3c10: 2c 20 62 2c 20 63 29 3b 0a 20 20 20 20 20 20 49  , b, c);.      I
3c20: 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20 0a  NSERT INTO abc .
3c30: 20 20 20 20 20 20 20 20 56 41 4c 55 45 53 28 72          VALUES(r
3c40: 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29 2c  andstr(100,100),
3c50: 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30   randstr(100,100
3c60: 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31  ), randstr(100,1
3c70: 30 30 29 29 3b 0a 20 20 20 20 20 20 49 4e 53 45  00));.      INSE
3c80: 52 54 20 49 4e 54 4f 20 61 62 63 20 0a 20 20 20  RT INTO abc .   
3c90: 20 20 20 20 20 53 45 4c 45 43 54 20 72 61 6e 64       SELECT rand
3ca0: 73 74 72 28 31 30 30 2c 31 30 30 29 2c 20 72 61  str(100,100), ra
3cb0: 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29 2c 20  ndstr(100,100), 
3cc0: 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29  randstr(100,100)
3cd0: 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 20 20 20   FROM abc;.     
3ce0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63   INSERT INTO abc
3cf0: 20 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43 54   .        SELECT
3d00: 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30   randstr(100,100
3d10: 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31  ), randstr(100,1
3d20: 30 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30  00), randstr(100
3d30: 2c 31 30 30 29 20 46 52 4f 4d 20 61 62 63 3b 0a  ,100) FROM abc;.
3d40: 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54        INSERT INT
3d50: 4f 20 61 62 63 20 0a 20 20 20 20 20 20 20 20 53  O abc .        S
3d60: 45 4c 45 43 54 20 72 61 6e 64 73 74 72 28 31 30  ELECT randstr(10
3d70: 30 2c 31 30 30 29 2c 20 72 61 6e 64 73 74 72 28  0,100), randstr(
3d80: 31 30 30 2c 31 30 30 29 2c 20 72 61 6e 64 73 74  100,100), randst
3d90: 72 28 31 30 30 2c 31 30 30 29 20 46 52 4f 4d 20  r(100,100) FROM 
3da0: 61 62 63 3b 0a 20 20 20 20 20 20 49 4e 53 45 52  abc;.      INSER
3db0: 54 20 49 4e 54 4f 20 61 62 63 20 0a 20 20 20 20  T INTO abc .    
3dc0: 20 20 20 20 53 45 4c 45 43 54 20 72 61 6e 64 73      SELECT rands
3dd0: 74 72 28 31 30 30 2c 31 30 30 29 2c 20 72 61 6e  tr(100,100), ran
3de0: 64 73 74 72 28 31 30 30 2c 31 30 30 29 2c 20 72  dstr(100,100), r
3df0: 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29 20  andstr(100,100) 
3e00: 46 52 4f 4d 20 61 62 63 3b 0a 20 20 20 20 20 20  FROM abc;.      
3e10: 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20  INSERT INTO abc 
3e20: 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20  .        SELECT 
3e30: 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29  randstr(100,100)
3e40: 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c 31 30  , randstr(100,10
3e50: 30 29 2c 20 72 61 6e 64 73 74 72 28 31 30 30 2c  0), randstr(100,
3e60: 31 30 30 29 20 46 52 4f 4d 20 61 62 63 3b 0a 20  100) FROM abc;. 
3e70: 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 20       COMMIT;.   
3e80: 20 7d 0a 20 20 0a 20 20 20 20 23 20 54 68 69 73   }.  .    # This
3e90: 20 70 75 74 73 20 74 68 65 20 70 61 67 65 72 20   puts the pager 
3ea0: 69 6e 74 6f 20 65 72 72 6f 72 20 73 74 61 74 65  into error state
3eb0: 2e 0a 20 20 20 20 23 0a 20 20 20 20 64 62 20 65  ..    #.    db e
3ec0: 76 61 6c 20 42 45 47 49 4e 0a 20 20 20 20 64 62  val BEGIN.    db
3ed0: 20 65 76 61 6c 20 7b 55 50 44 41 54 45 20 61 62   eval {UPDATE ab
3ee0: 63 20 53 45 54 20 61 20 3d 20 30 20 57 48 45 52  c SET a = 0 WHER
3ef0: 45 20 6f 69 64 25 32 7d 0a 20 20 20 20 73 65 74  E oid%2}.    set
3f00: 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72   ::sqlite_io_err
3f10: 6f 72 5f 70 65 6e 64 69 6e 67 20 31 30 0a 20 20  or_pending 10.  
3f20: 20 20 63 61 74 63 68 20 7b 64 62 20 65 76 61 6c    catch {db eval
3f30: 20 7b 52 4f 4c 4c 42 41 43 4b 7d 7d 20 6d 73 67   {ROLLBACK}} msg
3f40: 0a 0a 20 20 7d 20 2d 74 63 6c 62 6f 64 79 20 7b  ..  } -tclbody {
3f50: 0a 20 20 20 20 23 20 49 66 20 61 6e 20 6f 75 74  .    # If an out
3f60: 2d 6f 66 2d 6d 65 6d 6f 72 79 20 6f 63 63 75 72  -of-memory occur
3f70: 73 20 77 69 74 68 69 6e 20 61 20 63 61 6c 6c 20  s within a call 
3f80: 74 6f 20 61 20 56 46 53 20 6c 61 79 65 72 20 66  to a VFS layer f
3f90: 75 6e 63 74 69 6f 6e 20 64 75 72 69 6e 67 0a 20  unction during. 
3fa0: 20 20 20 23 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c     # hot-journal
3fb0: 20 72 6f 6c 6c 62 61 63 6b 2c 20 73 71 6c 69 74   rollback, sqlit
3fc0: 65 20 77 69 6c 6c 20 72 65 70 6f 72 74 20 53 51  e will report SQ
3fd0: 4c 49 54 45 5f 43 4f 52 52 55 50 54 2e 20 53 65  LITE_CORRUPT. Se
3fe0: 65 20 63 6f 6d 6d 69 74 0a 20 20 20 20 23 20 5b  e commit.    # [
3ff0: 35 36 36 38 5d 20 66 6f 72 20 64 65 74 61 69 6c  5668] for detail
4000: 73 2e 0a 20 20 20 20 73 65 74 20 72 63 20 5b 63  s..    set rc [c
4010: 61 74 63 68 20 7b 64 62 20 65 76 61 6c 20 7b 20  atch {db eval { 
4020: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 61 62  SELECT * FROM ab
4030: 63 20 4c 49 4d 49 54 20 31 30 20 7d 7d 20 6d 73  c LIMIT 10 }} ms
4040: 67 5d 0a 20 20 20 20 69 66 20 7b 24 6d 73 67 20  g].    if {$msg 
4050: 65 71 20 22 64 61 74 61 62 61 73 65 20 64 69 73  eq "database dis
4060: 6b 20 69 6d 61 67 65 20 69 73 20 6d 61 6c 66 6f  k image is malfo
4070: 72 6d 65 64 22 7d 20 7b 20 73 65 74 20 6d 73 67  rmed"} { set msg
4080: 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22   "out of memory"
4090: 20 7d 0a 20 20 20 20 69 66 20 7b 24 72 63 7d 20   }.    if {$rc} 
40a0: 7b 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a 20  { error $msg }. 
40b0: 20 20 20 73 65 74 20 6d 73 67 0a 20 20 7d 20 2d     set msg.  } -
40c0: 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20 20 73 65  cleanup {.    se
40d0: 74 20 65 20 5b 64 62 20 65 76 61 6c 20 7b 50 52  t e [db eval {PR
40e0: 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f 63  AGMA integrity_c
40f0: 68 65 63 6b 7d 5d 0a 20 20 20 20 69 66 20 7b 24  heck}].    if {$
4100: 65 20 6e 65 20 22 6f 6b 22 7d 20 7b 65 72 72 6f  e ne "ok"} {erro
4110: 72 20 24 65 7d 0a 20 20 7d 0a 7d 0a 0a 69 66 63  r $e}.  }.}..ifc
4120: 61 70 61 62 6c 65 20 63 6f 6d 70 6f 75 6e 64 20  apable compound 
4130: 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  {.  do_malloc_te
4140: 73 74 20 32 34 20 2d 73 71 6c 70 72 65 70 20 7b  st 24 -sqlprep {
4150: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
4160: 45 20 74 31 28 61 2c 20 62 2c 20 63 29 0a 20 20  E t1(a, b, c).  
4170: 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 20  } -sqlbody {.   
4180: 20 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20 74   SELECT 1 FROM t
4190: 31 20 55 4e 49 4f 4e 20 53 45 4c 45 43 54 20 32  1 UNION SELECT 2
41a0: 20 46 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42   FROM t1 ORDER B
41b0: 59 20 31 0a 20 20 7d 0a 7d 0a 0a 69 66 63 61 70  Y 1.  }.}..ifcap
41c0: 61 62 6c 65 20 76 69 65 77 26 26 74 72 69 67 67  able view&&trigg
41d0: 65 72 20 7b 0a 20 20 64 6f 5f 6d 61 6c 6c 6f 63  er {.  do_malloc
41e0: 5f 74 65 73 74 20 32 35 20 2d 73 71 6c 70 72 65  _test 25 -sqlpre
41f0: 70 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54  p {.    CREATE T
4200: 41 42 4c 45 20 74 31 28 61 2c 20 62 2c 20 63 29  ABLE t1(a, b, c)
4210: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 56 49 45  ;.    CREATE VIE
4220: 57 20 76 31 20 41 53 20 53 45 4c 45 43 54 20 2a  W v1 AS SELECT *
4230: 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20 43 52   FROM t1;.    CR
4240: 45 41 54 45 20 54 52 49 47 47 45 52 20 76 31 74  EATE TRIGGER v1t
4250: 31 20 49 4e 53 54 45 41 44 20 4f 46 20 44 45 4c  1 INSTEAD OF DEL
4260: 45 54 45 20 4f 4e 20 76 31 20 42 45 47 49 4e 20  ETE ON v1 BEGIN 
4270: 53 45 4c 45 43 54 20 31 3b 20 45 4e 44 3b 0a 20  SELECT 1; END;. 
4280: 20 20 20 43 52 45 41 54 45 20 54 52 49 47 47 45     CREATE TRIGGE
4290: 52 20 76 31 74 32 20 49 4e 53 54 45 41 44 20 4f  R v1t2 INSTEAD O
42a0: 46 20 49 4e 53 45 52 54 20 4f 4e 20 76 31 20 42  F INSERT ON v1 B
42b0: 45 47 49 4e 20 53 45 4c 45 43 54 20 31 3b 20 45  EGIN SELECT 1; E
42c0: 4e 44 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54  ND;.    CREATE T
42d0: 52 49 47 47 45 52 20 76 31 74 33 20 49 4e 53 54  RIGGER v1t3 INST
42e0: 45 41 44 20 4f 46 20 55 50 44 41 54 45 20 4f 4e  EAD OF UPDATE ON
42f0: 20 76 31 20 42 45 47 49 4e 20 53 45 4c 45 43 54   v1 BEGIN SELECT
4300: 20 31 3b 20 45 4e 44 3b 0a 20 20 7d 20 2d 73 71   1; END;.  } -sq
4310: 6c 62 6f 64 79 20 7b 0a 20 20 20 20 44 45 4c 45  lbody {.    DELE
4320: 54 45 20 46 52 4f 4d 20 76 31 20 57 48 45 52 45  TE FROM v1 WHERE
4330: 20 61 20 3d 20 31 3b 0a 20 20 20 20 49 4e 53 45   a = 1;.    INSE
4340: 52 54 20 49 4e 54 4f 20 76 31 20 56 41 4c 55 45  RT INTO v1 VALUE
4350: 53 28 31 2c 20 32 2c 20 33 29 3b 0a 20 20 20 20  S(1, 2, 3);.    
4360: 55 50 44 41 54 45 20 76 31 20 53 45 54 20 61 20  UPDATE v1 SET a 
4370: 3d 20 31 20 57 48 45 52 45 20 62 20 3d 20 32 3b  = 1 WHERE b = 2;
4380: 0a 20 20 7d 0a 7d 0a 0a 64 6f 5f 6d 61 6c 6c 6f  .  }.}..do_mallo
4390: 63 5f 74 65 73 74 20 32 35 20 2d 73 71 6c 70 72  c_test 25 -sqlpr
43a0: 65 70 20 7b 0a 20 20 43 52 45 41 54 45 20 54 41  ep {.  CREATE TA
43b0: 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29  BLE abc(a, b, c)
43c0: 3b 0a 20 20 43 52 45 41 54 45 20 49 4e 44 45 58  ;.  CREATE INDEX
43d0: 20 69 31 20 4f 4e 20 61 62 63 28 61 2c 20 62 29   i1 ON abc(a, b)
43e0: 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  ;.  INSERT INTO 
43f0: 61 62 63 20 56 41 4c 55 45 53 28 31 2c 20 32 2c  abc VALUES(1, 2,
4400: 20 33 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e   3);.  INSERT IN
4410: 54 4f 20 61 62 63 20 56 41 4c 55 45 53 28 34 2c  TO abc VALUES(4,
4420: 20 35 2c 20 36 29 3b 0a 7d 20 2d 74 63 6c 62 6f   5, 6);.} -tclbo
4430: 64 79 20 7b 0a 20 20 23 20 46 6f 72 20 65 61 63  dy {.  # For eac
4440: 68 20 55 50 44 41 54 45 20 65 78 65 63 75 74 65  h UPDATE execute
4450: 64 2c 20 74 68 65 20 63 75 72 73 6f 72 20 75 73  d, the cursor us
4460: 65 64 20 66 6f 72 20 74 68 65 20 53 45 4c 45 43  ed for the SELEC
4470: 54 20 73 74 61 74 65 6d 65 6e 74 0a 20 20 23 20  T statement.  # 
4480: 6d 75 73 74 20 62 65 20 22 73 61 76 65 64 22 2e  must be "saved".
4490: 20 42 65 63 61 75 73 65 20 74 68 65 20 63 75 72   Because the cur
44a0: 73 6f 72 20 69 73 20 6f 70 65 6e 20 6f 6e 20 61  sor is open on a
44b0: 6e 20 69 6e 64 65 78 2c 20 74 68 69 73 20 72 65  n index, this re
44c0: 71 75 69 72 65 73 0a 20 20 23 20 61 20 6d 61 6c  quires.  # a mal
44d0: 6c 6f 63 28 29 20 74 6f 20 61 6c 6c 6f 63 61 74  loc() to allocat
44e0: 65 20 73 70 61 63 65 20 74 6f 20 73 61 76 65 20  e space to save 
44f0: 74 68 65 20 69 6e 64 65 78 20 6b 65 79 2e 20 54  the index key. T
4500: 68 69 73 20 74 65 73 74 20 63 61 73 65 20 69 73  his test case is
4510: 0a 20 20 23 20 61 69 6d 65 64 20 61 74 20 74 65  .  # aimed at te
4520: 73 74 69 6e 67 20 74 68 65 20 72 65 73 70 6f 6e  sting the respon
4530: 73 65 20 6f 66 20 74 68 65 20 6c 69 62 72 61 72  se of the librar
4540: 79 20 74 6f 20 61 20 66 61 69 6c 75 72 65 20 69  y to a failure i
4550: 6e 20 74 68 61 74 0a 20 20 23 20 70 61 72 74 69  n that.  # parti
4560: 63 75 6c 61 72 20 6d 61 6c 6c 6f 63 28 29 20 63  cular malloc() c
4570: 61 6c 6c 2e 0a 20 20 64 62 20 65 76 61 6c 20 7b  all..  db eval {
4580: 53 45 4c 45 43 54 20 61 20 46 52 4f 4d 20 61 62  SELECT a FROM ab
4590: 63 20 4f 52 44 45 52 20 42 59 20 61 7d 20 7b 0a  c ORDER BY a} {.
45a0: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 55 50 44      db eval {UPD
45b0: 41 54 45 20 61 62 63 20 53 45 54 20 62 20 3d 20  ATE abc SET b = 
45c0: 62 20 2d 20 31 20 57 48 45 52 45 20 61 20 3d 20  b - 1 WHERE a = 
45d0: 24 61 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 54 68 69  $a}.  }.}..# Thi
45e0: 73 20 74 65 73 74 20 69 73 20 64 65 73 69 67 6e  s test is design
45f0: 65 64 20 74 6f 20 74 65 73 74 20 61 20 73 70 65  ed to test a spe
4600: 63 69 66 69 63 20 6a 75 6e 63 74 75 72 65 20 69  cific juncture i
4610: 6e 20 74 68 65 20 73 71 6c 69 74 65 20 63 6f 64  n the sqlite cod
4620: 65 2e 0a 23 20 54 68 65 20 64 61 74 61 62 61 73  e..# The databas
4630: 65 20 73 65 74 20 75 70 20 62 79 20 2d 73 71 6c  e set up by -sql
4640: 70 72 65 70 20 73 63 72 69 70 74 20 63 6f 6e 74  prep script cont
4650: 61 69 6e 73 20 61 20 73 69 6e 67 6c 65 20 74 61  ains a single ta
4660: 62 6c 65 20 42 2d 54 72 65 65 0a 23 20 6f 66 20  ble B-Tree.# of 
4670: 68 65 69 67 68 74 20 32 2e 20 49 6e 20 74 68 65  height 2. In the
4680: 20 2d 74 63 6c 62 6f 64 79 20 73 63 72 69 70 74   -tclbody script
4690: 2c 20 74 68 65 20 65 78 69 73 74 69 6e 67 20 64  , the existing d
46a0: 61 74 61 62 61 73 65 20 63 6f 6e 6e 65 63 74 69  atabase connecti
46b0: 6f 6e 0a 23 20 69 73 20 63 6c 6f 73 65 64 20 61  on.# is closed a
46c0: 6e 64 20 61 20 6e 65 77 20 6f 6e 65 20 6f 70 65  nd a new one ope
46d0: 6e 65 64 20 61 6e 64 20 75 73 65 64 20 74 6f 20  ned and used to 
46e0: 69 6e 73 65 72 74 20 61 20 6e 65 77 20 72 6f 77  insert a new row
46f0: 20 69 6e 74 6f 20 74 68 65 0a 23 20 74 61 62 6c   into the.# tabl
4700: 65 20 42 2d 54 72 65 65 2e 20 42 79 20 75 73 69  e B-Tree. By usi
4710: 6e 67 20 61 20 6e 65 77 20 63 6f 6e 6e 65 63 74  ng a new connect
4720: 69 6f 6e 2c 20 74 68 65 20 6f 75 74 63 6f 6d 65  ion, the outcome
4730: 20 6f 66 20 61 20 6d 61 6c 6c 6f 63 28 29 20 0a   of a malloc() .
4740: 23 20 66 61 69 6c 75 72 65 20 77 68 69 6c 65 20  # failure while 
4750: 73 65 65 6b 69 6e 67 20 74 6f 20 74 68 65 20 72  seeking to the r
4760: 69 67 68 74 2d 68 61 6e 64 20 73 69 64 65 20 6f  ight-hand side o
4770: 66 20 74 68 65 20 42 2d 54 72 65 65 20 74 6f 20  f the B-Tree to 
4780: 69 6e 73 65 72 74 20 0a 23 20 61 20 6e 65 77 20  insert .# a new 
4790: 72 65 63 6f 72 64 20 63 61 6e 20 62 65 20 74 65  record can be te
47a0: 73 74 65 64 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f  sted..#.do_mallo
47b0: 63 5f 74 65 73 74 20 32 36 20 2d 73 71 6c 70 72  c_test 26 -sqlpr
47c0: 65 70 20 7b 0a 20 20 42 45 47 49 4e 3b 0a 20 20  ep {.  BEGIN;.  
47d0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28  CREATE TABLE t1(
47e0: 61 2c 20 62 29 3b 0a 20 20 49 4e 53 45 52 54 20  a, b);.  INSERT 
47f0: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31  INTO t1 VALUES(1
4800: 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 32 31 30  , randomblob(210
4810: 29 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  ));.  INSERT INT
4820: 4f 20 74 31 20 56 41 4c 55 45 53 28 31 2c 20 72  O t1 VALUES(1, r
4830: 61 6e 64 6f 6d 62 6c 6f 62 28 32 31 30 29 29 3b  andomblob(210));
4840: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  .  INSERT INTO t
4850: 31 20 56 41 4c 55 45 53 28 31 2c 20 72 61 6e 64  1 VALUES(1, rand
4860: 6f 6d 62 6c 6f 62 28 32 31 30 29 29 3b 0a 20 20  omblob(210));.  
4870: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
4880: 41 4c 55 45 53 28 31 2c 20 72 61 6e 64 6f 6d 62  ALUES(1, randomb
4890: 6c 6f 62 28 32 31 30 29 29 3b 0a 20 20 49 4e 53  lob(210));.  INS
48a0: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
48b0: 45 53 28 31 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62  ES(1, randomblob
48c0: 28 32 31 30 29 29 3b 0a 20 20 43 4f 4d 4d 49 54  (210));.  COMMIT
48d0: 3b 0a 7d 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20  ;.} -tclbody {. 
48e0: 20 64 62 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69   db close.  sqli
48f0: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20  te3 db test.db. 
4900: 20 64 62 20 65 76 61 6c 20 7b 20 49 4e 53 45 52   db eval { INSER
4910: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
4920: 28 31 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 32  (1, randomblob(2
4930: 31 30 29 29 20 7d 0a 7d 0a 0a 23 20 54 65 73 74  10)) }.}..# Test
4940: 20 74 68 61 74 20 6e 6f 20 6d 65 6d 6f 72 79 20   that no memory 
4950: 69 73 20 6c 65 61 6b 65 64 20 66 6f 6c 6c 6f 77  is leaked follow
4960: 69 6e 67 20 61 20 6d 61 6c 6c 6f 63 28 29 20 66  ing a malloc() f
4970: 61 69 6c 75 72 65 20 69 6e 0a 23 20 73 71 6c 69  ailure in.# sqli
4980: 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a 65 28 29  te3_initialize()
4990: 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65  ..#.do_malloc_te
49a0: 73 74 20 32 37 20 2d 74 63 6c 70 72 65 70 20 7b  st 27 -tclprep {
49b0: 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 73 71  .  db close.  sq
49c0: 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e 0a 7d  lite3_shutdown.}
49d0: 20 2d 74 63 6c 62 6f 64 79 20 7b 0a 20 20 73 65   -tclbody {.  se
49e0: 74 20 72 63 20 5b 73 71 6c 69 74 65 33 5f 69 6e  t rc [sqlite3_in
49f0: 69 74 69 61 6c 69 7a 65 5d 0a 20 20 69 66 20 7b  itialize].  if {
4a00: 24 72 63 20 3d 3d 20 22 53 51 4c 49 54 45 5f 4e  $rc == "SQLITE_N
4a10: 4f 4d 45 4d 22 7d 20 7b 0a 20 20 20 20 65 72 72  OMEM"} {.    err
4a20: 6f 72 20 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72  or "out of memor
4a30: 79 22 0a 20 20 7d 0a 7d 0a 61 75 74 6f 69 6e 73  y".  }.}.autoins
4a40: 74 61 6c 6c 5f 74 65 73 74 5f 66 75 6e 63 74 69  tall_test_functi
4a50: 6f 6e 73 0a 0a 23 20 54 65 73 74 20 74 68 61 74  ons..# Test that
4a60: 20 6d 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65 73   malloc failures
4a70: 20 74 68 61 74 20 6f 63 63 75 72 20 77 68 69 6c   that occur whil
4a80: 65 20 70 72 6f 63 65 73 73 69 6e 67 20 49 4e 44  e processing IND
4a90: 45 58 45 44 20 42 59 0a 23 20 63 6c 61 75 73 65  EXED BY.# clause
4aa0: 73 20 61 72 65 20 68 61 6e 64 6c 65 64 20 63 6f  s are handled co
4ab0: 72 72 65 63 74 6c 79 2e 0a 64 6f 5f 6d 61 6c 6c  rrectly..do_mall
4ac0: 6f 63 5f 74 65 73 74 20 32 38 20 2d 73 71 6c 70  oc_test 28 -sqlp
4ad0: 72 65 70 20 7b 0a 20 20 43 52 45 41 54 45 20 54  rep {.  CREATE T
4ae0: 41 42 4c 45 20 74 31 28 61 2c 20 62 29 3b 0a 20  ABLE t1(a, b);. 
4af0: 20 43 52 45 41 54 45 20 49 4e 44 45 58 20 69 31   CREATE INDEX i1
4b00: 20 4f 4e 20 74 31 28 61 29 3b 0a 20 20 43 52 45   ON t1(a);.  CRE
4b10: 41 54 45 20 56 49 45 57 20 76 31 20 41 53 20 53  ATE VIEW v1 AS S
4b20: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20  ELECT * FROM t1 
4b30: 49 4e 44 45 58 45 44 20 42 59 20 69 31 20 57 48  INDEXED BY i1 WH
4b40: 45 52 45 20 61 20 3d 20 31 30 3b 0a 7d 20 2d 73  ERE a = 10;.} -s
4b50: 71 6c 62 6f 64 79 20 7b 0a 20 20 53 45 4c 45 43  qlbody {.  SELEC
4b60: 54 20 2a 20 46 52 4f 4d 20 74 31 20 49 4e 44 45  T * FROM t1 INDE
4b70: 58 45 44 20 42 59 20 69 31 20 4f 52 44 45 52 20  XED BY i1 ORDER 
4b80: 42 59 20 61 3b 0a 20 20 53 45 4c 45 43 54 20 2a  BY a;.  SELECT *
4b90: 20 46 52 4f 4d 20 76 31 3b 0a 7d 0a 0a 64 6f 5f   FROM v1;.}..do_
4ba0: 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 32 39 20 2d  malloc_test 29 -
4bb0: 73 71 6c 70 72 65 70 20 7b 0a 20 20 43 52 45 41  sqlprep {.  CREA
4bc0: 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 54 45  TE TABLE t1(a TE
4bd0: 58 54 2c 20 62 20 54 45 58 54 29 3b 0a 7d 20 2d  XT, b TEXT);.} -
4be0: 73 71 6c 62 6f 64 79 20 7b 0a 20 20 49 4e 53 45  sqlbody {.  INSE
4bf0: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
4c00: 53 28 31 2c 20 2d 32 33 34 29 3b 0a 20 20 49 4e  S(1, -234);.  IN
4c10: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
4c20: 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 55 4e  ECT * FROM t1 UN
4c30: 49 4f 4e 20 41 4c 4c 20 53 45 4c 45 43 54 20 2a  ION ALL SELECT *
4c40: 20 46 52 4f 4d 20 74 31 3b 0a 7d 0a 0a 64 6f 5f   FROM t1;.}..do_
4c50: 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 33 30 20 2d  malloc_test 30 -
4c60: 74 63 6c 70 72 65 70 20 7b 0a 20 20 64 62 20 65  tclprep {.  db e
4c70: 76 61 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45  val {.    CREATE
4c80: 20 54 41 42 4c 45 20 74 31 28 78 20 50 52 49 4d   TABLE t1(x PRIM
4c90: 41 52 59 20 4b 45 59 29 3b 0a 20 20 20 20 49 4e  ARY KEY);.    IN
4ca0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
4cb0: 55 45 53 28 72 61 6e 64 73 74 72 28 35 30 30 2c  UES(randstr(500,
4cc0: 35 30 30 29 29 3b 0a 20 20 20 20 49 4e 53 45 52  500));.    INSER
4cd0: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
4ce0: 28 72 61 6e 64 73 74 72 28 35 30 30 2c 35 30 30  (randstr(500,500
4cf0: 29 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  ));.    INSERT I
4d00: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 72 61  NTO t1 VALUES(ra
4d10: 6e 64 73 74 72 28 35 30 30 2c 35 30 30 29 29 3b  ndstr(500,500));
4d20: 0a 20 20 7d 0a 20 20 64 62 20 63 6c 6f 73 65 0a  .  }.  db close.
4d30: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73    sqlite3 db tes
4d40: 74 2e 64 62 0a 0a 20 20 23 20 54 68 65 20 44 45  t.db..  # The DE
4d50: 4c 45 54 45 20 63 6f 6d 6d 61 6e 64 20 69 6e 20  LETE command in 
4d60: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 62 6c  the following bl
4d70: 6f 63 6b 20 6d 6f 76 65 73 20 74 68 65 20 6f 76  ock moves the ov
4d80: 65 72 66 6c 6f 77 20 70 61 67 65 73 20 74 68 61  erflow pages tha
4d90: 74 0a 20 20 23 20 61 72 65 20 70 61 72 74 20 6f  t.  # are part o
4da0: 66 20 74 68 65 20 70 72 69 6d 61 72 79 20 6b 65  f the primary ke
4db0: 79 20 69 6e 64 65 78 20 74 6f 20 74 68 65 20 66  y index to the f
4dc0: 72 65 65 2d 6c 69 73 74 2e 20 42 75 74 20 69 74  ree-list. But it
4dd0: 20 64 6f 65 73 20 6e 6f 74 0a 20 20 23 20 61 63   does not.  # ac
4de0: 74 75 61 6c 6c 79 20 6c 6f 61 64 20 74 68 65 20  tually load the 
4df0: 63 6f 6e 74 65 6e 74 20 6f 66 20 74 68 65 20 70  content of the p
4e00: 61 67 65 73 2e 20 54 68 69 73 20 6c 65 61 64 73  ages. This leads
4e10: 20 74 6f 20 74 68 65 20 70 65 63 75 6c 69 61 72   to the peculiar
4e20: 0a 20 20 23 20 73 69 74 75 61 74 69 6f 6e 20 77  .  # situation w
4e30: 68 65 72 65 20 63 61 63 68 65 20 65 6e 74 72 69  here cache entri
4e40: 65 73 20 65 78 69 73 74 2c 20 62 75 74 20 61 72  es exist, but ar
4e50: 65 20 6e 6f 74 20 70 6f 70 75 6c 61 74 65 64 20  e not populated 
4e60: 77 69 74 68 20 64 61 74 61 2e 0a 20 20 23 20 54  with data..  # T
4e70: 68 65 79 20 61 72 65 20 70 6f 70 75 6c 61 74 65  hey are populate
4e80: 64 20 6e 65 78 74 20 74 69 6d 65 20 74 68 65 79  d next time they
4e90: 20 61 72 65 20 72 65 71 75 65 73 74 65 64 20 62   are requested b
4ea0: 79 20 74 68 65 20 62 2d 74 72 65 65 20 6c 61 79  y the b-tree lay
4eb0: 65 72 2e 0a 20 20 23 0a 20 20 64 62 20 65 76 61  er..  #.  db eva
4ec0: 6c 20 7b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20  l {.    BEGIN;. 
4ed0: 20 20 20 20 20 44 45 4c 45 54 45 20 46 52 4f 4d       DELETE FROM
4ee0: 20 74 31 3b 0a 20 20 20 20 52 4f 4c 4c 42 41 43   t1;.    ROLLBAC
4ef0: 4b 3b 0a 20 20 7d 0a 7d 20 2d 73 71 6c 62 6f 64  K;.  }.} -sqlbod
4f00: 79 20 7b 0a 20 20 2d 2d 20 54 68 69 73 20 73 74  y {.  -- This st
4f10: 61 74 65 6d 65 6e 74 20 72 65 71 75 69 72 65 73  atement requires
4f20: 20 74 68 65 20 27 6e 6f 2d 63 6f 6e 74 65 6e 74   the 'no-content
4f30: 27 20 70 61 67 65 73 20 6c 6f 61 64 65 64 20 62  ' pages loaded b
4f40: 79 20 74 68 65 20 44 45 4c 45 54 45 0a 20 20 2d  y the DELETE.  -
4f50: 2d 20 73 74 61 74 65 6d 65 6e 74 20 61 62 6f 76  - statement abov
4f60: 65 2e 20 57 68 65 6e 20 72 65 71 75 65 73 74 69  e. When requesti
4f70: 6e 67 20 74 68 65 20 70 61 67 65 73 2c 20 74 68  ng the pages, th
4f80: 65 20 63 6f 6e 74 65 6e 74 20 69 73 20 6c 6f 61  e content is loa
4f90: 64 65 64 0a 20 20 2d 2d 20 66 72 6f 6d 20 74 68  ded.  -- from th
4fa0: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 2e  e database file.
4fb0: 20 54 68 65 20 70 6f 69 6e 74 20 6f 66 20 74 68   The point of th
4fc0: 69 73 20 74 65 73 74 20 63 61 73 65 20 69 73 20  is test case is 
4fd0: 74 6f 20 74 65 73 74 20 68 61 6e 64 6c 69 6e 67  to test handling
4fe0: 0a 20 20 2d 2d 20 6f 66 20 6d 61 6c 6c 6f 63 20  .  -- of malloc 
4ff0: 65 72 72 6f 72 73 20 28 69 6e 63 6c 75 64 69 6e  errors (includin
5000: 67 20 53 51 4c 49 54 45 5f 49 4f 45 52 52 5f 4e  g SQLITE_IOERR_N
5010: 4f 4d 45 4d 20 65 72 72 6f 72 73 29 20 77 68 65  OMEM errors) whe
5020: 6e 20 6c 6f 61 64 69 6e 67 0a 20 20 2d 2d 20 74  n loading.  -- t
5030: 68 65 20 63 6f 6e 74 65 6e 74 2e 0a 20 20 53 45  he content..  SE
5040: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 4f  LECT * FROM t1 O
5050: 52 44 45 52 20 42 59 20 78 3b 0a 7d 0a 0a 23 20  RDER BY x;.}..# 
5060: 41 66 74 65 72 20 63 6f 6d 6d 69 74 74 69 6e 67  After committing
5070: 20 61 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 69   a transaction i
5080: 6e 20 70 65 72 73 69 73 74 65 6e 74 2d 6a 6f 75  n persistent-jou
5090: 72 6e 61 6c 20 6d 6f 64 65 2c 20 69 66 20 61 20  rnal mode, if a 
50a0: 6a 6f 75 72 6e 61 6c 0a 23 20 73 69 7a 65 20 6c  journal.# size l
50b0: 69 6d 69 74 20 69 73 20 63 6f 6e 66 69 67 75 72  imit is configur
50c0: 65 64 20 53 51 4c 69 74 65 20 6d 61 79 20 61 74  ed SQLite may at
50d0: 74 65 6d 70 74 20 74 6f 20 74 72 75 6e 63 61 74  tempt to truncat
50e0: 65 20 74 68 65 20 6a 6f 75 72 6e 61 6c 20 66 69  e the journal fi
50f0: 6c 65 2e 0a 23 20 54 68 69 73 20 74 65 73 74 20  le..# This test 
5100: 76 65 72 69 66 69 65 73 20 74 68 65 20 6c 69 62  verifies the lib
5110: 72 61 72 69 65 73 20 72 65 73 70 6f 6e 73 65 20  raries response 
5120: 74 6f 20 61 20 6d 61 6c 6c 6f 63 28 29 20 66 61  to a malloc() fa
5130: 69 6c 75 72 65 20 64 75 72 69 6e 67 0a 23 20 74  ilure during.# t
5140: 68 69 73 20 6f 70 65 72 61 74 69 6f 6e 2e 0a 23  his operation..#
5150: 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20  .do_malloc_test 
5160: 33 31 20 2d 73 71 6c 70 72 65 70 20 7b 0a 20 20  31 -sqlprep {.  
5170: 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d  PRAGMA journal_m
5180: 6f 64 65 20 3d 20 70 65 72 73 69 73 74 3b 0a 20  ode = persist;. 
5190: 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f   PRAGMA journal_
51a0: 73 69 7a 65 5f 6c 69 6d 69 74 20 3d 20 31 30 32  size_limit = 102
51b0: 34 3b 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c  4;.  CREATE TABL
51c0: 45 20 74 31 28 61 20 50 52 49 4d 41 52 59 20 4b  E t1(a PRIMARY K
51d0: 45 59 2c 20 62 29 3b 0a 7d 20 2d 73 71 6c 62 6f  EY, b);.} -sqlbo
51e0: 64 79 20 7b 0a 20 20 49 4e 53 45 52 54 20 49 4e  dy {.  INSERT IN
51f0: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31 2c 20  TO t1 VALUES(1, 
5200: 32 29 3b 0a 7d 0a 0a 23 20 57 68 65 6e 20 77 72  2);.}..# When wr
5210: 69 74 74 65 6e 2c 20 74 68 69 73 20 74 65 73 74  itten, this test
5220: 20 70 72 6f 76 6f 6b 65 64 20 61 6e 20 6f 62 73   provoked an obs
5230: 63 75 72 65 20 63 68 61 6e 67 65 2d 63 6f 75 6e  cure change-coun
5240: 74 65 72 20 62 75 67 2e 0a 23 20 0a 23 20 49 66  ter bug..# .# If
5250: 2c 20 77 68 65 6e 20 72 75 6e 6e 69 6e 67 20 69  , when running i
5260: 6e 20 65 78 63 6c 75 73 69 76 65 20 6d 6f 64 65  n exclusive mode
5270: 2c 20 61 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69  , a malloc() fai
5280: 6c 75 72 65 20 6f 63 63 75 72 73 0a 23 20 61 66  lure occurs.# af
5290: 74 65 72 20 74 68 65 20 64 61 74 61 62 61 73 65  ter the database
52a0: 20 66 69 6c 65 20 63 68 61 6e 67 65 2d 63 6f 75   file change-cou
52b0: 6e 74 65 72 20 68 61 73 20 62 65 65 6e 20 77 72  nter has been wr
52c0: 69 74 74 65 6e 20 62 75 74 0a 23 20 62 65 66 6f  itten but.# befo
52d0: 72 65 20 74 68 65 20 74 72 61 6e 73 61 63 74 69  re the transacti
52e0: 6f 6e 20 68 61 73 20 62 65 65 6e 20 63 6f 6d 6d  on has been comm
52f0: 69 74 74 65 64 2c 20 74 68 65 6e 20 74 68 65 20  itted, then the 
5300: 74 72 61 6e 73 61 63 74 69 6f 6e 0a 23 20 69 73  transaction.# is
5310: 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 72   automatically r
5320: 6f 6c 6c 65 64 20 62 61 63 6b 2e 20 48 6f 77 65  olled back. Howe
5330: 76 65 72 2c 20 69 6e 74 65 72 6e 61 6c 6c 79 20  ver, internally 
5340: 74 68 65 20 0a 23 20 50 61 67 65 72 2e 63 68 61  the .# Pager.cha
5350: 6e 67 65 43 6f 75 6e 74 65 72 44 6f 6e 65 20 66  ngeCounterDone f
5360: 6c 61 67 20 77 61 73 20 62 65 69 6e 67 20 6c 65  lag was being le
5370: 66 74 20 73 65 74 2e 20 54 68 69 73 20 6d 65 61  ft set. This mea
5380: 6e 73 0a 23 20 74 68 61 74 20 69 66 20 74 68 65  ns.# that if the
5390: 20 73 61 6d 65 20 63 6f 6e 6e 65 63 74 69 6f 6e   same connection
53a0: 20 61 74 74 65 6d 70 74 73 20 61 6e 6f 74 68 65   attempts anothe
53b0: 72 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 66 6f  r transaction fo
53c0: 6c 6c 6f 77 69 6e 67 0a 23 20 74 68 65 20 6d 61  llowing.# the ma
53d0: 6c 6c 6f 63 20 66 61 69 6c 75 72 65 20 61 6e 64  lloc failure and
53e0: 20 72 6f 6c 6c 62 61 63 6b 2c 20 74 68 65 20 63   rollback, the c
53f0: 68 61 6e 67 65 20 63 6f 75 6e 74 65 72 20 77 69  hange counter wi
5400: 6c 6c 20 6e 6f 74 0a 23 20 62 65 20 75 70 64 61  ll not.# be upda
5410: 74 65 64 2e 20 54 68 69 73 20 63 6f 75 6c 64 20  ted. This could 
5420: 63 6f 72 72 75 70 74 20 61 6e 6f 74 68 65 72 20  corrupt another 
5430: 70 72 6f 63 65 73 73 65 73 20 63 61 63 68 65 2e  processes cache.
5440: 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73  .#.do_malloc_tes
5450: 74 20 33 32 20 2d 74 63 6c 70 72 65 70 20 7b 0a  t 32 -tclprep {.
5460: 20 20 23 20 42 75 69 6c 64 20 61 20 73 6d 61 6c    # Build a smal
5470: 6c 20 64 61 74 61 62 61 73 65 20 63 6f 6e 74 61  l database conta
5480: 69 6e 69 6e 67 20 61 6e 20 69 6e 64 65 78 65 64  ining an indexed
5490: 20 74 61 62 6c 65 2e 0a 20 20 23 0a 20 20 64 62   table..  #.  db
54a0: 20 65 76 61 6c 20 7b 0a 20 20 20 20 50 52 41 47   eval {.    PRAG
54b0: 4d 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20  MA locking_mode 
54c0: 3d 20 6e 6f 72 6d 61 6c 3b 0a 20 20 20 20 42 45  = normal;.    BE
54d0: 47 49 4e 3b 0a 20 20 20 20 43 52 45 41 54 45 20  GIN;.    CREATE 
54e0: 54 41 42 4c 45 20 74 31 28 61 20 50 52 49 4d 41  TABLE t1(a PRIMA
54f0: 52 59 20 4b 45 59 2c 20 62 29 3b 0a 20 20 20 20  RY KEY, b);.    
5500: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
5510: 41 4c 55 45 53 28 31 2c 20 27 6f 6e 65 27 29 3b  ALUES(1, 'one');
5520: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
5530: 20 74 31 20 56 41 4c 55 45 53 28 32 2c 20 27 74   t1 VALUES(2, 't
5540: 77 6f 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  wo');.    INSERT
5550: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
5560: 33 2c 20 27 74 68 72 65 65 27 29 3b 0a 20 20 20  3, 'three');.   
5570: 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20 50 52 41   COMMIT;.    PRA
5580: 47 4d 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65  GMA locking_mode
5590: 20 3d 20 65 78 63 6c 75 73 69 76 65 3b 0a 20 20   = exclusive;.  
55a0: 7d 0a 0a 20 20 23 20 4f 70 65 6e 20 61 20 73 65  }..  # Open a se
55b0: 63 6f 6e 64 20 64 61 74 61 62 61 73 65 20 63 6f  cond database co
55c0: 6e 6e 65 63 74 69 6f 6e 2e 20 4c 6f 61 64 20 74  nnection. Load t
55d0: 68 65 20 74 61 62 6c 65 20 28 62 75 74 20 6e 6f  he table (but no
55e0: 74 20 69 6e 64 65 78 29 0a 20 20 23 20 69 6e 74  t index).  # int
55f0: 6f 20 74 68 65 20 73 65 63 6f 6e 64 20 63 6f 6e  o the second con
5600: 6e 65 63 74 69 6f 6e 73 20 70 61 67 65 72 20 63  nections pager c
5610: 61 63 68 65 2e 0a 20 20 23 0a 20 20 73 71 6c 69  ache..  #.  sqli
5620: 74 65 33 20 64 62 32 20 74 65 73 74 2e 64 62 0a  te3 db2 test.db.
5630: 20 20 64 62 32 20 65 76 61 6c 20 7b 20 0a 20 20    db2 eval { .  
5640: 20 20 50 52 41 47 4d 41 20 6c 6f 63 6b 69 6e 67    PRAGMA locking
5650: 5f 6d 6f 64 65 20 3d 20 6e 6f 72 6d 61 6c 3b 0a  _mode = normal;.
5660: 20 20 20 20 53 45 4c 45 43 54 20 62 20 46 52 4f      SELECT b FRO
5670: 4d 20 74 31 3b 0a 20 20 7d 0a 0a 7d 20 2d 74 63  M t1;.  }..} -tc
5680: 6c 62 6f 64 79 20 7b 0a 20 20 23 20 52 75 6e 6e  lbody {.  # Runn
5690: 69 6e 67 20 69 6e 20 65 78 63 6c 75 73 69 76 65  ing in exclusive
56a0: 20 6d 6f 64 65 2c 20 70 65 72 66 6f 72 6d 20 61   mode, perform a
56b0: 20 64 61 74 61 62 61 73 65 20 74 72 61 6e 73 61   database transa
56c0: 63 74 69 6f 6e 20 74 68 61 74 20 0a 20 20 23 20  ction that .  # 
56d0: 6d 6f 64 69 66 69 65 73 20 62 6f 74 68 20 74 68  modifies both th
56e0: 65 20 64 61 74 61 62 61 73 65 20 74 61 62 6c 65  e database table
56f0: 20 61 6e 64 20 69 6e 64 65 78 2e 20 46 6f 72 20   and index. For 
5700: 69 74 65 72 61 74 69 6f 6e 73 20 77 68 65 72 65  iterations where
5710: 0a 20 20 23 20 74 68 65 20 6d 61 6c 6c 6f 63 20  .  # the malloc 
5720: 66 61 69 6c 75 72 65 20 6f 63 63 75 72 73 20 61  failure occurs a
5730: 66 74 65 72 20 75 70 64 61 74 69 6e 67 20 74 68  fter updating th
5740: 65 20 63 68 61 6e 67 65 20 63 6f 75 6e 74 65 72  e change counter
5750: 20 62 75 74 0a 20 20 23 20 62 65 66 6f 72 65 20   but.  # before 
5760: 63 6f 6d 6d 69 74 74 69 6e 67 20 74 68 65 20 74  committing the t
5770: 72 61 6e 73 61 63 74 69 6f 6e 2c 20 74 68 69 73  ransaction, this
5780: 20 73 68 6f 75 6c 64 20 72 65 73 75 6c 74 20 69   should result i
5790: 6e 20 74 68 65 0a 20 20 23 20 74 72 61 6e 73 61  n the.  # transa
57a0: 63 74 69 6f 6e 20 62 65 69 6e 67 20 72 6f 6c 6c  ction being roll
57b0: 65 64 20 62 61 63 6b 20 62 75 74 20 74 68 65 20  ed back but the 
57c0: 63 68 61 6e 67 65 43 6f 75 6e 74 65 72 44 6f 6e  changeCounterDon
57d0: 65 20 66 6c 61 67 0a 20 20 23 20 6c 65 66 74 20  e flag.  # left 
57e0: 73 65 74 2e 0a 20 20 23 0a 20 20 64 62 20 65 76  set..  #.  db ev
57f0: 61 6c 20 7b 20 55 50 44 41 54 45 20 74 31 20 53  al { UPDATE t1 S
5800: 45 54 20 61 20 3d 20 61 20 2b 20 33 20 7d 0a 7d  ET a = a + 3 }.}
5810: 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 0a 20 20 23   -cleanup {..  #
5820: 20 50 65 72 66 6f 72 6d 20 61 6e 6f 74 68 65 72   Perform another
5830: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 75 73 69   transaction usi
5840: 6e 67 20 74 68 65 20 66 69 72 73 74 20 63 6f 6e  ng the first con
5850: 6e 65 63 74 69 6f 6e 2e 20 55 6e 6c 6f 63 6b 0a  nection. Unlock.
5860: 20 20 23 20 74 68 65 20 64 61 74 61 62 61 73 65    # the database
5870: 20 61 66 74 65 72 20 64 6f 69 6e 67 20 73 6f 2e   after doing so.
5880: 20 49 66 20 74 68 69 73 20 69 73 20 6f 6e 65 20   If this is one 
5890: 6f 66 20 74 68 65 20 72 69 67 68 74 20 69 74 65  of the right ite
58a0: 72 61 74 69 6f 6e 73 2c 0a 20 20 23 20 74 68 65  rations,.  # the
58b0: 6e 20 74 68 69 73 20 73 68 6f 75 6c 64 20 72 65  n this should re
58c0: 73 75 6c 74 20 69 6e 20 74 68 65 20 64 61 74 61  sult in the data
58d0: 62 61 73 65 20 63 6f 6e 74 65 6e 74 73 20 62 65  base contents be
58e0: 69 6e 67 20 75 70 64 61 74 65 64 20 62 75 74 0a  ing updated but.
58f0: 20 20 23 20 74 68 65 20 63 68 61 6e 67 65 2d 63    # the change-c
5900: 6f 75 6e 74 65 72 20 6c 65 66 74 20 61 73 20 69  ounter left as i
5910: 74 20 69 73 2e 0a 20 20 23 0a 20 20 64 62 20 65  t is..  #.  db e
5920: 76 61 6c 20 7b 20 0a 20 20 20 20 50 52 41 47 4d  val { .    PRAGM
5930: 41 20 6c 6f 63 6b 69 6e 67 5f 6d 6f 64 65 20 3d  A locking_mode =
5940: 20 6e 6f 72 6d 61 6c 3b 0a 20 20 20 20 55 50 44   normal;.    UPD
5950: 41 54 45 20 74 31 20 53 45 54 20 61 20 3d 20 61  ATE t1 SET a = a
5960: 20 2b 20 33 3b 0a 20 20 7d 0a 0a 20 20 23 20 4e   + 3;.  }..  # N
5970: 6f 77 20 64 6f 20 61 6e 20 69 6e 74 65 67 72 69  ow do an integri
5980: 74 79 20 63 68 65 63 6b 20 77 69 74 68 20 74 68  ty check with th
5990: 65 20 73 65 63 6f 6e 64 20 63 6f 6e 6e 65 63 74  e second connect
59a0: 69 6f 6e 2e 20 54 68 65 20 73 65 63 6f 6e 64 0a  ion. The second.
59b0: 20 20 23 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73    # connection s
59c0: 74 69 6c 6c 20 68 61 73 20 74 68 65 20 64 61 74  till has the dat
59d0: 61 62 61 73 65 20 74 61 62 6c 65 20 69 6e 20 69  abase table in i
59e0: 74 73 20 63 61 63 68 65 2e 20 49 66 20 74 68 69  ts cache. If thi
59f0: 73 20 69 73 0a 20 20 23 20 6f 6e 65 20 6f 66 20  s is.  # one of 
5a00: 74 68 65 20 6d 61 67 69 63 20 69 74 65 72 61 74  the magic iterat
5a10: 69 6f 6e 73 20 61 6e 64 20 74 68 65 20 63 68 61  ions and the cha
5a20: 6e 67 65 20 63 6f 75 6e 74 65 72 20 77 61 73 20  nge counter was 
5a30: 6e 6f 74 20 6d 6f 64 69 66 69 65 64 2c 0a 20 20  not modified,.  
5a40: 23 20 74 68 65 6e 20 69 74 20 77 6f 6e 27 74 20  # then it won't 
5a50: 72 65 61 6c 69 7a 65 20 74 68 61 74 20 74 68 65  realize that the
5a60: 20 63 61 63 68 65 64 20 64 61 74 61 20 69 73 20   cached data is 
5a70: 6f 75 74 20 6f 66 20 64 61 74 65 2e 20 53 69 6e  out of date. Sin
5a80: 63 65 0a 20 20 23 20 74 68 65 20 63 61 63 68 65  ce.  # the cache
5a90: 64 20 64 61 74 61 20 77 6f 6e 27 74 20 6d 61 74  d data won't mat
5aa0: 63 68 20 74 68 65 20 75 70 20 74 6f 20 64 61 74  ch the up to dat
5ab0: 65 20 69 6e 64 65 78 20 64 61 74 61 20 72 65 61  e index data rea
5ac0: 64 20 66 72 6f 6d 0a 20 20 23 20 74 68 65 20 64  d from.  # the d
5ad0: 61 74 61 62 61 73 65 20 66 69 6c 65 2c 20 74 68  atabase file, th
5ae0: 65 20 69 6e 74 65 67 72 69 74 79 20 63 68 65 63  e integrity chec
5af0: 6b 20 73 68 6f 75 6c 64 20 66 61 69 6c 2e 0a 20  k should fail.. 
5b00: 20 23 0a 20 20 73 65 74 20 7a 52 65 70 65 61 74   #.  set zRepeat
5b10: 20 22 74 72 61 6e 73 69 65 6e 74 22 0a 20 20 69   "transient".  i
5b20: 66 20 7b 24 3a 3a 69 52 65 70 65 61 74 7d 20 7b  f {$::iRepeat} {
5b30: 73 65 74 20 7a 52 65 70 65 61 74 20 22 70 65 72  set zRepeat "per
5b40: 73 69 73 74 65 6e 74 22 7d 0a 20 20 64 6f 5f 74  sistent"}.  do_t
5b50: 65 73 74 20 6d 61 6c 6c 6f 63 2d 33 32 2e 24 7a  est malloc-32.$z
5b60: 52 65 70 65 61 74 2e 24 7b 3a 3a 6e 7d 2e 69 6e  Repeat.${::n}.in
5b70: 74 65 67 72 69 74 79 20 7b 0a 20 20 20 20 65 78  tegrity {.    ex
5b80: 65 63 73 71 6c 20 7b 50 52 41 47 4d 41 20 69 6e  ecsql {PRAGMA in
5b90: 74 65 67 72 69 74 79 5f 63 68 65 63 6b 7d 20 64  tegrity_check} d
5ba0: 62 32 0a 20 20 7d 20 7b 6f 6b 7d 0a 20 20 64 62  b2.  } {ok}.  db
5bb0: 32 20 63 6c 6f 73 65 0a 7d 0a 0a 23 20 54 68 65  2 close.}..# The
5bc0: 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 77 6f 20 4f   following two O
5bd0: 4f 4d 20 74 65 73 74 73 20 76 65 72 69 66 79 20  OM tests verify 
5be0: 74 68 61 74 20 4f 4f 4d 20 68 61 6e 64 6c 69 6e  that OOM handlin
5bf0: 67 20 77 6f 72 6b 73 20 69 6e 20 74 68 65 0a 23  g works in the.#
5c00: 20 63 6f 64 65 20 75 73 65 64 20 74 6f 20 6f 70   code used to op
5c10: 74 69 6d 69 7a 65 20 22 53 45 4c 45 43 54 20 63  timize "SELECT c
5c20: 6f 75 6e 74 28 2a 29 20 46 52 4f 4d 20 3c 74 62  ount(*) FROM <tb
5c30: 6c 3e 22 2e 0a 23 0a 64 6f 5f 6d 61 6c 6c 6f 63  l>"..#.do_malloc
5c40: 5f 74 65 73 74 20 33 33 20 2d 74 63 6c 70 72 65  _test 33 -tclpre
5c50: 70 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 20  p {.  db eval { 
5c60: 50 52 41 47 4d 41 20 63 61 63 68 65 5f 73 69 7a  PRAGMA cache_siz
5c70: 65 20 3d 20 31 30 20 7d 0a 20 20 64 62 20 74 72  e = 10 }.  db tr
5c80: 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20  ansaction {.    
5c90: 64 62 20 65 76 61 6c 20 7b 20 43 52 45 41 54 45  db eval { CREATE
5ca0: 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62 29   TABLE abc(a, b)
5cb0: 20 7d 0a 20 20 20 20 66 6f 72 20 7b 73 65 74 20   }.    for {set 
5cc0: 69 20 30 7d 20 7b 24 69 3c 35 30 30 7d 20 7b 69  i 0} {$i<500} {i
5cd0: 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 64  ncr i} {.      d
5ce0: 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49  b eval {INSERT I
5cf0: 4e 54 4f 20 61 62 63 20 56 41 4c 55 45 53 28 72  NTO abc VALUES(r
5d00: 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29 2c  andstr(100,100),
5d10: 20 72 61 6e 64 73 74 72 28 31 30 30 30 2c 31 30   randstr(1000,10
5d20: 30 30 29 29 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a  00))}.    }.  }.
5d30: 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 53  } -sqlbody {.  S
5d40: 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29 20 46  ELECT count(*) F
5d50: 52 4f 4d 20 61 62 63 3b 0a 7d 0a 64 6f 5f 6d 61  ROM abc;.}.do_ma
5d60: 6c 6c 6f 63 5f 74 65 73 74 20 33 34 20 2d 74 63  lloc_test 34 -tc
5d70: 6c 70 72 65 70 20 7b 0a 20 20 64 62 20 65 76 61  lprep {.  db eva
5d80: 6c 20 7b 20 50 52 41 47 4d 41 20 63 61 63 68 65  l { PRAGMA cache
5d90: 5f 73 69 7a 65 20 3d 20 31 30 20 7d 0a 20 20 64  _size = 10 }.  d
5da0: 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a  b transaction {.
5db0: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 20 43 52      db eval { CR
5dc0: 45 41 54 45 20 54 41 42 4c 45 20 61 62 63 28 61  EATE TABLE abc(a
5dd0: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 62 29   PRIMARY KEY, b)
5de0: 20 7d 0a 20 20 20 20 66 6f 72 20 7b 73 65 74 20   }.    for {set 
5df0: 69 20 30 7d 20 7b 24 69 3c 35 30 30 7d 20 7b 69  i 0} {$i<500} {i
5e00: 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20 64  ncr i} {.      d
5e10: 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49  b eval {INSERT I
5e20: 4e 54 4f 20 61 62 63 20 56 41 4c 55 45 53 28 72  NTO abc VALUES(r
5e30: 61 6e 64 73 74 72 28 31 30 30 2c 31 30 30 29 2c  andstr(100,100),
5e40: 20 72 61 6e 64 73 74 72 28 31 30 30 30 2c 31 30   randstr(1000,10
5e50: 30 30 29 29 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a  00))}.    }.  }.
5e60: 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 53  } -sqlbody {.  S
5e70: 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29 20 46  ELECT count(*) F
5e80: 52 4f 4d 20 61 62 63 3b 0a 7d 0a 0a 70 72 6f 63  ROM abc;.}..proc
5e90: 20 66 20 7b 61 72 67 73 7d 20 7b 20 65 72 72 6f   f {args} { erro
5ea0: 72 20 22 51 75 69 74 65 20 61 20 6c 6f 6e 67 20  r "Quite a long 
5eb0: 65 72 72 6f 72 21 22 20 7d 0a 64 6f 5f 6d 61 6c  error!" }.do_mal
5ec0: 6c 6f 63 5f 74 65 73 74 20 33 35 20 2d 74 63 6c  loc_test 35 -tcl
5ed0: 70 72 65 70 20 7b 0a 20 20 64 62 20 66 75 6e 63  prep {.  db func
5ee0: 20 66 20 66 0a 20 20 73 65 74 20 3a 3a 53 54 4d   f f.  set ::STM
5ef0: 54 20 5b 73 71 6c 69 74 65 33 5f 70 72 65 70 61  T [sqlite3_prepa
5f00: 72 65 20 64 62 20 22 53 45 4c 45 43 54 20 66 28  re db "SELECT f(
5f10: 29 22 20 2d 31 20 44 55 4d 4d 59 5d 0a 20 20 73  )" -1 DUMMY].  s
5f20: 71 6c 69 74 65 33 5f 73 74 65 70 20 24 3a 3a 53  qlite3_step $::S
5f30: 54 4d 54 0a 7d 20 2d 74 63 6c 62 6f 64 79 20 7b  TMT.} -tclbody {
5f40: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c  .  sqlite3_final
5f50: 69 7a 65 20 24 3a 3a 53 54 4d 54 0a 7d 20 2d 63  ize $::STMT.} -c
5f60: 6c 65 61 6e 75 70 20 7b 0a 20 20 23 20 41 74 20  leanup {.  # At 
5f70: 6f 6e 65 20 70 6f 69 6e 74 20 61 6e 20 61 73 73  one point an ass
5f80: 65 72 74 28 20 21 64 62 2d 3e 6d 61 6c 6c 6f 63  ert( !db->malloc
5f90: 46 61 69 6c 65 64 20 29 20 63 6f 75 6c 64 20 66  Failed ) could f
5fa0: 61 69 6c 20 69 6e 20 74 68 65 20 66 6f 6c 6c 6f  ail in the follo
5fb0: 77 69 6e 67 0a 20 20 23 20 63 61 6c 6c 20 74 6f  wing.  # call to
5fc0: 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 28   sqlite3_errmsg(
5fd0: 29 2e 20 42 65 63 61 75 73 65 20 73 71 6c 69 74  ). Because sqlit
5fe0: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 29 20 68 61  e3_finalize() ha
5ff0: 64 20 66 61 69 6c 65 64 20 74 6f 20 63 6c 65 61  d failed to clea
6000: 72 0a 20 20 23 20 74 68 65 20 66 6c 61 67 20 62  r.  # the flag b
6010: 65 66 6f 72 65 20 72 65 74 75 72 6e 69 6e 67 2e  efore returning.
6020: 0a 20 20 73 71 6c 69 74 65 33 5f 65 72 72 6d 73  .  sqlite3_errms
6030: 67 31 36 20 64 62 0a 7d 0a 0a 64 6f 5f 6d 61 6c  g16 db.}..do_mal
6040: 6c 6f 63 5f 74 65 73 74 20 33 36 20 2d 73 71 6c  loc_test 36 -sql
6050: 70 72 65 70 20 7b 0a 20 20 43 52 45 41 54 45 20  prep {.  CREATE 
6060: 54 41 42 4c 45 20 74 31 28 61 2c 20 62 29 3b 0a  TABLE t1(a, b);.
6070: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
6080: 20 56 41 4c 55 45 53 28 31 2c 20 32 29 3b 0a 20   VALUES(1, 2);. 
6090: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
60a0: 56 41 4c 55 45 53 28 33 2c 20 34 29 3b 0a 7d 20  VALUES(3, 4);.} 
60b0: 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 53 45 4c  -sqlbody {.  SEL
60c0: 45 43 54 20 74 65 73 74 5f 61 67 67 5f 65 72 72  ECT test_agg_err
60d0: 6d 73 67 31 36 28 29 2c 20 67 72 6f 75 70 5f 63  msg16(), group_c
60e0: 6f 6e 63 61 74 28 61 29 20 46 52 4f 4d 20 74 31  oncat(a) FROM t1
60f0: 0a 7d 0a 0a 23 20 41 74 20 6f 6e 65 20 70 6f 69  .}..# At one poi
6100: 6e 74 2c 20 69 66 20 61 6e 20 4f 4f 4d 20 6f 63  nt, if an OOM oc
6110: 63 75 72 72 65 64 20 69 6d 6d 65 64 69 61 74 65  curred immediate
6120: 6c 79 20 61 66 74 65 72 20 6f 62 74 61 69 6e 69  ly after obtaini
6130: 6e 67 20 61 20 73 68 61 72 65 64 20 6c 6f 63 6b  ng a shared lock
6140: 0a 23 20 6f 6e 20 74 68 65 20 64 61 74 61 62 61  .# on the databa
6150: 73 65 20 66 69 6c 65 2c 20 74 68 65 20 66 69 6c  se file, the fil
6160: 65 20 72 65 6d 61 69 6e 65 64 20 6c 6f 63 6b 65  e remained locke
6170: 64 2e 20 54 68 69 73 20 74 65 73 74 20 63 61 73  d. This test cas
6180: 65 20 65 6e 73 75 72 65 73 0a 23 20 74 68 61 74  e ensures.# that
6190: 20 62 75 67 20 68 61 73 20 62 65 65 6e 20 66 69   bug has been fi
61a0: 78 65 64 2e 69 0a 69 66 20 7b 5b 64 62 20 65 76  xed.i.if {[db ev
61b0: 61 6c 20 7b 50 52 41 47 4d 41 20 6c 6f 63 6b 69  al {PRAGMA locki
61c0: 6e 67 5f 6d 6f 64 65 7d 5d 21 3d 22 65 78 63 6c  ng_mode}]!="excl
61d0: 75 73 69 76 65 22 7d 20 7b 0a 20 20 64 6f 5f 6d  usive"} {.  do_m
61e0: 61 6c 6c 6f 63 5f 74 65 73 74 20 33 37 20 2d 74  alloc_test 37 -t
61f0: 63 6c 70 72 65 70 20 7b 0a 20 20 20 20 73 71 6c  clprep {.    sql
6200: 69 74 65 33 20 64 62 32 20 74 65 73 74 2e 64 62  ite3 db2 test.db
6210: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  .    execsql {. 
6220: 20 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c       CREATE TABL
6230: 45 20 74 31 28 61 2c 20 62 29 3b 0a 20 20 20 20  E t1(a, b);.    
6240: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
6250: 20 56 41 4c 55 45 53 28 31 2c 20 32 29 3b 0a 20   VALUES(1, 2);. 
6260: 20 20 20 7d 20 64 62 32 0a 20 20 7d 20 2d 73 71     } db2.  } -sq
6270: 6c 62 6f 64 79 20 7b 0a 20 20 20 20 53 45 4c 45  lbody {.    SELE
6280: 43 54 20 2a 20 46 52 4f 4d 20 74 31 3b 0a 20 20  CT * FROM t1;.  
6290: 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a 20 20 20  } -cleanup {.   
62a0: 20 23 20 54 72 79 20 74 6f 20 77 72 69 74 65 20   # Try to write 
62b0: 74 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 20  to the database 
62c0: 75 73 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e  using connection
62d0: 20 5b 64 62 32 5d 2e 20 49 66 20 63 6f 6e 6e 65   [db2]. If conne
62e0: 63 74 69 6f 6e 20 5b 64 62 5d 0a 20 20 20 20 23  ction [db].    #
62f0: 20 68 61 73 20 63 6f 72 72 65 63 74 6c 79 20 72   has correctly r
6300: 65 6c 65 61 73 65 64 20 74 68 65 20 73 68 61 72  eleased the shar
6310: 65 64 20 6c 6f 63 6b 2c 20 74 68 69 73 20 77 72  ed lock, this wr
6320: 69 74 65 20 61 74 74 65 6d 70 74 20 73 68 6f 75  ite attempt shou
6330: 6c 64 20 0a 20 20 20 20 23 20 73 75 63 63 65 65  ld .    # succee
6340: 64 2e 20 49 66 20 5b 64 62 5d 20 68 61 73 20 6e  d. If [db] has n
6350: 6f 74 20 72 65 6c 65 61 73 65 64 20 74 68 65 20  ot released the 
6360: 6c 6f 63 6b 2c 20 74 68 69 73 20 73 68 6f 75 6c  lock, this shoul
6370: 64 20 68 69 74 20 61 6e 20 0a 20 20 20 20 23 20  d hit an .    # 
6380: 53 51 4c 49 54 45 5f 42 55 53 59 20 65 72 72 6f  SQLITE_BUSY erro
6390: 72 2e 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 6d  r..    do_test m
63a0: 61 6c 6c 6f 63 2d 33 36 2e 24 7a 52 65 70 65 61  alloc-36.$zRepea
63b0: 74 2e 24 7b 3a 3a 6e 7d 2e 75 6e 6c 6f 63 6b 65  t.${::n}.unlocke
63c0: 64 20 7b 0a 20 20 20 20 20 20 65 78 65 63 73 71  d {.      execsq
63d0: 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  l {INSERT INTO t
63e0: 31 20 56 41 4c 55 45 53 28 33 2c 20 34 29 7d 20  1 VALUES(3, 4)} 
63f0: 64 62 32 0a 20 20 20 20 7d 20 7b 7d 0a 20 20 20  db2.    } {}.   
6400: 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 7d 0a 20   db2 close.  }. 
6410: 20 63 61 74 63 68 20 7b 20 64 62 32 20 63 6c 6f   catch { db2 clo
6420: 73 65 20 7d 0a 7d 0a 0a 0a 23 20 54 65 73 74 20  se }.}...# Test 
6430: 74 68 61 74 20 69 66 20 61 6e 20 4f 4f 4d 20 65  that if an OOM e
6440: 72 72 6f 72 20 6f 63 63 75 72 73 2c 20 61 75 78  rror occurs, aux
6450: 2d 64 61 74 61 20 69 73 20 73 74 69 6c 6c 20 63  -data is still c
6460: 6f 72 72 65 63 74 6c 79 20 64 65 73 74 72 6f 79  orrectly destroy
6470: 65 64 2e 0a 23 20 54 68 69 73 20 74 65 73 74 20  ed..# This test 
6480: 63 61 73 65 20 77 61 73 20 63 61 75 73 69 6e 67  case was causing
6490: 20 65 69 74 68 65 72 20 61 20 6d 65 6d 6f 72 79   either a memory
64a0: 2d 6c 65 61 6b 20 6f 72 20 61 6e 20 61 73 73 65  -leak or an asse
64b0: 72 74 28 29 20 66 61 69 6c 75 72 65 0a 23 20 61  rt() failure.# a
64c0: 74 20 6f 6e 65 20 70 6f 69 6e 74 2c 20 64 65 70  t one point, dep
64d0: 65 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 63 6f  ending on the co
64e0: 6e 66 69 67 75 72 61 74 69 6f 6e 2e 0a 23 0a 64  nfiguration..#.d
64f0: 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74 20 33 39  o_malloc_test 39
6500: 20 2d 74 63 6c 70 72 65 70 20 7b 0a 20 20 73 71   -tclprep {.  sq
6510: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
6520: 0a 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20  .} -sqlbody {.  
6530: 53 45 4c 45 43 54 20 74 65 73 74 5f 61 75 78 64  SELECT test_auxd
6540: 61 74 61 28 27 61 62 63 27 2c 20 27 64 65 66 27  ata('abc', 'def'
6550: 29 3b 0a 7d 20 2d 63 6c 65 61 6e 75 70 20 7b 0a  );.} -cleanup {.
6560: 20 20 64 62 20 63 6c 6f 73 65 0a 7d 0a 0a 72 65    db close.}..re
6570: 73 65 74 5f 64 62 0a 61 64 64 5f 74 65 73 74 5f  set_db.add_test_
6580: 75 74 66 31 36 62 69 6e 5f 63 6f 6c 6c 61 74 65  utf16bin_collate
6590: 20 64 62 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74   db.do_execsql_t
65a0: 65 73 74 20 34 30 2e 31 20 7b 0a 20 20 43 52 45  est 40.1 {.  CRE
65b0: 41 54 45 20 54 41 42 4c 45 20 74 31 28 61 29 3b  ATE TABLE t1(a);
65c0: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  .  INSERT INTO t
65d0: 31 20 56 41 4c 55 45 53 28 27 66 67 68 69 6a 27  1 VALUES('fghij'
65e0: 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  );.  INSERT INTO
65f0: 20 74 31 20 56 41 4c 55 45 53 28 27 70 71 72 73   t1 VALUES('pqrs
6600: 74 27 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e  t');.  INSERT IN
6610: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 27 61 62  TO t1 VALUES('ab
6620: 63 64 65 27 29 3b 0a 20 20 49 4e 53 45 52 54 20  cde');.  INSERT 
6630: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 27  INTO t1 VALUES('
6640: 75 76 77 78 79 27 29 3b 0a 20 20 49 4e 53 45 52  uvwxy');.  INSER
6650: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
6660: 28 27 6b 6c 6d 6e 6f 27 29 3b 0a 7d 0a 64 6f 5f  ('klmno');.}.do_
6670: 65 78 65 63 73 71 6c 5f 74 65 73 74 20 34 30 2e  execsql_test 40.
6680: 32 20 7b 0a 20 20 53 45 4c 45 43 54 20 2a 20 46  2 {.  SELECT * F
6690: 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42 59 20  ROM t1 ORDER BY 
66a0: 31 20 43 4f 4c 4c 41 54 45 20 75 74 66 31 36 62  1 COLLATE utf16b
66b0: 69 6e 3b 0a 7d 20 7b 61 62 63 64 65 20 66 67 68  in;.} {abcde fgh
66c0: 69 6a 20 6b 6c 6d 6e 6f 20 70 71 72 73 74 20 75  ij klmno pqrst u
66d0: 76 77 78 79 7d 0a 64 6f 5f 66 61 75 6c 74 73 69  vwxy}.do_faultsi
66e0: 6d 5f 74 65 73 74 20 34 30 2e 33 20 2d 66 61 75  m_test 40.3 -fau
66f0: 6c 74 73 20 6f 6f 6d 2d 74 72 61 6e 73 2a 20 2d  lts oom-trans* -
6700: 62 6f 64 79 20 7b 0a 20 20 65 78 65 63 73 71 6c  body {.  execsql
6710: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20   {.    SELECT * 
6720: 46 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42 59  FROM t1 ORDER BY
6730: 20 31 20 43 4f 4c 4c 41 54 45 20 75 74 66 31 36   1 COLLATE utf16
6740: 62 69 6e 3b 0a 20 20 7d 0a 7d 20 2d 74 65 73 74  bin;.  }.} -test
6750: 20 7b 0a 20 20 66 61 75 6c 74 73 69 6d 5f 74 65   {.  faultsim_te
6760: 73 74 5f 72 65 73 75 6c 74 20 7b 30 20 7b 61 62  st_result {0 {ab
6770: 63 64 65 20 66 67 68 69 6a 20 6b 6c 6d 6e 6f 20  cde fghij klmno 
6780: 70 71 72 73 74 20 75 76 77 78 79 7d 7d 20 0a 20  pqrst uvwxy}} . 
6790: 20 66 61 75 6c 74 73 69 6d 5f 69 6e 74 65 67 72   faultsim_integr
67a0: 69 74 79 5f 63 68 65 63 6b 0a 7d 0a 0a 72 65 73  ity_check.}..res
67b0: 65 74 5f 64 62 0a 61 64 64 5f 74 65 73 74 5f 75  et_db.add_test_u
67c0: 74 66 31 36 62 69 6e 5f 63 6f 6c 6c 61 74 65 20  tf16bin_collate 
67d0: 64 62 0a 73 65 74 20 62 69 67 20 5b 73 74 72 69  db.set big [stri
67e0: 6e 67 20 72 65 70 65 61 74 20 78 20 32 30 30 5d  ng repeat x 200]
67f0: 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74  .do_execsql_test
6800: 20 34 31 2e 31 20 7b 0a 20 20 44 52 4f 50 20 54   41.1 {.  DROP T
6810: 41 42 4c 45 20 49 46 20 45 58 49 53 54 53 20 74  ABLE IF EXISTS t
6820: 31 3b 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c  1;.  CREATE TABL
6830: 45 20 74 31 28 61 20 43 4f 4c 4c 41 54 45 20 75  E t1(a COLLATE u
6840: 74 66 31 36 62 69 6e 29 3b 0a 20 20 49 4e 53 45  tf16bin);.  INSE
6850: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
6860: 53 28 27 66 67 68 69 6a 27 20 7c 7c 20 24 3a 3a  S('fghij' || $::
6870: 62 69 67 29 3b 0a 20 20 49 4e 53 45 52 54 20 49  big);.  INSERT I
6880: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 27 70  NTO t1 VALUES('p
6890: 71 72 73 74 27 20 7c 7c 20 24 3a 3a 62 69 67 29  qrst' || $::big)
68a0: 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  ;.  INSERT INTO 
68b0: 74 31 20 56 41 4c 55 45 53 28 27 61 62 63 64 65  t1 VALUES('abcde
68c0: 27 20 7c 7c 20 24 3a 3a 62 69 67 29 3b 0a 20 20  ' || $::big);.  
68d0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
68e0: 41 4c 55 45 53 28 27 75 76 77 78 79 27 20 7c 7c  ALUES('uvwxy' ||
68f0: 20 24 3a 3a 62 69 67 29 3b 0a 20 20 49 4e 53 45   $::big);.  INSE
6900: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
6910: 53 28 27 6b 6c 6d 6e 6f 27 20 7c 7c 20 24 3a 3a  S('klmno' || $::
6920: 62 69 67 29 3b 0a 20 20 43 52 45 41 54 45 20 49  big);.  CREATE I
6930: 4e 44 45 58 20 69 31 20 4f 4e 20 74 31 28 61 29  NDEX i1 ON t1(a)
6940: 3b 0a 7d 0a 64 6f 5f 66 61 75 6c 74 73 69 6d 5f  ;.}.do_faultsim_
6950: 74 65 73 74 20 34 31 2e 32 20 2d 66 61 75 6c 74  test 41.2 -fault
6960: 73 20 6f 6f 6d 2a 20 2d 62 6f 64 79 20 7b 0a 20  s oom* -body {. 
6970: 20 65 78 65 63 73 71 6c 20 7b 20 53 45 4c 45 43   execsql { SELEC
6980: 54 20 2a 20 46 52 4f 4d 20 74 31 20 57 48 45 52  T * FROM t1 WHER
6990: 45 20 61 20 3d 20 28 27 61 62 63 64 65 27 20 7c  E a = ('abcde' |
69a0: 7c 20 24 3a 3a 62 69 67 29 7d 0a 7d 20 2d 74 65  | $::big)}.} -te
69b0: 73 74 20 7b 0a 20 20 66 61 75 6c 74 73 69 6d 5f  st {.  faultsim_
69c0: 74 65 73 74 5f 72 65 73 75 6c 74 20 5b 6c 69 73  test_result [lis
69d0: 74 20 30 20 22 61 62 63 64 65 24 3a 3a 62 69 67  t 0 "abcde$::big
69e0: 22 5d 0a 20 20 66 61 75 6c 74 73 69 6d 5f 69 6e  "].  faultsim_in
69f0: 74 65 67 72 69 74 79 5f 63 68 65 63 6b 0a 7d 0a  tegrity_check.}.
6a00: 0a 23 20 45 6e 73 75 72 65 20 74 68 61 74 20 6e  .# Ensure that n
6a10: 6f 20 66 69 6c 65 20 64 65 73 63 72 69 70 74 6f  o file descripto
6a20: 72 73 20 77 65 72 65 20 6c 65 61 6b 65 64 2e 0a  rs were leaked..
6a30: 64 6f 5f 74 65 73 74 20 6d 61 6c 6c 6f 63 2d 39  do_test malloc-9
6a40: 39 2e 58 20 7b 0a 20 20 63 61 74 63 68 20 7b 64  9.X {.  catch {d
6a50: 62 20 63 6c 6f 73 65 7d 0a 20 20 73 65 74 20 73  b close}.  set s
6a60: 71 6c 69 74 65 5f 6f 70 65 6e 5f 66 69 6c 65 5f  qlite_open_file_
6a70: 63 6f 75 6e 74 0a 7d 20 7b 30 7d 0a 0a 70 75 74  count.} {0}..put
6a80: 73 20 6f 70 65 6e 2d 66 69 6c 65 2d 63 6f 75 6e  s open-file-coun
6a90: 74 3d 24 73 71 6c 69 74 65 5f 6f 70 65 6e 5f 66  t=$sqlite_open_f
6aa0: 69 6c 65 5f 63 6f 75 6e 74 0a 66 69 6e 69 73 68  ile_count.finish
6ab0: 5f 74 65 73 74 0a                                _test.