/ Hex Artifact Content
Login

Artifact de8eca0c3e748878845fdca3663ec4b642073caf:


0000: 23 20 32 30 30 35 20 4e 6f 76 65 6d 62 65 72 20  # 2005 November 
0010: 33 30 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f  30.#.# The autho
0020: 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79  r disclaims copy
0030: 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f  right to this so
0040: 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70  urce code.  In p
0050: 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61  lace of.# a lega
0060: 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69  l notice, here i
0070: 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a  s a blessing:.#.
0080: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20  #    May you do 
0090: 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69  good and not evi
00a0: 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  l..#    May you 
00b0: 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73  find forgiveness
00c0: 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e   for yourself an
00d0: 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73  d forgive others
00e0: 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73  ..#    May you s
00f0: 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76  hare freely, nev
0100: 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74  er taking more t
0110: 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a  han you give..#.
0120: 23 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 2a 2a 2a 2a 2a 0a 23 0a 23 20 54 68 69  ********.#.# Thi
0170: 73 20 66 69 6c 65 20 63 6f 6e 74 61 69 6e 73 20  s file contains 
0180: 74 65 73 74 73 20 74 6f 20 65 6e 73 75 72 65 20  tests to ensure 
0190: 74 68 61 74 20 74 68 65 20 6c 69 62 72 61 72 79  that the library
01a0: 20 68 61 6e 64 6c 65 73 20 6d 61 6c 6c 6f 63 28   handles malloc(
01b0: 29 20 66 61 69 6c 75 72 65 73 0a 23 20 63 6f 72  ) failures.# cor
01c0: 72 65 63 74 6c 79 2e 20 54 68 65 20 65 6d 70 68  rectly. The emph
01d0: 61 73 69 73 20 6f 66 20 74 68 65 73 65 20 74 65  asis of these te
01e0: 73 74 73 20 61 72 65 20 74 68 65 20 5f 70 72 65  sts are the _pre
01f0: 70 61 72 65 28 29 2c 20 5f 73 74 65 70 28 29 20  pare(), _step() 
0200: 61 6e 64 0a 23 20 5f 66 69 6e 61 6c 69 7a 65 28  and.# _finalize(
0210: 29 20 63 61 6c 6c 73 2e 0a 23 0a 23 20 24 49 64  ) calls..#.# $Id
0220: 3a 20 6d 61 6c 6c 6f 63 33 2e 74 65 73 74 2c 76  : malloc3.test,v
0230: 20 31 2e 32 34 20 32 30 30 38 2f 31 30 2f 31 34   1.24 2008/10/14
0240: 20 31 35 3a 35 34 3a 30 38 20 64 72 68 20 45 78   15:54:08 drh Ex
0250: 70 20 24 0a 0a 73 65 74 20 74 65 73 74 64 69 72  p $..set testdir
0260: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24   [file dirname $
0270: 61 72 67 76 30 5d 0a 73 6f 75 72 63 65 20 24 74  argv0].source $t
0280: 65 73 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63  estdir/tester.tc
0290: 6c 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 69  l.source $testdi
02a0: 72 2f 6d 61 6c 6c 6f 63 5f 63 6f 6d 6d 6f 6e 2e  r/malloc_common.
02b0: 74 63 6c 0a 0a 23 20 4f 6e 6c 79 20 72 75 6e 20  tcl..# Only run 
02c0: 74 68 65 73 65 20 74 65 73 74 73 20 69 66 20 6d  these tests if m
02d0: 65 6d 6f 72 79 20 64 65 62 75 67 67 69 6e 67 20  emory debugging 
02e0: 69 73 20 74 75 72 6e 65 64 20 6f 6e 2e 0a 23 0a  is turned on..#.
02f0: 69 66 20 7b 21 24 4d 45 4d 44 45 42 55 47 7d 20  if {!$MEMDEBUG} 
0300: 7b 0a 20 20 20 70 75 74 73 20 22 53 6b 69 70 70  {.   puts "Skipp
0310: 69 6e 67 20 6d 61 6c 6c 6f 63 33 20 74 65 73 74  ing malloc3 test
0320: 73 3a 20 6e 6f 74 20 63 6f 6d 70 69 6c 65 64 20  s: not compiled 
0330: 77 69 74 68 20 2d 44 53 51 4c 49 54 45 5f 4d 45  with -DSQLITE_ME
0340: 4d 44 45 42 55 47 2e 2e 2e 22 0a 20 20 20 66 69  MDEBUG...".   fi
0350: 6e 69 73 68 5f 74 65 73 74 0a 20 20 20 72 65 74  nish_test.   ret
0360: 75 72 6e 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d  urn.}..#--------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03b0: 2d 2d 0a 23 20 4e 4f 54 45 53 20 4f 4e 20 52 45  --.# NOTES ON RE
03c0: 43 4f 56 45 52 49 4e 47 20 46 52 4f 4d 20 41 20  COVERING FROM A 
03d0: 4d 41 4c 4c 4f 43 20 46 41 49 4c 55 52 45 0a 23  MALLOC FAILURE.#
03e0: 20 0a 23 20 54 68 65 20 74 65 73 74 73 20 69 6e   .# The tests in
03f0: 20 74 68 69 73 20 66 69 6c 65 20 74 65 73 74 20   this file test 
0400: 74 68 65 20 62 65 68 61 76 69 6f 75 72 73 20 64  the behaviours d
0410: 65 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 20  escribed in the 
0420: 66 6f 6c 6c 6f 77 69 6e 67 0a 23 20 70 61 72 61  following.# para
0430: 67 72 61 70 68 73 2e 20 54 68 65 73 65 20 74 65  graphs. These te
0440: 73 74 73 20 74 65 73 74 20 74 68 65 20 62 65 68  sts test the beh
0450: 61 76 69 6f 75 72 20 6f 66 20 74 68 65 20 73 79  aviour of the sy
0460: 73 74 65 6d 20 77 68 65 6e 20 6d 61 6c 6c 6f 63  stem when malloc
0470: 28 29 20 66 61 69 6c 73 0a 23 20 69 6e 73 69 64  () fails.# insid
0480: 65 20 6f 66 20 61 20 63 61 6c 6c 20 74 6f 20 5f  e of a call to _
0490: 70 72 65 70 61 72 65 28 29 2c 20 5f 73 74 65 70  prepare(), _step
04a0: 28 29 2c 20 5f 66 69 6e 61 6c 69 7a 65 28 29 20  (), _finalize() 
04b0: 6f 72 20 5f 72 65 73 65 74 28 29 2e 20 54 68 65  or _reset(). The
04c0: 0a 23 20 68 61 6e 64 6c 69 6e 67 20 6f 66 20 6d  .# handling of m
04d0: 61 6c 6c 6f 63 28 29 20 66 61 69 6c 75 72 65 73  alloc() failures
04e0: 20 77 69 74 68 69 6e 20 61 6e 63 69 6c 6c 61 72   within ancillar
04f0: 79 20 70 72 6f 63 65 64 75 72 65 73 20 69 73 20  y procedures is 
0500: 74 65 73 74 65 64 0a 23 20 65 6c 73 65 77 68 65  tested.# elsewhe
0510: 72 65 2e 0a 23 0a 23 20 4f 76 65 72 76 69 65 77  re..#.# Overview
0520: 3a 0a 23 0a 23 20 45 78 65 63 75 74 69 6e 67 20  :.#.# Executing 
0530: 61 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 64  a statement is d
0540: 6f 6e 65 20 69 6e 20 74 68 72 65 65 20 73 74 61  one in three sta
0550: 67 65 73 20 28 70 72 65 70 61 72 65 2c 20 73 74  ges (prepare, st
0560: 65 70 20 61 6e 64 20 66 69 6e 61 6c 69 7a 65 29  ep and finalize)
0570: 2e 20 41 0a 23 20 6d 61 6c 6c 6f 63 28 29 20 66  . A.# malloc() f
0580: 61 69 6c 75 72 65 20 6d 61 79 20 6f 63 63 75 72  ailure may occur
0590: 20 77 69 74 68 69 6e 20 61 6e 79 20 73 74 61 67   within any stag
05a0: 65 2e 20 49 66 20 61 20 6d 65 6d 6f 72 79 20 61  e. If a memory a
05b0: 6c 6c 6f 63 61 74 69 6f 6e 20 66 61 69 6c 73 0a  llocation fails.
05c0: 23 20 64 75 72 69 6e 67 20 73 74 61 74 65 6d 65  # during stateme
05d0: 6e 74 20 70 72 65 70 61 72 61 74 69 6f 6e 2c 20  nt preparation, 
05e0: 6e 6f 20 73 74 61 74 65 6d 65 6e 74 20 68 61 6e  no statement han
05f0: 64 6c 65 20 69 73 20 72 65 74 75 72 6e 65 64 2e  dle is returned.
0600: 20 46 72 6f 6d 20 74 68 65 20 75 73 65 72 73 0a   From the users.
0610: 23 20 70 6f 69 6e 74 20 6f 66 20 76 69 65 77 20  # point of view 
0620: 74 68 65 20 73 79 73 74 65 6d 20 73 74 61 74 65  the system state
0630: 20 69 73 20 61 73 20 69 66 20 5f 70 72 65 70 61   is as if _prepa
0640: 72 65 28 29 20 68 61 64 20 6e 65 76 65 72 20 62  re() had never b
0650: 65 65 6e 20 63 61 6c 6c 65 64 2e 0a 23 0a 23 20  een called..#.# 
0660: 49 66 20 74 68 65 20 6d 65 6d 6f 72 79 20 61 6c  If the memory al
0670: 6c 6f 63 61 74 69 6f 6e 20 66 61 69 6c 73 20 64  location fails d
0680: 75 72 69 6e 67 20 74 68 65 20 5f 73 74 65 70 28  uring the _step(
0690: 29 20 6f 72 20 5f 66 69 6e 61 6c 69 7a 65 28 29  ) or _finalize()
06a0: 20 63 61 6c 6c 73 2c 20 74 68 65 6e 0a 23 20 74   calls, then.# t
06b0: 68 65 20 64 61 74 61 62 61 73 65 20 6d 61 79 20  he database may 
06c0: 62 65 20 6c 65 66 74 20 69 6e 20 6f 6e 65 20 6f  be left in one o
06d0: 66 20 74 77 6f 20 73 74 61 74 65 73 20 28 61 66  f two states (af
06e0: 74 65 72 20 66 69 6e 61 6c 69 7a 65 28 29 20 68  ter finalize() h
06f0: 61 73 20 62 65 65 6e 0a 23 20 63 61 6c 6c 65 64  as been.# called
0700: 29 3a 0a 23 0a 23 20 20 20 20 20 2a 20 41 73 20  ):.#.#     * As 
0710: 69 66 20 74 68 65 20 6e 65 69 74 68 65 72 20 5f  if the neither _
0720: 73 74 65 70 28 29 20 6e 6f 72 20 5f 66 69 6e 61  step() nor _fina
0730: 6c 69 7a 65 28 29 20 68 61 64 20 65 76 65 72 20  lize() had ever 
0740: 62 65 65 6e 20 63 61 6c 6c 65 64 20 6f 6e 0a 23  been called on.#
0750: 20 20 20 20 20 20 20 74 68 65 20 73 74 61 74 65         the state
0760: 6d 65 6e 74 20 68 61 6e 64 6c 65 20 28 69 2e 65  ment handle (i.e
0770: 2e 20 61 6e 79 20 63 68 61 6e 67 65 73 20 6d 61  . any changes ma
0780: 64 65 20 62 79 20 74 68 65 20 73 74 61 74 65 6d  de by the statem
0790: 65 6e 74 20 61 72 65 0a 23 20 20 20 20 20 20 20  ent are.#       
07a0: 72 6f 6c 6c 65 64 20 62 61 63 6b 29 2e 0a 23 20  rolled back)..# 
07b0: 20 20 20 20 2a 20 54 68 65 20 63 75 72 72 65 6e      * The curren
07c0: 74 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 6d 61  t transaction ma
07d0: 79 20 62 65 20 72 6f 6c 6c 65 64 20 62 61 63 6b  y be rolled back
07e0: 2e 20 49 6e 20 74 68 69 73 20 63 61 73 65 20 61  . In this case a
07f0: 20 68 6f 74 2d 6a 6f 75 72 6e 61 6c 0a 23 20 20   hot-journal.#  
0800: 20 20 20 20 20 6d 61 79 20 6f 72 20 6d 61 79 20       may or may 
0810: 6e 6f 74 20 61 63 74 75 61 6c 6c 79 20 62 65 20  not actually be 
0820: 70 72 65 73 65 6e 74 20 69 6e 20 74 68 65 20 66  present in the f
0830: 69 6c 65 73 79 73 74 65 6d 2e 0a 23 0a 23 20 54  ilesystem..#.# T
0840: 68 65 20 63 61 6c 6c 65 72 20 63 61 6e 20 74 65  he caller can te
0850: 6c 6c 20 74 68 65 20 64 69 66 66 65 72 65 6e 63  ll the differenc
0860: 65 20 62 65 74 77 65 65 6e 20 74 68 65 73 65 20  e between these 
0870: 74 77 6f 20 73 63 65 6e 61 72 69 6f 73 20 62 79  two scenarios by
0880: 20 69 6e 76 6f 6b 69 6e 67 0a 23 20 5f 67 65 74   invoking.# _get
0890: 5f 61 75 74 6f 63 6f 6d 6d 69 74 28 29 2e 0a 23  _autocommit()..#
08a0: 0a 23 0a 23 20 48 61 6e 64 6c 69 6e 67 20 6f 66  .#.# Handling of
08b0: 20 73 71 6c 69 74 65 33 5f 72 65 73 65 74 28 29   sqlite3_reset()
08c0: 3a 0a 23 0a 23 20 49 66 20 61 20 6d 61 6c 6c 6f  :.#.# If a mallo
08d0: 63 28 29 20 66 61 69 6c 73 20 77 68 69 6c 65 20  c() fails while 
08e0: 65 78 65 63 75 74 69 6e 67 20 61 6e 20 73 71 6c  executing an sql
08f0: 69 74 65 33 5f 72 65 73 65 74 28 29 20 63 61 6c  ite3_reset() cal
0900: 6c 2c 20 74 68 69 73 20 69 73 20 68 61 6e 64 6c  l, this is handl
0910: 65 64 0a 23 20 69 6e 20 74 68 65 20 73 61 6d 65  ed.# in the same
0920: 20 77 61 79 20 61 73 20 61 20 66 61 69 6c 75 72   way as a failur
0930: 65 20 77 69 74 68 69 6e 20 5f 66 69 6e 61 6c 69  e within _finali
0940: 7a 65 28 29 2e 20 54 68 65 20 73 74 61 74 65 6d  ze(). The statem
0950: 65 6e 74 20 68 61 6e 64 6c 65 0a 23 20 69 73 20  ent handle.# is 
0960: 6e 6f 74 20 64 65 6c 65 74 65 64 20 61 6e 64 20  not deleted and 
0970: 6d 75 73 74 20 62 65 20 70 61 73 73 65 64 20 74  must be passed t
0980: 6f 20 5f 66 69 6e 61 6c 69 7a 65 28 29 20 66 6f  o _finalize() fo
0990: 72 20 72 65 73 6f 75 72 63 65 20 64 65 61 6c 6c  r resource deall
09a0: 6f 63 61 74 69 6f 6e 2e 0a 23 20 41 74 74 65 6d  ocation..# Attem
09b0: 70 74 69 6e 67 20 74 6f 20 5f 73 74 65 70 28 29  pting to _step()
09c0: 20 6f 72 20 5f 72 65 73 65 74 28 29 20 74 68 65   or _reset() the
09d0: 20 73 74 61 74 65 6d 65 6e 74 20 61 66 74 65 72   statement after
09e0: 20 61 20 66 61 69 6c 65 64 20 5f 72 65 73 65 74   a failed _reset
09f0: 28 29 20 77 69 6c 6c 0a 23 20 61 6c 77 61 79 73  () will.# always
0a00: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4e   return SQLITE_N
0a10: 4f 4d 45 4d 2e 0a 23 0a 23 0a 23 20 4f 74 68 65  OMEM..#.#.# Othe
0a20: 72 20 61 63 74 69 76 65 20 53 51 4c 20 73 74 61  r active SQL sta
0a30: 74 65 6d 65 6e 74 73 3a 0a 23 0a 23 20 54 68 65  tements:.#.# The
0a40: 20 65 66 66 65 63 74 20 6f 66 20 61 20 6d 61 6c   effect of a mal
0a50: 6c 6f 63 20 66 61 69 6c 75 72 65 20 6f 6e 20 63  loc failure on c
0a60: 6f 6e 63 75 72 72 65 6e 74 6c 79 20 65 78 65 63  oncurrently exec
0a70: 75 74 69 6e 67 20 53 51 4c 20 73 74 61 74 65 6d  uting SQL statem
0a80: 65 6e 74 73 2c 0a 23 20 70 61 72 74 69 63 75 6c  ents,.# particul
0a90: 61 72 6c 79 20 77 68 65 6e 20 74 68 65 20 73 74  arly when the st
0aa0: 61 74 65 6d 65 6e 74 20 69 73 20 65 78 65 63 75  atement is execu
0ab0: 74 69 6e 67 20 77 69 74 68 20 52 45 41 44 5f 55  ting with READ_U
0ac0: 4e 43 4f 4d 4d 49 54 54 45 44 20 73 65 74 20 61  NCOMMITTED set a
0ad0: 6e 64 0a 23 20 74 68 65 20 6d 61 6c 6c 6f 63 28  nd.# the malloc(
0ae0: 29 20 66 61 69 6c 75 72 65 20 6d 61 6e 64 61 74  ) failure mandat
0af0: 65 73 20 73 74 61 74 65 6d 65 6e 74 20 72 6f 6c  es statement rol
0b00: 6c 62 61 63 6b 20 6f 6e 6c 79 2e 20 43 75 72 72  lback only. Curr
0b10: 65 6e 74 6c 79 2c 20 69 66 0a 23 20 74 72 61 6e  ently, if.# tran
0b20: 73 61 63 74 69 6f 6e 20 72 6f 6c 6c 62 61 63 6b  saction rollback
0b30: 20 69 73 20 72 65 71 75 69 72 65 64 2c 20 61 6c   is required, al
0b40: 6c 20 6f 74 68 65 72 20 76 64 62 65 27 73 20 61  l other vdbe's a
0b50: 72 65 20 61 62 6f 72 74 65 64 2e 0a 23 0a 23 20  re aborted..#.# 
0b60: 20 20 20 20 4e 6f 6e 2d 74 72 61 6e 73 69 65 6e      Non-transien
0b70: 74 20 6d 61 6c 6c 6f 63 73 20 69 6e 20 62 74 72  t mallocs in btr
0b80: 65 65 2e 63 3a 0a 23 20 20 20 20 20 20 20 20 20  ee.c:.#         
0b90: 2a 20 54 68 65 20 42 74 72 65 65 20 73 74 72 75  * The Btree stru
0ba0: 63 74 75 72 65 20 69 74 73 65 6c 66 0a 23 20 20  cture itself.#  
0bb0: 20 20 20 20 20 20 20 2a 20 45 61 63 68 20 42 74         * Each Bt
0bc0: 43 75 72 73 6f 72 20 73 74 72 75 63 74 75 72 65  Cursor structure
0bd0: 0a 23 0a 23 20 20 20 20 20 4d 61 6c 6c 6f 63 73  .#.#     Mallocs
0be0: 20 69 6e 20 70 61 67 65 72 2e 63 3a 0a 23 20 20   in pager.c:.#  
0bf0: 20 20 20 20 20 20 20 72 65 61 64 4d 61 73 74 65         readMaste
0c00: 72 4a 6f 75 72 6e 61 6c 28 29 20 20 2d 20 53 70  rJournal()  - Sp
0c10: 61 63 65 20 74 6f 20 72 65 61 64 20 74 68 65 20  ace to read the 
0c20: 6d 61 73 74 65 72 20 6a 6f 75 72 6e 61 6c 20 6e  master journal n
0c30: 61 6d 65 0a 23 20 20 20 20 20 20 20 20 20 70 61  ame.#         pa
0c40: 67 65 72 5f 64 65 6c 6d 61 73 74 65 72 28 29 20  ger_delmaster() 
0c50: 20 20 20 2d 20 53 70 61 63 65 20 66 6f 72 20 74     - Space for t
0c60: 68 65 20 65 6e 74 69 72 65 20 6d 61 73 74 65 72  he entire master
0c70: 20 6a 6f 75 72 6e 61 6c 20 66 69 6c 65 0a 23 0a   journal file.#.
0c80: 23 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65  #         sqlite
0c90: 33 70 61 67 65 72 5f 6f 70 65 6e 28 29 20 20 2d  3pager_open()  -
0ca0: 20 54 68 65 20 70 61 67 65 72 20 73 74 72 75 63   The pager struc
0cb0: 74 75 72 65 20 69 74 73 65 6c 66 0a 23 20 20 20  ture itself.#   
0cc0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 70 61        sqlite3_pa
0cd0: 67 65 72 67 65 74 28 29 20 20 20 2d 20 53 70 61  gerget()   - Spa
0ce0: 63 65 20 66 6f 72 20 61 20 6e 65 77 20 70 61 67  ce for a new pag
0cf0: 65 0a 23 20 20 20 20 20 20 20 20 20 70 61 67 65  e.#         page
0d00: 72 5f 6f 70 65 6e 5f 6a 6f 75 72 6e 61 6c 28 29  r_open_journal()
0d10: 20 2d 20 50 61 67 65 72 2e 61 49 6e 4a 6f 75 72   - Pager.aInJour
0d20: 6e 61 6c 5b 5d 20 62 69 74 6d 61 70 0a 23 20 20  nal[] bitmap.#  
0d30: 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 70 61         sqlite3pa
0d40: 67 65 72 5f 77 72 69 74 65 28 29 20 2d 20 46 6f  ger_write() - Fo
0d50: 72 20 69 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61  r in-memory data
0d60: 62 61 73 65 73 20 6f 6e 6c 79 3a 20 68 69 73 74  bases only: hist
0d70: 6f 72 79 20 70 61 67 65 20 61 6e 64 0a 23 20 20  ory page and.#  
0d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74                st
0da0: 61 74 65 6d 65 6e 74 20 68 69 73 74 6f 72 79 20  atement history 
0db0: 70 61 67 65 2e 0a 23 20 20 20 20 20 20 20 20 20  page..#         
0dc0: 70 61 67 65 72 5f 73 74 6d 74 5f 62 65 67 69 6e  pager_stmt_begin
0dd0: 28 29 20 20 20 2d 20 50 61 67 65 72 2e 61 49 6e  ()   - Pager.aIn
0de0: 53 74 6d 74 5b 5d 20 62 69 74 6d 61 70 0a 23 0a  Stmt[] bitmap.#.
0df0: 23 20 4e 6f 6e 65 20 6f 66 20 74 68 65 20 61 62  # None of the ab
0e00: 6f 76 65 20 61 72 65 20 61 20 68 75 67 65 20 70  ove are a huge p
0e10: 72 6f 62 6c 65 6d 2e 20 54 68 65 20 6d 6f 73 74  roblem. The most
0e20: 20 74 72 6f 75 62 6c 65 73 6f 6d 65 20 66 61 69   troublesome fai
0e30: 6c 75 72 65 73 20 61 72 65 20 74 68 65 0a 23 20  lures are the.# 
0e40: 74 72 61 6e 73 69 65 6e 74 20 6d 61 6c 6c 6f 63  transient malloc
0e50: 28 29 20 63 61 6c 6c 73 20 69 6e 20 62 74 72 65  () calls in btre
0e60: 65 2e 63 2c 20 77 68 69 63 68 20 63 61 6e 20 6f  e.c, which can o
0e70: 63 63 75 72 20 64 75 72 69 6e 67 20 74 68 65 20  ccur during the 
0e80: 74 72 65 65 2d 62 61 6c 61 6e 63 65 0a 23 20 6f  tree-balance.# o
0e90: 70 65 72 61 74 69 6f 6e 2e 20 54 68 69 73 20 6d  peration. This m
0ea0: 65 61 6e 73 20 74 68 65 20 74 72 65 65 20 62 65  eans the tree be
0eb0: 69 6e 67 20 62 61 6c 61 6e 63 65 64 20 77 69 6c  ing balanced wil
0ec0: 6c 20 62 65 20 69 6e 74 65 72 6e 61 6c 6c 79 20  l be internally 
0ed0: 69 6e 63 6f 6e 73 69 73 74 65 6e 74 0a 23 20 61  inconsistent.# a
0ee0: 66 74 65 72 20 74 68 65 20 6d 61 6c 6c 6f 63 28  fter the malloc(
0ef0: 29 20 66 61 69 6c 73 2e 20 54 6f 20 61 76 6f 69  ) fails. To avoi
0f00: 64 20 74 68 65 20 63 6f 72 72 75 70 74 20 74 72  d the corrupt tr
0f10: 65 65 20 62 65 69 6e 67 20 72 65 61 64 20 62 79  ee being read by
0f20: 20 61 0a 23 20 52 45 41 44 5f 55 4e 43 4f 4d 4d   a.# READ_UNCOMM
0f30: 49 54 54 45 44 20 71 75 65 72 79 2c 20 77 65 20  ITTED query, we 
0f40: 68 61 76 65 20 74 6f 20 6d 61 6b 65 20 73 75 72  have to make sur
0f50: 65 20 74 68 65 20 74 72 61 6e 73 61 63 74 69 6f  e the transactio
0f60: 6e 20 6f 72 20 73 74 61 74 65 6d 65 6e 74 0a 23  n or statement.#
0f70: 20 72 6f 6c 6c 62 61 63 6b 20 6f 63 63 75 72 73   rollback occurs
0f80: 20 62 65 66 6f 72 65 20 73 71 6c 69 74 65 33 5f   before sqlite3_
0f90: 73 74 65 70 28 29 20 72 65 74 75 72 6e 73 2c 20  step() returns, 
0fa0: 6e 6f 74 20 64 75 72 69 6e 67 20 61 20 73 75 62  not during a sub
0fb0: 73 65 71 75 65 6e 74 0a 23 20 73 71 6c 69 74 65  sequent.# sqlite
0fc0: 33 5f 66 69 6e 61 6c 69 7a 65 28 29 2e 0a 23 2d  3_finalize()..#-
0fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 23 2d 2d 2d 2d  ---------..#----
1020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1060: 2d 2d 2d 2d 2d 2d 0a 23 20 4e 4f 54 45 53 20 4f  ------.# NOTES O
1070: 4e 20 54 45 53 54 20 49 4d 50 4c 45 4d 45 4e 54  N TEST IMPLEMENT
1080: 41 54 49 4f 4e 0a 23 0a 23 20 54 68 65 20 74 65  ATION.#.# The te
1090: 73 74 73 20 69 6e 20 74 68 69 73 20 66 69 6c 65  sts in this file
10a0: 20 61 72 65 20 69 6d 70 6c 65 6d 65 6e 74 65 64   are implemented
10b0: 20 64 69 66 66 65 72 65 6e 74 6c 79 20 66 72 6f   differently fro
10c0: 6d 20 74 68 6f 73 65 20 69 6e 20 6f 74 68 65 72  m those in other
10d0: 0a 23 20 66 69 6c 65 73 2e 20 49 6e 73 74 65 61  .# files. Instea
10e0: 64 2c 20 74 65 73 74 73 20 61 72 65 20 73 70 65  d, tests are spe
10f0: 63 69 66 69 65 64 20 75 73 69 6e 67 20 74 68 72  cified using thr
1100: 65 65 20 70 72 69 6d 69 74 69 76 65 73 3a 20 53  ee primitives: S
1110: 51 4c 2c 20 50 52 45 50 20 61 6e 64 0a 23 20 54  QL, PREP and.# T
1120: 45 53 54 2e 20 45 61 63 68 20 70 72 69 6d 69 74  EST. Each primit
1130: 69 76 65 20 68 61 73 20 61 20 73 69 6e 67 6c 65  ive has a single
1140: 20 61 72 67 75 6d 65 6e 74 2e 20 50 72 69 6d 69   argument. Primi
1150: 74 69 76 65 73 20 61 72 65 20 70 72 6f 63 65 73  tives are proces
1160: 73 65 64 20 69 6e 0a 23 20 74 68 65 20 6f 72 64  sed in.# the ord
1170: 65 72 20 74 68 65 79 20 61 72 65 20 73 70 65 63  er they are spec
1180: 69 66 69 65 64 20 69 6e 20 74 68 65 20 66 69 6c  ified in the fil
1190: 65 2e 0a 23 0a 23 20 41 20 54 45 53 54 20 70 72  e..#.# A TEST pr
11a0: 69 6d 69 74 69 76 65 20 73 70 65 63 69 66 69 65  imitive specifie
11b0: 73 20 61 20 54 43 4c 20 73 63 72 69 70 74 20 61  s a TCL script a
11c0: 73 20 69 74 73 20 61 72 67 75 6d 65 6e 74 2e 20  s its argument. 
11d0: 57 68 65 6e 20 61 20 54 45 53 54 0a 23 20 64 69  When a TEST.# di
11e0: 72 65 63 74 69 76 65 20 69 73 20 65 6e 63 6f 75  rective is encou
11f0: 6e 74 65 72 65 64 20 74 68 65 20 54 63 6c 20 73  ntered the Tcl s
1200: 63 72 69 70 74 20 69 73 20 65 76 61 6c 75 61 74  cript is evaluat
1210: 65 64 2e 20 55 73 75 61 6c 6c 79 2c 20 74 68 69  ed. Usually, thi
1220: 73 20 54 63 6c 0a 23 20 73 63 72 69 70 74 20 63  s Tcl.# script c
1230: 6f 6e 74 61 69 6e 73 20 6f 6e 65 20 6f 72 20 6d  ontains one or m
1240: 6f 72 65 20 63 61 6c 6c 73 20 74 6f 20 5b 64 6f  ore calls to [do
1250: 5f 74 65 73 74 5d 2e 0a 23 0a 23 20 41 20 50 52  _test]..#.# A PR
1260: 45 50 20 70 72 69 6d 69 74 69 76 65 20 73 70 65  EP primitive spe
1270: 63 69 66 69 65 73 20 61 6e 20 53 51 4c 20 73 63  cifies an SQL sc
1280: 72 69 70 74 20 61 73 20 69 74 73 20 61 72 67 75  ript as its argu
1290: 6d 65 6e 74 2e 20 57 68 65 6e 20 61 20 50 52 45  ment. When a PRE
12a0: 50 0a 23 20 64 69 72 65 63 74 69 76 65 20 69 73  P.# directive is
12b0: 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 74 68 65   encountered the
12c0: 20 53 51 4c 20 69 73 20 65 76 61 6c 75 61 74 65   SQL is evaluate
12d0: 64 20 75 73 69 6e 67 20 64 61 74 61 62 61 73 65  d using database
12e0: 20 63 6f 6e 6e 65 63 74 69 6f 6e 0a 23 20 5b 64   connection.# [d
12f0: 62 5d 2e 0a 23 0a 23 20 54 68 65 20 53 51 4c 20  b]..#.# The SQL 
1300: 70 72 69 6d 69 74 69 76 65 73 20 61 72 65 20 77  primitives are w
1310: 68 65 72 65 20 74 68 65 20 61 63 74 69 6f 6e 20  here the action 
1320: 68 61 70 70 65 6e 73 2e 20 41 6e 20 53 51 4c 20  happens. An SQL 
1330: 70 72 69 6d 69 74 69 76 65 20 6d 75 73 74 0a 23  primitive must.#
1340: 20 63 6f 6e 74 61 69 6e 20 61 20 73 69 6e 67 6c   contain a singl
1350: 65 2c 20 76 61 6c 69 64 20 53 51 4c 20 73 74 61  e, valid SQL sta
1360: 74 65 6d 65 6e 74 20 61 73 20 69 74 73 20 61 72  tement as its ar
1370: 67 75 6d 65 6e 74 2e 20 57 68 65 6e 20 61 6e 20  gument. When an 
1380: 53 51 4c 0a 23 20 70 72 69 6d 69 74 69 76 65 20  SQL.# primitive 
1390: 69 73 20 65 6e 63 6f 75 6e 74 65 72 65 64 2c 20  is encountered, 
13a0: 69 74 20 69 73 20 65 76 61 6c 75 61 74 65 64 20  it is evaluated 
13b0: 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 74 69 6d 65  one or more time
13c0: 73 20 74 6f 20 74 65 73 74 20 74 68 65 0a 23 20  s to test the.# 
13d0: 62 65 68 61 76 69 6f 75 72 20 6f 66 20 74 68 65  behaviour of the
13e0: 20 73 79 73 74 65 6d 20 77 68 65 6e 20 6d 61 6c   system when mal
13f0: 6c 6f 63 28 29 20 66 61 69 6c 73 20 64 75 72 69  loc() fails duri
1400: 6e 67 20 70 72 65 70 61 72 61 74 69 6f 6e 20 6f  ng preparation o
1410: 72 0a 23 20 65 78 65 63 75 74 69 6f 6e 20 6f 66  r.# execution of
1420: 20 73 61 69 64 20 73 74 61 74 65 6d 65 6e 74 2e   said statement.
1430: 20 54 68 65 20 4e 74 68 20 74 69 6d 65 20 74 68   The Nth time th
1440: 65 20 73 74 61 74 65 6d 65 6e 74 20 69 73 20 65  e statement is e
1450: 78 65 63 75 74 65 64 2c 0a 23 20 74 68 65 20 4e  xecuted,.# the N
1460: 74 68 20 6d 61 6c 6c 6f 63 20 69 73 20 73 61 69  th malloc is sai
1470: 64 20 74 6f 20 66 61 69 6c 2e 20 54 68 65 20 73  d to fail. The s
1480: 74 61 74 65 6d 65 6e 74 20 69 73 20 65 78 65 63  tatement is exec
1490: 75 74 65 64 20 75 6e 74 69 6c 20 69 74 0a 23 20  uted until it.# 
14a0: 73 75 63 63 65 65 64 73 2c 20 69 2e 65 2e 20 28  succeeds, i.e. (
14b0: 4d 2b 31 29 20 74 69 6d 65 73 2c 20 77 68 65 72  M+1) times, wher
14c0: 65 20 4d 20 69 73 20 74 68 65 20 6e 75 6d 62 65  e M is the numbe
14d0: 72 20 6f 66 20 6d 61 6c 6c 6f 63 73 28 29 20 72  r of mallocs() r
14e0: 65 71 75 69 72 65 64 0a 23 20 74 6f 20 70 72 65  equired.# to pre
14f0: 70 61 72 65 20 61 6e 64 20 65 78 65 63 75 74 65  pare and execute
1500: 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 2e 0a   the statement..
1510: 23 0a 23 20 45 61 63 68 20 74 69 6d 65 20 61 6e  #.# Each time an
1520: 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 66   SQL statement f
1530: 61 69 6c 73 2c 20 74 68 65 20 64 72 69 76 65 72  ails, the driver
1540: 20 70 72 6f 67 72 61 6d 20 28 73 65 65 20 70 72   program (see pr
1550: 6f 63 20 5b 72 75 6e 5f 74 65 73 74 5d 0a 23 20  oc [run_test].# 
1560: 62 65 6c 6f 77 29 20 66 69 67 75 72 65 73 20 6f  below) figures o
1570: 75 74 20 69 66 20 61 20 74 72 61 6e 73 61 63 74  ut if a transact
1580: 69 6f 6e 20 68 61 73 20 62 65 65 6e 20 61 75 74  ion has been aut
1590: 6f 6d 61 74 69 63 61 6c 6c 79 20 72 6f 6c 6c 65  omatically rolle
15a0: 64 20 62 61 63 6b 2e 0a 23 20 49 66 20 6e 6f 74  d back..# If not
15b0: 2c 20 69 74 20 65 78 65 63 75 74 65 73 20 61 6e  , it executes an
15c0: 79 20 54 45 53 54 20 62 6c 6f 63 6b 20 69 6d 6d  y TEST block imm
15d0: 65 64 69 61 74 65 6c 79 20 70 72 6f 63 65 65 64  ediately proceed
15e0: 69 6e 67 20 74 68 65 20 53 51 4c 0a 23 20 73 74  ing the SQL.# st
15f0: 61 74 65 6d 65 6e 74 2c 20 74 68 65 6e 20 72 65  atement, then re
1600: 65 78 65 63 75 74 65 73 20 74 68 65 20 53 51 4c  executes the SQL
1610: 20 73 74 61 74 65 6d 65 6e 74 20 77 69 74 68 20   statement with 
1620: 74 68 65 20 6e 65 78 74 20 76 61 6c 75 65 20 6f  the next value o
1630: 66 20 4e 2e 0a 23 0a 23 20 49 66 20 61 20 74 72  f N..#.# If a tr
1640: 61 6e 73 61 63 74 69 6f 6e 20 68 61 73 20 62 65  ansaction has be
1650: 65 6e 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79  en automatically
1660: 20 72 6f 6c 6c 65 64 20 62 61 63 6b 2c 20 74 68   rolled back, th
1670: 65 6e 20 74 68 65 20 64 72 69 76 65 72 0a 23 20  en the driver.# 
1680: 70 72 6f 67 72 61 6d 20 65 78 65 63 75 74 65 73  program executes
1690: 20 61 6c 6c 20 74 68 65 20 53 51 4c 20 73 70 65   all the SQL spe
16a0: 63 69 66 69 65 64 20 61 73 20 70 61 72 74 20 6f  cified as part o
16b0: 66 20 53 51 4c 20 6f 72 20 50 52 45 50 20 70 72  f SQL or PREP pr
16c0: 69 6d 69 74 69 76 65 73 0a 23 20 62 65 74 77 65  imitives.# betwe
16d0: 65 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 53  en the current S
16e0: 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 61 6e 64  QL statement and
16f0: 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74   the most recent
1700: 20 22 42 45 47 49 4e 22 2e 20 41 6e 79 20 0a 23   "BEGIN". Any .#
1710: 20 54 45 53 54 20 62 6c 6f 63 6b 20 69 6d 6d 65   TEST block imme
1720: 64 69 61 74 65 6c 79 20 70 72 6f 63 65 65 64 69  diately proceedi
1730: 6e 67 20 74 68 65 20 53 51 4c 20 73 74 61 74 65  ng the SQL state
1740: 6d 65 6e 74 20 69 73 20 65 76 61 6c 75 61 74 65  ment is evaluate
1750: 64 2c 20 61 6e 64 0a 23 20 74 68 65 6e 20 74 68  d, and.# then th
1760: 65 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20  e SQL statement 
1770: 72 65 65 78 65 63 75 74 65 64 20 77 69 74 68 20  reexecuted with 
1780: 74 68 65 20 69 6e 63 72 65 6d 65 6e 74 65 64 20  the incremented 
1790: 4e 20 76 61 6c 75 65 2e 0a 23 0a 23 20 54 68 61  N value..#.# Tha
17a0: 74 20 6d 61 6b 65 20 61 6e 79 20 73 65 6e 73 65  t make any sense
17b0: 3f 20 49 66 20 6e 6f 74 2c 20 72 65 61 64 20 74  ? If not, read t
17c0: 68 65 20 63 6f 64 65 20 69 6e 20 5b 72 75 6e 5f  he code in [run_
17d0: 74 65 73 74 5d 20 61 6e 64 20 69 74 20 6d 69 67  test] and it mig
17e0: 68 74 2e 0a 23 0a 23 20 45 78 74 72 61 20 72 65  ht..#.# Extra re
17f0: 73 74 72 69 63 74 69 6f 6e 20 69 6d 70 6f 73 65  striction impose
1800: 64 20 62 79 20 74 68 65 20 69 6d 70 6c 65 6d 65  d by the impleme
1810: 6e 74 61 74 69 6f 6e 3a 0a 23 0a 23 20 2a 20 49  ntation:.#.# * I
1820: 66 20 61 20 50 52 45 50 20 62 6c 6f 63 6b 20 73  f a PREP block s
1830: 74 61 72 74 73 20 61 20 74 72 61 6e 73 61 63 74  tarts a transact
1840: 69 6f 6e 2c 20 69 74 20 6d 75 73 74 20 66 69 6e  ion, it must fin
1850: 69 73 68 20 69 74 2e 0a 23 20 2a 20 41 20 50 52  ish it..# * A PR
1860: 45 50 20 62 6c 6f 63 6b 20 6d 61 79 20 6e 6f 74  EP block may not
1870: 20 63 6c 6f 73 65 20 61 20 74 72 61 6e 73 61 63   close a transac
1880: 74 69 6f 6e 20 69 74 20 64 69 64 20 6e 6f 74 20  tion it did not 
1890: 73 74 61 72 74 2e 0a 23 0a 23 2d 2d 2d 2d 2d 2d  start..#.#------
18a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
18b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
18c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
18d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
18e0: 2d 2d 2d 2d 0a 0a 0a 23 20 54 68 65 73 65 20 70  ----...# These p
18f0: 72 6f 63 73 20 61 72 65 20 75 73 65 64 20 74 6f  rocs are used to
1900: 20 62 75 69 6c 64 20 75 70 20 61 20 22 70 72 6f   build up a "pro
1910: 67 72 61 6d 22 20 69 6e 20 67 6c 6f 62 61 6c 20  gram" in global 
1920: 76 61 72 69 61 62 6c 65 0a 23 20 3a 3a 72 75 6e  variable.# ::run
1930: 5f 74 65 73 74 5f 73 63 72 69 70 74 2e 20 41 74  _test_script. At
1940: 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 69 73   the end of this
1950: 20 66 69 6c 65 2c 20 74 68 65 20 70 72 6f 63 20   file, the proc 
1960: 5b 72 75 6e 5f 74 65 73 74 5d 20 69 73 20 75 73  [run_test] is us
1970: 65 64 0a 23 20 74 6f 20 65 78 65 63 75 74 65 20  ed.# to execute 
1980: 74 68 65 20 70 72 6f 67 72 61 6d 20 28 61 6e 64  the program (and
1990: 20 61 6c 6c 20 74 65 73 74 20 63 61 73 65 73 20   all test cases 
19a0: 63 6f 6e 74 61 69 6e 65 64 20 74 68 65 72 65 69  contained therei
19b0: 6e 29 2e 0a 23 0a 73 65 74 20 3a 3a 72 75 6e 5f  n)..#.set ::run_
19c0: 74 65 73 74 5f 73 63 72 69 70 74 20 5b 6c 69 73  test_script [lis
19d0: 74 5d 0a 70 72 6f 63 20 54 45 53 54 20 7b 69 64  t].proc TEST {id
19e0: 20 74 7d 20 7b 6c 61 70 70 65 6e 64 20 3a 3a 72   t} {lappend ::r
19f0: 75 6e 5f 74 65 73 74 5f 73 63 72 69 70 74 20 2d  un_test_script -
1a00: 74 65 73 74 20 5b 6c 69 73 74 20 24 69 64 20 24  test [list $id $
1a10: 74 5d 7d 0a 70 72 6f 63 20 50 52 45 50 20 7b 70  t]}.proc PREP {p
1a20: 7d 20 7b 6c 61 70 70 65 6e 64 20 3a 3a 72 75 6e  } {lappend ::run
1a30: 5f 74 65 73 74 5f 73 63 72 69 70 74 20 2d 70 72  _test_script -pr
1a40: 65 70 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  ep [string trim 
1a50: 24 70 5d 7d 0a 70 72 6f 63 20 44 45 42 55 47 20  $p]}.proc DEBUG 
1a60: 7b 73 7d 20 7b 6c 61 70 70 65 6e 64 20 3a 3a 72  {s} {lappend ::r
1a70: 75 6e 5f 74 65 73 74 5f 73 63 72 69 70 74 20 2d  un_test_script -
1a80: 64 65 62 75 67 20 24 73 7d 0a 0a 23 20 53 51 4c  debug $s}..# SQL
1a90: 20 2d 2d 0a 23 0a 23 20 20 20 20 20 53 51 4c 20   --.#.#     SQL 
1aa0: 3f 2d 6e 6f 72 6f 6c 6c 62 61 63 6b 3f 20 3c 73  ?-norollback? <s
1ab0: 71 6c 2d 74 65 78 74 3e 0a 23 0a 23 20 41 64 64  ql-text>.#.# Add
1ac0: 20 61 6e 20 27 53 51 4c 27 20 70 72 69 6d 69 74   an 'SQL' primit
1ad0: 69 76 65 20 74 6f 20 74 68 65 20 70 72 6f 67 72  ive to the progr
1ae0: 61 6d 20 28 73 65 65 20 6e 6f 74 65 73 20 61 62  am (see notes ab
1af0: 6f 76 65 29 2e 20 49 66 20 74 68 65 20 2d 6e 6f  ove). If the -no
1b00: 72 6f 6c 6c 62 61 63 6b 0a 23 20 73 77 69 74 63  rollback.# switc
1b10: 68 20 69 73 20 70 72 65 73 65 6e 74 2c 20 74 68  h is present, th
1b20: 65 6e 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74  en the statement
1b30: 20 69 73 20 6e 6f 74 20 61 6c 6c 6f 77 65 64 20   is not allowed 
1b40: 74 6f 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79  to automatically
1b50: 20 72 6f 6c 6c 0a 23 20 62 61 63 6b 20 61 6e 79   roll.# back any
1b60: 20 61 63 74 69 76 65 20 74 72 61 6e 73 61 63 74   active transact
1b70: 69 6f 6e 20 69 66 20 6d 61 6c 6c 6f 63 28 29 20  ion if malloc() 
1b80: 66 61 69 6c 73 2e 20 49 74 20 6d 75 73 74 20 72  fails. It must r
1b90: 6f 6c 6c 62 61 63 6b 20 74 68 65 20 73 74 61 74  ollback the stat
1ba0: 65 6d 65 6e 74 0a 23 20 74 72 61 6e 73 61 63 74  ement.# transact
1bb0: 69 6f 6e 20 6f 6e 6c 79 2e 0a 23 0a 70 72 6f 63  ion only..#.proc
1bc0: 20 53 51 4c 20 20 7b 61 31 20 7b 61 32 20 22 22   SQL  {a1 {a2 ""
1bd0: 7d 7d 20 7b 0a 20 20 23 20 41 6e 20 53 51 4c 20  }} {.  # An SQL 
1be0: 70 72 69 6d 69 74 69 76 65 20 70 61 72 61 6d 65  primitive parame
1bf0: 74 65 72 20 69 73 20 61 20 6c 69 73 74 20 6f 66  ter is a list of
1c00: 20 74 77 6f 20 65 6c 65 6d 65 6e 74 73 2c 20 61   two elements, a
1c10: 20 62 6f 6f 6c 65 61 6e 20 76 61 6c 75 65 0a 20   boolean value. 
1c20: 20 23 20 69 6e 64 69 63 61 74 69 6e 67 20 69 66   # indicating if
1c30: 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 20 6d   the statement m
1c40: 61 79 20 63 61 75 73 65 20 74 72 61 6e 73 61 63  ay cause transac
1c50: 74 69 6f 6e 20 72 6f 6c 6c 62 61 63 6b 20 77 68  tion rollback wh
1c60: 65 6e 20 6d 61 6c 6c 6f 63 28 29 0a 20 20 23 20  en malloc().  # 
1c70: 66 61 69 6c 73 2c 20 61 6e 64 20 74 68 65 20 73  fails, and the s
1c80: 71 6c 20 73 74 61 74 65 6d 65 6e 74 20 69 74 73  ql statement its
1c90: 65 6c 66 2e 0a 20 20 69 66 20 7b 24 61 32 20 3d  elf..  if {$a2 =
1ca0: 3d 20 22 22 7d 20 7b 0a 20 20 20 20 6c 61 70 70  = ""} {.    lapp
1cb0: 65 6e 64 20 3a 3a 72 75 6e 5f 74 65 73 74 5f 73  end ::run_test_s
1cc0: 63 72 69 70 74 20 2d 73 71 6c 20 5b 6c 69 73 74  cript -sql [list
1cd0: 20 74 72 75 65 20 5b 73 74 72 69 6e 67 20 74 72   true [string tr
1ce0: 69 6d 20 24 61 31 5d 5d 0a 20 20 7d 20 65 6c 73  im $a1]].  } els
1cf0: 65 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64 20  e {.    lappend 
1d00: 3a 3a 72 75 6e 5f 74 65 73 74 5f 73 63 72 69 70  ::run_test_scrip
1d10: 74 20 2d 73 71 6c 20 5b 6c 69 73 74 20 66 61 6c  t -sql [list fal
1d20: 73 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  se [string trim 
1d30: 24 61 32 5d 5d 0a 20 20 7d 0a 7d 0a 0a 23 20 54  $a2]].  }.}..# T
1d40: 45 53 54 5f 41 55 54 4f 43 4f 4d 4d 49 54 20 2d  EST_AUTOCOMMIT -
1d50: 2d 0a 23 20 0a 23 20 20 20 20 20 41 20 73 68 6f  -.# .#     A sho
1d60: 72 74 68 61 6e 64 20 74 65 73 74 20 74 6f 20 73  rthand test to s
1d70: 65 65 20 69 66 20 61 20 74 72 61 6e 73 61 63 74  ee if a transact
1d80: 69 6f 6e 20 69 73 20 61 63 74 69 76 65 20 6f 72  ion is active or
1d90: 20 6e 6f 74 2e 20 54 68 65 20 66 69 72 73 74 0a   not. The first.
1da0: 23 20 20 20 20 20 61 72 67 75 6d 65 6e 74 20 2d  #     argument -
1db0: 20 24 69 64 20 2d 20 69 73 20 74 68 65 20 69 6e   $id - is the in
1dc0: 74 65 67 65 72 20 6e 75 6d 62 65 72 20 6f 66 20  teger number of 
1dd0: 74 68 65 20 74 65 73 74 20 63 61 73 65 2e 20 54  the test case. T
1de0: 68 65 20 73 65 63 6f 6e 64 0a 23 20 20 20 20 20  he second.#     
1df0: 61 72 67 75 6d 65 6e 74 20 69 73 20 65 69 74 68  argument is eith
1e00: 65 72 20 31 20 6f 72 20 30 2c 20 74 68 65 20 65  er 1 or 0, the e
1e10: 78 70 65 63 74 65 64 20 76 61 6c 75 65 20 6f 66  xpected value of
1e20: 20 74 68 65 20 61 75 74 6f 2d 63 6f 6d 6d 69 74   the auto-commit
1e30: 20 66 6c 61 67 2e 0a 23 0a 70 72 6f 63 20 54 45   flag..#.proc TE
1e40: 53 54 5f 41 55 54 4f 43 4f 4d 4d 49 54 20 7b 69  ST_AUTOCOMMIT {i
1e50: 64 20 61 7d 20 7b 0a 20 20 20 20 54 45 53 54 20  d a} {.    TEST 
1e60: 24 69 64 20 22 64 6f 5f 74 65 73 74 20 5c 24 74  $id "do_test \$t
1e70: 65 73 74 69 64 20 7b 20 73 71 6c 69 74 65 33 5f  estid { sqlite3_
1e80: 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20 5c  get_autocommit \
1e90: 24 3a 3a 44 42 20 7d 20 7b 24 61 7d 22 0a 7d 0a  $::DB } {$a}".}.
1ea0: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
1eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ed0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ee0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 53  ------------.# S
1ef0: 74 61 72 74 20 6f 66 20 74 65 73 74 20 70 72 6f  tart of test pro
1f00: 67 72 61 6d 20 64 65 63 6c 61 72 61 74 69 6f 6e  gram declaration
1f10: 0a 23 0a 0a 0a 23 20 57 61 72 6d 20 62 6f 64 79  .#...# Warm body
1f20: 20 74 65 73 74 2e 20 41 20 6d 61 6c 6c 6f 63 28   test. A malloc(
1f30: 29 20 66 61 69 6c 73 20 69 6e 20 74 68 65 20 6d  ) fails in the m
1f40: 69 64 64 6c 65 20 6f 66 20 61 20 43 52 45 41 54  iddle of a CREAT
1f50: 45 20 54 41 42 4c 45 20 73 74 61 74 65 6d 65 6e  E TABLE statemen
1f60: 74 0a 23 20 69 6e 20 61 20 73 69 6e 67 6c 65 2d  t.# in a single-
1f70: 73 74 61 74 65 6d 65 6e 74 20 74 72 61 6e 73 61  statement transa
1f80: 63 74 69 6f 6e 20 6f 6e 20 61 6e 20 65 6d 70 74  ction on an empt
1f90: 79 20 64 61 74 61 62 61 73 65 2e 20 4e 6f 74 20  y database. Not 
1fa0: 74 6f 6f 20 6d 75 63 68 20 63 61 6e 20 67 6f 0a  too much can go.
1fb0: 23 20 77 72 6f 6e 67 20 68 65 72 65 2e 0a 23 0a  # wrong here..#.
1fc0: 54 45 53 54 20 31 20 7b 0a 20 20 64 6f 5f 74 65  TEST 1 {.  do_te
1fd0: 73 74 20 24 74 65 73 74 69 64 20 7b 0a 20 20 20  st $testid {.   
1fe0: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
1ff0: 20 74 62 6c 5f 6e 61 6d 65 20 46 52 4f 4d 20 73   tbl_name FROM s
2000: 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 7d 0a 20  qlite_master;}. 
2010: 20 7d 20 7b 7d 0a 7d 0a 53 51 4c 20 7b 20 0a 20   } {}.}.SQL { . 
2020: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46   CREATE TABLE IF
2030: 20 4e 4f 54 20 45 58 49 53 54 53 20 61 62 63 28   NOT EXISTS abc(
2040: 61 2c 20 62 2c 20 63 29 3b 20 0a 7d 0a 54 45 53  a, b, c); .}.TES
2050: 54 20 32 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20  T 2 {.  do_test 
2060: 24 74 65 73 74 69 64 2e 31 20 7b 0a 20 20 20 20  $testid.1 {.    
2070: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
2080: 74 62 6c 5f 6e 61 6d 65 20 46 52 4f 4d 20 73 71  tbl_name FROM sq
2090: 6c 69 74 65 5f 6d 61 73 74 65 72 3b 7d 0a 20 20  lite_master;}.  
20a0: 7d 20 7b 61 62 63 7d 0a 7d 0a 0a 23 20 49 6e 73  } {abc}.}..# Ins
20b0: 65 72 74 20 61 20 63 6f 75 70 6c 65 20 6f 66 20  ert a couple of 
20c0: 72 6f 77 73 20 69 6e 74 6f 20 74 68 65 20 74 61  rows into the ta
20d0: 62 6c 65 2e 20 65 61 63 68 20 69 6e 73 65 72 74  ble. each insert
20e0: 20 69 73 20 69 6e 20 69 74 73 20 6f 77 6e 0a 23   is in its own.#
20f0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 20 74 65   transaction. te
2100: 73 74 20 74 68 61 74 20 74 68 65 20 74 61 62 6c  st that the tabl
2110: 65 20 69 73 20 75 6e 70 6f 70 75 6c 61 74 65 64  e is unpopulated
2120: 20 62 65 66 6f 72 65 20 72 75 6e 6e 69 6e 67 20   before running 
2130: 74 68 65 20 69 6e 73 65 72 74 73 0a 23 20 28 61  the inserts.# (a
2140: 6e 64 20 68 65 6e 63 65 20 61 66 74 65 72 20 65  nd hence after e
2150: 61 63 68 20 66 61 69 6c 75 72 65 20 6f 66 20 74  ach failure of t
2160: 68 65 20 66 69 72 73 74 20 69 6e 73 65 72 74 29  he first insert)
2170: 2c 20 61 6e 64 20 74 68 61 74 20 69 74 20 68 61  , and that it ha
2180: 73 20 62 65 65 6e 0a 23 20 70 6f 70 75 6c 61 74  s been.# populat
2190: 65 64 20 63 6f 72 72 65 63 74 6c 79 20 61 66 74  ed correctly aft
21a0: 65 72 20 74 68 65 20 66 69 6e 61 6c 20 69 6e 73  er the final ins
21b0: 65 72 74 20 73 75 63 63 65 65 64 73 2e 0a 23 0a  ert succeeds..#.
21c0: 54 45 53 54 20 33 20 7b 0a 20 20 64 6f 5f 74 65  TEST 3 {.  do_te
21d0: 73 74 20 24 74 65 73 74 69 64 2e 32 20 7b 0a 20  st $testid.2 {. 
21e0: 20 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45     execsql {SELE
21f0: 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 7d 0a 20  CT * FROM abc}. 
2200: 20 7d 20 7b 7d 0a 7d 0a 53 51 4c 20 7b 49 4e 53   } {}.}.SQL {INS
2210: 45 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c  ERT INTO abc VAL
2220: 55 45 53 28 31 2c 20 32 2c 20 33 29 3b 7d 0a 53  UES(1, 2, 3);}.S
2230: 51 4c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20  QL {INSERT INTO 
2240: 61 62 63 20 56 41 4c 55 45 53 28 34 2c 20 35 2c  abc VALUES(4, 5,
2250: 20 36 29 3b 7d 0a 53 51 4c 20 7b 49 4e 53 45 52   6);}.SQL {INSER
2260: 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55 45  T INTO abc VALUE
2270: 53 28 37 2c 20 38 2c 20 39 29 3b 7d 0a 54 45 53  S(7, 8, 9);}.TES
2280: 54 20 34 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20  T 4 {.  do_test 
2290: 24 74 65 73 74 69 64 20 7b 0a 20 20 20 20 65 78  $testid {.    ex
22a0: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20  ecsql {SELECT * 
22b0: 46 52 4f 4d 20 61 62 63 7d 0a 20 20 7d 20 7b 31  FROM abc}.  } {1
22c0: 20 32 20 33 20 34 20 35 20 36 20 37 20 38 20 39   2 3 4 5 6 7 8 9
22d0: 7d 0a 7d 0a 0a 23 20 54 65 73 74 20 61 20 43 52  }.}..# Test a CR
22e0: 45 41 54 45 20 49 4e 44 45 58 20 73 74 61 74 65  EATE INDEX state
22f0: 6d 65 6e 74 2e 20 42 65 63 61 75 73 65 20 74 68  ment. Because th
2300: 65 20 74 61 62 6c 65 20 27 61 62 63 27 20 69 73  e table 'abc' is
2310: 20 73 6f 20 73 6d 61 6c 6c 2c 20 74 68 65 20 69   so small, the i
2320: 6e 64 65 78 0a 23 20 77 69 6c 6c 20 61 6c 6c 20  ndex.# will all 
2330: 66 69 74 20 6f 6e 20 61 20 73 69 6e 67 6c 65 20  fit on a single 
2340: 70 61 67 65 2c 20 73 6f 20 74 68 69 73 20 64 6f  page, so this do
2350: 65 73 6e 27 74 20 74 65 73 74 20 74 6f 6f 20 6d  esn't test too m
2360: 75 63 68 20 74 68 61 74 20 74 68 65 20 43 52 45  uch that the CRE
2370: 41 54 45 0a 23 20 54 41 42 4c 45 20 73 74 61 74  ATE.# TABLE stat
2380: 65 6d 65 6e 74 20 64 69 64 6e 27 74 20 74 65 73  ement didn't tes
2390: 74 2e 20 41 20 66 65 77 20 6f 66 20 74 68 65 20  t. A few of the 
23a0: 74 72 61 6e 73 69 65 6e 74 20 6d 61 6c 6c 6f 63  transient malloc
23b0: 28 29 73 20 69 6e 20 62 74 72 65 65 2e 63 0a 23  ()s in btree.c.#
23c0: 20 70 65 72 68 61 70 73 2e 0a 23 0a 53 51 4c 20   perhaps..#.SQL 
23d0: 7b 43 52 45 41 54 45 20 49 4e 44 45 58 20 61 62  {CREATE INDEX ab
23e0: 63 5f 69 20 4f 4e 20 61 62 63 28 61 2c 20 62 2c  c_i ON abc(a, b,
23f0: 20 63 29 3b 7d 0a 54 45 53 54 20 34 20 7b 0a 20   c);}.TEST 4 {. 
2400: 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 69 64   do_test $testid
2410: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b   {.    execsql {
2420: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 2a 20  .      SELECT * 
2430: 46 52 4f 4d 20 61 62 63 20 4f 52 44 45 52 20 42  FROM abc ORDER B
2440: 59 20 61 20 44 45 53 43 3b 0a 20 20 20 20 7d 0a  Y a DESC;.    }.
2450: 20 20 7d 20 7b 37 20 38 20 39 20 34 20 35 20 36    } {7 8 9 4 5 6
2460: 20 31 20 32 20 33 7d 0a 7d 0a 0a 23 20 54 65 73   1 2 3}.}..# Tes
2470: 74 20 61 20 44 45 4c 45 54 45 20 73 74 61 74 65  t a DELETE state
2480: 6d 65 6e 74 2e 20 41 6c 73 6f 20 63 72 65 61 74  ment. Also creat
2490: 65 20 61 20 74 72 69 67 67 65 72 20 61 6e 64 20  e a trigger and 
24a0: 61 20 76 69 65 77 2c 20 6a 75 73 74 20 74 6f 20  a view, just to 
24b0: 6d 61 6b 65 20 73 75 72 65 0a 23 20 74 68 65 73  make sure.# thes
24c0: 65 20 73 74 61 74 65 6d 65 6e 74 73 20 64 6f 6e  e statements don
24d0: 27 74 20 68 61 76 65 20 61 6e 79 20 6f 62 76 69  't have any obvi
24e0: 6f 75 73 20 6d 61 6c 6c 6f 63 28 29 20 72 65 6c  ous malloc() rel
24f0: 61 74 65 64 20 62 75 67 73 20 69 6e 20 74 68 65  ated bugs in the
2500: 6d 2e 20 4e 6f 74 65 0a 23 20 74 68 61 74 20 74  m. Note.# that t
2510: 68 65 20 74 65 73 74 20 61 62 6f 76 65 20 77 69  he test above wi
2520: 6c 6c 20 62 65 20 65 78 65 63 75 74 65 64 20 65  ll be executed e
2530: 61 63 68 20 74 69 6d 65 20 74 68 65 20 44 45 4c  ach time the DEL
2540: 45 54 45 20 66 61 69 6c 73 2c 20 73 6f 20 77 65  ETE fails, so we
2550: 27 72 65 0a 23 20 61 6c 73 6f 20 74 65 73 74 69  're.# also testi
2560: 6e 67 20 72 6f 6c 6c 62 61 63 6b 20 6f 66 20 61  ng rollback of a
2570: 20 44 45 4c 45 54 45 20 66 72 6f 6d 20 61 20 74   DELETE from a t
2580: 61 62 6c 65 20 77 69 74 68 20 61 6e 20 69 6e 64  able with an ind
2590: 65 78 20 6f 6e 20 69 74 2e 0a 23 0a 53 51 4c 20  ex on it..#.SQL 
25a0: 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 61 62 63  {DELETE FROM abc
25b0: 20 57 48 45 52 45 20 61 20 3e 20 32 3b 7d 0a 53   WHERE a > 2;}.S
25c0: 51 4c 20 7b 43 52 45 41 54 45 20 54 52 49 47 47  QL {CREATE TRIGG
25d0: 45 52 20 61 62 63 5f 74 20 41 46 54 45 52 20 49  ER abc_t AFTER I
25e0: 4e 53 45 52 54 20 4f 4e 20 61 62 63 20 42 45 47  NSERT ON abc BEG
25f0: 49 4e 20 53 45 4c 45 43 54 20 27 74 72 69 67 67  IN SELECT 'trigg
2600: 65 72 21 27 3b 20 45 4e 44 3b 7d 0a 53 51 4c 20  er!'; END;}.SQL 
2610: 7b 43 52 45 41 54 45 20 56 49 45 57 20 61 62 63  {CREATE VIEW abc
2620: 5f 76 20 41 53 20 53 45 4c 45 43 54 20 2a 20 46  _v AS SELECT * F
2630: 52 4f 4d 20 61 62 63 3b 7d 0a 54 45 53 54 20 35  ROM abc;}.TEST 5
2640: 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 65   {.  do_test $te
2650: 73 74 69 64 20 7b 0a 20 20 20 20 65 78 65 63 73  stid {.    execs
2660: 71 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43  ql {.      SELEC
2670: 54 20 6e 61 6d 65 2c 20 74 62 6c 5f 6e 61 6d 65  T name, tbl_name
2680: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
2690: 74 65 72 20 4f 52 44 45 52 20 42 59 20 6e 61 6d  ter ORDER BY nam
26a0: 65 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20  e;.      SELECT 
26b0: 2a 20 46 52 4f 4d 20 61 62 63 3b 0a 20 20 20 20  * FROM abc;.    
26c0: 7d 0a 20 20 7d 20 7b 61 62 63 20 61 62 63 20 61  }.  } {abc abc a
26d0: 62 63 5f 69 20 61 62 63 20 61 62 63 5f 74 20 61  bc_i abc abc_t a
26e0: 62 63 20 61 62 63 5f 76 20 61 62 63 5f 76 20 31  bc abc_v abc_v 1
26f0: 20 32 20 33 7d 0a 7d 0a 0a 73 65 74 20 73 71 6c   2 3}.}..set sql
2700: 20 7b 0a 20 20 42 45 47 49 4e 3b 44 45 4c 45 54   {.  BEGIN;DELET
2710: 45 20 46 52 4f 4d 20 61 62 63 3b 0a 7d 0a 66 6f  E FROM abc;.}.fo
2720: 72 20 7b 73 65 74 20 69 20 31 7d 20 7b 24 69 20  r {set i 1} {$i 
2730: 3c 20 31 35 7d 20 7b 69 6e 63 72 20 69 7d 20 7b  < 15} {incr i} {
2740: 0a 20 20 73 65 74 20 61 20 24 69 0a 20 20 73 65  .  set a $i.  se
2750: 74 20 62 20 22 53 74 72 69 6e 67 20 76 61 6c 75  t b "String valu
2760: 65 20 24 69 22 0a 20 20 73 65 74 20 63 20 5b 73  e $i".  set c [s
2770: 74 72 69 6e 67 20 72 65 70 65 61 74 20 58 20 24  tring repeat X $
2780: 69 5d 0a 20 20 61 70 70 65 6e 64 20 73 71 6c 20  i].  append sql 
2790: 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 62 63  "INSERT INTO abc
27a0: 20 56 41 4c 55 45 53 20 28 24 61 2c 20 27 24 62   VALUES ($a, '$b
27b0: 27 2c 20 27 24 63 27 29 3b 22 0a 7d 0a 61 70 70  ', '$c');".}.app
27c0: 65 6e 64 20 73 71 6c 20 7b 43 4f 4d 4d 49 54 3b  end sql {COMMIT;
27d0: 7d 0a 50 52 45 50 20 24 73 71 6c 0a 0a 53 51 4c  }.PREP $sql..SQL
27e0: 20 7b 0a 20 20 44 45 4c 45 54 45 20 46 52 4f 4d   {.  DELETE FROM
27f0: 20 61 62 63 20 57 48 45 52 45 20 6f 69 64 20 49   abc WHERE oid I
2800: 4e 20 28 53 45 4c 45 43 54 20 6f 69 64 20 46 52  N (SELECT oid FR
2810: 4f 4d 20 61 62 63 20 4f 52 44 45 52 20 42 59 20  OM abc ORDER BY 
2820: 72 61 6e 64 6f 6d 28 29 20 4c 49 4d 49 54 20 35  random() LIMIT 5
2830: 29 3b 0a 7d 0a 54 45 53 54 20 36 20 7b 0a 20 20  );.}.TEST 6 {.  
2840: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 69 64 2e  do_test $testid.
2850: 31 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  1 {.    execsql 
2860: 7b 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29  {SELECT count(*)
2870: 20 46 52 4f 4d 20 61 62 63 7d 0a 20 20 7d 20 7b   FROM abc}.  } {
2880: 39 34 7d 0a 20 20 64 6f 5f 74 65 73 74 20 24 74  94}.  do_test $t
2890: 65 73 74 69 64 2e 32 20 7b 0a 20 20 20 20 65 78  estid.2 {.    ex
28a0: 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45  ecsql {.      SE
28b0: 4c 45 43 54 20 6d 69 6e 28 0a 20 20 20 20 20 20  LECT min(.      
28c0: 20 20 20 20 28 6f 69 64 20 3d 3d 20 61 29 20 41      (oid == a) A
28d0: 4e 44 20 27 53 74 72 69 6e 67 20 76 61 6c 75 65  ND 'String value
28e0: 20 27 20 7c 7c 20 61 20 3d 3d 20 62 20 41 4e 44   ' || a == b AND
28f0: 20 61 20 3d 3d 20 6c 65 6e 67 74 68 28 63 29 20   a == length(c) 
2900: 0a 20 20 20 20 20 20 29 20 46 52 4f 4d 20 61 62  .      ) FROM ab
2910: 63 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 31 7d  c;.    }.  } {1}
2920: 0a 7d 0a 53 51 4c 20 7b 0a 20 20 44 45 4c 45 54  .}.SQL {.  DELET
2930: 45 20 46 52 4f 4d 20 61 62 63 20 57 48 45 52 45  E FROM abc WHERE
2940: 20 6f 69 64 20 49 4e 20 28 53 45 4c 45 43 54 20   oid IN (SELECT 
2950: 6f 69 64 20 46 52 4f 4d 20 61 62 63 20 4f 52 44  oid FROM abc ORD
2960: 45 52 20 42 59 20 72 61 6e 64 6f 6d 28 29 20 4c  ER BY random() L
2970: 49 4d 49 54 20 35 29 3b 0a 7d 0a 54 45 53 54 20  IMIT 5);.}.TEST 
2980: 37 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 24 74  7 {.  do_test $t
2990: 65 73 74 69 64 20 7b 0a 20 20 20 20 65 78 65 63  estid {.    exec
29a0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 63 6f 75 6e  sql {SELECT coun
29b0: 74 28 2a 29 20 46 52 4f 4d 20 61 62 63 7d 0a 20  t(*) FROM abc}. 
29c0: 20 7d 20 7b 38 39 7d 0a 20 20 64 6f 5f 74 65 73   } {89}.  do_tes
29d0: 74 20 24 74 65 73 74 69 64 20 7b 0a 20 20 20 20  t $testid {.    
29e0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20  execsql {.      
29f0: 53 45 4c 45 43 54 20 6d 69 6e 28 0a 20 20 20 20  SELECT min(.    
2a00: 20 20 20 20 20 20 28 6f 69 64 20 3d 3d 20 61 29        (oid == a)
2a10: 20 41 4e 44 20 27 53 74 72 69 6e 67 20 76 61 6c   AND 'String val
2a20: 75 65 20 27 20 7c 7c 20 61 20 3d 3d 20 62 20 41  ue ' || a == b A
2a30: 4e 44 20 61 20 3d 3d 20 6c 65 6e 67 74 68 28 63  ND a == length(c
2a40: 29 20 0a 20 20 20 20 20 20 29 20 46 52 4f 4d 20  ) .      ) FROM 
2a50: 61 62 63 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b  abc;.    }.  } {
2a60: 31 7d 0a 7d 0a 53 51 4c 20 7b 0a 20 20 44 45 4c  1}.}.SQL {.  DEL
2a70: 45 54 45 20 46 52 4f 4d 20 61 62 63 20 57 48 45  ETE FROM abc WHE
2a80: 52 45 20 6f 69 64 20 49 4e 20 28 53 45 4c 45 43  RE oid IN (SELEC
2a90: 54 20 6f 69 64 20 46 52 4f 4d 20 61 62 63 20 4f  T oid FROM abc O
2aa0: 52 44 45 52 20 42 59 20 72 61 6e 64 6f 6d 28 29  RDER BY random()
2ab0: 20 4c 49 4d 49 54 20 35 29 3b 0a 7d 0a 54 45 53   LIMIT 5);.}.TES
2ac0: 54 20 39 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20  T 9 {.  do_test 
2ad0: 24 74 65 73 74 69 64 20 7b 0a 20 20 20 20 65 78  $testid {.    ex
2ae0: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 63 6f  ecsql {SELECT co
2af0: 75 6e 74 28 2a 29 20 46 52 4f 4d 20 61 62 63 7d  unt(*) FROM abc}
2b00: 0a 20 20 7d 20 7b 38 34 7d 0a 20 20 64 6f 5f 74  .  } {84}.  do_t
2b10: 65 73 74 20 24 74 65 73 74 69 64 20 7b 0a 20 20  est $testid {.  
2b20: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
2b30: 20 20 53 45 4c 45 43 54 20 6d 69 6e 28 0a 20 20    SELECT min(.  
2b40: 20 20 20 20 20 20 20 20 28 6f 69 64 20 3d 3d 20          (oid == 
2b50: 61 29 20 41 4e 44 20 27 53 74 72 69 6e 67 20 76  a) AND 'String v
2b60: 61 6c 75 65 20 27 20 7c 7c 20 61 20 3d 3d 20 62  alue ' || a == b
2b70: 20 41 4e 44 20 61 20 3d 3d 20 6c 65 6e 67 74 68   AND a == length
2b80: 28 63 29 20 0a 20 20 20 20 20 20 29 20 46 52 4f  (c) .      ) FRO
2b90: 4d 20 61 62 63 3b 0a 20 20 20 20 7d 0a 20 20 7d  M abc;.    }.  }
2ba0: 20 7b 31 7d 0a 7d 0a 0a 73 65 74 20 70 61 64 64   {1}.}..set padd
2bb0: 69 6e 67 20 5b 73 74 72 69 6e 67 20 72 65 70 65  ing [string repe
2bc0: 61 74 20 58 20 35 30 30 5d 0a 50 52 45 50 20 5b  at X 500].PREP [
2bd0: 73 75 62 73 74 20 7b 0a 20 20 44 52 4f 50 20 54  subst {.  DROP T
2be0: 41 42 4c 45 20 61 62 63 3b 0a 20 20 43 52 45 41  ABLE abc;.  CREA
2bf0: 54 45 20 54 41 42 4c 45 20 61 62 63 28 61 20 50  TE TABLE abc(a P
2c00: 52 49 4d 41 52 59 20 4b 45 59 2c 20 70 61 64 64  RIMARY KEY, padd
2c10: 69 6e 67 2c 20 62 2c 20 63 29 3b 0a 20 20 49 4e  ing, b, c);.  IN
2c20: 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41  SERT INTO abc VA
2c30: 4c 55 45 53 28 30 2c 20 27 24 70 61 64 64 69 6e  LUES(0, '$paddin
2c40: 67 27 2c 20 32 2c 20 32 29 3b 0a 20 20 49 4e 53  g', 2, 2);.  INS
2c50: 45 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c  ERT INTO abc VAL
2c60: 55 45 53 28 33 2c 20 27 24 70 61 64 64 69 6e 67  UES(3, '$padding
2c70: 27 2c 20 35 2c 20 35 29 3b 0a 20 20 49 4e 53 45  ', 5, 5);.  INSE
2c80: 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55  RT INTO abc VALU
2c90: 45 53 28 36 2c 20 27 24 70 61 64 64 69 6e 67 27  ES(6, '$padding'
2ca0: 2c 20 38 2c 20 38 29 3b 0a 7d 5d 0a 0a 54 45 53  , 8, 8);.}]..TES
2cb0: 54 20 31 30 20 7b 0a 20 20 64 6f 5f 74 65 73 74  T 10 {.  do_test
2cc0: 20 24 74 65 73 74 69 64 20 7b 0a 20 20 20 20 65   $testid {.    e
2cd0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 61  xecsql {SELECT a
2ce0: 2c 20 62 2c 20 63 20 46 52 4f 4d 20 61 62 63 7d  , b, c FROM abc}
2cf0: 0a 20 20 7d 20 7b 30 20 32 20 32 20 33 20 35 20  .  } {0 2 2 3 5 
2d00: 35 20 36 20 38 20 38 7d 0a 7d 0a 0a 53 51 4c 20  5 6 8 8}.}..SQL 
2d10: 7b 42 45 47 49 4e 3b 7d 0a 53 51 4c 20 7b 49 4e  {BEGIN;}.SQL {IN
2d20: 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41  SERT INTO abc VA
2d30: 4c 55 45 53 28 39 2c 20 27 58 58 58 58 58 27 2c  LUES(9, 'XXXXX',
2d40: 20 31 31 2c 20 31 32 29 3b 7d 0a 54 45 53 54 5f   11, 12);}.TEST_
2d50: 41 55 54 4f 43 4f 4d 4d 49 54 20 31 31 20 30 0a  AUTOCOMMIT 11 0.
2d60: 53 51 4c 20 2d 6e 6f 72 6f 6c 6c 62 61 63 6b 20  SQL -norollback 
2d70: 7b 55 50 44 41 54 45 20 61 62 63 20 53 45 54 20  {UPDATE abc SET 
2d80: 61 20 3d 20 61 20 2b 20 31 2c 20 63 20 3d 20 63  a = a + 1, c = c
2d90: 20 2b 20 31 3b 7d 0a 54 45 53 54 5f 41 55 54 4f   + 1;}.TEST_AUTO
2da0: 43 4f 4d 4d 49 54 20 31 32 20 30 0a 53 51 4c 20  COMMIT 12 0.SQL 
2db0: 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 61 62 63  {DELETE FROM abc
2dc0: 20 57 48 45 52 45 20 61 20 3d 20 31 30 3b 7d 0a   WHERE a = 10;}.
2dd0: 54 45 53 54 5f 41 55 54 4f 43 4f 4d 4d 49 54 20  TEST_AUTOCOMMIT 
2de0: 31 33 20 30 0a 53 51 4c 20 7b 43 4f 4d 4d 49 54  13 0.SQL {COMMIT
2df0: 3b 7d 0a 0a 54 45 53 54 20 31 34 20 7b 0a 20 20  ;}..TEST 14 {.  
2e00: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 69 64 2e  do_test $testid.
2e10: 31 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f  1 {.    sqlite3_
2e20: 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20 24  get_autocommit $
2e30: 3a 3a 44 42 0a 20 20 7d 20 7b 31 7d 0a 20 20 64  ::DB.  } {1}.  d
2e40: 6f 5f 74 65 73 74 20 24 74 65 73 74 69 64 2e 32  o_test $testid.2
2e50: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b   {.    execsql {
2e60: 53 45 4c 45 43 54 20 61 2c 20 62 2c 20 63 20 46  SELECT a, b, c F
2e70: 52 4f 4d 20 61 62 63 7d 0a 20 20 7d 20 7b 31 20  ROM abc}.  } {1 
2e80: 32 20 33 20 34 20 35 20 36 20 37 20 38 20 39 7d  2 3 4 5 6 7 8 9}
2e90: 0a 7d 0a 0a 50 52 45 50 20 5b 73 75 62 73 74 20  .}..PREP [subst 
2ea0: 7b 0a 20 20 44 52 4f 50 20 54 41 42 4c 45 20 61  {.  DROP TABLE a
2eb0: 62 63 3b 0a 20 20 43 52 45 41 54 45 20 54 41 42  bc;.  CREATE TAB
2ec0: 4c 45 20 61 62 63 28 61 2c 20 70 61 64 64 69 6e  LE abc(a, paddin
2ed0: 67 2c 20 62 2c 20 63 29 3b 0a 20 20 49 4e 53 45  g, b, c);.  INSE
2ee0: 52 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55  RT INTO abc VALU
2ef0: 45 53 28 31 2c 20 27 24 70 61 64 64 69 6e 67 27  ES(1, '$padding'
2f00: 2c 20 32 2c 20 33 29 3b 0a 20 20 49 4e 53 45 52  , 2, 3);.  INSER
2f10: 54 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55 45  T INTO abc VALUE
2f20: 53 28 34 2c 20 27 24 70 61 64 64 69 6e 67 27 2c  S(4, '$padding',
2f30: 20 35 2c 20 36 29 3b 0a 20 20 49 4e 53 45 52 54   5, 6);.  INSERT
2f40: 20 49 4e 54 4f 20 61 62 63 20 56 41 4c 55 45 53   INTO abc VALUES
2f50: 28 37 2c 20 27 24 70 61 64 64 69 6e 67 27 2c 20  (7, '$padding', 
2f60: 38 2c 20 39 29 3b 0a 20 20 43 52 45 41 54 45 20  8, 9);.  CREATE 
2f70: 49 4e 44 45 58 20 61 62 63 5f 69 20 4f 4e 20 61  INDEX abc_i ON a
2f80: 62 63 28 61 2c 20 70 61 64 64 69 6e 67 2c 20 62  bc(a, padding, b
2f90: 2c 20 63 29 3b 0a 7d 5d 0a 0a 54 45 53 54 20 31  , c);.}]..TEST 1
2fa0: 35 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 50  5 {.  db eval {P
2fb0: 52 41 47 4d 41 20 63 61 63 68 65 5f 73 69 7a 65  RAGMA cache_size
2fc0: 20 3d 20 31 30 7d 0a 7d 0a 0a 53 51 4c 20 7b 42   = 10}.}..SQL {B
2fd0: 45 47 49 4e 3b 7d 0a 53 51 4c 20 2d 6e 6f 72 6c  EGIN;}.SQL -norl
2fe0: 6c 62 63 6b 20 7b 49 4e 53 45 52 54 20 49 4e 54  lbck {INSERT INT
2ff0: 4f 20 61 62 63 20 28 6f 69 64 2c 20 61 2c 20 70  O abc (oid, a, p
3000: 61 64 64 69 6e 67 2c 20 62 2c 20 63 29 20 53 45  adding, b, c) SE
3010: 4c 45 43 54 20 4e 55 4c 4c 2c 20 2a 20 46 52 4f  LECT NULL, * FRO
3020: 4d 20 61 62 63 7d 0a 54 45 53 54 20 31 36 20 7b  M abc}.TEST 16 {
3030: 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74  .  do_test $test
3040: 69 64 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c  id {.    execsql
3050: 20 7b 53 45 4c 45 43 54 20 61 2c 20 63 6f 75 6e   {SELECT a, coun
3060: 74 28 2a 29 20 46 52 4f 4d 20 61 62 63 20 47 52  t(*) FROM abc GR
3070: 4f 55 50 20 42 59 20 61 3b 7d 0a 20 20 7d 20 7b  OUP BY a;}.  } {
3080: 31 20 32 20 34 20 32 20 37 20 32 7d 0a 7d 0a 53  1 2 4 2 7 2}.}.S
3090: 51 4c 20 2d 6e 6f 72 6c 6c 62 63 6b 20 7b 49 4e  QL -norllbck {IN
30a0: 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20 28 6f  SERT INTO abc (o
30b0: 69 64 2c 20 61 2c 20 70 61 64 64 69 6e 67 2c 20  id, a, padding, 
30c0: 62 2c 20 63 29 20 53 45 4c 45 43 54 20 4e 55 4c  b, c) SELECT NUL
30d0: 4c 2c 20 2a 20 46 52 4f 4d 20 61 62 63 7d 0a 54  L, * FROM abc}.T
30e0: 45 53 54 20 31 37 20 7b 0a 20 20 64 6f 5f 74 65  EST 17 {.  do_te
30f0: 73 74 20 24 74 65 73 74 69 64 20 7b 0a 20 20 20  st $testid {.   
3100: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
3110: 20 61 2c 20 63 6f 75 6e 74 28 2a 29 20 46 52 4f   a, count(*) FRO
3120: 4d 20 61 62 63 20 47 52 4f 55 50 20 42 59 20 61  M abc GROUP BY a
3130: 3b 7d 0a 20 20 7d 20 7b 31 20 34 20 34 20 34 20  ;}.  } {1 4 4 4 
3140: 37 20 34 7d 0a 7d 0a 53 51 4c 20 2d 6e 6f 72 6c  7 4}.}.SQL -norl
3150: 6c 62 63 6b 20 7b 49 4e 53 45 52 54 20 49 4e 54  lbck {INSERT INT
3160: 4f 20 61 62 63 20 28 6f 69 64 2c 20 61 2c 20 70  O abc (oid, a, p
3170: 61 64 64 69 6e 67 2c 20 62 2c 20 63 29 20 53 45  adding, b, c) SE
3180: 4c 45 43 54 20 4e 55 4c 4c 2c 20 2a 20 46 52 4f  LECT NULL, * FRO
3190: 4d 20 61 62 63 7d 0a 54 45 53 54 20 31 38 20 7b  M abc}.TEST 18 {
31a0: 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74  .  do_test $test
31b0: 69 64 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c  id {.    execsql
31c0: 20 7b 53 45 4c 45 43 54 20 61 2c 20 63 6f 75 6e   {SELECT a, coun
31d0: 74 28 2a 29 20 46 52 4f 4d 20 61 62 63 20 47 52  t(*) FROM abc GR
31e0: 4f 55 50 20 42 59 20 61 3b 7d 0a 20 20 7d 20 7b  OUP BY a;}.  } {
31f0: 31 20 38 20 34 20 38 20 37 20 38 7d 0a 7d 0a 53  1 8 4 8 7 8}.}.S
3200: 51 4c 20 2d 6e 6f 72 6c 6c 62 63 6b 20 7b 49 4e  QL -norllbck {IN
3210: 53 45 52 54 20 49 4e 54 4f 20 61 62 63 20 28 6f  SERT INTO abc (o
3220: 69 64 2c 20 61 2c 20 70 61 64 64 69 6e 67 2c 20  id, a, padding, 
3230: 62 2c 20 63 29 20 53 45 4c 45 43 54 20 4e 55 4c  b, c) SELECT NUL
3240: 4c 2c 20 2a 20 46 52 4f 4d 20 61 62 63 7d 0a 54  L, * FROM abc}.T
3250: 45 53 54 20 31 39 20 7b 0a 20 20 64 6f 5f 74 65  EST 19 {.  do_te
3260: 73 74 20 24 74 65 73 74 69 64 20 7b 0a 20 20 20  st $testid {.   
3270: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
3280: 20 61 2c 20 63 6f 75 6e 74 28 2a 29 20 46 52 4f   a, count(*) FRO
3290: 4d 20 61 62 63 20 47 52 4f 55 50 20 42 59 20 61  M abc GROUP BY a
32a0: 3b 7d 0a 20 20 7d 20 7b 31 20 31 36 20 34 20 31  ;}.  } {1 16 4 1
32b0: 36 20 37 20 31 36 7d 0a 7d 0a 53 51 4c 20 7b 43  6 7 16}.}.SQL {C
32c0: 4f 4d 4d 49 54 3b 7d 0a 54 45 53 54 20 32 31 20  OMMIT;}.TEST 21 
32d0: 7b 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73  {.  do_test $tes
32e0: 74 69 64 20 7b 0a 20 20 20 20 65 78 65 63 73 71  tid {.    execsq
32f0: 6c 20 7b 53 45 4c 45 43 54 20 61 2c 20 63 6f 75  l {SELECT a, cou
3300: 6e 74 28 2a 29 20 46 52 4f 4d 20 61 62 63 20 47  nt(*) FROM abc G
3310: 52 4f 55 50 20 42 59 20 61 3b 7d 0a 20 20 7d 20  ROUP BY a;}.  } 
3320: 7b 31 20 31 36 20 34 20 31 36 20 37 20 31 36 7d  {1 16 4 16 7 16}
3330: 0a 7d 0a 0a 53 51 4c 20 7b 42 45 47 49 4e 3b 7d  .}..SQL {BEGIN;}
3340: 0a 53 51 4c 20 7b 44 45 4c 45 54 45 20 46 52 4f  .SQL {DELETE FRO
3350: 4d 20 61 62 63 20 57 48 45 52 45 20 6f 69 64 20  M abc WHERE oid 
3360: 25 32 7d 0a 54 45 53 54 20 32 32 20 7b 0a 20 20  %2}.TEST 22 {.  
3370: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 69 64 20  do_test $testid 
3380: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 53  {.    execsql {S
3390: 45 4c 45 43 54 20 61 2c 20 63 6f 75 6e 74 28 2a  ELECT a, count(*
33a0: 29 20 46 52 4f 4d 20 61 62 63 20 47 52 4f 55 50  ) FROM abc GROUP
33b0: 20 42 59 20 61 3b 7d 0a 20 20 7d 20 7b 31 20 38   BY a;}.  } {1 8
33c0: 20 34 20 38 20 37 20 38 7d 0a 7d 0a 53 51 4c 20   4 8 7 8}.}.SQL 
33d0: 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 61 62 63  {DELETE FROM abc
33e0: 7d 0a 54 45 53 54 20 32 33 20 7b 0a 20 20 64 6f  }.TEST 23 {.  do
33f0: 5f 74 65 73 74 20 24 74 65 73 74 69 64 20 7b 0a  _test $testid {.
3400: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c      execsql {SEL
3410: 45 43 54 20 2a 20 46 52 4f 4d 20 61 62 63 7d 0a  ECT * FROM abc}.
3420: 20 20 7d 20 7b 7d 0a 7d 0a 53 51 4c 20 7b 52 4f    } {}.}.SQL {RO
3430: 4c 4c 42 41 43 4b 3b 7d 0a 54 45 53 54 20 32 34  LLBACK;}.TEST 24
3440: 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 65   {.  do_test $te
3450: 73 74 69 64 20 7b 0a 20 20 20 20 65 78 65 63 73  stid {.    execs
3460: 71 6c 20 7b 53 45 4c 45 43 54 20 61 2c 20 63 6f  ql {SELECT a, co
3470: 75 6e 74 28 2a 29 20 46 52 4f 4d 20 61 62 63 20  unt(*) FROM abc 
3480: 47 52 4f 55 50 20 42 59 20 61 3b 7d 0a 20 20 7d  GROUP BY a;}.  }
3490: 20 7b 31 20 31 36 20 34 20 31 36 20 37 20 31 36   {1 16 4 16 7 16
34a0: 7d 0a 7d 0a 0a 23 20 54 65 73 74 20 73 6f 6d 65  }.}..# Test some
34b0: 20 73 63 68 65 6d 61 20 6d 6f 64 69 66 69 63 61   schema modifica
34c0: 74 69 6f 6e 73 20 69 6e 73 69 64 65 20 6f 66 20  tions inside of 
34d0: 61 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 20 54  a transaction. T
34e0: 68 65 73 65 20 73 68 6f 75 6c 64 20 61 6c 6c 0a  hese should all.
34f0: 23 20 63 61 75 73 65 20 74 72 61 6e 73 61 63 74  # cause transact
3500: 69 6f 6e 20 72 6f 6c 6c 62 61 63 6b 20 69 66 20  ion rollback if 
3510: 74 68 65 79 20 66 61 69 6c 2e 20 41 6c 73 6f 20  they fail. Also 
3520: 71 75 65 72 79 20 61 20 76 69 65 77 2c 20 74 6f  query a view, to
3530: 20 63 6f 76 65 72 20 61 20 62 69 74 0a 23 20 6d   cover a bit.# m
3540: 6f 72 65 20 63 6f 64 65 2e 0a 23 0a 50 52 45 50  ore code..#.PREP
3550: 20 7b 44 52 4f 50 20 56 49 45 57 20 61 62 63 5f   {DROP VIEW abc_
3560: 76 3b 7d 0a 54 45 53 54 20 32 35 20 7b 0a 20 20  v;}.TEST 25 {.  
3570: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 69 64 20  do_test $testid 
3580: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a  {.    execsql {.
3590: 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e 61 6d        SELECT nam
35a0: 65 2c 20 74 62 6c 5f 6e 61 6d 65 20 46 52 4f 4d  e, tbl_name FROM
35b0: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a   sqlite_master;.
35c0: 20 20 20 20 7d 0a 20 20 7d 20 7b 61 62 63 20 61      }.  } {abc a
35d0: 62 63 20 61 62 63 5f 69 20 61 62 63 7d 0a 7d 0a  bc abc_i abc}.}.
35e0: 53 51 4c 20 7b 42 45 47 49 4e 3b 7d 0a 53 51 4c  SQL {BEGIN;}.SQL
35f0: 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 64   {CREATE TABLE d
3600: 65 66 28 64 2c 20 65 2c 20 66 29 3b 7d 0a 53 51  ef(d, e, f);}.SQ
3610: 4c 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20  L {CREATE TABLE 
3620: 67 68 69 28 67 2c 20 68 2c 20 69 29 3b 7d 0a 54  ghi(g, h, i);}.T
3630: 45 53 54 20 32 36 20 7b 0a 20 20 64 6f 5f 74 65  EST 26 {.  do_te
3640: 73 74 20 24 74 65 73 74 69 64 20 7b 0a 20 20 20  st $testid {.   
3650: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20   execsql {.     
3660: 20 53 45 4c 45 43 54 20 6e 61 6d 65 2c 20 74 62   SELECT name, tb
3670: 6c 5f 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  l_name FROM sqli
3680: 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20 20 20 7d  te_master;.    }
3690: 0a 20 20 7d 20 7b 61 62 63 20 61 62 63 20 61 62  .  } {abc abc ab
36a0: 63 5f 69 20 61 62 63 20 64 65 66 20 64 65 66 20  c_i abc def def 
36b0: 67 68 69 20 67 68 69 7d 0a 7d 0a 53 51 4c 20 7b  ghi ghi}.}.SQL {
36c0: 43 52 45 41 54 45 20 56 49 45 57 20 76 31 20 41  CREATE VIEW v1 A
36d0: 53 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20  S SELECT * FROM 
36e0: 64 65 66 2c 20 67 68 69 7d 0a 53 51 4c 20 7b 43  def, ghi}.SQL {C
36f0: 52 45 41 54 45 20 55 4e 49 51 55 45 20 49 4e 44  REATE UNIQUE IND
3700: 45 58 20 67 68 69 5f 69 31 20 4f 4e 20 67 68 69  EX ghi_i1 ON ghi
3710: 28 67 29 3b 7d 0a 54 45 53 54 20 32 37 20 7b 0a  (g);}.TEST 27 {.
3720: 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 69    do_test $testi
3730: 64 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  d {.    execsql 
3740: 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 6e  {.      SELECT n
3750: 61 6d 65 2c 20 74 62 6c 5f 6e 61 6d 65 20 46 52  ame, tbl_name FR
3760: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
3770: 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 61 62 63  ;.    }.  } {abc
3780: 20 61 62 63 20 61 62 63 5f 69 20 61 62 63 20 64   abc abc_i abc d
3790: 65 66 20 64 65 66 20 67 68 69 20 67 68 69 20 76  ef def ghi ghi v
37a0: 31 20 76 31 20 67 68 69 5f 69 31 20 67 68 69 7d  1 v1 ghi_i1 ghi}
37b0: 0a 7d 0a 53 51 4c 20 7b 49 4e 53 45 52 54 20 49  .}.SQL {INSERT I
37c0: 4e 54 4f 20 64 65 66 20 56 41 4c 55 45 53 28 27  NTO def VALUES('
37d0: 61 27 2c 20 27 62 27 2c 20 27 63 27 29 7d 0a 53  a', 'b', 'c')}.S
37e0: 51 4c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20  QL {INSERT INTO 
37f0: 64 65 66 20 56 41 4c 55 45 53 28 31 2c 20 32 2c  def VALUES(1, 2,
3800: 20 33 29 7d 0a 53 51 4c 20 2d 6e 6f 72 6f 6c 6c   3)}.SQL -noroll
3810: 62 61 63 6b 20 7b 49 4e 53 45 52 54 20 49 4e 54  back {INSERT INT
3820: 4f 20 67 68 69 20 53 45 4c 45 43 54 20 2a 20 46  O ghi SELECT * F
3830: 52 4f 4d 20 64 65 66 7d 0a 54 45 53 54 20 32 38  ROM def}.TEST 28
3840: 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 65   {.  do_test $te
3850: 73 74 69 64 20 7b 0a 20 20 20 20 65 78 65 63 73  stid {.    execs
3860: 71 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43  ql {.      SELEC
3870: 54 20 2a 20 46 52 4f 4d 20 64 65 66 2c 20 67 68  T * FROM def, gh
3880: 69 20 57 48 45 52 45 20 64 20 3d 20 67 3b 0a 20  i WHERE d = g;. 
3890: 20 20 20 7d 0a 20 20 7d 20 7b 61 20 62 20 63 20     }.  } {a b c 
38a0: 61 20 62 20 63 20 31 20 32 20 33 20 31 20 32 20  a b c 1 2 3 1 2 
38b0: 33 7d 0a 7d 0a 53 51 4c 20 7b 43 4f 4d 4d 49 54  3}.}.SQL {COMMIT
38c0: 7d 0a 54 45 53 54 20 32 39 20 7b 0a 20 20 64 6f  }.TEST 29 {.  do
38d0: 5f 74 65 73 74 20 24 74 65 73 74 69 64 20 7b 0a  _test $testid {.
38e0: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20      execsql {.  
38f0: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
3900: 4d 20 76 31 20 57 48 45 52 45 20 64 20 3d 20 67  M v1 WHERE d = g
3910: 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 61 20 62  ;.    }.  } {a b
3920: 20 63 20 61 20 62 20 63 20 31 20 32 20 33 20 31   c a b c 1 2 3 1
3930: 20 32 20 33 7d 0a 7d 0a 0a 23 20 54 65 73 74 20   2 3}.}..# Test 
3940: 61 20 73 69 6d 70 6c 65 20 6d 75 6c 74 69 2d 66  a simple multi-f
3950: 69 6c 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20  ile transaction 
3960: 0a 23 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74  .#.forcedelete t
3970: 65 73 74 32 2e 64 62 0a 69 66 63 61 70 61 62 6c  est2.db.ifcapabl
3980: 65 20 61 74 74 61 63 68 20 7b 0a 20 20 53 51 4c  e attach {.  SQL
3990: 20 7b 41 54 54 41 43 48 20 27 74 65 73 74 32 2e   {ATTACH 'test2.
39a0: 64 62 27 20 41 53 20 61 75 78 3b 7d 0a 20 20 53  db' AS aux;}.  S
39b0: 51 4c 20 7b 42 45 47 49 4e 7d 0a 20 20 53 51 4c  QL {BEGIN}.  SQL
39c0: 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 61   {CREATE TABLE a
39d0: 75 78 2e 74 62 6c 32 28 78 2c 20 79 2c 20 7a 29  ux.tbl2(x, y, z)
39e0: 7d 0a 20 20 53 51 4c 20 7b 49 4e 53 45 52 54 20  }.  SQL {INSERT 
39f0: 49 4e 54 4f 20 74 62 6c 32 20 56 41 4c 55 45 53  INTO tbl2 VALUES
3a00: 28 31 2c 20 32 2c 20 33 29 7d 0a 20 20 53 51 4c  (1, 2, 3)}.  SQL
3a10: 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 64 65   {INSERT INTO de
3a20: 66 20 56 41 4c 55 45 53 28 34 2c 20 35 2c 20 36  f VALUES(4, 5, 6
3a30: 29 7d 0a 20 20 54 45 53 54 20 33 30 20 7b 0a 20  )}.  TEST 30 {. 
3a40: 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74     do_test $test
3a50: 69 64 20 7b 0a 20 20 20 20 20 20 65 78 65 63 73  id {.      execs
3a60: 71 6c 20 7b 0a 20 20 20 20 20 20 20 20 53 45 4c  ql {.        SEL
3a70: 45 43 54 20 2a 20 46 52 4f 4d 20 74 62 6c 32 2c  ECT * FROM tbl2,
3a80: 20 64 65 66 20 57 48 45 52 45 20 64 20 3d 20 78   def WHERE d = x
3a90: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 20  ;.      }.    } 
3aa0: 7b 31 20 32 20 33 20 31 20 32 20 33 7d 0a 20 20  {1 2 3 1 2 3}.  
3ab0: 7d 0a 20 20 53 51 4c 20 7b 43 4f 4d 4d 49 54 7d  }.  SQL {COMMIT}
3ac0: 0a 20 20 54 45 53 54 20 33 31 20 7b 0a 20 20 20  .  TEST 31 {.   
3ad0: 20 64 6f 5f 74 65 73 74 20 24 74 65 73 74 69 64   do_test $testid
3ae0: 20 7b 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c   {.      execsql
3af0: 20 7b 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43   {.        SELEC
3b00: 54 20 2a 20 46 52 4f 4d 20 74 62 6c 32 2c 20 64  T * FROM tbl2, d
3b10: 65 66 20 57 48 45 52 45 20 64 20 3d 20 78 3b 0a  ef WHERE d = x;.
3b20: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 20 7b 31        }.    } {1
3b30: 20 32 20 33 20 31 20 32 20 33 7d 0a 20 20 7d 0a   2 3 1 2 3}.  }.
3b40: 7d 0a 0a 23 20 54 65 73 74 20 77 68 61 74 20 68  }..# Test what h
3b50: 61 70 70 65 6e 73 20 77 68 65 6e 20 61 20 6d 61  appens when a ma
3b60: 6c 6c 6f 63 28 29 20 66 61 69 6c 73 20 77 68 69  lloc() fails whi
3b70: 6c 65 20 74 68 65 72 65 20 61 72 65 20 6f 74 68  le there are oth
3b80: 65 72 20 61 63 74 69 76 65 0a 23 20 73 74 61 74  er active.# stat
3b90: 65 6d 65 6e 74 73 2e 20 54 68 69 73 20 63 68 61  ements. This cha
3ba0: 6e 67 65 73 20 74 68 65 20 77 61 79 20 73 71 6c  nges the way sql
3bb0: 69 74 65 33 56 64 62 65 48 61 6c 74 28 29 20 77  ite3VdbeHalt() w
3bc0: 6f 72 6b 73 2e 0a 54 45 53 54 20 33 32 20 7b 0a  orks..TEST 32 {.
3bd0: 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69    if {![info exi
3be0: 73 74 73 20 3a 3a 53 54 4d 54 33 32 5d 7d 20 7b  sts ::STMT32]} {
3bf0: 0a 20 20 20 20 73 65 74 20 73 71 6c 20 22 53 45  .    set sql "SE
3c00: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
3c10: 71 6c 69 74 65 5f 6d 61 73 74 65 72 22 0a 20 20  qlite_master".  
3c20: 20 20 73 65 74 20 3a 3a 53 54 4d 54 33 32 20 5b    set ::STMT32 [
3c30: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 20  sqlite3_prepare 
3c40: 24 3a 3a 44 42 20 24 73 71 6c 20 2d 31 20 44 55  $::DB $sql -1 DU
3c50: 4d 4d 59 5d 0a 20 20 20 20 64 6f 5f 74 65 73 74  MMY].    do_test
3c60: 20 24 74 65 73 74 69 64 20 7b 0a 20 20 20 20 20   $testid {.     
3c70: 20 73 71 6c 69 74 65 33 5f 73 74 65 70 20 24 3a   sqlite3_step $:
3c80: 3a 53 54 4d 54 33 32 0a 20 20 20 20 7d 20 7b 53  :STMT32.    } {S
3c90: 51 4c 49 54 45 5f 52 4f 57 7d 0a 20 20 7d 0a 7d  QLITE_ROW}.  }.}
3ca0: 0a 53 51 4c 20 42 45 47 49 4e 0a 54 45 53 54 20  .SQL BEGIN.TEST 
3cb0: 33 33 20 7b 20 0a 20 20 64 6f 5f 74 65 73 74 20  33 { .  do_test 
3cc0: 24 74 65 73 74 69 64 20 7b 0a 20 20 20 20 65 78  $testid {.    ex
3cd0: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20  ecsql {SELECT * 
3ce0: 46 52 4f 4d 20 67 68 69 7d 0a 20 20 7d 20 7b 61  FROM ghi}.  } {a
3cf0: 20 62 20 63 20 31 20 32 20 33 7d 0a 7d 0a 53 51   b c 1 2 3}.}.SQ
3d00: 4c 20 2d 6e 6f 72 6f 6c 6c 62 61 63 6b 20 7b 20  L -norollback { 
3d10: 0a 20 20 2d 2d 20 54 68 65 72 65 20 69 73 20 61  .  -- There is a
3d20: 20 75 6e 69 71 75 65 20 69 6e 64 65 78 20 6f 6e   unique index on
3d30: 20 67 68 69 28 67 29 2c 20 73 6f 20 74 68 69 73   ghi(g), so this
3d40: 20 73 74 61 74 65 6d 65 6e 74 20 6d 61 79 20 6e   statement may n
3d50: 6f 74 20 63 61 75 73 65 0a 20 20 2d 2d 20 61 6e  ot cause.  -- an
3d60: 20 61 75 74 6f 6d 61 74 69 63 20 52 4f 4c 4c 42   automatic ROLLB
3d70: 41 43 4b 2e 20 48 65 6e 63 65 20 74 68 65 20 22  ACK. Hence the "
3d80: 2d 6e 6f 72 6f 6c 6c 62 61 63 6b 22 20 73 77 69  -norollback" swi
3d90: 74 63 68 2e 0a 20 20 49 4e 53 45 52 54 20 49 4e  tch..  INSERT IN
3da0: 54 4f 20 67 68 69 20 53 45 4c 45 43 54 20 27 32  TO ghi SELECT '2
3db0: 27 7c 7c 67 2c 20 68 2c 20 69 20 46 52 4f 4d 20  '||g, h, i FROM 
3dc0: 67 68 69 3b 0a 7d 0a 54 45 53 54 20 33 34 20 7b  ghi;.}.TEST 34 {
3dd0: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
3de0: 73 74 73 20 3a 3a 53 54 4d 54 33 32 5d 7d 20 7b  sts ::STMT32]} {
3df0: 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24 74 65  .    do_test $te
3e00: 73 74 69 64 20 7b 0a 20 20 20 20 20 20 73 71 6c  stid {.      sql
3e10: 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 20 24 3a  ite3_finalize $:
3e20: 3a 53 54 4d 54 33 32 0a 20 20 20 20 7d 20 7b 53  :STMT32.    } {S
3e30: 51 4c 49 54 45 5f 4f 4b 7d 0a 20 20 20 20 75 6e  QLITE_OK}.    un
3e40: 73 65 74 20 3a 3a 53 54 4d 54 33 32 0a 20 20 7d  set ::STMT32.  }
3e50: 0a 7d 0a 53 51 4c 20 43 4f 4d 4d 49 54 0a 0a 23  .}.SQL COMMIT..#
3e60: 0a 23 20 45 6e 64 20 6f 66 20 74 65 73 74 20 70  .# End of test p
3e70: 72 6f 67 72 61 6d 20 64 65 63 6c 61 72 61 74 69  rogram declarati
3e80: 6f 6e 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  on.#------------
3e90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ea0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3eb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3ec0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a  --------------..
3ed0: 70 72 6f 63 20 72 75 6e 5f 74 65 73 74 20 7b 61  proc run_test {a
3ee0: 72 67 6c 69 73 74 20 69 52 65 70 65 61 74 20 7b  rglist iRepeat {
3ef0: 70 63 73 74 61 72 74 20 30 7d 20 7b 69 46 61 69  pcstart 0} {iFai
3f00: 6c 53 74 61 72 74 20 31 7d 7d 20 7b 0a 20 20 69  lStart 1}} {.  i
3f10: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67  f {[llength $arg
3f20: 6c 69 73 74 5d 20 25 32 7d 20 7b 0a 20 20 20 20  list] %2} {.    
3f30: 65 72 72 6f 72 20 22 55 6e 65 76 65 6e 20 6e 75  error "Uneven nu
3f40: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74  mber of argument
3f50: 73 20 74 6f 20 54 45 53 54 22 0a 20 20 7d 0a 0a  s to TEST".  }..
3f60: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20    for {set i 0} 
3f70: 7b 24 69 20 3c 20 24 70 63 73 74 61 72 74 7d 20  {$i < $pcstart} 
3f80: 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 73  {incr i} {.    s
3f90: 65 74 20 6b 32 20 5b 6c 69 6e 64 65 78 20 24 61  et k2 [lindex $a
3fa0: 72 67 6c 69 73 74 20 5b 65 78 70 72 20 32 20 2a  rglist [expr 2 *
3fb0: 20 24 69 5d 5d 0a 20 20 20 20 73 65 74 20 76 32   $i]].    set v2
3fc0: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 6c 69 73   [lindex $arglis
3fd0: 74 20 5b 65 78 70 72 20 32 20 2a 20 24 69 20 2b  t [expr 2 * $i +
3fe0: 20 31 5d 5d 0a 20 20 20 20 73 65 74 20 61 63 20   1]].    set ac 
3ff0: 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75 74  [sqlite3_get_aut
4000: 6f 63 6f 6d 6d 69 74 20 24 3a 3a 44 42 5d 20 20  ocommit $::DB]  
4010: 20 20 20 20 20 20 3b 23 20 41 75 74 6f 2d 43 6f        ;# Auto-Co
4020: 6d 6d 69 74 0a 20 20 20 20 73 77 69 74 63 68 20  mmit.    switch 
4030: 2d 2d 20 24 6b 32 20 7b 0a 20 20 20 20 20 20 2d  -- $k2 {.      -
4040: 73 71 6c 20 20 7b 64 62 20 65 76 61 6c 20 5b 6c  sql  {db eval [l
4050: 69 6e 64 65 78 20 24 76 32 20 31 5d 7d 0a 20 20  index $v2 1]}.  
4060: 20 20 20 20 2d 70 72 65 70 20 7b 64 62 20 65 76      -prep {db ev
4070: 61 6c 20 24 76 32 7d 0a 20 20 20 20 7d 0a 20 20  al $v2}.    }.  
4080: 20 20 73 65 74 20 6e 61 63 20 5b 73 71 6c 69 74    set nac [sqlit
4090: 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69  e3_get_autocommi
40a0: 74 20 24 3a 3a 44 42 5d 20 20 20 20 20 20 20 3b  t $::DB]       ;
40b0: 23 20 4e 65 77 20 41 75 74 6f 2d 43 6f 6d 6d 69  # New Auto-Commi
40c0: 74 20 0a 20 20 20 20 69 66 20 7b 24 61 63 20 26  t .    if {$ac &
40d0: 26 20 21 24 6e 61 63 7d 20 7b 73 65 74 20 62 65  & !$nac} {set be
40e0: 67 69 6e 5f 70 63 20 24 69 7d 0a 20 20 7d 0a 0a  gin_pc $i}.  }..
40f0: 20 20 64 62 20 72 6f 6c 6c 62 61 63 6b 5f 68 6f    db rollback_ho
4100: 6f 6b 20 5b 6c 69 73 74 20 69 6e 63 72 20 3a 3a  ok [list incr ::
4110: 72 6f 6c 6c 62 61 63 6b 5f 68 6f 6f 6b 5f 63 6f  rollback_hook_co
4120: 75 6e 74 5d 0a 0a 20 20 73 65 74 20 69 46 61 69  unt]..  set iFai
4130: 6c 20 24 69 46 61 69 6c 53 74 61 72 74 0a 20 20  l $iFailStart.  
4140: 73 65 74 20 70 63 20 24 70 63 73 74 61 72 74 0a  set pc $pcstart.
4150: 20 20 77 68 69 6c 65 20 7b 24 70 63 2a 32 20 3c    while {$pc*2 <
4160: 20 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 6c 69   [llength $argli
4170: 73 74 5d 7d 20 7b 0a 0a 20 20 20 20 23 20 49 64  st]} {..    # Id
4180: 20 6f 66 20 74 68 69 73 20 69 74 65 72 61 74 69   of this iterati
4190: 6f 6e 3a 0a 20 20 20 20 73 65 74 20 6b 20 5b 6c  on:.    set k [l
41a0: 69 6e 64 65 78 20 24 61 72 67 6c 69 73 74 20 5b  index $arglist [
41b0: 65 78 70 72 20 32 20 2a 20 24 70 63 5d 5d 0a 20  expr 2 * $pc]]. 
41c0: 20 20 20 73 65 74 20 69 74 65 72 69 64 20 22 70     set iterid "p
41d0: 63 3d 24 70 63 2e 69 46 61 69 6c 3d 24 69 46 61  c=$pc.iFail=$iFa
41e0: 69 6c 24 6b 22 0a 20 20 20 20 73 65 74 20 76 20  il$k".    set v 
41f0: 5b 6c 69 6e 64 65 78 20 24 61 72 67 6c 69 73 74  [lindex $arglist
4200: 20 5b 65 78 70 72 20 32 20 2a 20 24 70 63 20 2b   [expr 2 * $pc +
4210: 20 31 5d 5d 0a 0a 20 20 20 20 73 77 69 74 63 68   1]]..    switch
4220: 20 2d 2d 20 24 6b 20 7b 0a 0a 20 20 20 20 20 20   -- $k {..      
4230: 2d 74 65 73 74 20 7b 20 0a 20 20 20 20 20 20 20  -test { .       
4240: 20 66 6f 72 65 61 63 68 20 7b 69 64 20 73 63 72   foreach {id scr
4250: 69 70 74 7d 20 24 76 20 7b 7d 0a 20 20 20 20 20  ipt} $v {}.     
4260: 20 20 20 69 6e 63 72 20 70 63 0a 20 20 20 20 20     incr pc.     
4270: 20 7d 0a 0a 20 20 20 20 20 20 2d 73 71 6c 20 7b   }..      -sql {
4280: 0a 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 72  .        set ::r
4290: 6f 6c 6c 62 61 63 6b 5f 68 6f 6f 6b 5f 63 6f 75  ollback_hook_cou
42a0: 6e 74 20 30 0a 0a 20 20 20 20 20 20 20 20 73 65  nt 0..        se
42b0: 74 20 61 63 20 5b 73 71 6c 69 74 65 33 5f 67 65  t ac [sqlite3_ge
42c0: 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20 24 3a 3a  t_autocommit $::
42d0: 44 42 5d 20 20 20 20 20 20 20 20 3b 23 20 41 75  DB]        ;# Au
42e0: 74 6f 2d 43 6f 6d 6d 69 74 0a 20 20 20 20 20 20  to-Commit.      
42f0: 20 20 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65 62    sqlite3_memdeb
4300: 75 67 5f 66 61 69 6c 20 24 69 46 61 69 6c 20 2d  ug_fail $iFail -
4310: 72 65 70 65 61 74 20 30 0a 20 20 20 20 20 20 20  repeat 0.       
4320: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
4330: 64 62 20 65 76 61 6c 20 5b 6c 69 6e 64 65 78 20  db eval [lindex 
4340: 24 76 20 31 5d 7d 20 6d 73 67 5d 20 20 20 3b 23  $v 1]} msg]   ;#
4350: 20 54 72 75 65 20 65 72 72 6f 72 20 6f 63 63 75   True error occu
4360: 72 73 0a 20 20 20 20 20 20 20 20 73 65 74 20 6e  rs.        set n
4370: 61 63 20 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f  ac [sqlite3_get_
4380: 61 75 74 6f 63 6f 6d 6d 69 74 20 24 3a 3a 44 42  autocommit $::DB
4390: 5d 20 20 20 20 20 20 20 3b 23 20 4e 65 77 20 41  ]       ;# New A
43a0: 75 74 6f 2d 43 6f 6d 6d 69 74 20 0a 0a 20 20 20  uto-Commit ..   
43b0: 20 20 20 20 20 69 66 20 7b 24 72 63 20 21 3d 20       if {$rc != 
43c0: 30 20 26 26 20 24 6e 61 63 20 26 26 20 21 24 61  0 && $nac && !$a
43d0: 63 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 23  c} {.          #
43e0: 20 42 65 66 6f 72 65 20 5b 64 62 20 65 76 61 6c   Before [db eval
43f0: 5d 20 74 68 65 20 61 75 74 6f 2d 63 6f 6d 6d 69  ] the auto-commi
4400: 74 20 66 6c 61 67 20 77 61 73 20 63 6c 65 61 72  t flag was clear
4410: 2e 20 4e 6f 77 20 69 74 0a 20 20 20 20 20 20 20  . Now it.       
4420: 20 20 20 23 20 69 73 20 73 65 74 2e 20 53 69 6e     # is set. Sin
4430: 63 65 20 61 6e 20 65 72 72 6f 72 20 6f 63 63 75  ce an error occu
4440: 72 65 64 20 77 65 20 61 73 73 75 6d 65 20 74 68  red we assume th
4450: 69 73 20 77 61 73 20 6e 6f 74 20 61 0a 20 20 20  is was not a.   
4460: 20 20 20 20 20 20 20 23 20 63 6f 6d 6d 69 74 20         # commit 
4470: 2d 20 74 68 65 72 65 66 6f 72 65 20 61 20 72 6f  - therefore a ro
4480: 6c 6c 62 61 63 6b 20 6f 63 63 75 72 65 64 2e 20  llback occured. 
4490: 43 68 65 63 6b 20 74 68 61 74 20 74 68 65 0a 20  Check that the. 
44a0: 20 20 20 20 20 20 20 20 20 23 20 72 6f 6c 6c 62           # rollb
44b0: 61 63 6b 2d 68 6f 6f 6b 20 77 61 73 20 69 6e 76  ack-hook was inv
44c0: 6f 6b 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20  oked..          
44d0: 64 6f 5f 74 65 73 74 20 6d 61 6c 6c 6f 63 33 2d  do_test malloc3-
44e0: 72 6f 6c 6c 62 61 63 6b 5f 68 6f 6f 6b 2e 24 69  rollback_hook.$i
44f0: 74 65 72 69 64 20 7b 0a 20 20 20 20 20 20 20 20  terid {.        
4500: 20 20 20 20 73 65 74 20 3a 3a 72 6f 6c 6c 62 61      set ::rollba
4510: 63 6b 5f 68 6f 6f 6b 5f 63 6f 75 6e 74 0a 20 20  ck_hook_count.  
4520: 20 20 20 20 20 20 20 20 7d 20 7b 31 7d 0a 20 20          } {1}.  
4530: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20        }..       
4540: 20 73 65 74 20 6e 46 61 69 6c 20 5b 73 71 6c 69   set nFail [sqli
4550: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 66 61 69  te3_memdebug_fai
4560: 6c 20 2d 31 20 2d 62 65 6e 69 67 6e 63 6e 74 20  l -1 -benigncnt 
4570: 6e 42 65 6e 69 67 6e 5d 0a 20 20 20 20 20 20 20  nBenign].       
4580: 20 69 66 20 7b 24 72 63 20 3d 3d 20 30 7d 20 7b   if {$rc == 0} {
4590: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 53  .            # S
45a0: 75 63 63 65 73 73 66 75 6c 20 65 78 65 63 75 74  uccessful execut
45b0: 69 6f 6e 20 6f 66 20 73 71 6c 2e 20 54 68 65 20  ion of sql. The 
45c0: 6e 75 6d 62 65 72 20 6f 66 20 66 61 69 6c 65 64  number of failed
45d0: 20 6d 61 6c 6c 6f 63 28 29 0a 20 20 20 20 20 20   malloc().      
45e0: 20 20 20 20 20 20 23 20 63 61 6c 6c 73 20 73 68        # calls sh
45f0: 6f 75 6c 64 20 62 65 20 65 71 75 61 6c 20 74 6f  ould be equal to
4600: 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 62   the number of b
4610: 65 6e 69 67 6e 20 66 61 69 6c 75 72 65 73 2e 0a  enign failures..
4620: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4f 74              # Ot
4630: 68 65 72 77 69 73 65 20 61 20 6d 61 6c 6c 6f 63  herwise a malloc
4640: 28 29 20 66 61 69 6c 65 64 20 61 6e 64 20 74 68  () failed and th
4650: 65 20 65 72 72 6f 72 20 77 61 73 20 6e 6f 74 20  e error was not 
4660: 72 65 70 6f 72 74 65 64 2e 0a 20 20 20 20 20 20  reported..      
4670: 20 20 20 20 20 20 23 20 0a 20 20 20 20 20 20 20        # .       
4680: 20 20 20 20 20 69 66 20 7b 24 6e 46 61 69 6c 21       if {$nFail!
4690: 3d 24 6e 42 65 6e 69 67 6e 7d 20 7b 0a 20 20 20  =$nBenign} {.   
46a0: 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72             error
46b0: 20 22 55 6e 72 65 70 6f 72 74 65 64 20 6d 61 6c   "Unreported mal
46c0: 6c 6f 63 28 29 20 66 61 69 6c 75 72 65 22 0a 20  loc() failure". 
46d0: 20 20 20 20 20 20 20 20 20 20 20 7d 0a 0a 20 20             }..  
46e0: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 24 61            if {$a
46f0: 63 20 26 26 20 21 24 6e 61 63 7d 20 7b 0a 20 20  c && !$nac} {.  
4700: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 42 65              # Be
4710: 66 6f 72 65 20 74 68 65 20 5b 64 62 20 65 76 61  fore the [db eva
4720: 6c 5d 20 74 68 65 20 61 75 74 6f 2d 63 6f 6d 6d  l] the auto-comm
4730: 69 74 20 66 6c 61 67 20 77 61 73 20 73 65 74 2c  it flag was set,
4740: 20 6e 6f 77 20 69 74 0a 20 20 20 20 20 20 20 20   now it.        
4750: 20 20 20 20 20 20 23 20 69 73 20 63 6c 65 61 72        # is clear
4760: 2e 20 57 65 20 63 61 6e 20 64 65 64 75 63 65 20  . We can deduce 
4770: 74 68 61 74 20 61 20 22 42 45 47 49 4e 22 20 73  that a "BEGIN" s
4780: 74 61 74 65 6d 65 6e 74 20 68 61 73 20 6a 75 73  tatement has jus
4790: 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t.              
47a0: 23 20 62 65 65 6e 20 73 75 63 63 65 73 73 66 75  # been successfu
47b0: 6c 6c 79 20 65 78 65 63 75 74 65 64 2e 0a 20 20  lly executed..  
47c0: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20              set 
47d0: 62 65 67 69 6e 5f 70 63 20 24 70 63 0a 20 20 20  begin_pc $pc.   
47e0: 20 20 20 20 20 20 20 20 20 7d 20 0a 0a 20 20 20           } ..   
47f0: 20 20 20 20 20 20 20 20 20 69 6e 63 72 20 70 63           incr pc
4800: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74  .            set
4810: 20 69 46 61 69 6c 20 31 0a 20 20 20 20 20 20 20   iFail 1.       
4820: 20 20 20 20 20 69 6e 74 65 67 72 69 74 79 5f 63       integrity_c
4830: 68 65 63 6b 20 22 6d 61 6c 6c 6f 63 33 2d 28 69  heck "malloc3-(i
4840: 6e 74 65 67 72 69 74 79 29 2e 24 69 74 65 72 69  ntegrity).$iteri
4850: 64 22 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73  d".        } els
4860: 65 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 2e 2a  eif {[regexp {.*
4870: 6f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 7d 20 24  out of memory} $
4880: 6d 73 67 5d 20 7c 7c 20 5b 64 62 20 65 72 72 6f  msg] || [db erro
4890: 72 63 6f 64 65 5d 20 3d 3d 20 33 30 38 32 7d 20  rcode] == 3082} 
48a0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20  {.            # 
48b0: 4f 75 74 20 6f 66 20 6d 65 6d 6f 72 79 20 65 72  Out of memory er
48c0: 72 6f 72 2c 20 61 73 20 65 78 70 65 63 74 65 64  ror, as expected
48d0: 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0a  ..            #.
48e0: 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65              inte
48f0: 67 72 69 74 79 5f 63 68 65 63 6b 20 22 6d 61 6c  grity_check "mal
4900: 6c 6f 63 33 2d 28 69 6e 74 65 67 72 69 74 79 29  loc3-(integrity)
4910: 2e 24 69 74 65 72 69 64 22 0a 20 20 20 20 20 20  .$iterid".      
4920: 20 20 20 20 20 20 69 6e 63 72 20 69 46 61 69 6c        incr iFail
4930: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20  .            if 
4940: 7b 24 6e 61 63 20 26 26 20 21 24 61 63 7d 20 7b  {$nac && !$ac} {
4950: 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
4960: 69 66 20 7b 21 5b 6c 69 6e 64 65 78 20 24 76 20  if {![lindex $v 
4970: 30 5d 20 26 26 20 5b 64 62 20 65 72 72 6f 72 63  0] && [db errorc
4980: 6f 64 65 5d 20 21 3d 20 33 30 38 32 7d 20 7b 0a  ode] != 3082} {.
4990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
49a0: 23 20 65 72 72 6f 72 20 22 53 74 61 74 65 6d 65  # error "Stateme
49b0: 6e 74 20 5c 22 5b 6c 69 6e 64 65 78 20 24 76 20  nt \"[lindex $v 
49c0: 31 5d 5c 22 20 63 61 75 73 65 64 20 61 20 72 6f  1]\" caused a ro
49d0: 6c 6c 62 61 63 6b 22 0a 20 20 20 20 20 20 20 20  llback".        
49e0: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 20        }..       
49f0: 20 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20         for {set 
4a00: 69 20 24 62 65 67 69 6e 5f 70 63 7d 20 7b 24 69  i $begin_pc} {$i
4a10: 20 3c 20 24 70 63 7d 20 7b 69 6e 63 72 20 69 7d   < $pc} {incr i}
4a20: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   {.             
4a30: 20 20 20 73 65 74 20 6b 32 20 5b 6c 69 6e 64 65     set k2 [linde
4a40: 78 20 24 61 72 67 6c 69 73 74 20 5b 65 78 70 72  x $arglist [expr
4a50: 20 32 20 2a 20 24 69 5d 5d 0a 20 20 20 20 20 20   2 * $i]].      
4a60: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 76 32            set v2
4a70: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 6c 69 73   [lindex $arglis
4a80: 74 20 5b 65 78 70 72 20 32 20 2a 20 24 69 20 2b  t [expr 2 * $i +
4a90: 20 31 5d 5d 0a 20 20 20 20 20 20 20 20 20 20 20   1]].           
4aa0: 20 20 20 20 20 73 65 74 20 63 61 74 63 68 75 70       set catchup
4ab0: 73 71 6c 20 22 22 0a 20 20 20 20 20 20 20 20 20  sql "".         
4ac0: 20 20 20 20 20 20 20 73 77 69 74 63 68 20 2d 2d         switch --
4ad0: 20 24 6b 32 20 7b 0a 20 20 20 20 20 20 20 20 20   $k2 {.         
4ae0: 20 20 20 20 20 20 20 20 20 2d 73 71 6c 20 20 7b           -sql  {
4af0: 73 65 74 20 63 61 74 63 68 75 70 73 71 6c 20 5b  set catchupsql [
4b00: 6c 69 6e 64 65 78 20 24 76 32 20 31 5d 7d 0a 20  lindex $v2 1]}. 
4b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4b20: 20 2d 70 72 65 70 20 7b 73 65 74 20 63 61 74 63   -prep {set catc
4b30: 68 75 70 73 71 6c 20 24 76 32 7d 0a 20 20 20 20  hupsql $v2}.    
4b40: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20              }.  
4b50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 62                db
4b60: 20 65 76 61 6c 20 24 63 61 74 63 68 75 70 73 71   eval $catchupsq
4b70: 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  l.              
4b80: 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a  }.            }.
4b90: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
4ba0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 72 72  .            err
4bb0: 6f 72 20 24 6d 73 67 0a 20 20 20 20 20 20 20 20  or $msg.        
4bc0: 7d 0a 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65  }..        while
4bd0: 20 7b 5b 6c 69 6e 64 65 78 20 24 61 72 67 6c 69   {[lindex $argli
4be0: 73 74 20 5b 65 78 70 72 20 32 20 2a 20 28 24 70  st [expr 2 * ($p
4bf0: 63 20 2d 31 29 5d 5d 20 3d 3d 20 22 2d 74 65 73  c -1)]] == "-tes
4c00: 74 22 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20  t"} {.          
4c10: 69 6e 63 72 20 70 63 20 2d 31 0a 20 20 20 20 20  incr pc -1.     
4c20: 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 0a 20 20     }.      }..  
4c30: 20 20 20 20 2d 70 72 65 70 20 7b 0a 20 20 20 20      -prep {.    
4c40: 20 20 20 20 64 62 20 65 76 61 6c 20 24 76 0a 20      db eval $v. 
4c50: 20 20 20 20 20 20 20 69 6e 63 72 20 70 63 0a 20         incr pc. 
4c60: 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 2d 64       }..      -d
4c70: 65 62 75 67 20 7b 0a 20 20 20 20 20 20 20 20 65  ebug {.        e
4c80: 76 61 6c 20 24 76 0a 20 20 20 20 20 20 20 20 69  val $v.        i
4c90: 6e 63 72 20 70 63 0a 20 20 20 20 20 20 7d 0a 0a  ncr pc.      }..
4ca0: 20 20 20 20 20 20 64 65 66 61 75 6c 74 20 7b 20        default { 
4cb0: 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20 73  error "Unknown s
4cc0: 77 69 74 63 68 3a 20 24 6b 22 20 7d 0a 20 20 20  witch: $k" }.   
4cd0: 20 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 54 75 72 6e   }.  }.}..# Turn
4ce0: 20 6f 66 20 74 68 65 20 54 63 6c 20 69 6e 74 65   of the Tcl inte
4cf0: 72 66 61 63 65 27 73 20 70 72 65 70 61 72 65 64  rface's prepared
4d00: 20 73 74 61 74 65 6d 65 6e 74 20 63 61 63 68 69   statement cachi
4d10: 6e 67 20 66 61 63 69 6c 69 74 79 2e 20 54 68 65  ng facility. The
4d20: 6e 0a 23 20 72 75 6e 20 74 68 65 20 74 65 73 74  n.# run the test
4d30: 73 20 77 69 74 68 20 22 70 65 72 73 69 73 74 65  s with "persiste
4d40: 6e 74 22 20 6d 61 6c 6c 6f 63 20 66 61 69 6c 75  nt" malloc failu
4d50: 72 65 73 2e 0a 73 71 6c 69 74 65 33 5f 65 78 74  res..sqlite3_ext
4d60: 65 6e 64 65 64 5f 72 65 73 75 6c 74 5f 63 6f 64  ended_result_cod
4d70: 65 73 20 64 62 20 31 0a 64 62 20 63 61 63 68 65  es db 1.db cache
4d80: 20 73 69 7a 65 20 30 0a 72 75 6e 5f 74 65 73 74   size 0.run_test
4d90: 20 24 3a 3a 72 75 6e 5f 74 65 73 74 5f 73 63 72   $::run_test_scr
4da0: 69 70 74 20 31 0a 0a 23 20 43 6c 6f 73 65 20 61  ipt 1..# Close a
4db0: 6e 64 20 72 65 6f 70 65 6e 20 74 68 65 20 64 62  nd reopen the db
4dc0: 2e 0a 64 62 20 63 6c 6f 73 65 0a 66 6f 72 63 65  ..db close.force
4dd0: 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 20 74  delete test.db t
4de0: 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 20 74  est.db-journal t
4df0: 65 73 74 32 2e 64 62 20 74 65 73 74 32 2e 64 62  est2.db test2.db
4e00: 2d 6a 6f 75 72 6e 61 6c 0a 73 71 6c 69 74 65 33  -journal.sqlite3
4e10: 20 64 62 20 74 65 73 74 2e 64 62 0a 73 71 6c 69   db test.db.sqli
4e20: 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73  te3_extended_res
4e30: 75 6c 74 5f 63 6f 64 65 73 20 64 62 20 31 0a 73  ult_codes db 1.s
4e40: 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33  et ::DB [sqlite3
4e50: 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e  _connection_poin
4e60: 74 65 72 20 64 62 5d 0a 0a 23 20 54 75 72 6e 20  ter db]..# Turn 
4e70: 6f 66 66 20 74 68 65 20 54 63 6c 20 69 6e 74 65  off the Tcl inte
4e80: 72 66 61 63 65 27 73 20 70 72 65 70 61 72 65 64  rface's prepared
4e90: 20 73 74 61 74 65 6d 65 6e 74 20 63 61 63 68 69   statement cachi
4ea0: 6e 67 20 66 61 63 69 6c 69 74 79 20 69 6e 0a 23  ng facility in.#
4eb0: 20 74 68 65 20 6e 65 77 20 63 6f 6e 6e 6e 65 63   the new connnec
4ec0: 74 69 6f 6e 2e 20 54 68 65 6e 20 72 75 6e 20 74  tion. Then run t
4ed0: 68 65 20 74 65 73 74 73 20 77 69 74 68 20 22 74  he tests with "t
4ee0: 72 61 6e 73 69 65 6e 74 22 20 6d 61 6c 6c 6f 63  ransient" malloc
4ef0: 20 66 61 69 6c 75 72 65 73 2e 0a 64 62 20 63 61   failures..db ca
4f00: 63 68 65 20 73 69 7a 65 20 30 0a 72 75 6e 5f 74  che size 0.run_t
4f10: 65 73 74 20 24 3a 3a 72 75 6e 5f 74 65 73 74 5f  est $::run_test_
4f20: 73 63 72 69 70 74 20 30 0a 0a 73 71 6c 69 74 65  script 0..sqlite
4f30: 33 5f 6d 65 6d 64 65 62 75 67 5f 66 61 69 6c 20  3_memdebug_fail 
4f40: 2d 31 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a     -1.finish_test.