/ Hex Artifact Content
Login

Artifact 4bc57f850b212f706f3e1b37c4eced1d5a727cd1:


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 69 6c 65 20 64 65 6c 65 74 65 20 2d  .#.file delete -
3970: 66 6f 72 63 65 20 74 65 73 74 32 2e 64 62 0a 69  force test2.db.i
3980: 66 63 61 70 61 62 6c 65 20 61 74 74 61 63 68 20  fcapable attach 
3990: 7b 0a 20 20 53 51 4c 20 7b 41 54 54 41 43 48 20  {.  SQL {ATTACH 
39a0: 27 74 65 73 74 32 2e 64 62 27 20 41 53 20 61 75  'test2.db' AS au
39b0: 78 3b 7d 0a 20 20 53 51 4c 20 7b 42 45 47 49 4e  x;}.  SQL {BEGIN
39c0: 7d 0a 20 20 53 51 4c 20 7b 43 52 45 41 54 45 20  }.  SQL {CREATE 
39d0: 54 41 42 4c 45 20 61 75 78 2e 74 62 6c 32 28 78  TABLE aux.tbl2(x
39e0: 2c 20 79 2c 20 7a 29 7d 0a 20 20 53 51 4c 20 7b  , y, z)}.  SQL {
39f0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 62 6c 32  INSERT INTO tbl2
3a00: 20 56 41 4c 55 45 53 28 31 2c 20 32 2c 20 33 29   VALUES(1, 2, 3)
3a10: 7d 0a 20 20 53 51 4c 20 7b 49 4e 53 45 52 54 20  }.  SQL {INSERT 
3a20: 49 4e 54 4f 20 64 65 66 20 56 41 4c 55 45 53 28  INTO def VALUES(
3a30: 34 2c 20 35 2c 20 36 29 7d 0a 20 20 54 45 53 54  4, 5, 6)}.  TEST
3a40: 20 33 30 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73   30 {.    do_tes
3a50: 74 20 24 74 65 73 74 69 64 20 7b 0a 20 20 20 20  t $testid {.    
3a60: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
3a70: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
3a80: 4d 20 74 62 6c 32 2c 20 64 65 66 20 57 48 45 52  M tbl2, def WHER
3a90: 45 20 64 20 3d 20 78 3b 0a 20 20 20 20 20 20 7d  E d = x;.      }
3aa0: 0a 20 20 20 20 7d 20 7b 31 20 32 20 33 20 31 20  .    } {1 2 3 1 
3ab0: 32 20 33 7d 0a 20 20 7d 0a 20 20 53 51 4c 20 7b  2 3}.  }.  SQL {
3ac0: 43 4f 4d 4d 49 54 7d 0a 20 20 54 45 53 54 20 33  COMMIT}.  TEST 3
3ad0: 31 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74 20  1 {.    do_test 
3ae0: 24 74 65 73 74 69 64 20 7b 0a 20 20 20 20 20 20  $testid {.      
3af0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20  execsql {.      
3b00: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
3b10: 74 62 6c 32 2c 20 64 65 66 20 57 48 45 52 45 20  tbl2, def WHERE 
3b20: 64 20 3d 20 78 3b 0a 20 20 20 20 20 20 7d 0a 20  d = x;.      }. 
3b30: 20 20 20 7d 20 7b 31 20 32 20 33 20 31 20 32 20     } {1 2 3 1 2 
3b40: 33 7d 0a 20 20 7d 0a 7d 0a 0a 23 20 54 65 73 74  3}.  }.}..# Test
3b50: 20 77 68 61 74 20 68 61 70 70 65 6e 73 20 77 68   what happens wh
3b60: 65 6e 20 61 20 6d 61 6c 6c 6f 63 28 29 20 66 61  en a malloc() fa
3b70: 69 6c 73 20 77 68 69 6c 65 20 74 68 65 72 65 20  ils while there 
3b80: 61 72 65 20 6f 74 68 65 72 20 61 63 74 69 76 65  are other active
3b90: 0a 23 20 73 74 61 74 65 6d 65 6e 74 73 2e 20 54  .# statements. T
3ba0: 68 69 73 20 63 68 61 6e 67 65 73 20 74 68 65 20  his changes the 
3bb0: 77 61 79 20 73 71 6c 69 74 65 33 56 64 62 65 48  way sqlite3VdbeH
3bc0: 61 6c 74 28 29 20 77 6f 72 6b 73 2e 0a 54 45 53  alt() works..TES
3bd0: 54 20 33 32 20 7b 0a 20 20 69 66 20 7b 21 5b 69  T 32 {.  if {![i
3be0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 54 4d  nfo exists ::STM
3bf0: 54 33 32 5d 7d 20 7b 0a 20 20 20 20 73 65 74 20  T32]} {.    set 
3c00: 73 71 6c 20 22 53 45 4c 45 43 54 20 6e 61 6d 65  sql "SELECT name
3c10: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
3c20: 74 65 72 22 0a 20 20 20 20 73 65 74 20 3a 3a 53  ter".    set ::S
3c30: 54 4d 54 33 32 20 5b 73 71 6c 69 74 65 33 5f 70  TMT32 [sqlite3_p
3c40: 72 65 70 61 72 65 20 24 3a 3a 44 42 20 24 73 71  repare $::DB $sq
3c50: 6c 20 2d 31 20 44 55 4d 4d 59 5d 0a 20 20 20 20  l -1 DUMMY].    
3c60: 64 6f 5f 74 65 73 74 20 24 74 65 73 74 69 64 20  do_test $testid 
3c70: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  {.      sqlite3_
3c80: 73 74 65 70 20 24 3a 3a 53 54 4d 54 33 32 0a 20  step $::STMT32. 
3c90: 20 20 20 7d 20 7b 53 51 4c 49 54 45 5f 52 4f 57     } {SQLITE_ROW
3ca0: 7d 0a 20 20 7d 0a 7d 0a 53 51 4c 20 42 45 47 49  }.  }.}.SQL BEGI
3cb0: 4e 0a 54 45 53 54 20 33 33 20 7b 20 0a 20 20 64  N.TEST 33 { .  d
3cc0: 6f 5f 74 65 73 74 20 24 74 65 73 74 69 64 20 7b  o_test $testid {
3cd0: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 53 45  .    execsql {SE
3ce0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 67 68 69 7d  LECT * FROM ghi}
3cf0: 0a 20 20 7d 20 7b 61 20 62 20 63 20 31 20 32 20  .  } {a b c 1 2 
3d00: 33 7d 0a 7d 0a 53 51 4c 20 2d 6e 6f 72 6f 6c 6c  3}.}.SQL -noroll
3d10: 62 61 63 6b 20 7b 20 0a 20 20 2d 2d 20 54 68 65  back { .  -- The
3d20: 72 65 20 69 73 20 61 20 75 6e 69 71 75 65 20 69  re is a unique i
3d30: 6e 64 65 78 20 6f 6e 20 67 68 69 28 67 29 2c 20  ndex on ghi(g), 
3d40: 73 6f 20 74 68 69 73 20 73 74 61 74 65 6d 65 6e  so this statemen
3d50: 74 20 6d 61 79 20 6e 6f 74 20 63 61 75 73 65 0a  t may not cause.
3d60: 20 20 2d 2d 20 61 6e 20 61 75 74 6f 6d 61 74 69    -- an automati
3d70: 63 20 52 4f 4c 4c 42 41 43 4b 2e 20 48 65 6e 63  c ROLLBACK. Henc
3d80: 65 20 74 68 65 20 22 2d 6e 6f 72 6f 6c 6c 62 61  e the "-norollba
3d90: 63 6b 22 20 73 77 69 74 63 68 2e 0a 20 20 49 4e  ck" switch..  IN
3da0: 53 45 52 54 20 49 4e 54 4f 20 67 68 69 20 53 45  SERT INTO ghi SE
3db0: 4c 45 43 54 20 27 32 27 7c 7c 67 2c 20 68 2c 20  LECT '2'||g, h, 
3dc0: 69 20 46 52 4f 4d 20 67 68 69 3b 0a 7d 0a 54 45  i FROM ghi;.}.TE
3dd0: 53 54 20 33 34 20 7b 0a 20 20 69 66 20 7b 5b 69  ST 34 {.  if {[i
3de0: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 53 54 4d  nfo exists ::STM
3df0: 54 33 32 5d 7d 20 7b 0a 20 20 20 20 64 6f 5f 74  T32]} {.    do_t
3e00: 65 73 74 20 24 74 65 73 74 69 64 20 7b 0a 20 20  est $testid {.  
3e10: 20 20 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61      sqlite3_fina
3e20: 6c 69 7a 65 20 24 3a 3a 53 54 4d 54 33 32 0a 20  lize $::STMT32. 
3e30: 20 20 20 7d 20 7b 53 51 4c 49 54 45 5f 4f 4b 7d     } {SQLITE_OK}
3e40: 0a 20 20 20 20 75 6e 73 65 74 20 3a 3a 53 54 4d  .    unset ::STM
3e50: 54 33 32 0a 20 20 7d 0a 7d 0a 53 51 4c 20 43 4f  T32.  }.}.SQL CO
3e60: 4d 4d 49 54 0a 0a 23 0a 23 20 45 6e 64 20 6f 66  MMIT..#.# End of
3e70: 20 74 65 73 74 20 70 72 6f 67 72 61 6d 20 64 65   test program de
3e80: 63 6c 61 72 61 74 69 6f 6e 0a 23 2d 2d 2d 2d 2d  claration.#-----
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 2d 2d  ----------------
3ed0: 2d 2d 2d 2d 2d 0a 0a 70 72 6f 63 20 72 75 6e 5f  -----..proc run_
3ee0: 74 65 73 74 20 7b 61 72 67 6c 69 73 74 20 69 52  test {arglist iR
3ef0: 65 70 65 61 74 20 7b 70 63 73 74 61 72 74 20 30  epeat {pcstart 0
3f00: 7d 20 7b 69 46 61 69 6c 53 74 61 72 74 20 31 7d  } {iFailStart 1}
3f10: 7d 20 7b 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e 67  } {.  if {[lleng
3f20: 74 68 20 24 61 72 67 6c 69 73 74 5d 20 25 32 7d  th $arglist] %2}
3f30: 20 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 55 6e   {.    error "Un
3f40: 65 76 65 6e 20 6e 75 6d 62 65 72 20 6f 66 20 61  even number of a
3f50: 72 67 75 6d 65 6e 74 73 20 74 6f 20 54 45 53 54  rguments to TEST
3f60: 22 0a 20 20 7d 0a 0a 20 20 66 6f 72 20 7b 73 65  ".  }..  for {se
3f70: 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 24 70 63  t i 0} {$i < $pc
3f80: 73 74 61 72 74 7d 20 7b 69 6e 63 72 20 69 7d 20  start} {incr i} 
3f90: 7b 0a 20 20 20 20 73 65 74 20 6b 32 20 5b 6c 69  {.    set k2 [li
3fa0: 6e 64 65 78 20 24 61 72 67 6c 69 73 74 20 5b 65  ndex $arglist [e
3fb0: 78 70 72 20 32 20 2a 20 24 69 5d 5d 0a 20 20 20  xpr 2 * $i]].   
3fc0: 20 73 65 74 20 76 32 20 5b 6c 69 6e 64 65 78 20   set v2 [lindex 
3fd0: 24 61 72 67 6c 69 73 74 20 5b 65 78 70 72 20 32  $arglist [expr 2
3fe0: 20 2a 20 24 69 20 2b 20 31 5d 5d 0a 20 20 20 20   * $i + 1]].    
3ff0: 73 65 74 20 61 63 20 5b 73 71 6c 69 74 65 33 5f  set ac [sqlite3_
4000: 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69 74 20 24  get_autocommit $
4010: 3a 3a 44 42 5d 20 20 20 20 20 20 20 20 3b 23 20  ::DB]        ;# 
4020: 41 75 74 6f 2d 43 6f 6d 6d 69 74 0a 20 20 20 20  Auto-Commit.    
4030: 73 77 69 74 63 68 20 2d 2d 20 24 6b 32 20 7b 0a  switch -- $k2 {.
4040: 20 20 20 20 20 20 2d 73 71 6c 20 20 7b 64 62 20        -sql  {db 
4050: 65 76 61 6c 20 5b 6c 69 6e 64 65 78 20 24 76 32  eval [lindex $v2
4060: 20 31 5d 7d 0a 20 20 20 20 20 20 2d 70 72 65 70   1]}.      -prep
4070: 20 7b 64 62 20 65 76 61 6c 20 24 76 32 7d 0a 20   {db eval $v2}. 
4080: 20 20 20 7d 0a 20 20 20 20 73 65 74 20 6e 61 63     }.    set nac
4090: 20 5b 73 71 6c 69 74 65 33 5f 67 65 74 5f 61 75   [sqlite3_get_au
40a0: 74 6f 63 6f 6d 6d 69 74 20 24 3a 3a 44 42 5d 20  tocommit $::DB] 
40b0: 20 20 20 20 20 20 3b 23 20 4e 65 77 20 41 75 74        ;# New Aut
40c0: 6f 2d 43 6f 6d 6d 69 74 20 0a 20 20 20 20 69 66  o-Commit .    if
40d0: 20 7b 24 61 63 20 26 26 20 21 24 6e 61 63 7d 20   {$ac && !$nac} 
40e0: 7b 73 65 74 20 62 65 67 69 6e 5f 70 63 20 24 69  {set begin_pc $i
40f0: 7d 0a 20 20 7d 0a 0a 20 20 64 62 20 72 6f 6c 6c  }.  }..  db roll
4100: 62 61 63 6b 5f 68 6f 6f 6b 20 5b 6c 69 73 74 20  back_hook [list 
4110: 69 6e 63 72 20 3a 3a 72 6f 6c 6c 62 61 63 6b 5f  incr ::rollback_
4120: 68 6f 6f 6b 5f 63 6f 75 6e 74 5d 0a 0a 20 20 73  hook_count]..  s
4130: 65 74 20 69 46 61 69 6c 20 24 69 46 61 69 6c 53  et iFail $iFailS
4140: 74 61 72 74 0a 20 20 73 65 74 20 70 63 20 24 70  tart.  set pc $p
4150: 63 73 74 61 72 74 0a 20 20 77 68 69 6c 65 20 7b  cstart.  while {
4160: 24 70 63 2a 32 20 3c 20 5b 6c 6c 65 6e 67 74 68  $pc*2 < [llength
4170: 20 24 61 72 67 6c 69 73 74 5d 7d 20 7b 0a 0a 20   $arglist]} {.. 
4180: 20 20 20 23 20 49 64 20 6f 66 20 74 68 69 73 20     # Id of this 
4190: 69 74 65 72 61 74 69 6f 6e 3a 0a 20 20 20 20 73  iteration:.    s
41a0: 65 74 20 6b 20 5b 6c 69 6e 64 65 78 20 24 61 72  et k [lindex $ar
41b0: 67 6c 69 73 74 20 5b 65 78 70 72 20 32 20 2a 20  glist [expr 2 * 
41c0: 24 70 63 5d 5d 0a 20 20 20 20 73 65 74 20 69 74  $pc]].    set it
41d0: 65 72 69 64 20 22 70 63 3d 24 70 63 2e 69 46 61  erid "pc=$pc.iFa
41e0: 69 6c 3d 24 69 46 61 69 6c 24 6b 22 0a 20 20 20  il=$iFail$k".   
41f0: 20 73 65 74 20 76 20 5b 6c 69 6e 64 65 78 20 24   set v [lindex $
4200: 61 72 67 6c 69 73 74 20 5b 65 78 70 72 20 32 20  arglist [expr 2 
4210: 2a 20 24 70 63 20 2b 20 31 5d 5d 0a 0a 20 20 20  * $pc + 1]]..   
4220: 20 73 77 69 74 63 68 20 2d 2d 20 24 6b 20 7b 0a   switch -- $k {.
4230: 0a 20 20 20 20 20 20 2d 74 65 73 74 20 7b 20 0a  .      -test { .
4240: 20 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20          foreach 
4250: 7b 69 64 20 73 63 72 69 70 74 7d 20 24 76 20 7b  {id script} $v {
4260: 7d 0a 20 20 20 20 20 20 20 20 69 6e 63 72 20 70  }.        incr p
4270: 63 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20  c.      }..     
4280: 20 2d 73 71 6c 20 7b 0a 20 20 20 20 20 20 20 20   -sql {.        
4290: 73 65 74 20 3a 3a 72 6f 6c 6c 62 61 63 6b 5f 68  set ::rollback_h
42a0: 6f 6f 6b 5f 63 6f 75 6e 74 20 30 0a 0a 20 20 20  ook_count 0..   
42b0: 20 20 20 20 20 73 65 74 20 61 63 20 5b 73 71 6c       set ac [sql
42c0: 69 74 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d  ite3_get_autocom
42d0: 6d 69 74 20 24 3a 3a 44 42 5d 20 20 20 20 20 20  mit $::DB]      
42e0: 20 20 3b 23 20 41 75 74 6f 2d 43 6f 6d 6d 69 74    ;# Auto-Commit
42f0: 0a 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33  .        sqlite3
4300: 5f 6d 65 6d 64 65 62 75 67 5f 66 61 69 6c 20 24  _memdebug_fail $
4310: 69 46 61 69 6c 20 2d 72 65 70 65 61 74 20 30 0a  iFail -repeat 0.
4320: 20 20 20 20 20 20 20 20 73 65 74 20 72 63 20 5b          set rc [
4330: 63 61 74 63 68 20 7b 64 62 20 65 76 61 6c 20 5b  catch {db eval [
4340: 6c 69 6e 64 65 78 20 24 76 20 31 5d 7d 20 6d 73  lindex $v 1]} ms
4350: 67 5d 20 20 20 3b 23 20 54 72 75 65 20 65 72 72  g]   ;# True err
4360: 6f 72 20 6f 63 63 75 72 73 0a 20 20 20 20 20 20  or occurs.      
4370: 20 20 73 65 74 20 6e 61 63 20 5b 73 71 6c 69 74    set nac [sqlit
4380: 65 33 5f 67 65 74 5f 61 75 74 6f 63 6f 6d 6d 69  e3_get_autocommi
4390: 74 20 24 3a 3a 44 42 5d 20 20 20 20 20 20 20 3b  t $::DB]       ;
43a0: 23 20 4e 65 77 20 41 75 74 6f 2d 43 6f 6d 6d 69  # New Auto-Commi
43b0: 74 20 0a 0a 20 20 20 20 20 20 20 20 69 66 20 7b  t ..        if {
43c0: 24 72 63 20 21 3d 20 30 20 26 26 20 24 6e 61 63  $rc != 0 && $nac
43d0: 20 26 26 20 21 24 61 63 7d 20 7b 0a 20 20 20 20   && !$ac} {.    
43e0: 20 20 20 20 20 20 23 20 42 65 66 6f 72 65 20 5b        # Before [
43f0: 64 62 20 65 76 61 6c 5d 20 74 68 65 20 61 75 74  db eval] the aut
4400: 6f 2d 63 6f 6d 6d 69 74 20 66 6c 61 67 20 77 61  o-commit flag wa
4410: 73 20 63 6c 65 61 72 2e 20 4e 6f 77 20 69 74 0a  s clear. Now it.
4420: 20 20 20 20 20 20 20 20 20 20 23 20 69 73 20 73            # is s
4430: 65 74 2e 20 53 69 6e 63 65 20 61 6e 20 65 72 72  et. Since an err
4440: 6f 72 20 6f 63 63 75 72 65 64 20 77 65 20 61 73  or occured we as
4450: 73 75 6d 65 20 74 68 69 73 20 77 61 73 20 6e 6f  sume this was no
4460: 74 20 61 0a 20 20 20 20 20 20 20 20 20 20 23 20  t a.          # 
4470: 63 6f 6d 6d 69 74 20 2d 20 74 68 65 72 65 66 6f  commit - therefo
4480: 72 65 20 61 20 72 6f 6c 6c 62 61 63 6b 20 6f 63  re a rollback oc
4490: 63 75 72 65 64 2e 20 43 68 65 63 6b 20 74 68 61  cured. Check tha
44a0: 74 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20  t the.          
44b0: 23 20 72 6f 6c 6c 62 61 63 6b 2d 68 6f 6f 6b 20  # rollback-hook 
44c0: 77 61 73 20 69 6e 76 6f 6b 65 64 2e 0a 20 20 20  was invoked..   
44d0: 20 20 20 20 20 20 20 64 6f 5f 74 65 73 74 20 6d         do_test m
44e0: 61 6c 6c 6f 63 33 2d 72 6f 6c 6c 62 61 63 6b 5f  alloc3-rollback_
44f0: 68 6f 6f 6b 2e 24 69 74 65 72 69 64 20 7b 0a 20  hook.$iterid {. 
4500: 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20 3a             set :
4510: 3a 72 6f 6c 6c 62 61 63 6b 5f 68 6f 6f 6b 5f 63  :rollback_hook_c
4520: 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 20 20 7d  ount.          }
4530: 20 7b 31 7d 0a 20 20 20 20 20 20 20 20 7d 0a 0a   {1}.        }..
4540: 20 20 20 20 20 20 20 20 73 65 74 20 6e 46 61 69          set nFai
4550: 6c 20 5b 73 71 6c 69 74 65 33 5f 6d 65 6d 64 65  l [sqlite3_memde
4560: 62 75 67 5f 66 61 69 6c 20 2d 31 20 2d 62 65 6e  bug_fail -1 -ben
4570: 69 67 6e 63 6e 74 20 6e 42 65 6e 69 67 6e 5d 0a  igncnt nBenign].
4580: 20 20 20 20 20 20 20 20 69 66 20 7b 24 72 63 20          if {$rc 
4590: 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 20 20 20 20  == 0} {.        
45a0: 20 20 20 20 23 20 53 75 63 63 65 73 73 66 75 6c      # Successful
45b0: 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 73 71   execution of sq
45c0: 6c 2e 20 54 68 65 20 6e 75 6d 62 65 72 20 6f 66  l. The number of
45d0: 20 66 61 69 6c 65 64 20 6d 61 6c 6c 6f 63 28 29   failed malloc()
45e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 63  .            # c
45f0: 61 6c 6c 73 20 73 68 6f 75 6c 64 20 62 65 20 65  alls should be e
4600: 71 75 61 6c 20 74 6f 20 74 68 65 20 6e 75 6d 62  qual to the numb
4610: 65 72 20 6f 66 20 62 65 6e 69 67 6e 20 66 61 69  er of benign fai
4620: 6c 75 72 65 73 2e 0a 20 20 20 20 20 20 20 20 20  lures..         
4630: 20 20 20 23 20 4f 74 68 65 72 77 69 73 65 20 61     # Otherwise a
4640: 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69 6c 65 64   malloc() failed
4650: 20 61 6e 64 20 74 68 65 20 65 72 72 6f 72 20 77   and the error w
4660: 61 73 20 6e 6f 74 20 72 65 70 6f 72 74 65 64 2e  as not reported.
4670: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 0a  .            # .
4680: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b              if {
4690: 24 6e 46 61 69 6c 21 3d 24 6e 42 65 6e 69 67 6e  $nFail!=$nBenign
46a0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  } {.            
46b0: 20 20 65 72 72 6f 72 20 22 55 6e 72 65 70 6f 72    error "Unrepor
46c0: 74 65 64 20 6d 61 6c 6c 6f 63 28 29 20 66 61 69  ted malloc() fai
46d0: 6c 75 72 65 22 0a 20 20 20 20 20 20 20 20 20 20  lure".          
46e0: 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
46f0: 20 69 66 20 7b 24 61 63 20 26 26 20 21 24 6e 61   if {$ac && !$na
4700: 63 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  c} {.           
4710: 20 20 20 23 20 42 65 66 6f 72 65 20 74 68 65 20     # Before the 
4720: 5b 64 62 20 65 76 61 6c 5d 20 74 68 65 20 61 75  [db eval] the au
4730: 74 6f 2d 63 6f 6d 6d 69 74 20 66 6c 61 67 20 77  to-commit flag w
4740: 61 73 20 73 65 74 2c 20 6e 6f 77 20 69 74 0a 20  as set, now it. 
4750: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 20 69               # i
4760: 73 20 63 6c 65 61 72 2e 20 57 65 20 63 61 6e 20  s clear. We can 
4770: 64 65 64 75 63 65 20 74 68 61 74 20 61 20 22 42  deduce that a "B
4780: 45 47 49 4e 22 20 73 74 61 74 65 6d 65 6e 74 20  EGIN" statement 
4790: 68 61 73 20 6a 75 73 74 0a 20 20 20 20 20 20 20  has just.       
47a0: 20 20 20 20 20 20 20 23 20 62 65 65 6e 20 73 75         # been su
47b0: 63 63 65 73 73 66 75 6c 6c 79 20 65 78 65 63 75  ccessfully execu
47c0: 74 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20  ted..           
47d0: 20 20 20 73 65 74 20 62 65 67 69 6e 5f 70 63 20     set begin_pc 
47e0: 24 70 63 0a 20 20 20 20 20 20 20 20 20 20 20 20  $pc.            
47f0: 7d 20 0a 0a 20 20 20 20 20 20 20 20 20 20 20 20  } ..            
4800: 69 6e 63 72 20 70 63 0a 20 20 20 20 20 20 20 20  incr pc.        
4810: 20 20 20 20 73 65 74 20 69 46 61 69 6c 20 31 0a      set iFail 1.
4820: 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65              inte
4830: 67 72 69 74 79 5f 63 68 65 63 6b 20 22 6d 61 6c  grity_check "mal
4840: 6c 6f 63 33 2d 28 69 6e 74 65 67 72 69 74 79 29  loc3-(integrity)
4850: 2e 24 69 74 65 72 69 64 22 0a 20 20 20 20 20 20  .$iterid".      
4860: 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 72 65 67    } elseif {[reg
4870: 65 78 70 20 7b 2e 2a 6f 75 74 20 6f 66 20 6d 65  exp {.*out of me
4880: 6d 6f 72 79 7d 20 24 6d 73 67 5d 20 7c 7c 20 5b  mory} $msg] || [
4890: 64 62 20 65 72 72 6f 72 63 6f 64 65 5d 20 3d 3d  db errorcode] ==
48a0: 20 33 30 38 32 7d 20 7b 0a 20 20 20 20 20 20 20   3082} {.       
48b0: 20 20 20 20 20 23 20 4f 75 74 20 6f 66 20 6d 65       # Out of me
48c0: 6d 6f 72 79 20 65 72 72 6f 72 2c 20 61 73 20 65  mory error, as e
48d0: 78 70 65 63 74 65 64 2e 0a 20 20 20 20 20 20 20  xpected..       
48e0: 20 20 20 20 20 23 0a 20 20 20 20 20 20 20 20 20       #.         
48f0: 20 20 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65     integrity_che
4900: 63 6b 20 22 6d 61 6c 6c 6f 63 33 2d 28 69 6e 74  ck "malloc3-(int
4910: 65 67 72 69 74 79 29 2e 24 69 74 65 72 69 64 22  egrity).$iterid"
4920: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 63  .            inc
4930: 72 20 69 46 61 69 6c 0a 20 20 20 20 20 20 20 20  r iFail.        
4940: 20 20 20 20 69 66 20 7b 24 6e 61 63 20 26 26 20      if {$nac && 
4950: 21 24 61 63 7d 20 7b 0a 0a 20 20 20 20 20 20 20  !$ac} {..       
4960: 20 20 20 20 20 20 20 69 66 20 7b 21 5b 6c 69 6e         if {![lin
4970: 64 65 78 20 24 76 20 30 5d 20 26 26 20 5b 64 62  dex $v 0] && [db
4980: 20 65 72 72 6f 72 63 6f 64 65 5d 20 21 3d 20 33   errorcode] != 3
4990: 30 38 32 7d 20 7b 0a 20 20 20 20 20 20 20 20 20  082} {.         
49a0: 20 20 20 20 20 20 20 23 20 65 72 72 6f 72 20 22         # error "
49b0: 53 74 61 74 65 6d 65 6e 74 20 5c 22 5b 6c 69 6e  Statement \"[lin
49c0: 64 65 78 20 24 76 20 31 5d 5c 22 20 63 61 75 73  dex $v 1]\" caus
49d0: 65 64 20 61 20 72 6f 6c 6c 62 61 63 6b 22 0a 20  ed a rollback". 
49e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 0a               }..
49f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f                fo
4a00: 72 20 7b 73 65 74 20 69 20 24 62 65 67 69 6e 5f  r {set i $begin_
4a10: 70 63 7d 20 7b 24 69 20 3c 20 24 70 63 7d 20 7b  pc} {$i < $pc} {
4a20: 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 20 20  incr i} {.      
4a30: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 6b 32            set k2
4a40: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 6c 69 73   [lindex $arglis
4a50: 74 20 5b 65 78 70 72 20 32 20 2a 20 24 69 5d 5d  t [expr 2 * $i]]
4a60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
4a70: 20 73 65 74 20 76 32 20 5b 6c 69 6e 64 65 78 20   set v2 [lindex 
4a80: 24 61 72 67 6c 69 73 74 20 5b 65 78 70 72 20 32  $arglist [expr 2
4a90: 20 2a 20 24 69 20 2b 20 31 5d 5d 0a 20 20 20 20   * $i + 1]].    
4aa0: 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74 20              set 
4ab0: 63 61 74 63 68 75 70 73 71 6c 20 22 22 0a 20 20  catchupsql "".  
4ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 77                sw
4ad0: 69 74 63 68 20 2d 2d 20 24 6b 32 20 7b 0a 20 20  itch -- $k2 {.  
4ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4af0: 2d 73 71 6c 20 20 7b 73 65 74 20 63 61 74 63 68  -sql  {set catch
4b00: 75 70 73 71 6c 20 5b 6c 69 6e 64 65 78 20 24 76  upsql [lindex $v
4b10: 32 20 31 5d 7d 0a 20 20 20 20 20 20 20 20 20 20  2 1]}.          
4b20: 20 20 20 20 20 20 20 20 2d 70 72 65 70 20 7b 73          -prep {s
4b30: 65 74 20 63 61 74 63 68 75 70 73 71 6c 20 24 76  et catchupsql $v
4b40: 32 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  2}.             
4b50: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20     }.           
4b60: 20 20 20 20 20 64 62 20 65 76 61 6c 20 24 63 61       db eval $ca
4b70: 74 63 68 75 70 73 71 6c 0a 20 20 20 20 20 20 20  tchupsql.       
4b80: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
4b90: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 7d       }.        }
4ba0: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20   else {.        
4bb0: 20 20 20 20 65 72 72 6f 72 20 24 6d 73 67 0a 20      error $msg. 
4bc0: 20 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20         }..      
4bd0: 20 20 77 68 69 6c 65 20 7b 5b 6c 69 6e 64 65 78    while {[lindex
4be0: 20 24 61 72 67 6c 69 73 74 20 5b 65 78 70 72 20   $arglist [expr 
4bf0: 32 20 2a 20 28 24 70 63 20 2d 31 29 5d 5d 20 3d  2 * ($pc -1)]] =
4c00: 3d 20 22 2d 74 65 73 74 22 7d 20 7b 0a 20 20 20  = "-test"} {.   
4c10: 20 20 20 20 20 20 20 69 6e 63 72 20 70 63 20 2d         incr pc -
4c20: 31 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  1.        }.    
4c30: 20 20 7d 0a 0a 20 20 20 20 20 20 2d 70 72 65 70    }..      -prep
4c40: 20 7b 0a 20 20 20 20 20 20 20 20 64 62 20 65 76   {.        db ev
4c50: 61 6c 20 24 76 0a 20 20 20 20 20 20 20 20 69 6e  al $v.        in
4c60: 63 72 20 70 63 0a 20 20 20 20 20 20 7d 0a 0a 20  cr pc.      }.. 
4c70: 20 20 20 20 20 2d 64 65 62 75 67 20 7b 0a 20 20       -debug {.  
4c80: 20 20 20 20 20 20 65 76 61 6c 20 24 76 0a 20 20        eval $v.  
4c90: 20 20 20 20 20 20 69 6e 63 72 20 70 63 0a 20 20        incr pc.  
4ca0: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 64 65 66      }..      def
4cb0: 61 75 6c 74 20 7b 20 65 72 72 6f 72 20 22 55 6e  ault { error "Un
4cc0: 6b 6e 6f 77 6e 20 73 77 69 74 63 68 3a 20 24 6b  known switch: $k
4cd0: 22 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a  " }.    }.  }.}.
4ce0: 0a 23 20 54 75 72 6e 20 6f 66 20 74 68 65 20 54  .# Turn of the T
4cf0: 63 6c 20 69 6e 74 65 72 66 61 63 65 27 73 20 70  cl interface's p
4d00: 72 65 70 61 72 65 64 20 73 74 61 74 65 6d 65 6e  repared statemen
4d10: 74 20 63 61 63 68 69 6e 67 20 66 61 63 69 6c 69  t caching facili
4d20: 74 79 2e 20 54 68 65 6e 0a 23 20 72 75 6e 20 74  ty. Then.# run t
4d30: 68 65 20 74 65 73 74 73 20 77 69 74 68 20 22 70  he tests with "p
4d40: 65 72 73 69 73 74 65 6e 74 22 20 6d 61 6c 6c 6f  ersistent" mallo
4d50: 63 20 66 61 69 6c 75 72 65 73 2e 0a 73 71 6c 69  c failures..sqli
4d60: 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73  te3_extended_res
4d70: 75 6c 74 5f 63 6f 64 65 73 20 64 62 20 31 0a 64  ult_codes db 1.d
4d80: 62 20 63 61 63 68 65 20 73 69 7a 65 20 30 0a 72  b cache size 0.r
4d90: 75 6e 5f 74 65 73 74 20 24 3a 3a 72 75 6e 5f 74  un_test $::run_t
4da0: 65 73 74 5f 73 63 72 69 70 74 20 31 0a 0a 23 20  est_script 1..# 
4db0: 43 6c 6f 73 65 20 61 6e 64 20 72 65 6f 70 65 6e  Close and reopen
4dc0: 20 74 68 65 20 64 62 2e 0a 64 62 20 63 6c 6f 73   the db..db clos
4dd0: 65 0a 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66  e.file delete -f
4de0: 6f 72 63 65 20 74 65 73 74 2e 64 62 20 74 65 73  orce test.db tes
4df0: 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 20 74 65 73  t.db-journal tes
4e00: 74 32 2e 64 62 20 74 65 73 74 32 2e 64 62 2d 6a  t2.db test2.db-j
4e10: 6f 75 72 6e 61 6c 0a 73 71 6c 69 74 65 33 20 64  ournal.sqlite3 d
4e20: 62 20 74 65 73 74 2e 64 62 0a 73 71 6c 69 74 65  b test.db.sqlite
4e30: 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73 75 6c  3_extended_resul
4e40: 74 5f 63 6f 64 65 73 20 64 62 20 31 0a 73 65 74  t_codes db 1.set
4e50: 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 33 5f 63   ::DB [sqlite3_c
4e60: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
4e70: 72 20 64 62 5d 0a 0a 23 20 54 75 72 6e 20 6f 66  r db]..# Turn of
4e80: 20 74 68 65 20 54 63 6c 20 69 6e 74 65 72 66 61   the Tcl interfa
4e90: 63 65 27 73 20 70 72 65 70 61 72 65 64 20 73 74  ce's prepared st
4ea0: 61 74 65 6d 65 6e 74 20 63 61 63 68 69 6e 67 20  atement caching 
4eb0: 66 61 63 69 6c 69 74 79 20 69 6e 0a 23 20 74 68  facility in.# th
4ec0: 65 20 6e 65 77 20 63 6f 6e 6e 6e 65 63 74 69 6f  e new connnectio
4ed0: 6e 2e 20 54 68 65 6e 20 72 75 6e 20 74 68 65 20  n. Then run the 
4ee0: 74 65 73 74 73 20 77 69 74 68 20 22 74 72 61 6e  tests with "tran
4ef0: 73 69 65 6e 74 22 20 6d 61 6c 6c 6f 63 20 66 61  sient" malloc fa
4f00: 69 6c 75 72 65 73 2e 0a 64 62 20 63 61 63 68 65  ilures..db cache
4f10: 20 73 69 7a 65 20 30 0a 72 75 6e 5f 74 65 73 74   size 0.run_test
4f20: 20 24 3a 3a 72 75 6e 5f 74 65 73 74 5f 73 63 72   $::run_test_scr
4f30: 69 70 74 20 30 0a 0a 73 71 6c 69 74 65 33 5f 6d  ipt 0..sqlite3_m
4f40: 65 6d 64 65 62 75 67 5f 66 61 69 6c 20 2d 31 0a  emdebug_fail -1.
4f50: 66 69 6e 69 73 68 5f 74 65 73 74 0a              finish_test.