/ Hex Artifact Content
Login

Artifact aac62499b76be719fac31e7a3e54a7fd53272e7f:


0000: 23 20 32 30 30 37 20 4d 61 79 20 30 35 0a 23 0a  # 2007 May 05.#.
0010: 23 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73  # The author dis
0020: 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74  claims copyright
0030: 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20   to this source 
0040: 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20  code.  In place 
0050: 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74  of.# a legal not
0060: 69 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62  ice, here is a b
0070: 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20  lessing:.#.#    
0080: 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20  May you do good 
0090: 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20  and not evil..# 
00a0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00b0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00c0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00d0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20  give others..#  
00e0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20    May you share 
00f0: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61  freely, never ta
0100: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79  king more than y
0110: 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a  ou give..#.#****
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 0a 23 0a 23 20 54 68 69 73 20 66 69 6c  ***.#.# This fil
0170: 65 20 63 6f 6e 74 61 69 6e 73 20 63 6f 6d 6d 6f  e contains commo
0180: 6e 20 63 6f 64 65 20 75 73 65 64 20 62 79 20 6d  n code used by m
0190: 61 6e 79 20 64 69 66 66 65 72 65 6e 74 20 6d 61  any different ma
01a0: 6c 6c 6f 63 20 74 65 73 74 73 0a 23 20 77 69 74  lloc tests.# wit
01b0: 68 69 6e 20 74 68 65 20 74 65 73 74 20 73 75 69  hin the test sui
01c0: 74 65 2e 0a 23 0a 23 20 24 49 64 3a 20 6d 61 6c  te..#.# $Id: mal
01d0: 6c 6f 63 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 2c 76  loc_common.tcl,v
01e0: 20 31 2e 32 32 20 32 30 30 38 2f 30 39 2f 32 33   1.22 2008/09/23
01f0: 20 31 36 3a 34 31 3a 33 30 20 64 61 6e 69 65 6c   16:41:30 daniel
0200: 6b 31 39 37 37 20 45 78 70 20 24 0a 0a 23 20 49  k1977 Exp $..# I
0210: 66 20 77 65 20 64 69 64 20 6e 6f 74 20 63 6f 6d  f we did not com
0220: 70 69 6c 65 20 77 69 74 68 20 6d 61 6c 6c 6f 63  pile with malloc
0230: 20 74 65 73 74 69 6e 67 20 65 6e 61 62 6c 65 64   testing enabled
0240: 2c 20 74 68 65 6e 20 64 6f 20 6e 6f 74 68 69 6e  , then do nothin
0250: 67 2e 0a 23 0a 69 66 63 61 70 61 62 6c 65 20 62  g..#.ifcapable b
0260: 75 69 6c 74 69 6e 5f 74 65 73 74 20 7b 0a 20 20  uiltin_test {.  
0270: 73 65 74 20 4d 45 4d 44 45 42 55 47 20 31 0a 7d  set MEMDEBUG 1.}
0280: 20 65 6c 73 65 20 7b 0a 20 20 73 65 74 20 4d 45   else {.  set ME
0290: 4d 44 45 42 55 47 20 30 0a 20 20 72 65 74 75 72  MDEBUG 0.  retur
02a0: 6e 20 30 0a 7d 0a 0a 23 20 54 72 61 6e 73 69 65  n 0.}..# Transie
02b0: 6e 74 20 61 6e 64 20 70 65 72 73 69 73 74 65 6e  nt and persisten
02c0: 74 20 4f 4f 4d 20 65 72 72 6f 72 73 3a 0a 23 0a  t OOM errors:.#.
02d0: 73 65 74 20 46 41 55 4c 54 53 49 4d 28 6f 6f 6d  set FAULTSIM(oom
02e0: 2d 74 72 61 6e 73 69 65 6e 74 29 20 5b 6c 69 73  -transient) [lis
02f0: 74 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 2d  t          \.  -
0300: 69 6e 6a 65 63 74 73 74 61 72 74 20 20 20 7b 6f  injectstart   {o
0310: 6f 6d 5f 69 6e 6a 65 63 74 73 74 61 72 74 20 30  om_injectstart 0
0320: 7d 20 20 20 20 20 20 20 5c 0a 20 20 2d 69 6e 6a  }       \.  -inj
0330: 65 63 74 73 74 6f 70 20 20 20 20 6f 6f 6d 5f 69  ectstop    oom_i
0340: 6e 6a 65 63 74 73 74 6f 70 20 20 20 20 20 20 20  njectstop       
0350: 20 20 20 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74       \.  -inject
0360: 65 72 72 6c 69 73 74 20 7b 7b 31 20 7b 6f 75 74  errlist {{1 {out
0370: 20 6f 66 20 6d 65 6d 6f 72 79 7d 7d 7d 20 20 20   of memory}}}   
0380: 20 20 5c 0a 5d 0a 73 65 74 20 46 41 55 4c 54 53    \.].set FAULTS
0390: 49 4d 28 6f 6f 6d 2d 70 65 72 73 69 73 74 65 6e  IM(oom-persisten
03a0: 74 29 20 5b 6c 69 73 74 20 20 20 20 20 20 20 20  t) [list        
03b0: 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 73 74 61 72   \.  -injectstar
03c0: 74 20 7b 6f 6f 6d 5f 69 6e 6a 65 63 74 73 74 61  t {oom_injectsta
03d0: 72 74 20 31 30 30 30 30 30 30 7d 20 20 20 5c 0a  rt 1000000}   \.
03e0: 20 20 2d 69 6e 6a 65 63 74 73 74 6f 70 20 6f 6f    -injectstop oo
03f0: 6d 5f 69 6e 6a 65 63 74 73 74 6f 70 20 20 20 20  m_injectstop    
0400: 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 2d             \.  -
0410: 69 6e 6a 65 63 74 65 72 72 6c 69 73 74 20 7b 7b  injecterrlist {{
0420: 31 20 7b 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79  1 {out of memory
0430: 7d 7d 7d 20 20 20 20 20 5c 0a 5d 0a 20 20 0a 23  }}}     \.].  .#
0440: 20 54 72 61 6e 73 69 65 6e 74 20 61 6e 64 20 70   Transient and p
0450: 65 72 73 69 73 74 65 6e 74 20 49 4f 20 65 72 72  ersistent IO err
0460: 6f 72 73 3a 0a 23 0a 73 65 74 20 46 41 55 4c 54  ors:.#.set FAULT
0470: 53 49 4d 28 69 6f 65 72 72 2d 74 72 61 6e 73 69  SIM(ioerr-transi
0480: 65 6e 74 29 20 5b 6c 69 73 74 20 20 20 20 20 20  ent) [list      
0490: 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 73 74 61    \.  -injectsta
04a0: 72 74 20 20 20 7b 69 6f 65 72 72 5f 69 6e 6a 65  rt   {ioerr_inje
04b0: 63 74 73 74 61 72 74 20 30 7d 20 20 20 20 20 5c  ctstart 0}     \
04c0: 0a 20 20 2d 69 6e 6a 65 63 74 73 74 6f 70 20 20  .  -injectstop  
04d0: 20 20 69 6f 65 72 72 5f 69 6e 6a 65 63 74 73 74    ioerr_injectst
04e0: 6f 70 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20  op          \.  
04f0: 2d 69 6e 6a 65 63 74 65 72 72 6c 69 73 74 20 7b  -injecterrlist {
0500: 7b 31 20 7b 64 69 73 6b 20 49 2f 4f 20 65 72 72  {1 {disk I/O err
0510: 6f 72 7d 7d 7d 20 20 20 20 5c 0a 5d 0a 73 65 74  or}}}    \.].set
0520: 20 46 41 55 4c 54 53 49 4d 28 69 6f 65 72 72 2d   FAULTSIM(ioerr-
0530: 70 65 72 73 69 73 74 65 6e 74 29 20 5b 6c 69 73  persistent) [lis
0540: 74 20 20 20 20 20 20 20 5c 0a 20 20 2d 69 6e 6a  t       \.  -inj
0550: 65 63 74 73 74 61 72 74 20 20 20 7b 69 6f 65 72  ectstart   {ioer
0560: 72 5f 69 6e 6a 65 63 74 73 74 61 72 74 20 31 7d  r_injectstart 1}
0570: 20 20 20 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74       \.  -inject
0580: 73 74 6f 70 20 20 20 20 69 6f 65 72 72 5f 69 6e  stop    ioerr_in
0590: 6a 65 63 74 73 74 6f 70 20 20 20 20 20 20 20 20  jectstop        
05a0: 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 65 72 72    \.  -injecterr
05b0: 6c 69 73 74 20 7b 7b 31 20 7b 64 69 73 6b 20 49  list {{1 {disk I
05c0: 2f 4f 20 65 72 72 6f 72 7d 7d 7d 20 20 20 20 5c  /O error}}}    \
05d0: 0a 5d 0a 0a 23 20 53 51 4c 49 54 45 5f 46 55 4c  .]..# SQLITE_FUL
05e0: 4c 20 65 72 72 6f 72 73 20 28 61 6c 77 61 79 73  L errors (always
05f0: 20 70 65 72 73 69 73 74 65 6e 74 29 3a 0a 23 0a   persistent):.#.
0600: 73 65 74 20 46 41 55 4c 54 53 49 4d 28 66 75 6c  set FAULTSIM(ful
0610: 6c 29 20 5b 6c 69 73 74 20 20 20 20 20 20 20 20  l) [list        
0620: 20 20 20 20 20 20 20 20 20 20 20 5c 0a 20 20 2d             \.  -
0630: 69 6e 6a 65 63 74 69 6e 73 74 61 6c 6c 20 20 20  injectinstall   
0640: 66 75 6c 6c 65 72 72 5f 69 6e 6a 65 63 74 69 6e  fullerr_injectin
0650: 73 74 61 6c 6c 20 20 20 5c 0a 20 20 2d 69 6e 6a  stall   \.  -inj
0660: 65 63 74 73 74 61 72 74 20 20 20 20 20 66 75 6c  ectstart     ful
0670: 6c 65 72 72 5f 69 6e 6a 65 63 74 73 74 61 72 74  lerr_injectstart
0680: 20 20 20 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74       \.  -inject
0690: 73 74 6f 70 20 20 20 20 20 20 66 75 6c 6c 65 72  stop      fuller
06a0: 72 5f 69 6e 6a 65 63 74 73 74 6f 70 20 20 20 20  r_injectstop    
06b0: 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 65 72 72    \.  -injecterr
06c0: 6c 69 73 74 20 20 20 7b 7b 31 20 7b 64 61 74 61  list   {{1 {data
06d0: 62 61 73 65 20 6f 72 20 64 69 73 6b 20 69 73 20  base or disk is 
06e0: 66 75 6c 6c 7d 7d 7d 20 5c 0a 20 20 2d 69 6e 6a  full}}} \.  -inj
06f0: 65 63 74 75 6e 69 6e 73 74 61 6c 6c 20 66 75 6c  ectuninstall ful
0700: 6c 65 72 72 5f 69 6e 6a 65 63 74 75 6e 69 6e 73  lerr_injectunins
0710: 74 61 6c 6c 20 5c 0a 5d 0a 0a 23 20 54 72 61 6e  tall \.]..# Tran
0720: 73 69 65 6e 74 20 61 6e 64 20 70 65 72 73 69 73  sient and persis
0730: 74 65 6e 74 20 53 48 4d 20 65 72 72 6f 72 73 3a  tent SHM errors:
0740: 0a 23 0a 73 65 74 20 46 41 55 4c 54 53 49 4d 28  .#.set FAULTSIM(
0750: 73 68 6d 65 72 72 2d 74 72 61 6e 73 69 65 6e 74  shmerr-transient
0760: 29 20 5b 6c 69 73 74 20 20 20 20 20 20 20 5c 0a  ) [list       \.
0770: 20 20 2d 69 6e 6a 65 63 74 69 6e 73 74 61 6c 6c    -injectinstall
0780: 20 20 20 73 68 6d 65 72 72 5f 69 6e 6a 65 63 74     shmerr_inject
0790: 69 6e 73 74 61 6c 6c 20 20 20 20 5c 0a 20 20 2d  install    \.  -
07a0: 69 6e 6a 65 63 74 73 74 61 72 74 20 20 20 20 20  injectstart     
07b0: 7b 73 68 6d 65 72 72 5f 69 6e 6a 65 63 74 73 74  {shmerr_injectst
07c0: 61 72 74 20 30 7d 20 20 5c 0a 20 20 2d 69 6e 6a  art 0}  \.  -inj
07d0: 65 63 74 73 74 6f 70 20 20 20 20 20 20 73 68 6d  ectstop      shm
07e0: 65 72 72 5f 69 6e 6a 65 63 74 73 74 6f 70 20 20  err_injectstop  
07f0: 20 20 20 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74       \.  -inject
0800: 65 72 72 6c 69 73 74 20 20 20 7b 7b 31 20 7b 64  errlist   {{1 {d
0810: 69 73 6b 20 49 2f 4f 20 65 72 72 6f 72 7d 7d 7d  isk I/O error}}}
0820: 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 75 6e 69    \.  -injectuni
0830: 6e 73 74 61 6c 6c 20 73 68 6d 65 72 72 5f 69 6e  nstall shmerr_in
0840: 6a 65 63 74 75 6e 69 6e 73 74 61 6c 6c 20 20 5c  jectuninstall  \
0850: 0a 5d 0a 73 65 74 20 46 41 55 4c 54 53 49 4d 28  .].set FAULTSIM(
0860: 73 68 6d 65 72 72 2d 70 65 72 73 69 73 74 65 6e  shmerr-persisten
0870: 74 29 20 5b 6c 69 73 74 20 20 20 20 20 20 5c 0a  t) [list      \.
0880: 20 20 2d 69 6e 6a 65 63 74 69 6e 73 74 61 6c 6c    -injectinstall
0890: 20 20 20 73 68 6d 65 72 72 5f 69 6e 6a 65 63 74     shmerr_inject
08a0: 69 6e 73 74 61 6c 6c 20 20 20 20 5c 0a 20 20 2d  install    \.  -
08b0: 69 6e 6a 65 63 74 73 74 61 72 74 20 20 20 20 20  injectstart     
08c0: 7b 73 68 6d 65 72 72 5f 69 6e 6a 65 63 74 73 74  {shmerr_injectst
08d0: 61 72 74 20 31 7d 20 20 5c 0a 20 20 2d 69 6e 6a  art 1}  \.  -inj
08e0: 65 63 74 73 74 6f 70 20 20 20 20 20 20 73 68 6d  ectstop      shm
08f0: 65 72 72 5f 69 6e 6a 65 63 74 73 74 6f 70 20 20  err_injectstop  
0900: 20 20 20 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74       \.  -inject
0910: 65 72 72 6c 69 73 74 20 20 20 7b 7b 31 20 7b 64  errlist   {{1 {d
0920: 69 73 6b 20 49 2f 4f 20 65 72 72 6f 72 7d 7d 7d  isk I/O error}}}
0930: 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 75 6e 69    \.  -injectuni
0940: 6e 73 74 61 6c 6c 20 73 68 6d 65 72 72 5f 69 6e  nstall shmerr_in
0950: 6a 65 63 74 75 6e 69 6e 73 74 61 6c 6c 20 20 5c  jectuninstall  \
0960: 0a 5d 0a 0a 23 20 54 72 61 6e 73 69 65 6e 74 20  .]..# Transient 
0970: 61 6e 64 20 70 65 72 73 69 73 74 65 6e 74 20 43  and persistent C
0980: 41 4e 54 4f 50 45 4e 20 65 72 72 6f 72 73 3a 0a  ANTOPEN errors:.
0990: 23 0a 73 65 74 20 46 41 55 4c 54 53 49 4d 28 63  #.set FAULTSIM(c
09a0: 61 6e 74 6f 70 65 6e 2d 74 72 61 6e 73 69 65 6e  antopen-transien
09b0: 74 29 20 5b 6c 69 73 74 20 20 20 20 20 20 20 5c  t) [list       \
09c0: 0a 20 20 2d 69 6e 6a 65 63 74 69 6e 73 74 61 6c  .  -injectinstal
09d0: 6c 20 20 20 63 61 6e 74 6f 70 65 6e 5f 69 6e 6a  l   cantopen_inj
09e0: 65 63 74 69 6e 73 74 61 6c 6c 20 20 20 20 5c 0a  ectinstall    \.
09f0: 20 20 2d 69 6e 6a 65 63 74 73 74 61 72 74 20 20    -injectstart  
0a00: 20 20 20 7b 63 61 6e 74 6f 70 65 6e 5f 69 6e 6a     {cantopen_inj
0a10: 65 63 74 73 74 61 72 74 20 30 7d 20 20 5c 0a 20  ectstart 0}  \. 
0a20: 20 2d 69 6e 6a 65 63 74 73 74 6f 70 20 20 20 20   -injectstop    
0a30: 20 20 63 61 6e 74 6f 70 65 6e 5f 69 6e 6a 65 63    cantopen_injec
0a40: 74 73 74 6f 70 20 20 20 20 20 20 20 5c 0a 20 20  tstop       \.  
0a50: 2d 69 6e 6a 65 63 74 65 72 72 6c 69 73 74 20 20  -injecterrlist  
0a60: 20 7b 7b 31 20 7b 75 6e 61 62 6c 65 20 74 6f 20   {{1 {unable to 
0a70: 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 66 69  open database fi
0a80: 6c 65 7d 7d 7d 20 20 5c 0a 20 20 2d 69 6e 6a 65  le}}}  \.  -inje
0a90: 63 74 75 6e 69 6e 73 74 61 6c 6c 20 63 61 6e 74  ctuninstall cant
0aa0: 6f 70 65 6e 5f 69 6e 6a 65 63 74 75 6e 69 6e 73  open_injectunins
0ab0: 74 61 6c 6c 20 20 5c 0a 5d 0a 73 65 74 20 46 41  tall  \.].set FA
0ac0: 55 4c 54 53 49 4d 28 63 61 6e 74 6f 70 65 6e 2d  ULTSIM(cantopen-
0ad0: 70 65 72 73 69 73 74 65 6e 74 29 20 5b 6c 69 73  persistent) [lis
0ae0: 74 20 20 20 20 20 20 5c 0a 20 20 2d 69 6e 6a 65  t      \.  -inje
0af0: 63 74 69 6e 73 74 61 6c 6c 20 20 20 63 61 6e 74  ctinstall   cant
0b00: 6f 70 65 6e 5f 69 6e 6a 65 63 74 69 6e 73 74 61  open_injectinsta
0b10: 6c 6c 20 20 20 20 5c 0a 20 20 2d 69 6e 6a 65 63  ll    \.  -injec
0b20: 74 73 74 61 72 74 20 20 20 20 20 7b 63 61 6e 74  tstart     {cant
0b30: 6f 70 65 6e 5f 69 6e 6a 65 63 74 73 74 61 72 74  open_injectstart
0b40: 20 31 7d 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74   1}  \.  -inject
0b50: 73 74 6f 70 20 20 20 20 20 20 63 61 6e 74 6f 70  stop      cantop
0b60: 65 6e 5f 69 6e 6a 65 63 74 73 74 6f 70 20 20 20  en_injectstop   
0b70: 20 20 20 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 65      \.  -injecte
0b80: 72 72 6c 69 73 74 20 20 20 7b 7b 31 20 7b 75 6e  rrlist   {{1 {un
0b90: 61 62 6c 65 20 74 6f 20 6f 70 65 6e 20 64 61 74  able to open dat
0ba0: 61 62 61 73 65 20 66 69 6c 65 7d 7d 7d 20 20 5c  abase file}}}  \
0bb0: 0a 20 20 2d 69 6e 6a 65 63 74 75 6e 69 6e 73 74  .  -injectuninst
0bc0: 61 6c 6c 20 63 61 6e 74 6f 70 65 6e 5f 69 6e 6a  all cantopen_inj
0bd0: 65 63 74 75 6e 69 6e 73 74 61 6c 6c 20 20 5c 0a  ectuninstall  \.
0be0: 5d 0a 0a 73 65 74 20 46 41 55 4c 54 53 49 4d 28  ]..set FAULTSIM(
0bf0: 69 6e 74 65 72 72 75 70 74 29 20 5b 6c 69 73 74  interrupt) [list
0c00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0c10: 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 69 6e 73 74   \.  -injectinst
0c20: 61 6c 6c 20 20 20 69 6e 74 65 72 72 75 70 74 5f  all   interrupt_
0c30: 69 6e 6a 65 63 74 69 6e 73 74 61 6c 6c 20 20 20  injectinstall   
0c40: 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 73 74 61 72   \.  -injectstar
0c50: 74 20 20 20 20 20 69 6e 74 65 72 72 75 70 74 5f  t     interrupt_
0c60: 69 6e 6a 65 63 74 73 74 61 72 74 20 20 20 20 20  injectstart     
0c70: 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 73 74 6f 70   \.  -injectstop
0c80: 20 20 20 20 20 20 69 6e 74 65 72 72 75 70 74 5f        interrupt_
0c90: 69 6e 6a 65 63 74 73 74 6f 70 20 20 20 20 20 20  injectstop      
0ca0: 20 5c 0a 20 20 2d 69 6e 6a 65 63 74 65 72 72 6c   \.  -injecterrl
0cb0: 69 73 74 20 20 20 7b 7b 31 20 69 6e 74 65 72 72  ist   {{1 interr
0cc0: 75 70 74 65 64 7d 20 7b 31 20 69 6e 74 65 72 72  upted} {1 interr
0cd0: 75 70 74 7d 7d 20 20 20 20 20 20 20 20 5c 0a 20  upt}}        \. 
0ce0: 20 2d 69 6e 6a 65 63 74 75 6e 69 6e 73 74 61 6c   -injectuninstal
0cf0: 6c 20 69 6e 74 65 72 72 75 70 74 5f 69 6e 6a 65  l interrupt_inje
0d00: 63 74 75 6e 69 6e 73 74 61 6c 6c 20 20 5c 0a 5d  ctuninstall  \.]
0d10: 0a 0a 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ....#-----------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
0d60: 23 20 55 73 61 67 65 20 64 6f 5f 66 61 75 6c 74  # Usage do_fault
0d70: 73 69 6d 5f 74 65 73 74 20 4e 41 4d 45 20 3f 4f  sim_test NAME ?O
0d80: 50 54 49 4f 4e 53 2e 2e 2e 3f 20 0a 23 0a 23 20  PTIONS...? .#.# 
0d90: 20 20 20 20 2d 66 61 75 6c 74 73 20 20 20 20 20      -faults     
0da0: 20 20 20 20 20 20 4c 69 73 74 20 6f 66 20 66 61        List of fa
0db0: 75 6c 74 20 74 79 70 65 73 20 74 6f 20 73 69 6d  ult types to sim
0dc0: 75 6c 61 74 65 2e 0a 23 0a 23 20 20 20 20 20 2d  ulate..#.#     -
0dd0: 70 72 65 70 20 20 20 20 20 20 20 20 20 20 20 20  prep            
0de0: 20 53 63 72 69 70 74 20 74 6f 20 65 78 65 63 75   Script to execu
0df0: 74 65 20 62 65 66 6f 72 65 20 2d 62 6f 64 79 2e  te before -body.
0e00: 0a 23 0a 23 20 20 20 20 20 2d 62 6f 64 79 20 20  .#.#     -body  
0e10: 20 20 20 20 20 20 20 20 20 20 20 53 63 72 69 70             Scrip
0e20: 74 20 74 6f 20 65 78 65 63 75 74 65 20 28 77 69  t to execute (wi
0e30: 74 68 20 66 61 75 6c 74 20 69 6e 6a 65 63 74 69  th fault injecti
0e40: 6f 6e 29 2e 0a 23 0a 23 20 20 20 20 20 2d 74 65  on)..#.#     -te
0e50: 73 74 20 20 20 20 20 20 20 20 20 20 20 20 20 53  st             S
0e60: 63 72 69 70 74 20 74 6f 20 65 78 65 63 75 74 65  cript to execute
0e70: 20 61 66 74 65 72 20 2d 62 6f 64 79 2e 0a 23 0a   after -body..#.
0e80: 23 20 20 20 20 20 2d 69 6e 73 74 61 6c 6c 20 20  #     -install  
0e90: 20 20 20 20 20 20 20 20 53 63 72 69 70 74 20 74          Script t
0ea0: 6f 20 65 78 65 63 75 74 65 20 61 66 74 65 72 20  o execute after 
0eb0: 66 61 75 6c 74 73 69 6d 20 2d 69 6e 6a 65 63 74  faultsim -inject
0ec0: 69 6e 73 74 61 6c 6c 0a 23 0a 23 20 20 20 20 20  install.#.#     
0ed0: 2d 75 6e 69 6e 73 74 61 6c 6c 20 20 20 20 20 20  -uninstall      
0ee0: 20 20 53 63 72 69 70 74 20 74 6f 20 65 78 65 63    Script to exec
0ef0: 75 74 65 20 61 66 74 65 72 20 66 61 75 6c 74 73  ute after faults
0f00: 69 6d 20 2d 75 6e 69 6e 6a 65 63 74 69 6e 73 74  im -uninjectinst
0f10: 61 6c 6c 0a 23 0a 70 72 6f 63 20 64 6f 5f 66 61  all.#.proc do_fa
0f20: 75 6c 74 73 69 6d 5f 74 65 73 74 20 7b 6e 61 6d  ultsim_test {nam
0f30: 65 20 61 72 67 73 7d 20 7b 0a 20 20 67 6c 6f 62  e args} {.  glob
0f40: 61 6c 20 46 41 55 4c 54 53 49 4d 0a 20 20 0a 20  al FAULTSIM.  . 
0f50: 20 66 6f 72 65 61 63 68 20 6e 20 5b 61 72 72 61   foreach n [arra
0f60: 79 20 6e 61 6d 65 73 20 46 41 55 4c 54 53 49 4d  y names FAULTSIM
0f70: 5d 20 7b 0a 20 20 20 20 69 66 20 7b 24 6e 20 21  ] {.    if {$n !
0f80: 3d 20 22 69 6e 74 65 72 72 75 70 74 22 7d 20 7b  = "interrupt"} {
0f90: 6c 61 70 70 65 6e 64 20 44 45 46 41 55 4c 54 28  lappend DEFAULT(
0fa0: 2d 66 61 75 6c 74 73 29 20 24 6e 7d 0a 20 20 7d  -faults) $n}.  }
0fb0: 0a 20 20 73 65 74 20 44 45 46 41 55 4c 54 28 2d  .  set DEFAULT(-
0fc0: 70 72 65 70 29 20 20 20 20 20 20 20 20 20 20 22  prep)          "
0fd0: 22 0a 20 20 73 65 74 20 44 45 46 41 55 4c 54 28  ".  set DEFAULT(
0fe0: 2d 62 6f 64 79 29 20 20 20 20 20 20 20 20 20 20  -body)          
0ff0: 22 22 0a 20 20 73 65 74 20 44 45 46 41 55 4c 54  "".  set DEFAULT
1000: 28 2d 74 65 73 74 29 20 20 20 20 20 20 20 20 20  (-test)         
1010: 20 22 22 0a 20 20 73 65 74 20 44 45 46 41 55 4c   "".  set DEFAUL
1020: 54 28 2d 69 6e 73 74 61 6c 6c 29 20 20 20 20 20  T(-install)     
1030: 20 20 22 22 0a 20 20 73 65 74 20 44 45 46 41 55    "".  set DEFAU
1040: 4c 54 28 2d 75 6e 69 6e 73 74 61 6c 6c 29 20 20  LT(-uninstall)  
1050: 20 20 20 22 22 0a 20 20 73 65 74 20 44 45 46 41     "".  set DEFA
1060: 55 4c 54 28 2d 73 74 61 72 74 29 20 20 20 20 20  ULT(-start)     
1070: 20 20 20 20 20 31 0a 20 20 73 65 74 20 44 45 46       1.  set DEF
1080: 41 55 4c 54 28 2d 65 6e 64 29 20 20 20 20 20 20  AULT(-end)      
1090: 20 20 20 20 20 20 30 0a 0a 20 20 66 69 78 5f 74        0..  fix_t
10a0: 65 73 74 6e 61 6d 65 20 6e 61 6d 65 0a 0a 20 20  estname name..  
10b0: 61 72 72 61 79 20 73 65 74 20 4f 20 5b 61 72 72  array set O [arr
10c0: 61 79 20 67 65 74 20 44 45 46 41 55 4c 54 5d 0a  ay get DEFAULT].
10d0: 20 20 61 72 72 61 79 20 73 65 74 20 4f 20 24 61    array set O $a
10e0: 72 67 73 0a 20 20 66 6f 72 65 61 63 68 20 6f 20  rgs.  foreach o 
10f0: 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 4f 5d 20  [array names O] 
1100: 7b 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20  {.    if {[info 
1110: 65 78 69 73 74 73 20 44 45 46 41 55 4c 54 28 24  exists DEFAULT($
1120: 6f 29 5d 3d 3d 30 7d 20 7b 20 65 72 72 6f 72 20  o)]==0} { error 
1130: 22 75 6e 6b 6e 6f 77 6e 20 6f 70 74 69 6f 6e 3a  "unknown option:
1140: 20 24 6f 22 20 7d 0a 20 20 7d 0a 0a 20 20 73 65   $o" }.  }..  se
1150: 74 20 66 61 75 6c 74 6c 69 73 74 20 5b 6c 69 73  t faultlist [lis
1160: 74 5d 0a 20 20 66 6f 72 65 61 63 68 20 66 20 24  t].  foreach f $
1170: 4f 28 2d 66 61 75 6c 74 73 29 20 7b 0a 20 20 20  O(-faults) {.   
1180: 20 73 65 74 20 66 6c 69 73 74 20 5b 61 72 72 61   set flist [arra
1190: 79 20 6e 61 6d 65 73 20 46 41 55 4c 54 53 49 4d  y names FAULTSIM
11a0: 20 24 66 5d 0a 20 20 20 20 69 66 20 7b 5b 6c 6c   $f].    if {[ll
11b0: 65 6e 67 74 68 20 24 66 6c 69 73 74 5d 3d 3d 30  ength $flist]==0
11c0: 7d 20 7b 20 65 72 72 6f 72 20 22 75 6e 6b 6e 6f  } { error "unkno
11d0: 77 6e 20 66 61 75 6c 74 3a 20 24 66 22 20 7d 0a  wn fault: $f" }.
11e0: 20 20 20 20 73 65 74 20 66 61 75 6c 74 6c 69 73      set faultlis
11f0: 74 20 5b 63 6f 6e 63 61 74 20 24 66 61 75 6c 74  t [concat $fault
1200: 6c 69 73 74 20 24 66 6c 69 73 74 5d 0a 20 20 7d  list $flist].  }
1210: 0a 0a 20 20 73 65 74 20 74 65 73 74 73 70 65 63  ..  set testspec
1220: 20 5b 6c 69 73 74 20 2d 70 72 65 70 20 24 4f 28   [list -prep $O(
1230: 2d 70 72 65 70 29 20 2d 62 6f 64 79 20 24 4f 28  -prep) -body $O(
1240: 2d 62 6f 64 79 29 20 5c 0a 20 20 20 20 20 20 2d  -body) \.      -
1250: 74 65 73 74 20 24 4f 28 2d 74 65 73 74 29 20 2d  test $O(-test) -
1260: 69 6e 73 74 61 6c 6c 20 24 4f 28 2d 69 6e 73 74  install $O(-inst
1270: 61 6c 6c 29 20 2d 75 6e 69 6e 73 74 61 6c 6c 20  all) -uninstall 
1280: 24 4f 28 2d 75 6e 69 6e 73 74 61 6c 6c 29 20 5c  $O(-uninstall) \
1290: 0a 20 20 20 20 20 20 2d 73 74 61 72 74 20 24 4f  .      -start $O
12a0: 28 2d 73 74 61 72 74 29 20 2d 65 6e 64 20 24 4f  (-start) -end $O
12b0: 28 2d 65 6e 64 29 0a 20 20 5d 0a 20 20 66 6f 72  (-end).  ].  for
12c0: 65 61 63 68 20 66 20 5b 6c 73 6f 72 74 20 2d 75  each f [lsort -u
12d0: 6e 69 71 75 65 20 24 66 61 75 6c 74 6c 69 73 74  nique $faultlist
12e0: 5d 20 7b 0a 20 20 20 20 65 76 61 6c 20 64 6f 5f  ] {.    eval do_
12f0: 6f 6e 65 5f 66 61 75 6c 74 73 69 6d 5f 74 65 73  one_faultsim_tes
1300: 74 20 22 24 6e 61 6d 65 2d 24 66 22 20 24 46 41  t "$name-$f" $FA
1310: 55 4c 54 53 49 4d 28 24 66 29 20 24 74 65 73 74  ULTSIM($f) $test
1320: 73 70 65 63 0a 20 20 7d 0a 7d 0a 0a 0a 23 2d 2d  spec.  }.}...#--
1330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1370: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 50 72 6f 63 65 64  -------.# Proced
1380: 75 72 65 73 20 74 6f 20 73 61 76 65 20 61 6e 64  ures to save and
1390: 20 72 65 73 74 6f 72 65 20 74 68 65 20 63 75 72   restore the cur
13a0: 72 65 6e 74 20 66 69 6c 65 2d 73 79 73 74 65 6d  rent file-system
13b0: 20 73 74 61 74 65 3a 0a 23 0a 23 20 20 20 66 61   state:.#.#   fa
13c0: 75 6c 74 73 69 6d 5f 73 61 76 65 0a 23 20 20 20  ultsim_save.#   
13d0: 66 61 75 6c 74 73 69 6d 5f 72 65 73 74 6f 72 65  faultsim_restore
13e0: 0a 23 20 20 20 66 61 75 6c 74 73 69 6d 5f 73 61  .#   faultsim_sa
13f0: 76 65 5f 61 6e 64 5f 63 6c 6f 73 65 0a 23 20 20  ve_and_close.#  
1400: 20 66 61 75 6c 74 73 69 6d 5f 72 65 73 74 6f 72   faultsim_restor
1410: 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 0a 23 20 20  e_and_reopen.#  
1420: 20 66 61 75 6c 74 73 69 6d 5f 64 65 6c 65 74 65   faultsim_delete
1430: 5f 61 6e 64 5f 72 65 6f 70 65 6e 0a 23 0a 70 72  _and_reopen.#.pr
1440: 6f 63 20 66 61 75 6c 74 73 69 6d 5f 73 61 76 65  oc faultsim_save
1450: 20 7b 61 72 67 73 7d 20 7b 20 75 70 6c 65 76 65   {args} { upleve
1460: 6c 20 64 62 5f 73 61 76 65 20 24 61 72 67 73 20  l db_save $args 
1470: 7d 0a 70 72 6f 63 20 66 61 75 6c 74 73 69 6d 5f  }.proc faultsim_
1480: 73 61 76 65 5f 61 6e 64 5f 63 6c 6f 73 65 20 7b  save_and_close {
1490: 61 72 67 73 7d 20 7b 20 75 70 6c 65 76 65 6c 20  args} { uplevel 
14a0: 64 62 5f 73 61 76 65 5f 61 6e 64 5f 63 6c 6f 73  db_save_and_clos
14b0: 65 20 24 61 72 67 73 20 7d 0a 70 72 6f 63 20 66  e $args }.proc f
14c0: 61 75 6c 74 73 69 6d 5f 72 65 73 74 6f 72 65 20  aultsim_restore 
14d0: 7b 61 72 67 73 7d 20 7b 20 75 70 6c 65 76 65 6c  {args} { uplevel
14e0: 20 64 62 5f 72 65 73 74 6f 72 65 20 24 61 72 67   db_restore $arg
14f0: 73 20 7d 0a 70 72 6f 63 20 66 61 75 6c 74 73 69  s }.proc faultsi
1500: 6d 5f 72 65 73 74 6f 72 65 5f 61 6e 64 5f 72 65  m_restore_and_re
1510: 6f 70 65 6e 20 7b 61 72 67 73 7d 20 7b 20 0a 20  open {args} { . 
1520: 20 75 70 6c 65 76 65 6c 20 64 62 5f 72 65 73 74   uplevel db_rest
1530: 6f 72 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 20 24  ore_and_reopen $
1540: 61 72 67 73 20 0a 20 20 73 71 6c 69 74 65 33 5f  args .  sqlite3_
1550: 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f  extended_result_
1560: 63 6f 64 65 73 20 64 62 20 31 0a 20 20 73 71 6c  codes db 1.  sql
1570: 69 74 65 33 5f 64 62 5f 63 6f 6e 66 69 67 5f 6c  ite3_db_config_l
1580: 6f 6f 6b 61 73 69 64 65 20 64 62 20 30 20 30 20  ookaside db 0 0 
1590: 30 0a 7d 0a 70 72 6f 63 20 66 61 75 6c 74 73 69  0.}.proc faultsi
15a0: 6d 5f 64 65 6c 65 74 65 5f 61 6e 64 5f 72 65 6f  m_delete_and_reo
15b0: 70 65 6e 20 7b 61 72 67 73 7d 20 7b 0a 20 20 75  pen {args} {.  u
15c0: 70 6c 65 76 65 6c 20 64 62 5f 64 65 6c 65 74 65  plevel db_delete
15d0: 5f 61 6e 64 5f 72 65 6f 70 65 6e 20 24 61 72 67  _and_reopen $arg
15e0: 73 20 0a 20 20 73 71 6c 69 74 65 33 5f 65 78 74  s .  sqlite3_ext
15f0: 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64  ended_result_cod
1600: 65 73 20 64 62 20 31 0a 20 20 73 71 6c 69 74 65  es db 1.  sqlite
1610: 33 5f 64 62 5f 63 6f 6e 66 69 67 5f 6c 6f 6f 6b  3_db_config_look
1620: 61 73 69 64 65 20 64 62 20 30 20 30 20 30 0a 7d  aside db 0 0 0.}
1630: 0a 0a 70 72 6f 63 20 66 61 75 6c 74 73 69 6d 5f  ..proc faultsim_
1640: 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 20  integrity_check 
1650: 7b 7b 64 62 20 64 62 7d 7d 20 7b 0a 20 20 73 65  {{db db}} {.  se
1660: 74 20 69 63 20 5b 24 64 62 20 65 76 61 6c 20 7b  t ic [$db eval {
1670: 20 50 52 41 47 4d 41 20 69 6e 74 65 67 72 69 74   PRAGMA integrit
1680: 79 5f 63 68 65 63 6b 20 7d 5d 0a 20 20 69 66 20  y_check }].  if 
1690: 7b 24 69 63 20 21 3d 20 22 6f 6b 22 7d 20 7b 20  {$ic != "ok"} { 
16a0: 65 72 72 6f 72 20 22 49 6e 74 65 67 72 69 74 79  error "Integrity
16b0: 20 63 68 65 63 6b 3a 20 24 69 63 22 20 7d 0a 7d   check: $ic" }.}
16c0: 0a 0a 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69  ...# The followi
16d0: 6e 67 20 70 72 6f 63 73 20 61 72 65 20 75 73 65  ng procs are use
16e0: 64 20 61 73 20 5b 64 6f 5f 6f 6e 65 5f 66 61 75  d as [do_one_fau
16f0: 6c 74 73 69 6d 5f 74 65 73 74 5d 20 63 61 6c 6c  ltsim_test] call
1700: 62 61 63 6b 73 20 77 68 65 6e 20 0a 23 20 69 6e  backs when .# in
1710: 6a 65 63 74 69 6e 67 20 4f 4f 4d 20 66 61 75 6c  jecting OOM faul
1720: 74 73 20 69 6e 74 6f 20 74 65 73 74 20 63 61 73  ts into test cas
1730: 65 73 2e 0a 23 0a 70 72 6f 63 20 6f 6f 6d 5f 69  es..#.proc oom_i
1740: 6e 6a 65 63 74 73 74 61 72 74 20 7b 6e 52 65 70  njectstart {nRep
1750: 65 61 74 20 69 46 61 69 6c 7d 20 7b 0a 20 20 73  eat iFail} {.  s
1760: 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f  qlite3_memdebug_
1770: 66 61 69 6c 20 5b 65 78 70 72 20 24 69 46 61 69  fail [expr $iFai
1780: 6c 2d 31 5d 20 2d 72 65 70 65 61 74 20 24 6e 52  l-1] -repeat $nR
1790: 65 70 65 61 74 0a 7d 0a 70 72 6f 63 20 6f 6f 6d  epeat.}.proc oom
17a0: 5f 69 6e 6a 65 63 74 73 74 6f 70 20 7b 7d 20 7b  _injectstop {} {
17b0: 0a 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65  .  sqlite3_memde
17c0: 62 75 67 5f 66 61 69 6c 20 2d 31 0a 7d 0a 0a 23  bug_fail -1.}..#
17d0: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70   The following p
17e0: 72 6f 63 73 20 61 72 65 20 75 73 65 64 20 61 73  rocs are used as
17f0: 20 5b 64 6f 5f 6f 6e 65 5f 66 61 75 6c 74 73 69   [do_one_faultsi
1800: 6d 5f 74 65 73 74 5d 20 63 61 6c 6c 62 61 63 6b  m_test] callback
1810: 73 20 77 68 65 6e 20 0a 23 20 69 6e 6a 65 63 74  s when .# inject
1820: 69 6e 67 20 49 4f 20 65 72 72 6f 72 20 66 61 75  ing IO error fau
1830: 6c 74 73 20 69 6e 74 6f 20 74 65 73 74 20 63 61  lts into test ca
1840: 73 65 73 2e 0a 23 0a 70 72 6f 63 20 69 6f 65 72  ses..#.proc ioer
1850: 72 5f 69 6e 6a 65 63 74 73 74 61 72 74 20 7b 70  r_injectstart {p
1860: 65 72 73 69 73 74 20 69 46 61 69 6c 7d 20 7b 0a  ersist iFail} {.
1870: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
1880: 6f 5f 65 72 72 6f 72 5f 70 65 72 73 69 73 74 20  o_error_persist 
1890: 24 70 65 72 73 69 73 74 0a 20 20 73 65 74 20 3a  $persist.  set :
18a0: 3a 73 71 6c 69 74 65 5f 69 6f 5f 65 72 72 6f 72  :sqlite_io_error
18b0: 5f 70 65 6e 64 69 6e 67 20 24 69 46 61 69 6c 0a  _pending $iFail.
18c0: 7d 0a 70 72 6f 63 20 69 6f 65 72 72 5f 69 6e 6a  }.proc ioerr_inj
18d0: 65 63 74 73 74 6f 70 20 7b 7d 20 7b 0a 20 20 73  ectstop {} {.  s
18e0: 65 74 20 73 76 20 24 3a 3a 73 71 6c 69 74 65 5f  et sv $::sqlite_
18f0: 69 6f 5f 65 72 72 6f 72 5f 68 69 74 0a 20 20 73  io_error_hit.  s
1900: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f 5f 65  et ::sqlite_io_e
1910: 72 72 6f 72 5f 70 65 72 73 69 73 74 20 30 0a 20  rror_persist 0. 
1920: 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69 6f   set ::sqlite_io
1930: 5f 65 72 72 6f 72 5f 70 65 6e 64 69 6e 67 20 30  _error_pending 0
1940: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f  .  set ::sqlite_
1950: 69 6f 5f 65 72 72 6f 72 5f 68 61 72 64 68 69 74  io_error_hardhit
1960: 20 30 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74   0.  set ::sqlit
1970: 65 5f 69 6f 5f 65 72 72 6f 72 5f 68 69 74 20 20  e_io_error_hit  
1980: 20 20 20 30 0a 20 20 73 65 74 20 3a 3a 73 71 6c     0.  set ::sql
1990: 69 74 65 5f 69 6f 5f 65 72 72 6f 72 5f 70 65 6e  ite_io_error_pen
19a0: 64 69 6e 67 20 30 0a 20 20 72 65 74 75 72 6e 20  ding 0.  return 
19b0: 24 73 76 0a 7d 0a 0a 23 20 54 68 65 20 66 6f 6c  $sv.}..# The fol
19c0: 6c 6f 77 69 6e 67 20 70 72 6f 63 73 20 61 72 65  lowing procs are
19d0: 20 75 73 65 64 20 61 73 20 5b 64 6f 5f 6f 6e 65   used as [do_one
19e0: 5f 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 5d 20  _faultsim_test] 
19f0: 63 61 6c 6c 62 61 63 6b 73 20 77 68 65 6e 20 0a  callbacks when .
1a00: 23 20 69 6e 6a 65 63 74 69 6e 67 20 73 68 61 72  # injecting shar
1a10: 65 64 2d 6d 65 6d 6f 72 79 20 72 65 6c 61 74 65  ed-memory relate
1a20: 64 20 65 72 72 6f 72 20 66 61 75 6c 74 73 20 69  d error faults i
1a30: 6e 74 6f 20 74 65 73 74 20 63 61 73 65 73 2e 0a  nto test cases..
1a40: 23 0a 70 72 6f 63 20 73 68 6d 65 72 72 5f 69 6e  #.proc shmerr_in
1a50: 6a 65 63 74 69 6e 73 74 61 6c 6c 20 7b 7d 20 7b  jectinstall {} {
1a60: 0a 20 20 74 65 73 74 76 66 73 20 73 68 6d 66 61  .  testvfs shmfa
1a70: 75 6c 74 20 2d 64 65 66 61 75 6c 74 20 74 72 75  ult -default tru
1a80: 65 0a 20 20 73 68 6d 66 61 75 6c 74 20 66 69 6c  e.  shmfault fil
1a90: 74 65 72 20 7b 78 53 68 6d 4f 70 65 6e 20 78 53  ter {xShmOpen xS
1aa0: 68 6d 4d 61 70 20 78 53 68 6d 4c 6f 63 6b 7d 0a  hmMap xShmLock}.
1ab0: 7d 0a 70 72 6f 63 20 73 68 6d 65 72 72 5f 69 6e  }.proc shmerr_in
1ac0: 6a 65 63 74 75 6e 69 6e 73 74 61 6c 6c 20 7b 7d  jectuninstall {}
1ad0: 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62 20 20   {.  catch {db  
1ae0: 63 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b  close}.  catch {
1af0: 64 62 32 20 63 6c 6f 73 65 7d 0a 20 20 73 68 6d  db2 close}.  shm
1b00: 66 61 75 6c 74 20 64 65 6c 65 74 65 0a 7d 0a 70  fault delete.}.p
1b10: 72 6f 63 20 73 68 6d 65 72 72 5f 69 6e 6a 65 63  roc shmerr_injec
1b20: 74 73 74 61 72 74 20 7b 70 65 72 73 69 73 74 20  tstart {persist 
1b30: 69 46 61 69 6c 7d 20 7b 0a 20 20 73 68 6d 66 61  iFail} {.  shmfa
1b40: 75 6c 74 20 69 6f 65 72 72 20 24 69 46 61 69 6c  ult ioerr $iFail
1b50: 20 24 70 65 72 73 69 73 74 0a 7d 0a 70 72 6f 63   $persist.}.proc
1b60: 20 73 68 6d 65 72 72 5f 69 6e 6a 65 63 74 73 74   shmerr_injectst
1b70: 6f 70 20 7b 7d 20 7b 0a 20 20 73 68 6d 66 61 75  op {} {.  shmfau
1b80: 6c 74 20 69 6f 65 72 72 0a 7d 0a 0a 23 20 54 68  lt ioerr.}..# Th
1b90: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 72 6f 63  e following proc
1ba0: 73 20 61 72 65 20 75 73 65 64 20 61 73 20 5b 64  s are used as [d
1bb0: 6f 5f 6f 6e 65 5f 66 61 75 6c 74 73 69 6d 5f 74  o_one_faultsim_t
1bc0: 65 73 74 5d 20 63 61 6c 6c 62 61 63 6b 73 20 77  est] callbacks w
1bd0: 68 65 6e 20 0a 23 20 69 6e 6a 65 63 74 69 6e 67  hen .# injecting
1be0: 20 53 51 4c 49 54 45 5f 46 55 4c 4c 20 65 72 72   SQLITE_FULL err
1bf0: 6f 72 20 66 61 75 6c 74 73 20 69 6e 74 6f 20 74  or faults into t
1c00: 65 73 74 20 63 61 73 65 73 2e 0a 23 0a 70 72 6f  est cases..#.pro
1c10: 63 20 66 75 6c 6c 65 72 72 5f 69 6e 6a 65 63 74  c fullerr_inject
1c20: 69 6e 73 74 61 6c 6c 20 7b 7d 20 7b 0a 20 20 74  install {} {.  t
1c30: 65 73 74 76 66 73 20 73 68 6d 66 61 75 6c 74 20  estvfs shmfault 
1c40: 2d 64 65 66 61 75 6c 74 20 74 72 75 65 0a 7d 0a  -default true.}.
1c50: 70 72 6f 63 20 66 75 6c 6c 65 72 72 5f 69 6e 6a  proc fullerr_inj
1c60: 65 63 74 75 6e 69 6e 73 74 61 6c 6c 20 7b 7d 20  ectuninstall {} 
1c70: 7b 0a 20 20 63 61 74 63 68 20 7b 64 62 20 20 63  {.  catch {db  c
1c80: 6c 6f 73 65 7d 0a 20 20 63 61 74 63 68 20 7b 64  lose}.  catch {d
1c90: 62 32 20 63 6c 6f 73 65 7d 0a 20 20 73 68 6d 66  b2 close}.  shmf
1ca0: 61 75 6c 74 20 64 65 6c 65 74 65 0a 7d 0a 70 72  ault delete.}.pr
1cb0: 6f 63 20 66 75 6c 6c 65 72 72 5f 69 6e 6a 65 63  oc fullerr_injec
1cc0: 74 73 74 61 72 74 20 7b 69 46 61 69 6c 7d 20 7b  tstart {iFail} {
1cd0: 0a 20 20 73 68 6d 66 61 75 6c 74 20 66 75 6c 6c  .  shmfault full
1ce0: 20 24 69 46 61 69 6c 20 31 0a 7d 0a 70 72 6f 63   $iFail 1.}.proc
1cf0: 20 66 75 6c 6c 65 72 72 5f 69 6e 6a 65 63 74 73   fullerr_injects
1d00: 74 6f 70 20 7b 7d 20 7b 0a 20 20 73 68 6d 66 61  top {} {.  shmfa
1d10: 75 6c 74 20 66 75 6c 6c 0a 7d 0a 0a 23 20 54 68  ult full.}..# Th
1d20: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 72 6f 63  e following proc
1d30: 73 20 61 72 65 20 75 73 65 64 20 61 73 20 5b 64  s are used as [d
1d40: 6f 5f 6f 6e 65 5f 66 61 75 6c 74 73 69 6d 5f 74  o_one_faultsim_t
1d50: 65 73 74 5d 20 63 61 6c 6c 62 61 63 6b 73 20 77  est] callbacks w
1d60: 68 65 6e 20 0a 23 20 69 6e 6a 65 63 74 69 6e 67  hen .# injecting
1d70: 20 53 51 4c 49 54 45 5f 43 41 4e 54 4f 50 45 4e   SQLITE_CANTOPEN
1d80: 20 65 72 72 6f 72 20 66 61 75 6c 74 73 20 69 6e   error faults in
1d90: 74 6f 20 74 65 73 74 20 63 61 73 65 73 2e 0a 23  to test cases..#
1da0: 0a 70 72 6f 63 20 63 61 6e 74 6f 70 65 6e 5f 69  .proc cantopen_i
1db0: 6e 6a 65 63 74 69 6e 73 74 61 6c 6c 20 7b 7d 20  njectinstall {} 
1dc0: 7b 0a 20 20 74 65 73 74 76 66 73 20 73 68 6d 66  {.  testvfs shmf
1dd0: 61 75 6c 74 20 2d 64 65 66 61 75 6c 74 20 74 72  ault -default tr
1de0: 75 65 0a 7d 0a 70 72 6f 63 20 63 61 6e 74 6f 70  ue.}.proc cantop
1df0: 65 6e 5f 69 6e 6a 65 63 74 75 6e 69 6e 73 74 61  en_injectuninsta
1e00: 6c 6c 20 7b 7d 20 7b 0a 20 20 63 61 74 63 68 20  ll {} {.  catch 
1e10: 7b 64 62 20 20 63 6c 6f 73 65 7d 0a 20 20 63 61  {db  close}.  ca
1e20: 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 0a  tch {db2 close}.
1e30: 20 20 73 68 6d 66 61 75 6c 74 20 64 65 6c 65 74    shmfault delet
1e40: 65 0a 7d 0a 70 72 6f 63 20 63 61 6e 74 6f 70 65  e.}.proc cantope
1e50: 6e 5f 69 6e 6a 65 63 74 73 74 61 72 74 20 7b 70  n_injectstart {p
1e60: 65 72 73 69 73 74 20 69 46 61 69 6c 7d 20 7b 0a  ersist iFail} {.
1e70: 20 20 73 68 6d 66 61 75 6c 74 20 63 61 6e 74 6f    shmfault canto
1e80: 70 65 6e 20 24 69 46 61 69 6c 20 24 70 65 72 73  pen $iFail $pers
1e90: 69 73 74 0a 7d 0a 70 72 6f 63 20 63 61 6e 74 6f  ist.}.proc canto
1ea0: 70 65 6e 5f 69 6e 6a 65 63 74 73 74 6f 70 20 7b  pen_injectstop {
1eb0: 7d 20 7b 0a 20 20 73 68 6d 66 61 75 6c 74 20 63  } {.  shmfault c
1ec0: 61 6e 74 6f 70 65 6e 0a 7d 0a 0a 23 20 54 68 65  antopen.}..# The
1ed0: 20 66 6f 6c 6c 6f 77 69 6e 67 20 70 72 6f 63 73   following procs
1ee0: 20 61 72 65 20 75 73 65 64 20 61 73 20 5b 64 6f   are used as [do
1ef0: 5f 6f 6e 65 5f 66 61 75 6c 74 73 69 6d 5f 74 65  _one_faultsim_te
1f00: 73 74 5d 20 63 61 6c 6c 62 61 63 6b 73 20 0a 23  st] callbacks .#
1f10: 20 77 68 65 6e 20 69 6e 6a 65 63 74 69 6e 67 20   when injecting 
1f20: 53 51 4c 49 54 45 5f 49 4e 54 45 52 52 55 50 54  SQLITE_INTERRUPT
1f30: 20 65 72 72 6f 72 20 66 61 75 6c 74 73 20 69 6e   error faults in
1f40: 74 6f 20 74 65 73 74 20 63 61 73 65 73 2e 0a 23  to test cases..#
1f50: 0a 70 72 6f 63 20 69 6e 74 65 72 72 75 70 74 5f  .proc interrupt_
1f60: 69 6e 6a 65 63 74 69 6e 73 74 61 6c 6c 20 7b 7d  injectinstall {}
1f70: 20 7b 0a 7d 0a 70 72 6f 63 20 69 6e 74 65 72 72   {.}.proc interr
1f80: 75 70 74 5f 69 6e 6a 65 63 74 75 6e 69 6e 73 74  upt_injectuninst
1f90: 61 6c 6c 20 7b 7d 20 7b 0a 7d 0a 70 72 6f 63 20  all {} {.}.proc 
1fa0: 69 6e 74 65 72 72 75 70 74 5f 69 6e 6a 65 63 74  interrupt_inject
1fb0: 73 74 61 72 74 20 7b 69 46 61 69 6c 7d 20 7b 0a  start {iFail} {.
1fc0: 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f 69    set ::sqlite_i
1fd0: 6e 74 65 72 72 75 70 74 5f 63 6f 75 6e 74 20 24  nterrupt_count $
1fe0: 69 46 61 69 6c 0a 7d 0a 70 72 6f 63 20 69 6e 74  iFail.}.proc int
1ff0: 65 72 72 75 70 74 5f 69 6e 6a 65 63 74 73 74 6f  errupt_injectsto
2000: 70 20 7b 7d 20 7b 0a 20 20 73 65 74 20 72 65 73  p {} {.  set res
2010: 20 5b 65 78 70 72 20 24 3a 3a 73 71 6c 69 74 65   [expr $::sqlite
2020: 5f 69 6e 74 65 72 72 75 70 74 5f 63 6f 75 6e 74  _interrupt_count
2030: 3c 3d 30 5d 0a 20 20 73 65 74 20 3a 3a 73 71 6c  <=0].  set ::sql
2040: 69 74 65 5f 69 6e 74 65 72 72 75 70 74 5f 63 6f  ite_interrupt_co
2050: 75 6e 74 20 30 0a 20 20 73 65 74 20 72 65 73 0a  unt 0.  set res.
2060: 7d 0a 0a 23 20 54 68 69 73 20 63 6f 6d 6d 61 6e  }..# This comman
2070: 64 20 69 73 20 6e 6f 74 20 63 61 6c 6c 65 64 20  d is not called 
2080: 64 69 72 65 63 74 6c 79 2e 20 49 74 20 69 73 20  directly. It is 
2090: 75 73 65 64 20 62 79 20 74 68 65 20 0a 23 20 5b  used by the .# [
20a0: 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 5f 72 65  faultsim_test_re
20b0: 73 75 6c 74 5d 20 63 6f 6d 6d 61 6e 64 20 63 72  sult] command cr
20c0: 65 61 74 65 64 20 62 79 20 5b 64 6f 5f 66 61 75  eated by [do_fau
20d0: 6c 74 73 69 6d 5f 74 65 73 74 5d 20 61 6e 64 20  ltsim_test] and 
20e0: 75 73 65 64 0a 23 20 62 79 20 2d 74 65 73 74 20  used.# by -test 
20f0: 73 63 72 69 70 74 73 2e 0a 23 0a 70 72 6f 63 20  scripts..#.proc 
2100: 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 5f 72 65  faultsim_test_re
2110: 73 75 6c 74 5f 69 6e 74 20 7b 61 72 67 73 7d 20  sult_int {args} 
2120: 7b 0a 20 20 75 70 76 61 72 20 74 65 73 74 72 63  {.  upvar testrc
2130: 20 74 65 73 74 72 63 20 74 65 73 74 72 65 73 75   testrc testresu
2140: 6c 74 20 74 65 73 74 72 65 73 75 6c 74 20 74 65  lt testresult te
2150: 73 74 6e 66 61 69 6c 20 74 65 73 74 6e 66 61 69  stnfail testnfai
2160: 6c 0a 20 20 73 65 74 20 74 20 5b 6c 69 73 74 20  l.  set t [list 
2170: 24 74 65 73 74 72 63 20 24 74 65 73 74 72 65 73  $testrc $testres
2180: 75 6c 74 5d 0a 20 20 73 65 74 20 72 20 24 61 72  ult].  set r $ar
2190: 67 73 0a 20 20 69 66 20 7b 20 28 24 74 65 73 74  gs.  if { ($test
21a0: 6e 66 61 69 6c 3d 3d 30 20 26 26 20 24 74 20 21  nfail==0 && $t !
21b0: 3d 20 5b 6c 69 6e 64 65 78 20 24 72 20 30 5d 29  = [lindex $r 0])
21c0: 20 7c 7c 20 5b 6c 73 65 61 72 63 68 20 2d 65 78   || [lsearch -ex
21d0: 61 63 74 20 24 72 20 24 74 5d 3c 30 20 7d 20 7b  act $r $t]<0 } {
21e0: 0a 20 20 20 20 65 72 72 6f 72 20 22 6e 66 61 69  .    error "nfai
21f0: 6c 3d 24 74 65 73 74 6e 66 61 69 6c 20 72 63 3d  l=$testnfail rc=
2200: 24 74 65 73 74 72 63 20 72 65 73 75 6c 74 3d 24  $testrc result=$
2210: 74 65 73 74 72 65 73 75 6c 74 20 6c 69 73 74 3d  testresult list=
2220: 24 72 22 0a 20 20 7d 0a 7d 0a 0a 23 2d 2d 2d 2d  $r".  }.}..#----
2230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2270: 2d 2d 2d 2d 2d 2d 0a 23 20 55 73 61 67 65 20 64  ------.# Usage d
2280: 6f 5f 6f 6e 65 5f 66 61 75 6c 74 73 69 6d 5f 74  o_one_faultsim_t
2290: 65 73 74 20 4e 41 4d 45 20 3f 4f 50 54 49 4f 4e  est NAME ?OPTION
22a0: 53 2e 2e 2e 3f 20 0a 23 0a 23 20 54 68 65 20 66  S...? .#.# The f
22b0: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 2c 20 3c  irst argument, <
22c0: 74 65 73 74 20 6e 75 6d 62 65 72 3e 2c 20 69 73  test number>, is
22d0: 20 75 73 65 64 20 61 73 20 61 20 70 72 65 66 69   used as a prefi
22e0: 78 20 6f 66 20 74 68 65 20 74 65 73 74 20 6e 61  x of the test na
22f0: 6d 65 73 0a 23 20 74 61 6b 65 6e 20 62 79 20 74  mes.# taken by t
2300: 65 73 74 73 20 65 78 65 63 75 74 65 64 20 62 79  ests executed by
2310: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 2e 20 4f   this command. O
2320: 70 74 69 6f 6e 73 20 61 72 65 20 61 73 20 66 6f  ptions are as fo
2330: 6c 6c 6f 77 73 2e 20 41 6c 6c 0a 23 20 6f 70 74  llows. All.# opt
2340: 69 6f 6e 73 20 74 61 6b 65 20 61 20 73 69 6e 67  ions take a sing
2350: 6c 65 20 61 72 67 75 6d 65 6e 74 2e 0a 23 0a 23  le argument..#.#
2360: 20 20 20 20 20 2d 69 6e 6a 65 63 74 73 74 61 72       -injectstar
2370: 74 20 20 20 20 20 20 53 63 72 69 70 74 20 74 6f  t      Script to
2380: 20 65 6e 61 62 6c 65 20 66 61 75 6c 74 2d 69 6e   enable fault-in
2390: 6a 65 63 74 69 6f 6e 2e 0a 23 0a 23 20 20 20 20  jection..#.#    
23a0: 20 2d 69 6e 6a 65 63 74 73 74 6f 70 20 20 20 20   -injectstop    
23b0: 20 20 20 53 63 72 69 70 74 20 74 6f 20 64 69 73     Script to dis
23c0: 61 62 6c 65 20 66 61 75 6c 74 2d 69 6e 6a 65 63  able fault-injec
23d0: 74 69 6f 6e 2e 0a 23 0a 23 20 20 20 20 20 2d 69  tion..#.#     -i
23e0: 6e 6a 65 63 74 65 72 72 6c 69 73 74 20 20 20 20  njecterrlist    
23f0: 4c 69 73 74 20 6f 66 20 67 65 6e 65 72 61 6c 6c  List of generall
2400: 79 20 61 63 63 65 70 74 61 62 6c 65 20 74 65 73  y acceptable tes
2410: 74 20 72 65 73 75 6c 74 73 20 28 69 2e 65 2e 20  t results (i.e. 
2420: 65 72 72 6f 72 0a 23 20 20 20 20 20 20 20 20 20  error.#         
2430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 65                me
2440: 73 73 61 67 65 73 29 2e 20 45 78 61 6d 70 6c 65  ssages). Example
2450: 3a 20 5b 6c 69 73 74 20 7b 31 20 7b 6f 75 74 20  : [list {1 {out 
2460: 6f 66 20 6d 65 6d 6f 72 79 7d 7d 5d 0a 23 0a 23  of memory}}].#.#
2470: 20 20 20 20 20 2d 69 6e 6a 65 63 74 69 6e 73 74       -injectinst
2480: 61 6c 6c 0a 23 0a 23 20 20 20 20 20 2d 69 6e 6a  all.#.#     -inj
2490: 65 63 74 75 6e 69 6e 73 74 61 6c 6c 0a 23 0a 23  ectuninstall.#.#
24a0: 20 20 20 20 20 2d 70 72 65 70 20 20 20 20 20 20       -prep      
24b0: 20 20 20 20 20 20 20 53 63 72 69 70 74 20 74 6f         Script to
24c0: 20 65 78 65 63 75 74 65 20 62 65 66 6f 72 65 20   execute before 
24d0: 2d 62 6f 64 79 2e 0a 23 0a 23 20 20 20 20 20 2d  -body..#.#     -
24e0: 62 6f 64 79 20 20 20 20 20 20 20 20 20 20 20 20  body            
24f0: 20 53 63 72 69 70 74 20 74 6f 20 65 78 65 63 75   Script to execu
2500: 74 65 20 28 77 69 74 68 20 66 61 75 6c 74 20 69  te (with fault i
2510: 6e 6a 65 63 74 69 6f 6e 29 2e 0a 23 0a 23 20 20  njection)..#.#  
2520: 20 20 20 2d 74 65 73 74 20 20 20 20 20 20 20 20     -test        
2530: 20 20 20 20 20 53 63 72 69 70 74 20 74 6f 20 65       Script to e
2540: 78 65 63 75 74 65 20 61 66 74 65 72 20 2d 62 6f  xecute after -bo
2550: 64 79 2e 0a 23 0a 23 20 20 20 20 20 2d 73 74 61  dy..#.#     -sta
2560: 72 74 20 20 20 20 20 20 20 20 20 20 20 20 49 6e  rt            In
2570: 64 65 78 20 6f 66 20 66 69 72 73 74 20 66 61 75  dex of first fau
2580: 6c 74 20 74 6f 20 69 6e 6a 65 63 74 20 28 64 65  lt to inject (de
2590: 66 61 75 6c 74 20 31 29 0a 23 0a 70 72 6f 63 20  fault 1).#.proc 
25a0: 64 6f 5f 6f 6e 65 5f 66 61 75 6c 74 73 69 6d 5f  do_one_faultsim_
25b0: 74 65 73 74 20 7b 74 65 73 74 6e 61 6d 65 20 61  test {testname a
25c0: 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20 44 45  rgs} {..  set DE
25d0: 46 41 55 4c 54 28 2d 69 6e 6a 65 63 74 73 74 61  FAULT(-injectsta
25e0: 72 74 29 20 20 20 20 20 22 65 78 70 72 22 0a 20  rt)     "expr". 
25f0: 20 73 65 74 20 44 45 46 41 55 4c 54 28 2d 69 6e   set DEFAULT(-in
2600: 6a 65 63 74 73 74 6f 70 29 20 20 20 20 20 20 22  jectstop)      "
2610: 65 78 70 72 20 30 22 0a 20 20 73 65 74 20 44 45  expr 0".  set DE
2620: 46 41 55 4c 54 28 2d 69 6e 6a 65 63 74 65 72 72  FAULT(-injecterr
2630: 6c 69 73 74 29 20 20 20 5b 6c 69 73 74 5d 0a 20  list)   [list]. 
2640: 20 73 65 74 20 44 45 46 41 55 4c 54 28 2d 69 6e   set DEFAULT(-in
2650: 6a 65 63 74 69 6e 73 74 61 6c 6c 29 20 20 20 22  jectinstall)   "
2660: 22 0a 20 20 73 65 74 20 44 45 46 41 55 4c 54 28  ".  set DEFAULT(
2670: 2d 69 6e 6a 65 63 74 75 6e 69 6e 73 74 61 6c 6c  -injectuninstall
2680: 29 20 22 22 0a 20 20 73 65 74 20 44 45 46 41 55  ) "".  set DEFAU
2690: 4c 54 28 2d 70 72 65 70 29 20 20 20 20 20 20 20  LT(-prep)       
26a0: 20 20 20 20 20 22 22 0a 20 20 73 65 74 20 44 45       "".  set DE
26b0: 46 41 55 4c 54 28 2d 62 6f 64 79 29 20 20 20 20  FAULT(-body)    
26c0: 20 20 20 20 20 20 20 20 22 22 0a 20 20 73 65 74          "".  set
26d0: 20 44 45 46 41 55 4c 54 28 2d 74 65 73 74 29 20   DEFAULT(-test) 
26e0: 20 20 20 20 20 20 20 20 20 20 20 22 22 0a 20 20             "".  
26f0: 73 65 74 20 44 45 46 41 55 4c 54 28 2d 69 6e 73  set DEFAULT(-ins
2700: 74 61 6c 6c 29 20 20 20 20 20 20 20 20 20 22 22  tall)         ""
2710: 0a 20 20 73 65 74 20 44 45 46 41 55 4c 54 28 2d  .  set DEFAULT(-
2720: 75 6e 69 6e 73 74 61 6c 6c 29 20 20 20 20 20 20  uninstall)      
2730: 20 22 22 0a 20 20 73 65 74 20 44 45 46 41 55 4c   "".  set DEFAUL
2740: 54 28 2d 73 74 61 72 74 29 20 20 20 20 20 20 20  T(-start)       
2750: 20 20 20 20 31 0a 20 20 73 65 74 20 44 45 46 41      1.  set DEFA
2760: 55 4c 54 28 2d 65 6e 64 29 20 20 20 20 20 20 20  ULT(-end)       
2770: 20 20 20 20 20 20 30 0a 0a 20 20 61 72 72 61 79        0..  array
2780: 20 73 65 74 20 4f 20 5b 61 72 72 61 79 20 67 65   set O [array ge
2790: 74 20 44 45 46 41 55 4c 54 5d 0a 20 20 61 72 72  t DEFAULT].  arr
27a0: 61 79 20 73 65 74 20 4f 20 24 61 72 67 73 0a 20  ay set O $args. 
27b0: 20 66 6f 72 65 61 63 68 20 6f 20 5b 61 72 72 61   foreach o [arra
27c0: 79 20 6e 61 6d 65 73 20 4f 5d 20 7b 0a 20 20 20  y names O] {.   
27d0: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
27e0: 73 20 44 45 46 41 55 4c 54 28 24 6f 29 5d 3d 3d  s DEFAULT($o)]==
27f0: 30 7d 20 7b 20 65 72 72 6f 72 20 22 75 6e 6b 6e  0} { error "unkn
2800: 6f 77 6e 20 6f 70 74 69 6f 6e 3a 20 24 6f 22 20  own option: $o" 
2810: 7d 0a 20 20 7d 0a 0a 20 20 70 72 6f 63 20 66 61  }.  }..  proc fa
2820: 75 6c 74 73 69 6d 5f 74 65 73 74 5f 70 72 6f 63  ultsim_test_proc
2830: 20 7b 74 65 73 74 72 63 20 74 65 73 74 72 65 73   {testrc testres
2840: 75 6c 74 20 74 65 73 74 6e 66 61 69 6c 7d 20 24  ult testnfail} $
2850: 4f 28 2d 74 65 73 74 29 0a 20 20 70 72 6f 63 20  O(-test).  proc 
2860: 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 5f 72 65  faultsim_test_re
2870: 73 75 6c 74 20 7b 61 72 67 73 7d 20 22 0a 20 20  sult {args} ".  
2880: 20 20 75 70 6c 65 76 65 6c 20 66 61 75 6c 74 73    uplevel faults
2890: 69 6d 5f 74 65 73 74 5f 72 65 73 75 6c 74 5f 69  im_test_result_i
28a0: 6e 74 20 5c 24 61 72 67 73 20 5b 6c 69 73 74 20  nt \$args [list 
28b0: 24 4f 28 2d 69 6e 6a 65 63 74 65 72 72 6c 69 73  $O(-injecterrlis
28c0: 74 29 5d 0a 20 20 22 0a 0a 20 20 65 76 61 6c 20  t)].  "..  eval 
28d0: 24 4f 28 2d 69 6e 6a 65 63 74 69 6e 73 74 61 6c  $O(-injectinstal
28e0: 6c 29 0a 20 20 65 76 61 6c 20 24 4f 28 2d 69 6e  l).  eval $O(-in
28f0: 73 74 61 6c 6c 29 0a 0a 20 20 73 65 74 20 73 74  stall)..  set st
2900: 6f 70 20 30 0a 20 20 66 6f 72 20 7b 73 65 74 20  op 0.  for {set 
2910: 69 46 61 69 6c 20 24 4f 28 2d 73 74 61 72 74 29  iFail $O(-start)
2920: 7d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  }               
2930: 20 20 20 20 20 20 20 20 20 5c 0a 20 20 20 20 20           \.     
2940: 20 7b 21 24 73 74 6f 70 20 26 26 20 28 24 4f 28   {!$stop && ($O(
2950: 2d 65 6e 64 29 3d 3d 30 20 7c 7c 20 24 69 46 61  -end)==0 || $iFa
2960: 69 6c 3c 3d 24 4f 28 2d 65 6e 64 29 29 7d 20 5c  il<=$O(-end))} \
2970: 0a 20 20 20 20 20 20 7b 69 6e 63 72 20 69 46 61  .      {incr iFa
2980: 69 6c 7d 20 20 20 20 20 20 20 20 20 20 20 20 20  il}             
2990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
29a0: 20 20 20 20 20 5c 0a 20 20 7b 0a 0a 20 20 20 20       \.  {..    
29b0: 23 20 45 76 61 6c 75 61 74 65 20 74 68 65 20 2d  # Evaluate the -
29c0: 70 72 65 70 20 73 63 72 69 70 74 2e 0a 20 20 20  prep script..   
29d0: 20 23 0a 20 20 20 20 65 76 61 6c 20 24 4f 28 2d   #.    eval $O(-
29e0: 70 72 65 70 29 0a 0a 20 20 20 20 23 20 53 74 61  prep)..    # Sta
29f0: 72 74 20 74 68 65 20 66 61 75 6c 74 2d 69 6e 6a  rt the fault-inj
2a00: 65 63 74 69 6f 6e 2e 20 52 75 6e 20 74 68 65 20  ection. Run the 
2a10: 2d 62 6f 64 79 20 73 63 72 69 70 74 2e 20 53 74  -body script. St
2a20: 6f 70 20 74 68 65 20 66 61 75 6c 74 0a 20 20 20  op the fault.   
2a30: 20 23 20 69 6e 6a 65 63 74 69 6f 6e 2e 20 4c 6f   # injection. Lo
2a40: 63 61 6c 20 76 61 72 20 24 6e 66 61 69 6c 20 69  cal var $nfail i
2a50: 73 20 73 65 74 20 74 6f 20 74 68 65 20 74 6f 74  s set to the tot
2a60: 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 66 61 75  al number of fau
2a70: 6c 74 73 20 0a 20 20 20 20 23 20 69 6e 6a 65 63  lts .    # injec
2a80: 74 65 64 20 69 6e 74 6f 20 74 68 65 20 73 79 73  ted into the sys
2a90: 74 65 6d 20 74 68 69 73 20 74 72 69 61 6c 2e 0a  tem this trial..
2aa0: 20 20 20 20 23 0a 20 20 20 20 65 76 61 6c 20 24      #.    eval $
2ab0: 4f 28 2d 69 6e 6a 65 63 74 73 74 61 72 74 29 20  O(-injectstart) 
2ac0: 24 69 46 61 69 6c 0a 20 20 20 20 73 65 74 20 72  $iFail.    set r
2ad0: 63 20 5b 63 61 74 63 68 20 24 4f 28 2d 62 6f 64  c [catch $O(-bod
2ae0: 79 29 20 72 65 73 5d 0a 20 20 20 20 73 65 74 20  y) res].    set 
2af0: 6e 66 61 69 6c 20 5b 65 76 61 6c 20 24 4f 28 2d  nfail [eval $O(-
2b00: 69 6e 6a 65 63 74 73 74 6f 70 29 5d 0a 0a 20 20  injectstop)]..  
2b10: 20 20 23 20 52 75 6e 20 74 68 65 20 2d 74 65 73    # Run the -tes
2b20: 74 20 73 63 72 69 70 74 2e 20 49 66 20 69 74 20  t script. If it 
2b30: 74 68 72 6f 77 73 20 6e 6f 20 65 72 72 6f 72 2c  throws no error,
2b40: 20 63 6f 6e 73 69 64 65 72 20 74 68 69 73 20 74   consider this t
2b50: 72 69 61 6c 0a 20 20 20 20 23 20 73 75 63 65 73  rial.    # suces
2b60: 73 66 75 6c 2e 20 49 66 20 69 74 20 64 6f 65 73  sful. If it does
2b70: 20 74 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 2c   throw an error,
2b80: 20 63 61 75 73 65 20 61 20 5b 64 6f 5f 74 65 73   cause a [do_tes
2b90: 74 5d 20 74 65 73 74 20 74 6f 0a 20 20 20 20 23  t] test to.    #
2ba0: 20 66 61 69 6c 20 28 61 6e 64 20 70 72 69 6e 74   fail (and print
2bb0: 20 6f 75 74 20 74 68 65 20 75 6e 65 78 70 65 63   out the unexpec
2bc0: 74 65 64 20 65 78 63 65 70 74 69 6f 6e 20 74 68  ted exception th
2bd0: 72 6f 77 6e 20 62 79 20 74 68 65 20 2d 74 65 73  rown by the -tes
2be0: 74 0a 20 20 20 20 23 20 73 63 72 69 70 74 20 61  t.    # script a
2bf0: 74 20 74 68 65 20 73 61 6d 65 20 74 69 6d 65 29  t the same time)
2c00: 2e 0a 20 20 20 20 23 0a 20 20 20 20 73 65 74 20  ..    #.    set 
2c10: 72 63 20 5b 63 61 74 63 68 20 5b 6c 69 73 74 20  rc [catch [list 
2c20: 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 5f 70 72  faultsim_test_pr
2c30: 6f 63 20 24 72 63 20 24 72 65 73 20 24 6e 66 61  oc $rc $res $nfa
2c40: 69 6c 5d 20 72 65 73 5d 0a 20 20 20 20 69 66 20  il] res].    if 
2c50: 7b 24 72 63 20 3d 3d 20 30 7d 20 7b 73 65 74 20  {$rc == 0} {set 
2c60: 72 65 73 20 6f 6b 7d 0a 20 20 20 20 64 6f 5f 74  res ok}.    do_t
2c70: 65 73 74 20 24 74 65 73 74 6e 61 6d 65 2e 24 69  est $testname.$i
2c80: 46 61 69 6c 20 5b 6c 69 73 74 20 6c 69 73 74 20  Fail [list list 
2c90: 24 72 63 20 24 72 65 73 5d 20 7b 30 20 6f 6b 7d  $rc $res] {0 ok}
2ca0: 0a 0a 20 20 20 20 23 20 49 66 20 6e 6f 20 66 61  ..    # If no fa
2cb0: 75 6c 74 73 20 77 68 65 72 65 20 69 6e 6a 65 63  ults where injec
2cc0: 74 65 64 20 74 68 69 73 20 74 72 69 61 6c 2c 20  ted this trial, 
2cd0: 64 6f 6e 27 74 20 62 6f 74 68 65 72 20 72 75 6e  don't bother run
2ce0: 6e 69 6e 67 0a 20 20 20 20 23 20 61 6e 79 20 6d  ning.    # any m
2cf0: 6f 72 65 2e 20 54 68 69 73 20 74 65 73 74 20 69  ore. This test i
2d00: 73 20 66 69 6e 69 73 68 65 64 2e 0a 20 20 20 20  s finished..    
2d10: 23 0a 20 20 20 20 69 66 20 7b 24 6e 66 61 69 6c  #.    if {$nfail
2d20: 3d 3d 30 7d 20 7b 20 73 65 74 20 73 74 6f 70 20  ==0} { set stop 
2d30: 31 20 7d 0a 20 20 7d 0a 0a 20 20 65 76 61 6c 20  1 }.  }..  eval 
2d40: 24 4f 28 2d 75 6e 69 6e 73 74 61 6c 6c 29 0a 20  $O(-uninstall). 
2d50: 20 65 76 61 6c 20 24 4f 28 2d 69 6e 6a 65 63 74   eval $O(-inject
2d60: 75 6e 69 6e 73 74 61 6c 6c 29 0a 7d 0a 0a 23 20  uninstall).}..# 
2d70: 55 73 61 67 65 3a 20 64 6f 5f 6d 61 6c 6c 6f 63  Usage: do_malloc
2d80: 5f 74 65 73 74 20 3c 74 65 73 74 20 6e 75 6d 62  _test <test numb
2d90: 65 72 3e 20 3c 6f 70 74 69 6f 6e 73 2e 2e 2e 3e  er> <options...>
2da0: 0a 23 0a 23 20 54 68 65 20 66 69 72 73 74 20 61  .#.# The first a
2db0: 72 67 75 6d 65 6e 74 2c 20 3c 74 65 73 74 20 6e  rgument, <test n
2dc0: 75 6d 62 65 72 3e 2c 20 69 73 20 61 6e 20 69 6e  umber>, is an in
2dd0: 74 65 67 65 72 20 75 73 65 64 20 74 6f 20 6e 61  teger used to na
2de0: 6d 65 20 74 68 65 0a 23 20 74 65 73 74 73 20 65  me the.# tests e
2df0: 78 65 63 75 74 65 64 20 62 79 20 74 68 69 73 20  xecuted by this 
2e00: 70 72 6f 63 2e 20 4f 70 74 69 6f 6e 73 20 61 72  proc. Options ar
2e10: 65 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 23 0a  e as follows:.#.
2e20: 23 20 20 20 20 20 2d 74 63 6c 70 72 65 70 20 20  #     -tclprep  
2e30: 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72 69          TCL scri
2e40: 70 74 20 74 6f 20 72 75 6e 20 74 6f 20 70 72 65  pt to run to pre
2e50: 70 61 72 65 20 74 65 73 74 2e 0a 23 20 20 20 20  pare test..#    
2e60: 20 2d 73 71 6c 70 72 65 70 20 20 20 20 20 20 20   -sqlprep       
2e70: 20 20 20 53 51 4c 20 73 63 72 69 70 74 20 74 6f     SQL script to
2e80: 20 72 75 6e 20 74 6f 20 70 72 65 70 61 72 65 20   run to prepare 
2e90: 74 65 73 74 2e 0a 23 20 20 20 20 20 2d 74 63 6c  test..#     -tcl
2ea0: 62 6f 64 79 20 20 20 20 20 20 20 20 20 20 54 43  body          TC
2eb0: 4c 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e 20  L script to run 
2ec0: 77 69 74 68 20 6d 61 6c 6c 6f 63 20 66 61 69 6c  with malloc fail
2ed0: 75 72 65 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a  ure simulation..
2ee0: 23 20 20 20 20 20 2d 73 71 6c 62 6f 64 79 20 20  #     -sqlbody  
2ef0: 20 20 20 20 20 20 20 20 54 43 4c 20 73 63 72 69          TCL scri
2f00: 70 74 20 74 6f 20 72 75 6e 20 77 69 74 68 20 6d  pt to run with m
2f10: 61 6c 6c 6f 63 20 66 61 69 6c 75 72 65 20 73 69  alloc failure si
2f20: 6d 75 6c 61 74 69 6f 6e 2e 0a 23 20 20 20 20 20  mulation..#     
2f30: 2d 63 6c 65 61 6e 75 70 20 20 20 20 20 20 20 20  -cleanup        
2f40: 20 20 54 43 4c 20 73 63 72 69 70 74 20 74 6f 20    TCL script to 
2f50: 72 75 6e 20 61 66 74 65 72 20 74 68 65 20 74 65  run after the te
2f60: 73 74 2e 0a 23 0a 23 20 54 68 69 73 20 63 6f 6d  st..#.# This com
2f70: 6d 61 6e 64 20 72 75 6e 73 20 61 20 73 65 72 69  mand runs a seri
2f80: 65 73 20 6f 66 20 74 65 73 74 73 20 74 6f 20 76  es of tests to v
2f90: 65 72 69 66 79 20 53 51 4c 69 74 65 27 73 20 61  erify SQLite's a
2fa0: 62 69 6c 69 74 79 0a 23 20 74 6f 20 68 61 6e 64  bility.# to hand
2fb0: 6c 65 20 61 6e 20 6f 75 74 2d 6f 66 2d 6d 65 6d  le an out-of-mem
2fc0: 6f 72 79 20 63 6f 6e 64 69 74 69 6f 6e 20 67 72  ory condition gr
2fd0: 61 63 65 66 75 6c 6c 79 2e 20 49 74 20 69 73 20  acefully. It is 
2fe0: 61 73 73 75 6d 65 64 0a 23 20 74 68 61 74 20 69  assumed.# that i
2ff0: 66 20 74 68 69 73 20 63 6f 6e 64 69 74 69 6f 6e  f this condition
3000: 20 6f 63 63 75 72 73 20 61 20 6d 61 6c 6c 6f 63   occurs a malloc
3010: 28 29 20 63 61 6c 6c 20 77 69 6c 6c 20 72 65 74  () call will ret
3020: 75 72 6e 20 61 0a 23 20 4e 55 4c 4c 20 70 6f 69  urn a.# NULL poi
3030: 6e 74 65 72 2e 20 4c 69 6e 75 78 2c 20 66 6f 72  nter. Linux, for
3040: 20 65 78 61 6d 70 6c 65 2c 20 64 6f 65 73 6e 27   example, doesn'
3050: 74 20 64 6f 20 74 68 61 74 20 62 79 20 64 65 66  t do that by def
3060: 61 75 6c 74 2e 20 53 65 65 0a 23 20 74 68 65 20  ault. See.# the 
3070: 22 42 55 47 53 22 20 73 65 63 74 69 6f 6e 20 6f  "BUGS" section o
3080: 66 20 6d 61 6c 6c 6f 63 28 33 29 2e 0a 23 0a 23  f malloc(3)..#.#
3090: 20 45 61 63 68 20 69 74 65 72 61 74 69 6f 6e 20   Each iteration 
30a0: 6f 66 20 61 20 6c 6f 6f 70 2c 20 74 68 65 20 54  of a loop, the T
30b0: 43 4c 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 61  CL commands in a
30c0: 6e 79 20 61 72 67 75 6d 65 6e 74 20 70 61 73 73  ny argument pass
30d0: 65 64 0a 23 20 74 6f 20 74 68 65 20 2d 74 63 6c  ed.# to the -tcl
30e0: 62 6f 64 79 20 73 77 69 74 63 68 2c 20 66 6f 6c  body switch, fol
30f0: 6c 6f 77 65 64 20 62 79 20 74 68 65 20 53 51 4c  lowed by the SQL
3100: 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 61 6e 79   commands in any
3110: 20 61 72 67 75 6d 65 6e 74 0a 23 20 70 61 73 73   argument.# pass
3120: 65 64 20 74 6f 20 74 68 65 20 2d 73 71 6c 62 6f  ed to the -sqlbo
3130: 64 79 20 73 77 69 74 63 68 20 61 72 65 20 65 78  dy switch are ex
3140: 65 63 75 74 65 64 2e 20 45 61 63 68 20 69 74 65  ecuted. Each ite
3150: 72 61 74 69 6f 6e 20 74 68 65 0a 23 20 4e 74 68  ration the.# Nth
3160: 20 63 61 6c 6c 20 74 6f 20 73 71 6c 69 74 65 4d   call to sqliteM
3170: 61 6c 6c 6f 63 28 29 20 69 73 20 6d 61 64 65 20  alloc() is made 
3180: 74 6f 20 66 61 69 6c 2c 20 77 68 65 72 65 20 4e  to fail, where N
3190: 20 69 73 20 69 6e 63 72 65 61 73 65 64 0a 23 20   is increased.# 
31a0: 65 61 63 68 20 74 69 6d 65 20 74 68 65 20 6c 6f  each time the lo
31b0: 6f 70 20 72 75 6e 73 20 73 74 61 72 74 69 6e 67  op runs starting
31c0: 20 66 72 6f 6d 20 31 2e 20 57 68 65 6e 20 61 6c   from 1. When al
31d0: 6c 20 63 6f 6d 6d 61 6e 64 73 20 65 78 65 63 75  l commands execu
31e0: 74 65 0a 23 20 73 75 63 63 65 73 73 66 75 6c 6c  te.# successfull
31f0: 79 2c 20 74 68 65 20 6c 6f 6f 70 20 65 6e 64 73  y, the loop ends
3200: 2e 0a 23 0a 70 72 6f 63 20 64 6f 5f 6d 61 6c 6c  ..#.proc do_mall
3210: 6f 63 5f 74 65 73 74 20 7b 74 6e 20 61 72 67 73  oc_test {tn args
3220: 7d 20 7b 0a 20 20 61 72 72 61 79 20 75 6e 73 65  } {.  array unse
3230: 74 20 3a 3a 6d 61 6c 6c 6f 63 6f 70 74 73 20 0a  t ::mallocopts .
3240: 20 20 61 72 72 61 79 20 73 65 74 20 3a 3a 6d 61    array set ::ma
3250: 6c 6c 6f 63 6f 70 74 73 20 24 61 72 67 73 0a 0a  llocopts $args..
3260: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 73    if {[string is
3270: 20 69 6e 74 65 67 65 72 20 24 74 6e 5d 7d 20 7b   integer $tn]} {
3280: 0a 20 20 20 20 73 65 74 20 74 6e 20 6d 61 6c 6c  .    set tn mall
3290: 6f 63 2d 24 74 6e 0a 20 20 20 20 63 61 74 63 68  oc-$tn.    catch
32a0: 20 7b 20 73 65 74 20 74 6e 20 24 3a 3a 74 65 73   { set tn $::tes
32b0: 74 70 72 65 66 69 78 2d 24 74 6e 20 7d 0a 20 20  tprefix-$tn }.  
32c0: 7d 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78  }.  if {[info ex
32d0: 69 73 74 73 20 3a 3a 6d 61 6c 6c 6f 63 6f 70 74  ists ::mallocopt
32e0: 73 28 2d 73 74 61 72 74 29 5d 7d 20 7b 0a 20 20  s(-start)]} {.  
32f0: 20 20 73 65 74 20 73 74 61 72 74 20 24 3a 3a 6d    set start $::m
3300: 61 6c 6c 6f 63 6f 70 74 73 28 2d 73 74 61 72 74  allocopts(-start
3310: 29 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20  ).  } else {.   
3320: 20 73 65 74 20 73 74 61 72 74 20 30 0a 20 20 7d   set start 0.  }
3330: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
3340: 73 74 73 20 3a 3a 6d 61 6c 6c 6f 63 6f 70 74 73  sts ::mallocopts
3350: 28 2d 65 6e 64 29 5d 7d 20 7b 0a 20 20 20 20 73  (-end)]} {.    s
3360: 65 74 20 65 6e 64 20 24 3a 3a 6d 61 6c 6c 6f 63  et end $::malloc
3370: 6f 70 74 73 28 2d 65 6e 64 29 0a 20 20 7d 20 65  opts(-end).  } e
3380: 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20 65 6e  lse {.    set en
3390: 64 20 35 30 30 30 30 0a 20 20 7d 0a 20 20 73 61  d 50000.  }.  sa
33a0: 76 65 5f 70 72 6e 67 5f 73 74 61 74 65 0a 0a 20  ve_prng_state.. 
33b0: 20 66 6f 72 65 61 63 68 20 3a 3a 69 52 65 70 65   foreach ::iRepe
33c0: 61 74 20 7b 30 20 31 30 30 30 30 30 30 30 7d 20  at {0 10000000} 
33d0: 7b 0a 20 20 20 20 73 65 74 20 3a 3a 67 6f 20 31  {.    set ::go 1
33e0: 0a 20 20 20 20 66 6f 72 20 7b 73 65 74 20 3a 3a  .    for {set ::
33f0: 6e 20 24 73 74 61 72 74 7d 20 7b 24 3a 3a 67 6f  n $start} {$::go
3400: 20 26 26 20 24 3a 3a 6e 20 3c 3d 20 24 65 6e 64   && $::n <= $end
3410: 7d 20 7b 69 6e 63 72 20 3a 3a 6e 7d 20 7b 0a 0a  } {incr ::n} {..
3420: 20 20 20 20 20 20 23 20 49 66 20 24 3a 3a 69 52        # If $::iR
3430: 65 70 65 61 74 20 69 73 20 30 2c 20 74 68 65 6e  epeat is 0, then
3440: 20 74 68 65 20 6d 61 6c 6c 6f 63 28 29 20 66 61   the malloc() fa
3450: 69 6c 75 72 65 20 69 73 20 74 72 61 6e 73 69 65  ilure is transie
3460: 6e 74 20 2d 20 69 74 0a 20 20 20 20 20 20 23 20  nt - it.      # 
3470: 66 61 69 6c 73 20 61 6e 64 20 74 68 65 6e 20 73  fails and then s
3480: 75 62 73 65 71 75 65 6e 74 20 63 61 6c 6c 73 20  ubsequent calls 
3490: 73 75 63 63 65 65 64 2e 20 49 66 20 24 3a 3a 69  succeed. If $::i
34a0: 52 65 70 65 61 74 20 69 73 20 31 2c 20 0a 20 20  Repeat is 1, .  
34b0: 20 20 20 20 23 20 74 68 65 6e 20 74 68 65 20 66      # then the f
34c0: 61 69 6c 75 72 65 20 69 73 20 70 65 72 73 69 73  ailure is persis
34d0: 74 65 6e 74 20 2d 20 6f 6e 63 65 20 6d 61 6c 6c  tent - once mall
34e0: 6f 63 28 29 20 66 61 69 6c 73 20 69 74 20 6b 65  oc() fails it ke
34f0: 65 70 73 0a 20 20 20 20 20 20 23 20 66 61 69 6c  eps.      # fail
3500: 69 6e 67 2e 0a 20 20 20 20 20 20 23 0a 20 20 20  ing..      #.   
3510: 20 20 20 73 65 74 20 7a 52 65 70 65 61 74 20 22     set zRepeat "
3520: 74 72 61 6e 73 69 65 6e 74 22 0a 20 20 20 20 20  transient".     
3530: 20 69 66 20 7b 24 3a 3a 69 52 65 70 65 61 74 7d   if {$::iRepeat}
3540: 20 7b 73 65 74 20 7a 52 65 70 65 61 74 20 22 70   {set zRepeat "p
3550: 65 72 73 69 73 74 65 6e 74 22 7d 0a 20 20 20 20  ersistent"}.    
3560: 20 20 72 65 73 74 6f 72 65 5f 70 72 6e 67 5f 73    restore_prng_s
3570: 74 61 74 65 0a 20 20 20 20 20 20 66 6f 72 65 61  tate.      forea
3580: 63 68 20 66 69 6c 65 20 5b 67 6c 6f 62 20 2d 6e  ch file [glob -n
3590: 6f 63 6f 6d 70 6c 61 69 6e 20 74 65 73 74 2e 64  ocomplain test.d
35a0: 62 2d 6d 6a 2a 5d 20 7b 66 6f 72 63 65 64 65 6c  b-mj*] {forcedel
35b0: 65 74 65 20 24 66 69 6c 65 7d 0a 0a 20 20 20 20  ete $file}..    
35c0: 20 20 64 6f 5f 74 65 73 74 20 24 7b 74 6e 7d 2e    do_test ${tn}.
35d0: 24 7b 7a 52 65 70 65 61 74 7d 2e 24 7b 3a 3a 6e  ${zRepeat}.${::n
35e0: 7d 20 7b 0a 20 20 0a 20 20 20 20 20 20 20 20 23  } {.  .        #
35f0: 20 52 65 6d 6f 76 65 20 61 6c 6c 20 74 72 61 63   Remove all trac
3600: 65 73 20 6f 66 20 64 61 74 61 62 61 73 65 20 66  es of database f
3610: 69 6c 65 73 20 74 65 73 74 2e 64 62 20 61 6e 64  iles test.db and
3620: 20 74 65 73 74 32 2e 64 62 20 0a 20 20 20 20 20   test2.db .     
3630: 20 20 20 23 20 66 72 6f 6d 20 74 68 65 20 66 69     # from the fi
3640: 6c 65 2d 73 79 73 74 65 6d 2e 20 54 68 65 6e 20  le-system. Then 
3650: 6f 70 65 6e 20 28 65 6d 70 74 79 20 64 61 74 61  open (empty data
3660: 62 61 73 65 29 20 22 74 65 73 74 2e 64 62 22 20  base) "test.db" 
3670: 0a 20 20 20 20 20 20 20 20 23 20 77 69 74 68 20  .        # with 
3680: 74 68 65 20 68 61 6e 64 6c 65 20 5b 64 62 5d 2e  the handle [db].
3690: 0a 20 20 20 20 20 20 20 20 23 20 0a 20 20 20 20  .        # .    
36a0: 20 20 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c      catch {db cl
36b0: 6f 73 65 7d 20 0a 20 20 20 20 20 20 20 20 63 61  ose} .        ca
36c0: 74 63 68 20 7b 64 62 32 20 63 6c 6f 73 65 7d 20  tch {db2 close} 
36d0: 0a 20 20 20 20 20 20 20 20 66 6f 72 63 65 64 65  .        forcede
36e0: 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 20 20 20  lete test.db.   
36f0: 20 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74 65       forcedelete
3700: 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c   test.db-journal
3710: 0a 20 20 20 20 20 20 20 20 66 6f 72 63 65 64 65  .        forcede
3720: 6c 65 74 65 20 74 65 73 74 2e 64 62 2d 77 61 6c  lete test.db-wal
3730: 0a 20 20 20 20 20 20 20 20 66 6f 72 63 65 64 65  .        forcede
3740: 6c 65 74 65 20 74 65 73 74 32 2e 64 62 0a 20 20  lete test2.db.  
3750: 20 20 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74        forcedelet
3760: 65 20 74 65 73 74 32 2e 64 62 2d 6a 6f 75 72 6e  e test2.db-journ
3770: 61 6c 0a 20 20 20 20 20 20 20 20 66 6f 72 63 65  al.        force
3780: 64 65 6c 65 74 65 20 74 65 73 74 32 2e 64 62 2d  delete test2.db-
3790: 77 61 6c 0a 20 20 20 20 20 20 20 20 69 66 20 7b  wal.        if {
37a0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6d  [info exists ::m
37b0: 61 6c 6c 6f 63 6f 70 74 73 28 2d 74 65 73 74 64  allocopts(-testd
37c0: 62 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 20  b)]} {.         
37d0: 20 63 6f 70 79 5f 66 69 6c 65 20 24 3a 3a 6d 61   copy_file $::ma
37e0: 6c 6c 6f 63 6f 70 74 73 28 2d 74 65 73 74 64 62  llocopts(-testdb
37f0: 29 20 74 65 73 74 2e 64 62 0a 20 20 20 20 20 20  ) test.db.      
3800: 20 20 7d 0a 20 20 20 20 20 20 20 20 63 61 74 63    }.        catc
3810: 68 20 7b 20 73 71 6c 69 74 65 33 20 64 62 20 74  h { sqlite3 db t
3820: 65 73 74 2e 64 62 20 7d 0a 20 20 20 20 20 20 20  est.db }.       
3830: 20 69 66 20 7b 5b 69 6e 66 6f 20 63 6f 6d 6d 61   if {[info comma
3840: 6e 64 73 20 64 62 5d 20 6e 65 20 22 22 7d 20 7b  nds db] ne ""} {
3850: 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 69 74  .          sqlit
3860: 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75  e3_extended_resu
3870: 6c 74 5f 63 6f 64 65 73 20 64 62 20 31 0a 20 20  lt_codes db 1.  
3880: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
3890: 73 71 6c 69 74 65 33 5f 64 62 5f 63 6f 6e 66 69  sqlite3_db_confi
38a0: 67 5f 6c 6f 6f 6b 61 73 69 64 65 20 64 62 20 30  g_lookaside db 0
38b0: 20 30 20 30 0a 20 20 0a 20 20 20 20 20 20 20 20   0 0.  .        
38c0: 23 20 45 78 65 63 75 74 65 20 61 6e 79 20 2d 74  # Execute any -t
38d0: 63 6c 70 72 65 70 20 61 6e 64 20 2d 73 71 6c 70  clprep and -sqlp
38e0: 72 65 70 20 73 63 72 69 70 74 73 2e 0a 20 20 20  rep scripts..   
38f0: 20 20 20 20 20 23 0a 20 20 20 20 20 20 20 20 69       #.        i
3900: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
3910: 3a 3a 6d 61 6c 6c 6f 63 6f 70 74 73 28 2d 74 63  ::mallocopts(-tc
3920: 6c 70 72 65 70 29 5d 7d 20 7b 0a 20 20 20 20 20  lprep)]} {.     
3930: 20 20 20 20 20 65 76 61 6c 20 24 3a 3a 6d 61 6c       eval $::mal
3940: 6c 6f 63 6f 70 74 73 28 2d 74 63 6c 70 72 65 70  locopts(-tclprep
3950: 29 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ).        }.    
3960: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
3970: 69 73 74 73 20 3a 3a 6d 61 6c 6c 6f 63 6f 70 74  ists ::mallocopt
3980: 73 28 2d 73 71 6c 70 72 65 70 29 5d 7d 20 7b 0a  s(-sqlprep)]} {.
3990: 20 20 20 20 20 20 20 20 20 20 65 78 65 63 73 71            execsq
39a0: 6c 20 24 3a 3a 6d 61 6c 6c 6f 63 6f 70 74 73 28  l $::mallocopts(
39b0: 2d 73 71 6c 70 72 65 70 29 0a 20 20 20 20 20 20  -sqlprep).      
39c0: 20 20 7d 0a 20 20 0a 20 20 20 20 20 20 20 20 23    }.  .        #
39d0: 20 4e 6f 77 20 73 65 74 20 74 68 65 20 24 7b 3a   Now set the ${:
39e0: 3a 6e 7d 74 68 20 6d 61 6c 6c 6f 63 28 29 20 74  :n}th malloc() t
39f0: 6f 20 66 61 69 6c 20 61 6e 64 20 65 78 65 63 75  o fail and execu
3a00: 74 65 20 74 68 65 20 2d 74 63 6c 62 6f 64 79 20  te the -tclbody 
3a10: 0a 20 20 20 20 20 20 20 20 23 20 61 6e 64 20 2d  .        # and -
3a20: 73 71 6c 62 6f 64 79 20 73 63 72 69 70 74 73 2e  sqlbody scripts.
3a30: 0a 20 20 20 20 20 20 20 20 23 0a 20 20 20 20 20  .        #.     
3a40: 20 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65     sqlite3_memde
3a50: 62 75 67 5f 66 61 69 6c 20 24 3a 3a 6e 20 2d 72  bug_fail $::n -r
3a60: 65 70 65 61 74 20 24 3a 3a 69 52 65 70 65 61 74  epeat $::iRepeat
3a70: 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 6d  .        set ::m
3a80: 61 6c 6c 6f 63 62 6f 64 79 20 7b 7d 0a 20 20 20  allocbody {}.   
3a90: 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65       if {[info e
3aa0: 78 69 73 74 73 20 3a 3a 6d 61 6c 6c 6f 63 6f 70  xists ::mallocop
3ab0: 74 73 28 2d 74 63 6c 62 6f 64 79 29 5d 7d 20 7b  ts(-tclbody)]} {
3ac0: 0a 20 20 20 20 20 20 20 20 20 20 61 70 70 65 6e  .          appen
3ad0: 64 20 3a 3a 6d 61 6c 6c 6f 63 62 6f 64 79 20 22  d ::mallocbody "
3ae0: 24 3a 3a 6d 61 6c 6c 6f 63 6f 70 74 73 28 2d 74  $::mallocopts(-t
3af0: 63 6c 62 6f 64 79 29 5c 6e 22 0a 20 20 20 20 20  clbody)\n".     
3b00: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 69 66 20     }.        if 
3b10: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
3b20: 6d 61 6c 6c 6f 63 6f 70 74 73 28 2d 73 71 6c 62  mallocopts(-sqlb
3b30: 6f 64 79 29 5d 7d 20 7b 0a 20 20 20 20 20 20 20  ody)]} {.       
3b40: 20 20 20 61 70 70 65 6e 64 20 3a 3a 6d 61 6c 6c     append ::mall
3b50: 6f 63 62 6f 64 79 20 22 64 62 20 65 76 61 6c 20  ocbody "db eval 
3b60: 7b 24 3a 3a 6d 61 6c 6c 6f 63 6f 70 74 73 28 2d  {$::mallocopts(-
3b70: 73 71 6c 62 6f 64 79 29 7d 22 0a 20 20 20 20 20  sqlbody)}".     
3b80: 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 23 20     }..        # 
3b90: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 62 6c  The following bl
3ba0: 6f 63 6b 20 73 65 74 73 20 6c 6f 63 61 6c 20 76  ock sets local v
3bb0: 61 72 69 61 62 6c 65 73 20 61 73 20 66 6f 6c 6c  ariables as foll
3bc0: 6f 77 73 3a 0a 20 20 20 20 20 20 20 20 23 0a 20  ows:.        #. 
3bd0: 20 20 20 20 20 20 20 23 20 20 20 20 20 69 73 46         #     isF
3be0: 61 69 6c 20 20 2d 20 54 72 75 65 20 69 66 20 61  ail  - True if a
3bf0: 6e 20 65 72 72 6f 72 20 28 61 6e 79 20 65 72 72  n error (any err
3c00: 6f 72 29 20 77 61 73 20 72 65 70 6f 72 74 65 64  or) was reported
3c10: 20 62 79 20 73 71 6c 69 74 65 2e 0a 20 20 20 20   by sqlite..    
3c20: 20 20 20 20 23 20 20 20 20 20 6e 46 61 69 6c 20      #     nFail 
3c30: 20 20 2d 20 54 68 65 20 74 6f 74 61 6c 20 6e 75    - The total nu
3c40: 6d 62 65 72 20 6f 66 20 73 69 6d 75 6c 61 74 65  mber of simulate
3c50: 64 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 6c 75  d malloc() failu
3c60: 72 65 73 2e 0a 20 20 20 20 20 20 20 20 23 20 20  res..        #  
3c70: 20 20 20 6e 42 65 6e 69 67 6e 20 2d 20 54 68 65     nBenign - The
3c80: 20 6e 75 6d 62 65 72 20 6f 66 20 62 65 6e 69 67   number of benig
3c90: 6e 20 73 69 6d 75 6c 61 74 65 64 20 6d 61 6c 6c  n simulated mall
3ca0: 6f 63 28 29 20 66 61 69 6c 75 72 65 73 2e 0a 20  oc() failures.. 
3cb0: 20 20 20 20 20 20 20 23 0a 20 20 20 20 20 20 20         #.       
3cc0: 20 73 65 74 20 69 73 46 61 69 6c 20 5b 63 61 74   set isFail [cat
3cd0: 63 68 20 24 3a 3a 6d 61 6c 6c 6f 63 62 6f 64 79  ch $::mallocbody
3ce0: 20 6d 73 67 5d 0a 20 20 20 20 20 20 20 20 73 65   msg].        se
3cf0: 74 20 6e 46 61 69 6c 20 5b 73 71 6c 69 74 65 33  t nFail [sqlite3
3d00: 5f 6d 65 6d 64 65 62 75 67 5f 66 61 69 6c 20 2d  _memdebug_fail -
3d10: 31 20 2d 62 65 6e 69 67 6e 63 6e 74 20 6e 42 65  1 -benigncnt nBe
3d20: 6e 69 67 6e 5d 0a 20 20 20 20 20 20 20 20 23 20  nign].        # 
3d30: 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20  puts -nonewline 
3d40: 22 20 28 69 73 46 61 69 6c 3d 24 69 73 46 61 69  " (isFail=$isFai
3d50: 6c 20 6e 46 61 69 6c 3d 24 6e 46 61 69 6c 20 6e  l nFail=$nFail n
3d60: 42 65 6e 69 67 6e 3d 24 6e 42 65 6e 69 67 6e 29  Benign=$nBenign)
3d70: 20 22 0a 0a 20 20 20 20 20 20 20 20 23 20 49 66   "..        # If
3d80: 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 6d 61 6c   one or more mal
3d90: 6c 6f 63 73 20 66 61 69 6c 65 64 2c 20 72 75 6e  locs failed, run
3da0: 20 74 68 69 73 20 6c 6f 6f 70 20 62 6f 64 79 20   this loop body 
3db0: 61 67 61 69 6e 2e 0a 20 20 20 20 20 20 20 20 23  again..        #
3dc0: 0a 20 20 20 20 20 20 20 20 73 65 74 20 67 6f 20  .        set go 
3dd0: 5b 65 78 70 72 20 7b 24 6e 46 61 69 6c 3e 30 7d  [expr {$nFail>0}
3de0: 5d 0a 0a 20 20 20 20 20 20 20 20 69 66 20 7b 28  ]..        if {(
3df0: 24 6e 46 61 69 6c 2d 24 6e 42 65 6e 69 67 6e 29  $nFail-$nBenign)
3e00: 3d 3d 30 7d 20 7b 0a 20 20 20 20 20 20 20 20 20  ==0} {.         
3e10: 20 69 66 20 7b 24 69 73 46 61 69 6c 7d 20 7b 0a   if {$isFail} {.
3e20: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20              set 
3e30: 76 32 20 24 6d 73 67 0a 20 20 20 20 20 20 20 20  v2 $msg.        
3e40: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20    } else {.     
3e50: 20 20 20 20 20 20 20 73 65 74 20 69 73 46 61 69         set isFai
3e60: 6c 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20  l 1.            
3e70: 73 65 74 20 76 32 20 31 0a 20 20 20 20 20 20 20  set v2 1.       
3e80: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 20 65     }.        } e
3e90: 6c 73 65 69 66 20 7b 21 24 69 73 46 61 69 6c 7d  lseif {!$isFail}
3ea0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 73 65 74   {.          set
3eb0: 20 76 32 20 24 6d 73 67 0a 20 20 20 20 20 20 20   v2 $msg.       
3ec0: 20 7d 20 65 6c 73 65 69 66 20 7b 0a 20 20 20 20   } elseif {.    
3ed0: 20 20 20 20 20 20 5b 69 6e 66 6f 20 63 6f 6d 6d        [info comm
3ee0: 61 6e 64 20 64 62 5d 3d 3d 22 22 20 7c 7c 20 0a  and db]=="" || .
3ef0: 20 20 20 20 20 20 20 20 20 20 5b 64 62 20 65 72            [db er
3f00: 72 6f 72 63 6f 64 65 5d 3d 3d 37 20 7c 7c 0a 20  rorcode]==7 ||. 
3f10: 20 20 20 20 20 20 20 20 20 24 6d 73 67 3d 3d 22           $msg=="
3f20: 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 22 0a 20  out of memory". 
3f30: 20 20 20 20 20 20 20 7d 20 7b 0a 20 20 20 20 20         } {.     
3f40: 20 20 20 20 20 73 65 74 20 76 32 20 31 0a 20 20       set v2 1.  
3f50: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
3f60: 20 20 20 20 20 20 20 20 20 73 65 74 20 76 32 20           set v2 
3f70: 24 6d 73 67 0a 20 20 20 20 20 20 20 20 20 20 70  $msg.          p
3f80: 75 74 73 20 5b 64 62 20 65 72 72 6f 72 63 6f 64  uts [db errorcod
3f90: 65 5d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20  e].        }.   
3fa0: 20 20 20 20 20 6c 61 70 70 65 6e 64 20 69 73 46       lappend isF
3fb0: 61 69 6c 20 24 76 32 0a 20 20 20 20 20 20 7d 20  ail $v2.      } 
3fc0: 7b 31 20 31 7d 0a 20 20 0a 20 20 20 20 20 20 69  {1 1}.  .      i
3fd0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
3fe0: 3a 3a 6d 61 6c 6c 6f 63 6f 70 74 73 28 2d 63 6c  ::mallocopts(-cl
3ff0: 65 61 6e 75 70 29 5d 7d 20 7b 0a 20 20 20 20 20  eanup)]} {.     
4000: 20 20 20 63 61 74 63 68 20 5b 6c 69 73 74 20 75     catch [list u
4010: 70 6c 65 76 65 6c 20 23 30 20 24 3a 3a 6d 61 6c  plevel #0 $::mal
4020: 6c 6f 63 6f 70 74 73 28 2d 63 6c 65 61 6e 75 70  locopts(-cleanup
4030: 29 5d 20 6d 73 67 0a 20 20 20 20 20 20 7d 0a 20  )] msg.      }. 
4040: 20 20 20 7d 0a 20 20 7d 0a 20 20 75 6e 73 65 74     }.  }.  unset
4050: 20 3a 3a 6d 61 6c 6c 6f 63 6f 70 74 73 0a 20 20   ::mallocopts.  
4060: 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62 75 67  sqlite3_memdebug
4070: 5f 66 61 69 6c 20 2d 31 0a 7d 0a 0a 0a 23 2d 2d  _fail -1.}...#--
4080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
40a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
40b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
40c0: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 68 69 73 20 70  -------.# This p
40d0: 72 6f 63 20 69 73 20 75 73 65 64 20 74 6f 20 74  roc is used to t
40e0: 65 73 74 20 61 20 73 69 6e 67 6c 65 20 53 45 4c  est a single SEL
40f0: 45 43 54 20 73 74 61 74 65 6d 65 6e 74 2e 20 50  ECT statement. P
4100: 61 72 61 6d 65 74 65 72 20 24 6e 61 6d 65 20 69  arameter $name i
4110: 73 0a 23 20 70 61 73 73 65 64 20 61 20 6e 61 6d  s.# passed a nam
4120: 65 20 66 6f 72 20 74 68 65 20 74 65 73 74 20 63  e for the test c
4130: 61 73 65 20 28 69 2e 65 2e 20 22 66 74 73 33 5f  ase (i.e. "fts3_
4140: 6d 61 6c 6c 6f 63 2d 31 2e 34 2e 31 22 29 20 61  malloc-1.4.1") a
4150: 6e 64 20 70 61 72 61 6d 65 74 65 72 0a 23 20 24  nd parameter.# $
4160: 73 71 6c 20 69 73 20 70 61 73 73 65 64 20 74 68  sql is passed th
4170: 65 20 74 65 78 74 20 6f 66 20 74 68 65 20 53 45  e text of the SE
4180: 4c 45 43 54 20 73 74 61 74 65 6d 65 6e 74 2e 20  LECT statement. 
4190: 50 61 72 61 6d 65 74 65 72 20 24 72 65 73 75 6c  Parameter $resul
41a0: 74 20 69 73 0a 23 20 73 65 74 20 74 6f 20 74 68  t is.# set to th
41b0: 65 20 65 78 70 65 63 74 65 64 20 6f 75 74 70 75  e expected outpu
41c0: 74 20 69 66 20 74 68 65 20 53 45 4c 45 43 54 20  t if the SELECT 
41d0: 73 74 61 74 65 6d 65 6e 74 20 69 73 20 73 75 63  statement is suc
41e0: 63 65 73 73 66 75 6c 6c 79 0a 23 20 65 78 65 63  cessfully.# exec
41f0: 75 74 65 64 20 75 73 69 6e 67 20 5b 64 62 20 65  uted using [db e
4200: 76 61 6c 5d 2e 0a 23 0a 23 20 45 78 61 6d 70 6c  val]..#.# Exampl
4210: 65 3a 0a 23 0a 23 20 20 20 64 6f 5f 73 65 6c 65  e:.#.#   do_sele
4220: 63 74 5f 74 65 73 74 20 74 65 73 74 63 61 73 65  ct_test testcase
4230: 2d 31 2e 31 20 22 53 45 4c 45 43 54 20 31 2b 31  -1.1 "SELECT 1+1
4240: 2c 20 31 2b 32 22 20 7b 31 20 32 7d 0a 23 0a 23  , 1+2" {1 2}.#.#
4250: 20 49 66 20 67 6c 6f 62 61 6c 20 76 61 72 69 61   If global varia
4260: 62 6c 65 20 44 4f 5f 4d 41 4c 4c 4f 43 5f 54 45  ble DO_MALLOC_TE
4270: 53 54 20 69 73 20 73 65 74 20 74 6f 20 61 20 6e  ST is set to a n
4280: 6f 6e 2d 7a 65 72 6f 20 76 61 6c 75 65 2c 20 6f  on-zero value, o
4290: 72 20 69 66 0a 23 20 69 74 20 69 73 20 6e 6f 74  r if.# it is not
42a0: 20 64 65 66 69 6e 65 64 20 61 74 20 61 6c 6c 2c   defined at all,
42b0: 20 74 68 65 6e 20 4f 4f 4d 20 74 65 73 74 69 6e   then OOM testin
42c0: 67 20 69 73 20 70 65 72 66 6f 72 6d 65 64 20 6f  g is performed o
42d0: 6e 20 74 68 65 20 53 45 4c 45 43 54 0a 23 20 73  n the SELECT.# s
42e0: 74 61 74 65 6d 65 6e 74 2e 20 45 61 63 68 20 4f  tatement. Each O
42f0: 4f 4d 20 74 65 73 74 20 63 61 73 65 20 69 73 20  OM test case is 
4300: 73 61 69 64 20 74 6f 20 70 61 73 73 20 69 66 20  said to pass if 
4310: 65 69 74 68 65 72 20 28 61 29 20 65 78 65 63 75  either (a) execu
4320: 74 69 6e 67 0a 23 20 74 68 65 20 53 45 4c 45 43  ting.# the SELEC
4330: 54 20 73 74 61 74 65 6d 65 6e 74 20 73 75 63 63  T statement succ
4340: 65 65 64 73 20 61 6e 64 20 74 68 65 20 72 65 73  eeds and the res
4350: 75 6c 74 73 20 6d 61 74 63 68 20 74 68 6f 73 65  ults match those
4360: 20 73 70 65 63 69 66 69 65 64 0a 23 20 62 79 20   specified.# by 
4370: 70 61 72 61 6d 65 74 65 72 20 24 72 65 73 75 6c  parameter $resul
4380: 74 2c 20 6f 72 20 28 62 29 20 54 43 4c 20 74 68  t, or (b) TCL th
4390: 72 6f 77 73 20 61 6e 20 22 6f 75 74 20 6f 66 20  rows an "out of 
43a0: 6d 65 6d 6f 72 79 22 20 65 72 72 6f 72 2e 0a 23  memory" error..#
43b0: 0a 23 20 49 66 20 44 4f 5f 4d 41 4c 4c 4f 43 5f  .# If DO_MALLOC_
43c0: 54 45 53 54 20 69 73 20 64 65 66 69 6e 65 64 20  TEST is defined 
43d0: 61 6e 64 20 73 65 74 20 74 6f 20 7a 65 72 6f 2c  and set to zero,
43e0: 20 74 68 65 6e 20 74 68 65 20 53 45 4c 45 43 54   then the SELECT
43f0: 20 73 74 61 74 65 6d 65 6e 74 0a 23 20 69 73 20   statement.# is 
4400: 65 78 65 63 75 74 65 64 20 6a 75 73 74 20 6f 6e  executed just on
4410: 63 65 2e 20 49 6e 20 74 68 69 73 20 63 61 73 65  ce. In this case
4420: 20 74 68 65 20 74 65 73 74 20 63 61 73 65 20 70   the test case p
4430: 61 73 73 65 73 20 69 66 20 74 68 65 20 72 65 73  asses if the res
4440: 75 6c 74 73 0a 23 20 6d 61 74 63 68 20 74 68 65  ults.# match the
4450: 20 65 78 70 65 63 74 65 64 20 72 65 73 75 6c 74   expected result
4460: 73 20 70 61 73 73 65 64 20 76 69 61 20 70 61 72  s passed via par
4470: 61 6d 65 74 65 72 20 24 72 65 73 75 6c 74 2e 0a  ameter $result..
4480: 23 0a 70 72 6f 63 20 64 6f 5f 73 65 6c 65 63 74  #.proc do_select
4490: 5f 74 65 73 74 20 7b 6e 61 6d 65 20 73 71 6c 20  _test {name sql 
44a0: 72 65 73 75 6c 74 7d 20 7b 0a 20 20 75 70 6c 65  result} {.  uple
44b0: 76 65 6c 20 5b 6c 69 73 74 20 64 6f 50 61 73 73  vel [list doPass
44c0: 69 76 65 54 65 73 74 20 30 20 24 6e 61 6d 65 20  iveTest 0 $name 
44d0: 24 73 71 6c 20 5b 6c 69 73 74 20 30 20 5b 6c 69  $sql [list 0 [li
44e0: 73 74 20 7b 2a 7d 24 72 65 73 75 6c 74 5d 5d 5d  st {*}$result]]]
44f0: 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 72 65 73 74  .}..proc do_rest
4500: 61 72 74 5f 73 65 6c 65 63 74 5f 74 65 73 74 20  art_select_test 
4510: 7b 6e 61 6d 65 20 73 71 6c 20 72 65 73 75 6c 74  {name sql result
4520: 7d 20 7b 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c  } {.  uplevel [l
4530: 69 73 74 20 64 6f 50 61 73 73 69 76 65 54 65 73  ist doPassiveTes
4540: 74 20 31 20 24 6e 61 6d 65 20 24 73 71 6c 20 5b  t 1 $name $sql [
4550: 6c 69 73 74 20 30 20 24 72 65 73 75 6c 74 5d 5d  list 0 $result]]
4560: 0a 7d 0a 0a 70 72 6f 63 20 64 6f 5f 65 72 72 6f  .}..proc do_erro
4570: 72 5f 74 65 73 74 20 7b 6e 61 6d 65 20 73 71 6c  r_test {name sql
4580: 20 65 72 72 6f 72 7d 20 7b 0a 20 20 75 70 6c 65   error} {.  uple
4590: 76 65 6c 20 5b 6c 69 73 74 20 64 6f 50 61 73 73  vel [list doPass
45a0: 69 76 65 54 65 73 74 20 30 20 24 6e 61 6d 65 20  iveTest 0 $name 
45b0: 24 73 71 6c 20 5b 6c 69 73 74 20 31 20 24 65 72  $sql [list 1 $er
45c0: 72 6f 72 5d 5d 0a 7d 0a 0a 70 72 6f 63 20 64 6f  ror]].}..proc do
45d0: 50 61 73 73 69 76 65 54 65 73 74 20 7b 69 73 52  PassiveTest {isR
45e0: 65 73 74 61 72 74 20 6e 61 6d 65 20 73 71 6c 20  estart name sql 
45f0: 63 61 74 63 68 72 65 73 7d 20 7b 0a 20 20 69 66  catchres} {.  if
4600: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
4610: 3a 3a 44 4f 5f 4d 41 4c 4c 4f 43 5f 54 45 53 54  ::DO_MALLOC_TEST
4620: 5d 7d 20 7b 20 73 65 74 20 3a 3a 44 4f 5f 4d 41  ]} { set ::DO_MA
4630: 4c 4c 4f 43 5f 54 45 53 54 20 31 20 7d 0a 0a 20  LLOC_TEST 1 }.. 
4640: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
4650: 73 20 3a 3a 74 65 73 74 70 72 65 66 69 78 5d 20  s ::testprefix] 
4660: 0a 20 20 20 26 26 20 5b 73 74 72 69 6e 67 20 69  .   && [string i
4670: 73 20 69 6e 74 65 67 65 72 20 5b 73 74 72 69 6e  s integer [strin
4680: 67 20 72 61 6e 67 65 20 24 6e 61 6d 65 20 30 20  g range $name 0 
4690: 30 5d 5d 0a 20 20 7d 20 7b 0a 20 20 20 20 73 65  0]].  } {.    se
46a0: 74 20 6e 61 6d 65 20 24 3a 3a 74 65 73 74 70 72  t name $::testpr
46b0: 65 66 69 78 2e 24 6e 61 6d 65 0a 20 20 7d 0a 0a  efix.$name.  }..
46c0: 20 20 73 77 69 74 63 68 20 24 3a 3a 44 4f 5f 4d    switch $::DO_M
46d0: 41 4c 4c 4f 43 5f 54 45 53 54 20 7b 0a 20 20 20  ALLOC_TEST {.   
46e0: 20 30 20 7b 20 23 20 4e 6f 20 6d 61 6c 6c 6f 63   0 { # No malloc
46f0: 20 66 61 69 6c 75 72 65 73 2e 0a 20 20 20 20 20   failures..     
4700: 20 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 20 5b   do_test $name [
4710: 6c 69 73 74 20 73 65 74 20 7b 7d 20 5b 75 70 6c  list set {} [upl
4720: 65 76 65 6c 20 5b 6c 69 73 74 20 63 61 74 63 68  evel [list catch
4730: 73 71 6c 20 24 73 71 6c 5d 5d 5d 20 24 63 61 74  sql $sql]]] $cat
4740: 63 68 72 65 73 0a 20 20 20 20 20 20 72 65 74 75  chres.      retu
4750: 72 6e 0a 20 20 20 20 7d 0a 20 20 20 20 31 20 7b  rn.    }.    1 {
4760: 20 23 20 53 69 6d 75 6c 61 74 65 20 74 72 61 6e   # Simulate tran
4770: 73 69 65 6e 74 20 66 61 69 6c 75 72 65 73 2e 0a  sient failures..
4780: 20 20 20 20 20 20 73 65 74 20 6e 52 65 70 65 61        set nRepea
4790: 74 20 31 0a 20 20 20 20 20 20 73 65 74 20 7a 4e  t 1.      set zN
47a0: 61 6d 65 20 22 74 72 61 6e 73 69 65 6e 74 22 0a  ame "transient".
47b0: 20 20 20 20 20 20 73 65 74 20 6e 53 74 61 72 74        set nStart
47c0: 4c 69 6d 69 74 20 31 30 30 30 30 30 0a 20 20 20  Limit 100000.   
47d0: 20 20 20 73 65 74 20 6e 42 61 63 6b 75 70 20 31     set nBackup 1
47e0: 0a 20 20 20 20 7d 0a 20 20 20 20 32 20 7b 20 23  .    }.    2 { #
47f0: 20 53 69 6d 75 6c 61 74 65 20 70 65 72 73 69 73   Simulate persis
4800: 74 65 6e 74 20 66 61 69 6c 75 72 65 73 2e 0a 20  tent failures.. 
4810: 20 20 20 20 20 73 65 74 20 6e 52 65 70 65 61 74       set nRepeat
4820: 20 31 0a 20 20 20 20 20 20 73 65 74 20 7a 4e 61   1.      set zNa
4830: 6d 65 20 22 70 65 72 73 69 73 74 65 6e 74 22 0a  me "persistent".
4840: 20 20 20 20 20 20 73 65 74 20 6e 53 74 61 72 74        set nStart
4850: 4c 69 6d 69 74 20 31 30 30 30 30 30 0a 20 20 20  Limit 100000.   
4860: 20 20 20 73 65 74 20 6e 42 61 63 6b 75 70 20 31     set nBackup 1
4870: 0a 20 20 20 20 7d 0a 20 20 20 20 33 20 7b 20 23  .    }.    3 { #
4880: 20 53 69 6d 75 6c 61 74 65 20 74 72 61 6e 73 69   Simulate transi
4890: 65 6e 74 20 66 61 69 6c 75 72 65 73 20 77 69 74  ent failures wit
48a0: 68 20 65 78 74 72 61 20 62 72 75 74 65 20 66 6f  h extra brute fo
48b0: 72 63 65 2e 0a 20 20 20 20 20 20 73 65 74 20 6e  rce..      set n
48c0: 52 65 70 65 61 74 20 31 30 30 30 30 30 0a 20 20  Repeat 100000.  
48d0: 20 20 20 20 73 65 74 20 7a 4e 61 6d 65 20 22 72      set zName "r
48e0: 69 64 69 63 75 6c 6f 75 73 22 0a 20 20 20 20 20  idiculous".     
48f0: 20 73 65 74 20 6e 53 74 61 72 74 4c 69 6d 69 74   set nStartLimit
4900: 20 31 0a 20 20 20 20 20 20 73 65 74 20 6e 42 61   1.      set nBa
4910: 63 6b 75 70 20 31 30 0a 20 20 20 20 7d 0a 20 20  ckup 10.    }.  
4920: 7d 0a 0a 20 20 23 20 54 68 65 20 73 65 74 20 6f  }..  # The set o
4930: 66 20 61 63 63 65 70 74 61 62 6c 65 20 72 65 73  f acceptable res
4940: 75 6c 74 73 20 66 72 6f 6d 20 72 75 6e 6e 69 6e  ults from runnin
4950: 67 20 5b 63 61 74 63 68 73 71 6c 20 24 73 71 6c  g [catchsql $sql
4960: 5d 2e 0a 20 20 23 0a 20 20 73 65 74 20 61 6e 73  ]..  #.  set ans
4970: 77 65 72 73 20 5b 6c 69 73 74 20 7b 31 20 7b 6f  wers [list {1 {o
4980: 75 74 20 6f 66 20 6d 65 6d 6f 72 79 7d 7d 20 24  ut of memory}} $
4990: 63 61 74 63 68 72 65 73 5d 0a 20 20 73 65 74 20  catchres].  set 
49a0: 73 74 72 20 5b 6a 6f 69 6e 20 24 61 6e 73 77 65  str [join $answe
49b0: 72 73 20 22 20 4f 52 20 22 5d 0a 0a 20 20 73 65  rs " OR "]..  se
49c0: 74 20 6e 46 61 69 6c 20 31 0a 20 20 66 6f 72 20  t nFail 1.  for 
49d0: 7b 73 65 74 20 69 4c 69 6d 69 74 20 24 6e 53 74  {set iLimit $nSt
49e0: 61 72 74 4c 69 6d 69 74 7d 20 7b 24 6e 46 61 69  artLimit} {$nFai
49f0: 6c 7d 20 7b 69 6e 63 72 20 69 4c 69 6d 69 74 7d  l} {incr iLimit}
4a00: 20 7b 0a 20 20 20 20 66 6f 72 20 7b 73 65 74 20   {.    for {set 
4a10: 69 46 61 69 6c 20 31 7d 20 7b 24 6e 46 61 69 6c  iFail 1} {$nFail
4a20: 20 26 26 20 24 69 46 61 69 6c 3c 3d 24 69 4c 69   && $iFail<=$iLi
4a30: 6d 69 74 7d 20 7b 69 6e 63 72 20 69 46 61 69 6c  mit} {incr iFail
4a40: 7d 20 7b 0a 20 20 20 20 20 20 66 6f 72 20 7b 73  } {.      for {s
4a50: 65 74 20 69 54 65 73 74 20 30 7d 20 7b 24 69 54  et iTest 0} {$iT
4a60: 65 73 74 3c 24 6e 42 61 63 6b 75 70 20 26 26 20  est<$nBackup && 
4a70: 28 24 69 46 61 69 6c 2d 24 69 54 65 73 74 29 3e  ($iFail-$iTest)>
4a80: 30 7d 20 7b 69 6e 63 72 20 69 54 65 73 74 7d 20  0} {incr iTest} 
4a90: 7b 0a 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24  {..        if {$
4aa0: 69 73 52 65 73 74 61 72 74 7d 20 7b 20 73 71 6c  isRestart} { sql
4ab0: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 20  ite3 db test.db 
4ac0: 7d 0a 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74  }..        sqlit
4ad0: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 66 61 69 6c  e3_memdebug_fail
4ae0: 20 5b 65 78 70 72 20 24 69 46 61 69 6c 2d 24 69   [expr $iFail-$i
4af0: 54 65 73 74 5d 20 2d 72 65 70 65 61 74 20 24 6e  Test] -repeat $n
4b00: 52 65 70 65 61 74 0a 20 20 20 20 20 20 20 20 73  Repeat.        s
4b10: 65 74 20 72 65 73 20 5b 75 70 6c 65 76 65 6c 20  et res [uplevel 
4b20: 5b 6c 69 73 74 20 63 61 74 63 68 73 71 6c 20 24  [list catchsql $
4b30: 73 71 6c 5d 5d 0a 20 20 20 20 20 20 20 20 69 66  sql]].        if
4b40: 20 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63   {[lsearch -exac
4b50: 74 20 24 61 6e 73 77 65 72 73 20 24 72 65 73 5d  t $answers $res]
4b60: 3e 3d 30 7d 20 7b 20 73 65 74 20 72 65 73 20 24  >=0} { set res $
4b70: 73 74 72 20 7d 0a 20 20 20 20 20 20 20 20 73 65  str }.        se
4b80: 74 20 74 65 73 74 6e 61 6d 65 20 22 24 6e 61 6d  t testname "$nam
4b90: 65 2e 24 7a 4e 61 6d 65 2e 24 69 46 61 69 6c 22  e.$zName.$iFail"
4ba0: 0a 20 20 20 20 20 20 20 20 64 6f 5f 74 65 73 74  .        do_test
4bb0: 20 22 24 6e 61 6d 65 2e 24 7a 4e 61 6d 65 2e 24   "$name.$zName.$
4bc0: 69 4c 69 6d 69 74 2e 24 69 46 61 69 6c 22 20 5b  iLimit.$iFail" [
4bd0: 6c 69 73 74 20 73 65 74 20 7b 7d 20 24 72 65 73  list set {} $res
4be0: 5d 20 24 73 74 72 0a 0a 20 20 20 20 20 20 20 20  ] $str..        
4bf0: 73 65 74 20 6e 46 61 69 6c 20 5b 73 71 6c 69 74  set nFail [sqlit
4c00: 65 33 5f 6d 65 6d 64 65 62 75 67 5f 66 61 69 6c  e3_memdebug_fail
4c10: 20 2d 31 20 2d 62 65 6e 69 67 6e 63 6e 74 20 6e   -1 -benigncnt n
4c20: 42 65 6e 69 67 6e 5d 0a 20 20 20 20 20 20 7d 0a  Benign].      }.
4c30: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 0a 23 2d      }.  }.}...#-
4c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4c60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
4c80: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 65 73 74 20  --------.# Test 
4c90: 61 20 73 69 6e 67 6c 65 20 77 72 69 74 65 20 74  a single write t
4ca0: 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 20  o the database. 
4cb0: 49 6e 20 74 68 69 73 20 63 61 73 65 20 61 20 20  In this case a  
4cc0: 22 77 72 69 74 65 22 20 69 73 20 61 20 0a 23 20  "write" is a .# 
4cd0: 44 45 4c 45 54 45 2c 20 55 50 44 41 54 45 20 6f  DELETE, UPDATE o
4ce0: 72 20 49 4e 53 45 52 54 20 73 74 61 74 65 6d 65  r INSERT stateme
4cf0: 6e 74 2e 0a 23 0a 23 20 49 66 20 4f 4f 4d 20 74  nt..#.# If OOM t
4d00: 65 73 74 69 6e 67 20 69 73 20 70 65 72 66 6f 72  esting is perfor
4d10: 6d 65 64 2c 20 74 68 65 72 65 20 61 72 65 20 73  med, there are s
4d20: 65 76 65 72 61 6c 20 61 63 63 65 70 74 61 62 6c  everal acceptabl
4d30: 65 20 6f 75 74 63 6f 6d 65 73 3a 0a 23 0a 23 20  e outcomes:.#.# 
4d40: 20 20 31 29 20 54 68 65 20 77 72 69 74 65 20 73    1) The write s
4d50: 75 63 63 65 65 64 73 2e 20 4e 6f 20 65 72 72 6f  ucceeds. No erro
4d60: 72 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 23  r is returned..#
4d70: 0a 23 20 20 20 32 29 20 41 6e 20 22 6f 75 74 20  .#   2) An "out 
4d80: 6f 66 20 6d 65 6d 6f 72 79 22 20 65 78 63 65 70  of memory" excep
4d90: 74 69 6f 6e 20 69 73 20 74 68 72 6f 77 6e 20 61  tion is thrown a
4da0: 6e 64 3a 0a 23 0a 23 20 20 20 20 20 61 29 20 54  nd:.#.#     a) T
4db0: 68 65 20 73 74 61 74 65 6d 65 6e 74 20 68 61 73  he statement has
4dc0: 20 6e 6f 20 65 66 66 65 63 74 2c 20 4f 52 0a 23   no effect, OR.#
4dd0: 20 20 20 20 20 62 29 20 54 68 65 20 63 75 72 72       b) The curr
4de0: 65 6e 74 20 74 72 61 6e 73 61 63 74 69 6f 6e 20  ent transaction 
4df0: 69 73 20 72 6f 6c 6c 65 64 20 62 61 63 6b 2c 20  is rolled back, 
4e00: 4f 52 0a 23 20 20 20 20 20 63 29 20 54 68 65 20  OR.#     c) The 
4e10: 73 74 61 74 65 6d 65 6e 74 20 73 75 63 63 65 65  statement succee
4e20: 64 73 2e 20 54 68 69 73 20 63 61 6e 20 6f 6e 6c  ds. This can onl
4e30: 79 20 68 61 70 70 65 6e 20 69 66 20 74 68 65 20  y happen if the 
4e40: 63 6f 6e 6e 65 63 74 69 6f 6e 0a 23 20 20 20 20  connection.#    
4e50: 20 20 20 20 69 73 20 69 6e 20 61 75 74 6f 2d 63      is in auto-c
4e60: 6f 6d 6d 69 74 20 6d 6f 64 65 20 28 61 66 74 65  ommit mode (afte
4e70: 72 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20  r the statement 
4e80: 69 73 20 65 78 65 63 75 74 65 64 2c 20 73 6f 20  is executed, so 
4e90: 74 68 69 73 0a 23 20 20 20 20 20 20 20 20 69 6e  this.#        in
4ea0: 63 6c 75 64 65 73 20 43 4f 4d 4d 49 54 20 73 74  cludes COMMIT st
4eb0: 61 74 65 6d 65 6e 74 73 29 2e 0a 23 0a 23 20 49  atements)..#.# I
4ec0: 66 20 74 68 65 20 77 72 69 74 65 20 6f 70 65 72  f the write oper
4ed0: 61 74 69 6f 6e 20 65 76 65 6e 74 75 61 6c 6c 79  ation eventually
4ee0: 20 73 75 63 63 65 65 64 73 2c 20 7a 65 72 6f 20   succeeds, zero 
4ef0: 69 73 20 72 65 74 75 72 6e 65 64 2e 20 49 66 20  is returned. If 
4f00: 61 0a 23 20 74 72 61 6e 73 61 63 74 69 6f 6e 20  a.# transaction 
4f10: 69 73 20 72 6f 6c 6c 65 64 20 62 61 63 6b 2c 20  is rolled back, 
4f20: 6e 6f 6e 2d 7a 65 72 6f 20 69 73 20 72 65 74 75  non-zero is retu
4f30: 72 6e 65 64 2e 0a 23 0a 23 20 50 61 72 61 6d 65  rned..#.# Parame
4f40: 74 65 72 20 24 6e 61 6d 65 20 69 73 20 74 68 65  ter $name is the
4f50: 20 6e 61 6d 65 20 74 6f 20 75 73 65 20 66 6f 72   name to use for
4f60: 20 74 68 65 20 74 65 73 74 20 63 61 73 65 20 28   the test case (
4f70: 6f 72 20 74 65 73 74 20 63 61 73 65 73 29 2e 0a  or test cases)..
4f80: 23 20 54 68 65 20 73 65 63 6f 6e 64 20 70 61 72  # The second par
4f90: 61 6d 65 74 65 72 2c 20 24 74 62 6c 2c 20 73 68  ameter, $tbl, sh
4fa0: 6f 75 6c 64 20 62 65 20 74 68 65 20 6e 61 6d 65  ould be the name
4fb0: 20 6f 66 20 74 68 65 20 64 61 74 61 62 61 73 65   of the database
4fc0: 20 74 61 62 6c 65 0a 23 20 62 65 69 6e 67 20 6d   table.# being m
4fd0: 6f 64 69 66 69 65 64 2e 20 50 61 72 61 6d 65 74  odified. Paramet
4fe0: 65 72 20 24 73 71 6c 20 63 6f 6e 74 61 69 6e 73  er $sql contains
4ff0: 20 74 68 65 20 53 51 4c 20 73 74 61 74 65 6d 65   the SQL stateme
5000: 6e 74 20 74 6f 20 74 65 73 74 2e 0a 23 0a 70 72  nt to test..#.pr
5010: 6f 63 20 64 6f 5f 77 72 69 74 65 5f 74 65 73 74  oc do_write_test
5020: 20 7b 6e 61 6d 65 20 74 62 6c 20 73 71 6c 7d 20   {name tbl sql} 
5030: 7b 0a 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65  {.  if {![info e
5040: 78 69 73 74 73 20 3a 3a 44 4f 5f 4d 41 4c 4c 4f  xists ::DO_MALLO
5050: 43 5f 54 45 53 54 5d 7d 20 7b 20 73 65 74 20 3a  C_TEST]} { set :
5060: 3a 44 4f 5f 4d 41 4c 4c 4f 43 5f 54 45 53 54 20  :DO_MALLOC_TEST 
5070: 31 20 7d 0a 0a 20 20 23 20 46 69 67 75 72 65 20  1 }..  # Figure 
5080: 6f 75 74 20 61 6e 20 73 74 61 74 65 6d 65 6e 74  out an statement
5090: 20 74 6f 20 67 65 74 20 61 20 63 68 65 63 6b 73   to get a checks
50a0: 75 6d 20 66 6f 72 20 74 61 62 6c 65 20 24 74 62  um for table $tb
50b0: 6c 2e 0a 20 20 64 62 20 65 76 61 6c 20 22 53 45  l..  db eval "SE
50c0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 24 74 62 6c  LECT * FROM $tbl
50d0: 22 20 56 20 62 72 65 61 6b 0a 20 20 73 65 74 20  " V break.  set 
50e0: 63 6b 73 75 6d 73 71 6c 20 22 53 45 4c 45 43 54  cksumsql "SELECT
50f0: 20 6d 64 35 73 75 6d 28 5b 6a 6f 69 6e 20 5b 63   md5sum([join [c
5100: 6f 6e 63 61 74 20 72 6f 77 69 64 20 24 56 28 2a  oncat rowid $V(*
5110: 29 5d 20 2c 5d 29 20 46 52 4f 4d 20 24 74 62 6c  )] ,]) FROM $tbl
5120: 22 0a 0a 20 20 23 20 43 61 6c 63 75 6c 61 74 65  "..  # Calculate
5130: 20 74 68 65 20 69 6e 69 74 69 61 6c 20 74 61 62   the initial tab
5140: 6c 65 20 63 68 65 63 6b 73 75 6d 2e 0a 20 20 73  le checksum..  s
5150: 65 74 20 63 6b 73 75 6d 31 20 5b 64 62 20 6f 6e  et cksum1 [db on
5160: 65 20 24 63 6b 73 75 6d 73 71 6c 5d 0a 0a 20 20  e $cksumsql]..  
5170: 69 66 20 7b 24 3a 3a 44 4f 5f 4d 41 4c 4c 4f 43  if {$::DO_MALLOC
5180: 5f 54 45 53 54 20 7d 20 7b 0a 20 20 20 20 73 65  _TEST } {.    se
5190: 74 20 61 6e 73 77 65 72 73 20 5b 6c 69 73 74 20  t answers [list 
51a0: 7b 31 20 7b 6f 75 74 20 6f 66 20 6d 65 6d 6f 72  {1 {out of memor
51b0: 79 7d 7d 20 7b 30 20 7b 7d 7d 5d 0a 20 20 20 20  y}} {0 {}}].    
51c0: 69 66 20 7b 24 3a 3a 44 4f 5f 4d 41 4c 4c 4f 43  if {$::DO_MALLOC
51d0: 5f 54 45 53 54 3d 3d 31 7d 20 7b 0a 20 20 20 20  _TEST==1} {.    
51e0: 20 20 73 65 74 20 6d 6f 64 65 73 20 7b 31 30 30    set modes {100
51f0: 30 30 30 20 70 65 72 73 69 73 74 65 6e 74 7d 0a  000 persistent}.
5200: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
5210: 20 20 20 73 65 74 20 6d 6f 64 65 73 20 7b 31 20     set modes {1 
5220: 74 72 61 6e 73 69 65 6e 74 7d 0a 20 20 20 20 7d  transient}.    }
5230: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
5240: 73 65 74 20 61 6e 73 77 65 72 73 20 5b 6c 69 73  set answers [lis
5250: 74 20 7b 30 20 7b 7d 7d 5d 0a 20 20 20 20 73 65  t {0 {}}].    se
5260: 74 20 6d 6f 64 65 73 20 5b 6c 69 73 74 20 30 20  t modes [list 0 
5270: 6e 6f 66 61 69 6c 5d 0a 20 20 7d 0a 20 20 73 65  nofail].  }.  se
5280: 74 20 73 74 72 20 5b 6a 6f 69 6e 20 24 61 6e 73  t str [join $ans
5290: 77 65 72 73 20 22 20 4f 52 20 22 5d 0a 0a 20 20  wers " OR "]..  
52a0: 66 6f 72 65 61 63 68 20 7b 6e 52 65 70 65 61 74  foreach {nRepeat
52b0: 20 7a 4e 61 6d 65 7d 20 24 6d 6f 64 65 73 20 7b   zName} $modes {
52c0: 0a 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 46  .    for {set iF
52d0: 61 69 6c 20 31 7d 20 31 20 7b 69 6e 63 72 20 69  ail 1} 1 {incr i
52e0: 46 61 69 6c 7d 20 7b 0a 20 20 20 20 20 20 69 66  Fail} {.      if
52f0: 20 7b 24 3a 3a 44 4f 5f 4d 41 4c 4c 4f 43 5f 54   {$::DO_MALLOC_T
5300: 45 53 54 7d 20 7b 73 71 6c 69 74 65 33 5f 6d 65  EST} {sqlite3_me
5310: 6d 64 65 62 75 67 5f 66 61 69 6c 20 24 69 46 61  mdebug_fail $iFa
5320: 69 6c 20 2d 72 65 70 65 61 74 20 24 6e 52 65 70  il -repeat $nRep
5330: 65 61 74 7d 0a 0a 20 20 20 20 20 20 73 65 74 20  eat}..      set 
5340: 72 65 73 20 5b 75 70 6c 65 76 65 6c 20 5b 6c 69  res [uplevel [li
5350: 73 74 20 63 61 74 63 68 73 71 6c 20 24 73 71 6c  st catchsql $sql
5360: 5d 5d 0a 20 20 20 20 20 20 73 65 74 20 6e 46 61  ]].      set nFa
5370: 69 6c 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 64  il [sqlite3_memd
5380: 65 62 75 67 5f 66 61 69 6c 20 2d 31 20 2d 62 65  ebug_fail -1 -be
5390: 6e 69 67 6e 63 6e 74 20 6e 42 65 6e 69 67 6e 5d  nigncnt nBenign]
53a0: 0a 20 20 20 20 20 20 69 66 20 7b 24 6e 46 61 69  .      if {$nFai
53b0: 6c 3d 3d 30 7d 20 7b 0a 20 20 20 20 20 20 20 20  l==0} {.        
53c0: 64 6f 5f 74 65 73 74 20 24 6e 61 6d 65 2e 24 7a  do_test $name.$z
53d0: 4e 61 6d 65 2e 24 69 46 61 69 6c 20 5b 6c 69 73  Name.$iFail [lis
53e0: 74 20 73 65 74 20 7b 7d 20 24 72 65 73 5d 20 7b  t set {} $res] {
53f0: 30 20 7b 7d 7d 0a 20 20 20 20 20 20 20 20 72 65  0 {}}.        re
5400: 74 75 72 6e 0a 20 20 20 20 20 20 7d 20 65 6c 73  turn.      } els
5410: 65 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 7b  e {.        if {
5420: 5b 6c 73 65 61 72 63 68 20 24 61 6e 73 77 65 72  [lsearch $answer
5430: 73 20 24 72 65 73 5d 3e 3d 30 7d 20 7b 0a 20 20  s $res]>=0} {.  
5440: 20 20 20 20 20 20 20 20 73 65 74 20 72 65 73 20          set res 
5450: 24 73 74 72 0a 20 20 20 20 20 20 20 20 7d 0a 20  $str.        }. 
5460: 20 20 20 20 20 20 20 64 6f 5f 74 65 73 74 20 24         do_test $
5470: 6e 61 6d 65 2e 24 7a 4e 61 6d 65 2e 24 69 46 61  name.$zName.$iFa
5480: 69 6c 20 5b 6c 69 73 74 20 73 65 74 20 7b 7d 20  il [list set {} 
5490: 24 72 65 73 5d 20 24 73 74 72 0a 20 20 20 20 20  $res] $str.     
54a0: 20 20 20 73 65 74 20 63 6b 73 75 6d 32 20 5b 64     set cksum2 [d
54b0: 62 20 6f 6e 65 20 24 63 6b 73 75 6d 73 71 6c 5d  b one $cksumsql]
54c0: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 24 63 6b  .        if {$ck
54d0: 73 75 6d 31 20 21 3d 20 24 63 6b 73 75 6d 32 7d  sum1 != $cksum2}
54e0: 20 72 65 74 75 72 6e 0a 20 20 20 20 20 20 7d 0a   return.      }.
54f0: 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a                  }.  }.}.