/ Hex Artifact Content
Login

Artifact 70fdd0812e2a57eb746aaf015350f58bb8eee0b1:


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 20 54 68 69 73  *********.# This
0170: 20 66 69 6c 65 20 61 74 74 65 6d 70 74 73 20 74   file attempts t
0180: 6f 20 63 68 65 63 6b 20 74 68 65 20 6c 69 62 72  o check the libr
0190: 61 72 79 20 69 6e 20 61 6e 20 6f 75 74 2d 6f 66  ary in an out-of
01a0: 2d 6d 65 6d 6f 72 79 20 73 69 74 75 61 74 69 6f  -memory situatio
01b0: 6e 2e 0a 23 20 57 68 65 6e 20 63 6f 6d 70 69 6c  n..# When compil
01c0: 65 64 20 77 69 74 68 20 2d 44 4d 45 4d 4f 52 59  ed with -DMEMORY
01d0: 5f 44 45 42 55 47 3d 31 2c 20 74 68 65 20 53 51  _DEBUG=1, the SQ
01e0: 4c 69 74 65 20 6c 69 62 72 61 72 79 20 61 63 63  Lite library acc
01f0: 65 70 74 73 20 61 20 73 70 65 63 69 61 6c 0a 23  epts a special.#
0200: 20 63 6f 6d 6d 61 6e 64 20 28 73 71 6c 69 74 65   command (sqlite
0210: 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 20 4e 29 20  _malloc_fail N) 
0220: 77 68 69 63 68 20 63 61 75 73 65 73 20 74 68 65  which causes the
0230: 20 4e 2d 74 68 20 6d 61 6c 6c 6f 63 20 74 6f 20   N-th malloc to 
0240: 66 61 69 6c 2e 20 20 54 68 69 73 0a 23 20 73 70  fail.  This.# sp
0250: 65 63 69 61 6c 20 66 65 61 74 75 72 65 20 69 73  ecial feature is
0260: 20 75 73 65 64 20 74 6f 20 73 65 65 20 77 68 61   used to see wha
0270: 74 20 68 61 70 70 65 6e 73 20 69 6e 20 74 68 65  t happens in the
0280: 20 6c 69 62 72 61 72 79 20 69 66 20 61 20 6d 61   library if a ma
0290: 6c 6c 6f 63 0a 23 20 77 65 72 65 20 74 6f 20 72  lloc.# were to r
02a0: 65 61 6c 6c 79 20 66 61 69 6c 20 64 75 65 20 74  eally fail due t
02b0: 6f 20 61 6e 20 6f 75 74 2d 6f 66 2d 6d 65 6d 6f  o an out-of-memo
02c0: 72 79 20 73 69 74 75 61 74 69 6f 6e 2e 0a 23 0a  ry situation..#.
02d0: 23 20 24 49 64 3a 20 6d 61 6c 6c 6f 63 2e 74 65  # $Id: malloc.te
02e0: 73 74 2c 76 20 31 2e 34 20 32 30 30 31 2f 31 30  st,v 1.4 2001/10
02f0: 2f 32 32 20 30 32 3a 35 38 3a 31 31 20 64 72 68  /22 02:58:11 drh
0300: 20 45 78 70 20 24 0a 0a 73 65 74 20 74 65 73 74   Exp $..set test
0310: 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d  dir [file dirnam
0320: 65 20 24 61 72 67 76 30 5d 0a 73 6f 75 72 63 65  e $argv0].source
0330: 20 24 74 65 73 74 64 69 72 2f 74 65 73 74 65 72   $testdir/tester
0340: 2e 74 63 6c 0a 0a 23 20 4f 6e 6c 79 20 72 75 6e  .tcl..# Only run
0350: 20 74 68 65 73 65 20 74 65 73 74 73 20 69 66 20   these tests if 
0360: 6d 65 6d 6f 72 79 20 64 65 62 75 67 67 69 6e 67  memory debugging
0370: 20 69 73 20 74 75 72 6e 65 64 20 6f 6e 2e 0a 23   is turned on..#
0380: 0a 69 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61  .if {[info comma
0390: 6e 64 20 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63  nd sqlite_malloc
03a0: 5f 66 61 69 6c 5d 3d 3d 22 22 7d 20 7b 0a 20 20  _fail]==""} {.  
03b0: 20 70 75 74 73 20 22 53 6b 69 70 70 69 6e 67 20   puts "Skipping 
03c0: 6d 61 6c 6c 6f 63 20 74 65 73 74 73 3a 20 6e 6f  malloc tests: no
03d0: 74 20 63 6f 6d 70 69 6c 65 64 20 77 69 74 68 20  t compiled with 
03e0: 2d 44 4d 45 4d 4f 52 59 5f 44 45 42 55 47 2e 2e  -DMEMORY_DEBUG..
03f0: 2e 22 0a 20 20 20 66 69 6e 69 73 68 5f 74 65 73  .".   finish_tes
0400: 74 0a 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 66  t.   return.}..f
0410: 6f 72 20 7b 73 65 74 20 67 6f 20 31 3b 20 73 65  or {set go 1; se
0420: 74 20 69 20 31 7d 20 7b 24 67 6f 7d 20 7b 69 6e  t i 1} {$go} {in
0430: 63 72 20 69 7d 20 7b 0a 20 20 64 6f 5f 74 65 73  cr i} {.  do_tes
0440: 74 20 6d 61 6c 6c 6f 63 2d 31 2e 24 69 20 7b 0a  t malloc-1.$i {.
0450: 20 20 20 20 20 73 71 6c 69 74 65 5f 6d 61 6c 6c       sqlite_mall
0460: 6f 63 5f 66 61 69 6c 20 30 0a 20 20 20 20 20 63  oc_fail 0.     c
0470: 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a  atch {db close}.
0480: 20 20 20 20 20 63 61 74 63 68 20 7b 66 69 6c 65       catch {file
0490: 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74   delete -force t
04a0: 65 73 74 2e 64 62 7d 0a 20 20 20 20 20 63 61 74  est.db}.     cat
04b0: 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20  ch {file delete 
04c0: 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 2d 6a  -force test.db-j
04d0: 6f 75 72 6e 61 6c 7d 0a 20 20 20 20 20 73 71 6c  ournal}.     sql
04e0: 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 20  ite_malloc_fail 
04f0: 24 69 0a 20 20 20 20 20 73 65 74 20 76 20 5b 63  $i.     set v [c
0500: 61 74 63 68 20 7b 73 71 6c 69 74 65 20 64 62 20  atch {sqlite db 
0510: 74 65 73 74 2e 64 62 7d 20 6d 73 67 5d 0a 20 20  test.db} msg].  
0520: 20 20 20 69 66 20 7b 24 76 7d 20 7b 0a 20 20 20     if {$v} {.   
0530: 20 20 20 20 73 65 74 20 6d 73 67 20 22 22 0a 20      set msg "". 
0540: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
0550: 20 20 20 20 73 65 74 20 76 20 5b 63 61 74 63 68      set v [catch
0560: 20 7b 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20   {execsql {.    
0570: 20 20 20 20 20 20 43 52 45 41 54 45 20 54 41 42        CREATE TAB
0580: 4c 45 20 74 31 28 0a 20 20 20 20 20 20 20 20 20  LE t1(.         
0590: 20 20 20 20 61 20 69 6e 74 2c 20 62 20 66 6c 6f      a int, b flo
05a0: 61 74 2c 20 63 20 64 6f 75 62 6c 65 2c 20 64 20  at, c double, d 
05b0: 74 65 78 74 2c 20 65 20 76 61 72 63 68 61 72 28  text, e varchar(
05c0: 32 30 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20  20),.           
05d0: 20 20 70 72 69 6d 61 72 79 20 6b 65 79 28 61 2c    primary key(a,
05e0: 62 2c 63 29 0a 20 20 20 20 20 20 20 20 20 20 29  b,c).          )
05f0: 3b 0a 20 20 20 20 20 20 20 20 20 20 43 52 45 41  ;.          CREA
0600: 54 45 20 49 4e 44 45 58 20 69 31 20 4f 4e 20 74  TE INDEX i1 ON t
0610: 31 28 61 2c 62 29 3b 0a 20 20 20 20 20 20 20 20  1(a,b);.        
0620: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0630: 20 56 41 4c 55 45 53 28 31 2c 32 2e 33 2c 34 2e   VALUES(1,2.3,4.
0640: 35 2c 27 68 69 27 2c 27 74 68 65 72 65 27 29 3b  5,'hi','there');
0650: 0a 20 20 20 20 20 20 20 20 20 20 49 4e 53 45 52  .          INSER
0660: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
0670: 28 36 2c 37 2e 30 2c 30 2e 38 2c 27 68 65 6c 6c  (6,7.0,0.8,'hell
0680: 6f 27 2c 27 6f 75 74 20 79 6f 6e 64 65 72 27 29  o','out yonder')
0690: 3b 0a 20 20 20 20 20 20 20 20 20 20 53 45 4c 45  ;.          SELE
06a0: 43 54 20 2a 20 46 52 4f 4d 20 74 31 3b 0a 20 20  CT * FROM t1;.  
06b0: 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 61          SELECT a
06c0: 76 67 28 62 29 20 46 52 4f 4d 20 74 31 20 47 52  vg(b) FROM t1 GR
06d0: 4f 55 50 20 42 59 20 61 20 48 41 56 49 4e 47 20  OUP BY a HAVING 
06e0: 62 3e 32 30 2e 30 3b 0a 20 20 20 20 20 20 20 20  b>20.0;.        
06f0: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31    DELETE FROM t1
0700: 20 57 48 45 52 45 20 61 20 49 4e 20 28 53 45 4c   WHERE a IN (SEL
0710: 45 43 54 20 6d 69 6e 28 61 29 20 46 52 4f 4d 20  ECT min(a) FROM 
0720: 74 31 29 3b 0a 20 20 20 20 20 20 20 20 20 20 53  t1);.          S
0730: 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29 20 46  ELECT count(*) F
0740: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 20 20 20 7d  ROM t1;.       }
0750: 7d 20 6d 73 67 5d 0a 20 20 20 20 20 7d 0a 20 20  } msg].     }.  
0760: 20 20 20 73 65 74 20 6c 65 66 74 6f 76 65 72 20     set leftover 
0770: 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65 5f  [lindex [sqlite_
0780: 6d 61 6c 6c 6f 63 5f 73 74 61 74 5d 20 32 5d 0a  malloc_stat] 2].
0790: 20 20 20 20 20 69 66 20 7b 24 6c 65 66 74 6f 76       if {$leftov
07a0: 65 72 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20 69  er>0} {.       i
07b0: 66 20 7b 24 6c 65 66 74 6f 76 65 72 3e 31 7d 20  f {$leftover>1} 
07c0: 7b 70 75 74 73 20 22 5c 6e 4c 65 66 74 6f 76 65  {puts "\nLeftove
07d0: 72 3a 20 24 6c 65 66 74 6f 76 65 72 5c 6e 52 65  r: $leftover\nRe
07e0: 74 75 72 6e 3d 24 76 20 20 4d 65 73 73 61 67 65  turn=$v  Message
07f0: 3d 24 6d 73 67 22 7d 0a 20 20 20 20 20 20 20 73  =$msg"}.       s
0800: 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20 20  et ::go 0.      
0810: 20 73 65 74 20 76 20 7b 31 20 31 7d 0a 20 20 20   set v {1 1}.   
0820: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
0830: 20 20 73 65 74 20 76 32 20 5b 65 78 70 72 20 7b    set v2 [expr {
0840: 24 6d 73 67 3d 3d 22 22 20 7c 7c 20 24 6d 73 67  $msg=="" || $msg
0850: 3d 3d 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79  =="out of memory
0860: 22 7d 5d 0a 20 20 20 20 20 20 20 69 66 20 7b 21  "}].       if {!
0870: 24 76 32 7d 20 7b 70 75 74 73 20 22 5c 6e 45 72  $v2} {puts "\nEr
0880: 72 6f 72 20 6d 65 73 73 61 67 65 20 72 65 74 75  ror message retu
0890: 72 6e 65 64 3a 20 24 6d 73 67 22 7d 0a 20 20 20  rned: $msg"}.   
08a0: 20 20 20 20 6c 61 70 70 65 6e 64 20 76 20 24 76      lappend v $v
08b0: 32 0a 20 20 20 20 20 7d 0a 20 20 7d 20 7b 31 20  2.     }.  } {1 
08c0: 31 7d 0a 7d 0a 0a 66 69 6e 69 73 68 5f 74 65 73  1}.}..finish_tes
08d0: 74 0a 72 65 74 75 72 6e 0a 0a 0a 73 65 74 20 66  t.return...set f
08e0: 64 20 5b 6f 70 65 6e 20 2e 2f 64 61 74 61 2e 74  d [open ./data.t
08f0: 6d 70 20 77 5d 0a 66 6f 72 20 7b 73 65 74 20 69  mp w].for {set i
0900: 20 31 7d 20 7b 24 69 3c 3d 32 30 7d 20 7b 69 6e   1} {$i<=20} {in
0910: 63 72 20 69 7d 20 7b 0a 20 20 70 75 74 73 20 24  cr i} {.  puts $
0920: 66 64 20 22 24 69 5c 74 5b 65 78 70 72 20 7b 24  fd "$i\t[expr {$
0930: 69 2a 24 69 7d 5d 5c 74 5b 65 78 70 72 20 7b 31  i*$i}]\t[expr {1
0940: 30 30 2d 24 69 7d 5d 20 61 62 63 64 65 66 67 68  00-$i}] abcdefgh
0950: 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78  ijklmnopqrstuvwx
0960: 79 7a 22 0a 7d 0a 63 6c 6f 73 65 20 24 66 64 0a  yz".}.close $fd.
0970: 0a 66 6f 72 20 7b 73 65 74 20 67 6f 20 31 3b 20  .for {set go 1; 
0980: 73 65 74 20 69 20 31 7d 20 7b 24 67 6f 7d 20 7b  set i 1} {$go} {
0990: 69 6e 63 72 20 69 7d 20 7b 0a 20 20 64 6f 5f 74  incr i} {.  do_t
09a0: 65 73 74 20 6d 61 6c 6c 6f 63 2d 32 2e 24 69 20  est malloc-2.$i 
09b0: 7b 0a 20 20 20 20 20 73 71 6c 69 74 65 5f 6d 61  {.     sqlite_ma
09c0: 6c 6c 6f 63 5f 66 61 69 6c 20 30 0a 20 20 20 20  lloc_fail 0.    
09d0: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65   catch {db close
09e0: 7d 0a 20 20 20 20 20 63 61 74 63 68 20 7b 66 69  }.     catch {fi
09f0: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
0a00: 20 74 65 73 74 2e 64 62 7d 0a 20 20 20 20 20 63   test.db}.     c
0a10: 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74  atch {file delet
0a20: 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62  e -force test.db
0a30: 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 20 20 20 73  -journal}.     s
0a40: 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69  qlite_malloc_fai
0a50: 6c 20 24 69 0a 20 20 20 20 20 73 65 74 20 76 20  l $i.     set v 
0a60: 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 20 64  [catch {sqlite d
0a70: 62 20 74 65 73 74 2e 64 62 7d 20 6d 73 67 5d 0a  b test.db} msg].
0a80: 20 20 20 20 20 69 66 20 7b 24 76 7d 20 7b 0a 20       if {$v} {. 
0a90: 20 20 20 20 20 20 73 65 74 20 6d 73 67 20 22 22        set msg ""
0aa0: 0a 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20  .     } else {. 
0ab0: 20 20 20 20 20 20 73 65 74 20 76 20 5b 63 61 74        set v [cat
0ac0: 63 68 20 7b 65 78 65 63 73 71 6c 20 7b 0a 20 20  ch {execsql {.  
0ad0: 20 20 20 20 20 20 20 43 52 45 41 54 45 20 54 41         CREATE TA
0ae0: 42 4c 45 20 74 31 28 61 20 69 6e 74 2c 20 62 20  BLE t1(a int, b 
0af0: 69 6e 74 2c 20 63 20 69 6e 74 29 3b 0a 20 20 20  int, c int);.   
0b00: 20 20 20 20 20 20 43 52 45 41 54 45 20 49 4e 44        CREATE IND
0b10: 45 58 20 69 31 20 4f 4e 20 74 31 28 61 2c 62 29  EX i1 ON t1(a,b)
0b20: 3b 0a 20 20 20 20 20 20 20 20 20 43 4f 50 59 20  ;.         COPY 
0b30: 74 31 20 46 52 4f 4d 20 27 64 61 74 61 2e 74 6d  t1 FROM 'data.tm
0b40: 70 27 3b 0a 20 20 20 20 20 20 20 20 20 53 45 4c  p';.         SEL
0b50: 45 43 54 20 27 73 74 75 66 66 27 2c 20 63 6f 75  ECT 'stuff', cou
0b60: 6e 74 28 2a 29 20 61 73 20 27 6f 74 68 65 72 20  nt(*) as 'other 
0b70: 73 74 75 66 66 27 2c 20 6d 61 78 28 61 2b 31 30  stuff', max(a+10
0b80: 29 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20 20  ) FROM t1;.     
0b90: 20 20 20 20 55 50 44 41 54 45 20 74 31 20 53 45      UPDATE t1 SE
0ba0: 54 20 62 3d 62 7c 7c 62 7c 7c 62 7c 7c 62 3b 0a  T b=b||b||b||b;.
0bb0: 20 20 20 20 20 20 20 20 20 55 50 44 41 54 45 20           UPDATE 
0bc0: 74 31 20 53 45 54 20 62 3d 61 20 57 48 45 52 45  t1 SET b=a WHERE
0bd0: 20 61 20 69 6e 20 28 31 30 2c 31 32 2c 32 32 29   a in (10,12,22)
0be0: 3b 0a 20 20 20 20 20 20 20 20 20 49 4e 53 45 52  ;.         INSER
0bf0: 54 20 49 4e 54 4f 20 74 31 28 63 2c 62 2c 61 29  T INTO t1(c,b,a)
0c00: 20 56 41 4c 55 45 53 28 32 30 2c 31 30 2c 35 29   VALUES(20,10,5)
0c10: 3b 0a 20 20 20 20 20 20 20 20 20 49 4e 53 45 52  ;.         INSER
0c20: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
0c30: 20 2a 20 46 52 4f 4d 20 74 31 0a 20 20 20 20 20   * FROM t1.     
0c40: 20 20 20 20 20 20 20 20 57 48 45 52 45 20 61 20          WHERE a 
0c50: 49 4e 20 28 53 45 4c 45 43 54 20 61 20 46 52 4f  IN (SELECT a FRO
0c60: 4d 20 74 31 20 57 48 45 52 45 20 61 3c 31 30 29  M t1 WHERE a<10)
0c70: 3b 0a 20 20 20 20 20 20 20 20 20 44 45 4c 45 54  ;.         DELET
0c80: 45 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20  E FROM t1 WHERE 
0c90: 61 3e 3d 31 30 3b 0a 20 20 20 20 20 20 20 20 20  a>=10;.         
0ca0: 44 52 4f 50 20 49 4e 44 45 58 20 69 31 3b 0a 20  DROP INDEX i1;. 
0cb0: 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 20 46          DELETE F
0cc0: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 20 20 20 7d  ROM t1;.       }
0cd0: 7d 20 6d 73 67 5d 0a 20 20 20 20 20 7d 0a 20 20  } msg].     }.  
0ce0: 20 20 20 73 65 74 20 6c 65 66 74 6f 76 65 72 20     set leftover 
0cf0: 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65 5f  [lindex [sqlite_
0d00: 6d 61 6c 6c 6f 63 5f 73 74 61 74 5d 20 32 5d 0a  malloc_stat] 2].
0d10: 20 20 20 20 20 69 66 20 7b 24 6c 65 66 74 6f 76       if {$leftov
0d20: 65 72 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20 69  er>0} {.       i
0d30: 66 20 7b 24 6c 65 66 74 6f 76 65 72 3e 31 7d 20  f {$leftover>1} 
0d40: 7b 70 75 74 73 20 22 5c 6e 4c 65 66 74 6f 76 65  {puts "\nLeftove
0d50: 72 3a 20 24 6c 65 66 74 6f 76 65 72 5c 6e 52 65  r: $leftover\nRe
0d60: 74 75 72 6e 3d 24 76 20 20 4d 65 73 73 61 67 65  turn=$v  Message
0d70: 3d 24 6d 73 67 22 7d 0a 20 20 20 20 20 20 20 73  =$msg"}.       s
0d80: 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20 20  et ::go 0.      
0d90: 20 73 65 74 20 76 20 7b 31 20 31 7d 0a 20 20 20   set v {1 1}.   
0da0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
0db0: 20 20 73 65 74 20 76 32 20 5b 65 78 70 72 20 7b    set v2 [expr {
0dc0: 24 6d 73 67 3d 3d 22 22 20 7c 7c 20 24 6d 73 67  $msg=="" || $msg
0dd0: 3d 3d 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79  =="out of memory
0de0: 22 7d 5d 0a 20 20 20 20 20 20 20 69 66 20 7b 21  "}].       if {!
0df0: 24 76 32 7d 20 7b 70 75 74 73 20 22 5c 6e 45 72  $v2} {puts "\nEr
0e00: 72 6f 72 20 6d 65 73 73 61 67 65 20 72 65 74 75  ror message retu
0e10: 72 6e 65 64 3a 20 24 6d 73 67 22 7d 0a 20 20 20  rned: $msg"}.   
0e20: 20 20 20 20 6c 61 70 70 65 6e 64 20 76 20 24 76      lappend v $v
0e30: 32 0a 20 20 20 20 20 7d 0a 20 20 7d 20 7b 31 20  2.     }.  } {1 
0e40: 31 7d 0a 7d 0a 0a 73 65 74 20 66 64 20 5b 6f 70  1}.}..set fd [op
0e50: 65 6e 20 2e 2f 64 61 74 61 2e 74 6d 70 20 77 5d  en ./data.tmp w]
0e60: 0a 66 6f 72 20 7b 73 65 74 20 69 20 31 7d 20 7b  .for {set i 1} {
0e70: 24 69 3c 3d 31 30 7d 20 7b 69 6e 63 72 20 69 7d  $i<=10} {incr i}
0e80: 20 7b 0a 20 20 70 75 74 73 20 24 66 64 20 22 24   {.  puts $fd "$
0e90: 69 5c 74 5b 65 78 70 72 20 7b 24 69 2a 24 69 7d  i\t[expr {$i*$i}
0ea0: 5d 5c 74 5b 65 78 70 72 20 7b 31 30 30 2d 24 69  ]\t[expr {100-$i
0eb0: 7d 5d 22 0a 7d 0a 63 6c 6f 73 65 20 24 66 64 0a  }]".}.close $fd.
0ec0: 0a 66 6f 72 20 7b 73 65 74 20 67 6f 20 31 3b 20  .for {set go 1; 
0ed0: 73 65 74 20 69 20 31 7d 20 7b 24 67 6f 7d 20 7b  set i 1} {$go} {
0ee0: 69 6e 63 72 20 69 7d 20 7b 0a 20 20 64 6f 5f 74  incr i} {.  do_t
0ef0: 65 73 74 20 6d 61 6c 6c 6f 63 2d 33 2e 24 69 20  est malloc-3.$i 
0f00: 7b 0a 20 20 20 20 20 73 71 6c 69 74 65 5f 6d 61  {.     sqlite_ma
0f10: 6c 6c 6f 63 5f 66 61 69 6c 20 30 0a 20 20 20 20  lloc_fail 0.    
0f20: 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65   catch {db close
0f30: 7d 0a 20 20 20 20 20 63 61 74 63 68 20 7b 66 69  }.     catch {fi
0f40: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
0f50: 20 74 65 73 74 2e 64 62 7d 0a 20 20 20 20 20 63   test.db}.     c
0f60: 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 74  atch {file delet
0f70: 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62  e -force test.db
0f80: 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 20 20 20 73  -journal}.     s
0f90: 71 6c 69 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69  qlite_malloc_fai
0fa0: 6c 20 24 69 0a 20 20 20 20 20 73 65 74 20 76 20  l $i.     set v 
0fb0: 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 20 64  [catch {sqlite d
0fc0: 62 20 74 65 73 74 2e 64 62 7d 20 6d 73 67 5d 0a  b test.db} msg].
0fd0: 20 20 20 20 20 69 66 20 7b 24 76 7d 20 7b 0a 20       if {$v} {. 
0fe0: 20 20 20 20 20 20 73 65 74 20 6d 73 67 20 22 22        set msg ""
0ff0: 0a 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20  .     } else {. 
1000: 20 20 20 20 20 20 73 65 74 20 76 20 5b 63 61 74        set v [cat
1010: 63 68 20 7b 65 78 65 63 73 71 6c 20 7b 0a 20 20  ch {execsql {.  
1020: 20 20 20 20 20 20 20 42 45 47 49 4e 20 54 52 41         BEGIN TRA
1030: 4e 53 41 43 54 49 4f 4e 3b 0a 20 20 20 20 20 20  NSACTION;.      
1040: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
1050: 74 31 28 61 20 69 6e 74 2c 20 62 20 69 6e 74 2c  t1(a int, b int,
1060: 20 63 20 69 6e 74 29 3b 0a 20 20 20 20 20 20 20   c int);.       
1070: 20 20 43 52 45 41 54 45 20 49 4e 44 45 58 20 69    CREATE INDEX i
1080: 31 20 4f 4e 20 74 31 28 61 2c 62 29 3b 0a 20 20  1 ON t1(a,b);.  
1090: 20 20 20 20 20 20 20 43 4f 50 59 20 74 31 20 46         COPY t1 F
10a0: 52 4f 4d 20 27 64 61 74 61 2e 74 6d 70 27 3b 0a  ROM 'data.tmp';.
10b0: 20 20 20 20 20 20 20 20 20 49 4e 53 45 52 54 20           INSERT 
10c0: 49 4e 54 4f 20 74 31 28 63 2c 62 2c 61 29 20 56  INTO t1(c,b,a) V
10d0: 41 4c 55 45 53 28 32 30 2c 31 30 2c 35 29 3b 0a  ALUES(20,10,5);.
10e0: 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 20           DELETE 
10f0: 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20 61 3e  FROM t1 WHERE a>
1100: 3d 31 30 3b 0a 20 20 20 20 20 20 20 20 20 44 52  =10;.         DR
1110: 4f 50 20 49 4e 44 45 58 20 69 31 3b 0a 20 20 20  OP INDEX i1;.   
1120: 20 20 20 20 20 20 44 45 4c 45 54 45 20 46 52 4f        DELETE FRO
1130: 4d 20 74 31 3b 0a 20 20 20 20 20 20 20 20 20 52  M t1;.         R
1140: 4f 4c 4c 42 41 43 4b 3b 0a 20 20 20 20 20 20 20  OLLBACK;.       
1150: 7d 7d 20 6d 73 67 5d 0a 20 20 20 20 20 7d 0a 20  }} msg].     }. 
1160: 20 20 20 20 73 65 74 20 6c 65 66 74 6f 76 65 72      set leftover
1170: 20 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65   [lindex [sqlite
1180: 5f 6d 61 6c 6c 6f 63 5f 73 74 61 74 5d 20 32 5d  _malloc_stat] 2]
1190: 0a 20 20 20 20 20 69 66 20 7b 24 6c 65 66 74 6f  .     if {$lefto
11a0: 76 65 72 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20  ver>0} {.       
11b0: 69 66 20 7b 24 6c 65 66 74 6f 76 65 72 3e 31 7d  if {$leftover>1}
11c0: 20 7b 70 75 74 73 20 22 5c 6e 4c 65 66 74 6f 76   {puts "\nLeftov
11d0: 65 72 3a 20 24 6c 65 66 74 6f 76 65 72 5c 6e 52  er: $leftover\nR
11e0: 65 74 75 72 6e 3d 24 76 20 20 4d 65 73 73 61 67  eturn=$v  Messag
11f0: 65 3d 24 6d 73 67 22 7d 0a 20 20 20 20 20 20 20  e=$msg"}.       
1200: 73 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20  set ::go 0.     
1210: 20 20 73 65 74 20 76 20 7b 31 20 31 7d 0a 20 20    set v {1 1}.  
1220: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
1230: 20 20 20 73 65 74 20 76 32 20 5b 65 78 70 72 20     set v2 [expr 
1240: 7b 24 6d 73 67 3d 3d 22 22 20 7c 7c 20 24 6d 73  {$msg=="" || $ms
1250: 67 3d 3d 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72  g=="out of memor
1260: 79 22 7d 5d 0a 20 20 20 20 20 20 20 69 66 20 7b  y"}].       if {
1270: 21 24 76 32 7d 20 7b 70 75 74 73 20 22 5c 6e 45  !$v2} {puts "\nE
1280: 72 72 6f 72 20 6d 65 73 73 61 67 65 20 72 65 74  rror message ret
1290: 75 72 6e 65 64 3a 20 24 6d 73 67 22 7d 0a 20 20  urned: $msg"}.  
12a0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 76 20 24       lappend v $
12b0: 76 32 0a 20 20 20 20 20 7d 0a 20 20 7d 20 7b 31  v2.     }.  } {1
12c0: 20 31 7d 0a 7d 0a 66 6f 72 20 7b 73 65 74 20 67   1}.}.for {set g
12d0: 6f 20 31 3b 20 73 65 74 20 69 20 31 7d 20 7b 24  o 1; set i 1} {$
12e0: 67 6f 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  go} {incr i} {. 
12f0: 20 64 6f 5f 74 65 73 74 20 6d 61 6c 6c 6f 63 2d   do_test malloc-
1300: 34 2e 24 69 20 7b 0a 20 20 20 20 20 73 71 6c 69  4.$i {.     sqli
1310: 74 65 5f 6d 61 6c 6c 6f 63 5f 66 61 69 6c 20 30  te_malloc_fail 0
1320: 0a 20 20 20 20 20 63 61 74 63 68 20 7b 64 62 20  .     catch {db 
1330: 63 6c 6f 73 65 7d 0a 20 20 20 20 20 63 61 74 63  close}.     catc
1340: 68 20 7b 66 69 6c 65 20 64 65 6c 65 74 65 20 2d  h {file delete -
1350: 66 6f 72 63 65 20 74 65 73 74 2e 64 62 7d 0a 20  force test.db}. 
1360: 20 20 20 20 63 61 74 63 68 20 7b 66 69 6c 65 20      catch {file 
1370: 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65  delete -force te
1380: 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 7d 0a 20  st.db-journal}. 
1390: 20 20 20 20 73 71 6c 69 74 65 5f 6d 61 6c 6c 6f      sqlite_mallo
13a0: 63 5f 66 61 69 6c 20 24 69 0a 20 20 20 20 20 73  c_fail $i.     s
13b0: 65 74 20 76 20 5b 63 61 74 63 68 20 7b 73 71 6c  et v [catch {sql
13c0: 69 74 65 20 64 62 20 74 65 73 74 2e 64 62 7d 20  ite db test.db} 
13d0: 6d 73 67 5d 0a 20 20 20 20 20 69 66 20 7b 24 76  msg].     if {$v
13e0: 7d 20 7b 0a 20 20 20 20 20 20 20 73 65 74 20 6d  } {.       set m
13f0: 73 67 20 22 22 0a 20 20 20 20 20 7d 20 65 6c 73  sg "".     } els
1400: 65 20 7b 0a 20 20 20 20 20 20 20 73 65 74 20 76  e {.       set v
1410: 20 5b 63 61 74 63 68 20 7b 65 78 65 63 73 71 6c   [catch {execsql
1420: 20 7b 0a 20 20 20 20 20 20 20 20 20 42 45 47 49   {.         BEGI
1430: 4e 20 54 52 41 4e 53 41 43 54 49 4f 4e 3b 0a 20  N TRANSACTION;. 
1440: 20 20 20 20 20 20 20 20 43 52 45 41 54 45 20 54          CREATE T
1450: 41 42 4c 45 20 74 31 28 61 20 69 6e 74 2c 20 62  ABLE t1(a int, b
1460: 20 69 6e 74 2c 20 63 20 69 6e 74 29 3b 0a 20 20   int, c int);.  
1470: 20 20 20 20 20 20 20 43 52 45 41 54 45 20 49 4e         CREATE IN
1480: 44 45 58 20 69 31 20 4f 4e 20 74 31 28 61 2c 62  DEX i1 ON t1(a,b
1490: 29 3b 0a 20 20 20 20 20 20 20 20 20 43 4f 50 59  );.         COPY
14a0: 20 74 31 20 46 52 4f 4d 20 27 64 61 74 61 2e 74   t1 FROM 'data.t
14b0: 6d 70 27 3b 0a 20 20 20 20 20 20 20 20 20 55 50  mp';.         UP
14c0: 44 41 54 45 20 74 31 20 53 45 54 20 62 3d 61 20  DATE t1 SET b=a 
14d0: 57 48 45 52 45 20 61 20 69 6e 20 28 31 30 2c 31  WHERE a in (10,1
14e0: 32 2c 32 32 29 3b 0a 20 20 20 20 20 20 20 20 20  2,22);.         
14f0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
1500: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 0a  ELECT * FROM t1.
1510: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 48 45               WHE
1520: 52 45 20 61 20 49 4e 20 28 53 45 4c 45 43 54 20  RE a IN (SELECT 
1530: 61 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20  a FROM t1 WHERE 
1540: 61 3c 31 30 29 3b 0a 20 20 20 20 20 20 20 20 20  a<10);.         
1550: 44 52 4f 50 20 49 4e 44 45 58 20 69 31 3b 0a 20  DROP INDEX i1;. 
1560: 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 20 46          DELETE F
1570: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 20 20 20 20  ROM t1;.        
1580: 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20 20 20 20   COMMIT;.       
1590: 7d 7d 20 6d 73 67 5d 0a 20 20 20 20 20 7d 0a 20  }} msg].     }. 
15a0: 20 20 20 20 73 65 74 20 6c 65 66 74 6f 76 65 72      set leftover
15b0: 20 5b 6c 69 6e 64 65 78 20 5b 73 71 6c 69 74 65   [lindex [sqlite
15c0: 5f 6d 61 6c 6c 6f 63 5f 73 74 61 74 5d 20 32 5d  _malloc_stat] 2]
15d0: 0a 20 20 20 20 20 69 66 20 7b 24 6c 65 66 74 6f  .     if {$lefto
15e0: 76 65 72 3e 30 7d 20 7b 0a 20 20 20 20 20 20 20  ver>0} {.       
15f0: 69 66 20 7b 24 6c 65 66 74 6f 76 65 72 3e 31 7d  if {$leftover>1}
1600: 20 7b 70 75 74 73 20 22 5c 6e 4c 65 66 74 6f 76   {puts "\nLeftov
1610: 65 72 3a 20 24 6c 65 66 74 6f 76 65 72 5c 6e 52  er: $leftover\nR
1620: 65 74 75 72 6e 3d 24 76 20 20 4d 65 73 73 61 67  eturn=$v  Messag
1630: 65 3d 24 6d 73 67 22 7d 0a 20 20 20 20 20 20 20  e=$msg"}.       
1640: 73 65 74 20 3a 3a 67 6f 20 30 0a 20 20 20 20 20  set ::go 0.     
1650: 20 20 73 65 74 20 76 20 7b 31 20 31 7d 0a 20 20    set v {1 1}.  
1660: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
1670: 20 20 20 73 65 74 20 76 32 20 5b 65 78 70 72 20     set v2 [expr 
1680: 7b 24 6d 73 67 3d 3d 22 22 20 7c 7c 20 24 6d 73  {$msg=="" || $ms
1690: 67 3d 3d 22 6f 75 74 20 6f 66 20 6d 65 6d 6f 72  g=="out of memor
16a0: 79 22 7d 5d 0a 20 20 20 20 20 20 20 69 66 20 7b  y"}].       if {
16b0: 21 24 76 32 7d 20 7b 70 75 74 73 20 22 5c 6e 45  !$v2} {puts "\nE
16c0: 72 72 6f 72 20 6d 65 73 73 61 67 65 20 72 65 74  rror message ret
16d0: 75 72 6e 65 64 3a 20 24 6d 73 67 22 7d 0a 20 20  urned: $msg"}.  
16e0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 76 20 24       lappend v $
16f0: 76 32 0a 20 20 20 20 20 7d 0a 20 20 7d 20 7b 31  v2.     }.  } {1
1700: 20 31 7d 0a 7d 0a 73 71 6c 69 74 65 5f 6d 61 6c   1}.}.sqlite_mal
1710: 6c 6f 63 5f 66 61 69 6c 20 30 0a 66 69 6e 69 73  loc_fail 0.finis
1720: 68 5f 74 65 73 74 0a                             h_test.