/ Hex Artifact Content
Login

Artifact c13f5a12fbd9d81e58f49875dc9dd8a52a84cf03:


0000: 23 20 32 30 31 30 20 41 70 72 69 6c 20 31 33 0a  # 2010 April 13.
0010: 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20 64  #.# The author d
0020: 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67  isclaims copyrig
0030: 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63  ht to this sourc
0040: 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63  e code.  In plac
0050: 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e  e of.# a legal n
0060: 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73 20 61  otice, here is a
0070: 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20   blessing:.#.#  
0080: 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f    May you do goo
0090: 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a  d and not evil..
00a0: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e  #    May you fin
00b0: 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f  d forgiveness fo
00c0: 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66  r yourself and f
00d0: 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23  orgive others..#
00e0: 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72      May you shar
00f0: 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20  e freely, never 
0100: 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e  taking more than
0110: 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a   you give..#.#**
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73 20 66 69 6c  *****.# This fil
0170: 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67  e implements reg
0180: 72 65 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f  ression tests fo
0190: 72 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79  r SQLite library
01a0: 2e 20 20 54 68 65 0a 23 20 66 6f 63 75 73 20 6f  .  The.# focus o
01b0: 66 20 74 68 69 73 20 66 69 6c 65 20 69 73 20 74  f this file is t
01c0: 65 73 74 69 6e 67 20 74 68 65 20 6f 70 65 72 61  esting the opera
01d0: 74 69 6f 6e 20 6f 66 20 74 68 65 20 6c 69 62 72  tion of the libr
01e0: 61 72 79 20 69 6e 0a 23 20 22 50 52 41 47 4d 41  ary in.# "PRAGMA
01f0: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 3d 57 41   journal_mode=WA
0200: 4c 22 20 6d 6f 64 65 20 77 69 74 68 20 6d 75 6c  L" mode with mul
0210: 74 69 70 6c 65 20 74 68 72 65 61 64 73 2e 0a 23  tiple threads..#
0220: 0a 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b 66  ..set testdir [f
0230: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67  ile dirname $arg
0240: 76 30 5d 0a 0a 73 6f 75 72 63 65 20 24 74 65 73  v0]..source $tes
0250: 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a  tdir/tester.tcl.
0260: 73 6f 75 72 63 65 20 24 74 65 73 74 64 69 72 2f  source $testdir/
0270: 6c 6f 63 6b 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a  lock_common.tcl.
0280: 69 66 20 7b 5b 72 75 6e 5f 74 68 72 65 61 64 5f  if {[run_thread_
0290: 74 65 73 74 73 5d 3d 3d 30 7d 20 7b 20 66 69 6e  tests]==0} { fin
02a0: 69 73 68 5f 74 65 73 74 20 3b 20 72 65 74 75 72  ish_test ; retur
02b0: 6e 20 7d 0a 69 66 63 61 70 61 62 6c 65 20 21 77  n }.ifcapable !w
02c0: 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 7b  al             {
02d0: 20 66 69 6e 69 73 68 5f 74 65 73 74 20 3b 20 72   finish_test ; r
02e0: 65 74 75 72 6e 20 7d 0a 69 66 20 21 5b 77 61 6c  eturn }.if ![wal
02f0: 5f 69 73 5f 6f 6b 5d 20 7b 20 66 69 6e 69 73 68  _is_ok] { finish
0300: 5f 74 65 73 74 3b 20 72 65 74 75 72 6e 20 7d 0a  _test; return }.
0310: 0a 73 65 74 20 73 71 6c 69 74 65 5f 77 61 6c 73  .set sqlite_wals
0320: 75 6d 6d 61 72 79 5f 6d 6d 61 70 5f 69 6e 63 72  ummary_mmap_incr
0330: 20 36 34 0a 0a 23 20 48 6f 77 20 6c 6f 6e 67 2c   64..# How long,
0340: 20 69 6e 20 73 65 63 6f 6e 64 73 2c 20 74 6f 20   in seconds, to 
0350: 72 75 6e 20 65 61 63 68 20 74 65 73 74 20 66 6f  run each test fo
0360: 72 2e 20 49 66 20 61 20 74 65 73 74 20 69 73 20  r. If a test is 
0370: 73 65 74 20 74 6f 20 72 75 6e 20 66 6f 72 0a 23  set to run for.#
0380: 20 30 20 73 65 63 6f 6e 64 73 2c 20 69 74 20 69   0 seconds, it i
0390: 73 20 6f 6d 69 74 74 65 64 20 65 6e 74 69 72 65  s omitted entire
03a0: 6c 79 2e 0a 23 0a 75 6e 73 65 74 20 2d 6e 6f 63  ly..#.unset -noc
03b0: 6f 6d 70 6c 61 69 6e 20 73 65 63 6f 6e 64 73 0a  omplain seconds.
03c0: 73 65 74 20 73 65 63 6f 6e 64 73 28 77 61 6c 74  set seconds(walt
03d0: 68 72 65 61 64 2d 31 29 20 32 30 0a 73 65 74 20  hread-1) 20.set 
03e0: 73 65 63 6f 6e 64 73 28 77 61 6c 74 68 72 65 61  seconds(walthrea
03f0: 64 2d 32 29 20 32 30 0a 73 65 74 20 73 65 63 6f  d-2) 20.set seco
0400: 6e 64 73 28 77 61 6c 74 68 72 65 61 64 2d 33 29  nds(walthread-3)
0410: 20 32 30 0a 73 65 74 20 73 65 63 6f 6e 64 73 28   20.set seconds(
0420: 77 61 6c 74 68 72 65 61 64 2d 34 29 20 32 30 0a  walthread-4) 20.
0430: 73 65 74 20 73 65 63 6f 6e 64 73 28 77 61 6c 74  set seconds(walt
0440: 68 72 65 61 64 2d 35 29 20 31 0a 0a 23 20 54 68  hread-5) 1..# Th
0450: 65 20 70 61 72 61 6d 65 74 65 72 20 69 73 20 74  e parameter is t
0460: 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 76 61 72  he name of a var
0470: 69 61 62 6c 65 20 69 6e 20 74 68 65 20 63 61 6c  iable in the cal
0480: 6c 65 72 73 20 63 6f 6e 74 65 78 74 2e 20 54 68  lers context. Th
0490: 65 0a 23 20 76 61 72 69 61 62 6c 65 20 6d 61 79  e.# variable may
04a0: 20 6f 72 20 6d 61 79 20 6e 6f 74 20 65 78 69 73   or may not exis
04b0: 74 20 77 68 65 6e 20 74 68 69 73 20 63 6f 6d 6d  t when this comm
04c0: 61 6e 64 20 69 73 20 69 6e 76 6f 6b 65 64 2e 0a  and is invoked..
04d0: 23 0a 23 20 49 66 20 74 68 65 20 76 61 72 69 61  #.# If the varia
04e0: 62 6c 65 20 64 6f 65 73 20 65 78 69 73 74 2c 20  ble does exist, 
04f0: 69 74 73 20 76 61 6c 75 65 20 69 73 20 72 65 74  its value is ret
0500: 75 72 6e 65 64 2e 20 4f 74 68 65 72 77 69 73 65  urned. Otherwise
0510: 2c 20 74 68 69 73 0a 23 20 63 6f 6d 6d 61 6e 64  , this.# command
0520: 20 75 73 65 73 20 5b 76 77 61 69 74 5d 20 74 6f   uses [vwait] to
0530: 20 77 61 69 74 20 75 6e 74 69 6c 20 69 74 20 69   wait until it i
0540: 73 20 73 65 74 2c 20 74 68 65 6e 20 72 65 74 75  s set, then retu
0550: 72 6e 73 20 74 68 65 20 76 61 6c 75 65 2e 0a 23  rns the value..#
0560: 20 49 6e 20 6f 74 68 65 72 20 77 6f 72 64 73 2c   In other words,
0570: 20 74 68 69 73 20 69 73 20 61 20 76 65 72 73 69   this is a versi
0580: 6f 6e 20 6f 66 20 74 68 65 20 5b 73 65 74 20 56  on of the [set V
0590: 41 52 4e 41 4d 45 5d 20 63 6f 6d 6d 61 6e 64 20  ARNAME] command 
05a0: 74 68 61 74 0a 23 20 62 6c 6f 63 6b 73 20 75 6e  that.# blocks un
05b0: 74 69 6c 20 61 20 76 61 72 69 61 62 6c 65 20 65  til a variable e
05c0: 78 69 73 74 73 2e 0a 23 0a 70 72 6f 63 20 77 61  xists..#.proc wa
05d0: 69 74 5f 66 6f 72 5f 76 61 72 20 7b 76 61 72 6e  it_for_var {varn
05e0: 61 6d 65 7d 20 7b 0a 20 20 69 66 20 7b 30 3d 3d  ame} {.  if {0==
05f0: 5b 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 69  [uplevel [list i
0600: 6e 66 6f 20 65 78 69 73 74 73 20 24 76 61 72 6e  nfo exists $varn
0610: 61 6d 65 5d 5d 7d 20 7b 0a 20 20 20 20 75 70 6c  ame]]} {.    upl
0620: 65 76 65 6c 20 5b 6c 69 73 74 20 76 77 61 69 74  evel [list vwait
0630: 20 24 76 61 72 6e 61 6d 65 5d 0a 20 20 7d 0a 20   $varname].  }. 
0640: 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 73   uplevel [list s
0650: 65 74 20 24 76 61 72 6e 61 6d 65 5d 0a 7d 0a 0a  et $varname].}..
0660: 23 20 54 68 65 20 61 72 67 75 6d 65 6e 74 20 69  # The argument i
0670: 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20  s the name of a 
0680: 6c 69 73 74 20 76 61 72 69 61 62 6c 65 20 69 6e  list variable in
0690: 20 74 68 65 20 63 61 6c 6c 65 72 73 20 63 6f 6e   the callers con
06a0: 74 65 78 74 2e 20 54 68 65 20 0a 23 20 66 69 72  text. The .# fir
06b0: 73 74 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68  st element of th
06c0: 65 20 6c 69 73 74 20 69 73 20 72 65 6d 6f 76 65  e list is remove
06d0: 64 20 61 6e 64 20 72 65 74 75 72 6e 65 64 2e 20  d and returned. 
06e0: 46 6f 72 20 65 78 61 6d 70 6c 65 3a 0a 23 0a 23  For example:.#.#
06f0: 20 20 20 73 65 74 20 4c 20 7b 61 20 62 20 63 7d     set L {a b c}
0700: 0a 23 20 20 20 73 65 74 20 78 20 5b 6c 73 68 69  .#   set x [lshi
0710: 66 74 20 4c 5d 0a 23 20 20 20 61 73 73 65 72 74  ft L].#   assert
0720: 20 7b 20 24 78 20 3d 3d 20 22 61 22 20 26 26 20   { $x == "a" && 
0730: 24 4c 20 3d 3d 20 22 62 20 63 22 20 7d 0a 23 0a  $L == "b c" }.#.
0740: 70 72 6f 63 20 6c 73 68 69 66 74 20 7b 6c 76 61  proc lshift {lva
0750: 72 7d 20 7b 0a 20 20 75 70 76 61 72 20 24 6c 76  r} {.  upvar $lv
0760: 61 72 20 4c 0a 20 20 73 65 74 20 72 65 74 20 5b  ar L.  set ret [
0770: 6c 69 6e 64 65 78 20 24 4c 20 30 5d 0a 20 20 73  lindex $L 0].  s
0780: 65 74 20 4c 20 5b 6c 72 61 6e 67 65 20 24 4c 20  et L [lrange $L 
0790: 31 20 65 6e 64 5d 0a 20 20 72 65 74 75 72 6e 20  1 end].  return 
07a0: 24 72 65 74 0a 7d 0a 0a 0a 23 2d 2d 2d 2d 2d 2d  $ret.}...#------
07b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
07c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
07d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
07e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
07f0: 2d 2d 2d 0a 23 20 20 20 64 6f 5f 74 68 72 65 61  ---.#   do_threa
0800: 64 5f 74 65 73 74 20 54 45 53 54 4e 41 4d 45 20  d_test TESTNAME 
0810: 4f 50 54 49 4f 4e 53 2e 2e 2e 0a 23 20 0a 23 20  OPTIONS....# .# 
0820: 77 68 65 72 65 20 4f 50 54 49 4f 4e 53 20 61 72  where OPTIONS ar
0830: 65 3a 20 0a 23 0a 23 20 20 20 2d 73 65 63 6f 6e  e: .#.#   -secon
0840: 64 73 20 20 20 53 45 43 4f 4e 44 53 20 20 20 20  ds   SECONDS    
0850: 20 20 20 20 20 20 20 20 20 20 20 20 48 6f 77 20              How 
0860: 6d 61 6e 79 20 73 65 63 6f 6e 64 73 20 74 6f 20  many seconds to 
0870: 72 75 6e 20 74 68 65 20 74 65 73 74 20 66 6f 72  run the test for
0880: 0a 23 20 20 20 2d 69 6e 69 74 20 20 20 20 20 20  .#   -init      
0890: 53 43 52 49 50 54 20 20 20 20 20 20 20 20 20 20  SCRIPT          
08a0: 20 20 20 20 20 20 20 53 63 72 69 70 74 20 74 6f         Script to
08b0: 20 72 75 6e 20 62 65 66 6f 72 65 20 74 65 73 74   run before test
08c0: 2e 0a 23 20 20 20 2d 74 68 72 65 61 64 20 20 20  ..#   -thread   
08d0: 20 4e 41 4d 45 20 43 4f 55 4e 54 20 53 43 52 49   NAME COUNT SCRI
08e0: 50 54 20 20 20 20 20 20 53 63 72 69 70 74 73 20  PT      Scripts 
08f0: 74 6f 20 72 75 6e 20 69 6e 20 74 68 72 65 61 64  to run in thread
0900: 73 20 28 6f 72 20 70 72 6f 63 65 73 73 65 73 29  s (or processes)
0910: 2e 0a 23 20 20 20 2d 70 72 6f 63 65 73 73 65 73  ..#   -processes
0920: 20 42 4f 4f 4c 45 41 4e 20 20 20 20 20 20 20 20   BOOLEAN        
0930: 20 20 20 20 20 20 20 20 54 72 75 65 20 74 6f 20          True to 
0940: 75 73 65 20 70 72 6f 63 65 73 73 65 73 20 69 6e  use processes in
0950: 73 74 65 61 64 20 6f 66 20 74 68 72 65 61 64 73  stead of threads
0960: 2e 0a 23 20 20 20 2d 63 68 65 63 6b 20 20 20 20  ..#   -check    
0970: 20 53 43 52 49 50 54 20 20 20 20 20 20 20 20 20   SCRIPT         
0980: 20 20 20 20 20 20 20 20 53 63 72 69 70 74 20 74          Script t
0990: 6f 20 72 75 6e 20 61 66 74 65 72 20 74 65 73 74  o run after test
09a0: 2e 0a 23 0a 70 72 6f 63 20 64 6f 5f 74 68 72 65  ..#.proc do_thre
09b0: 61 64 5f 74 65 73 74 20 7b 61 72 67 73 7d 20 7b  ad_test {args} {
09c0: 0a 0a 20 20 73 65 74 20 41 20 24 61 72 67 73 0a  ..  set A $args.
09d0: 0a 20 20 73 65 74 20 50 28 74 65 73 74 6e 61 6d  .  set P(testnam
09e0: 65 29 20 5b 6c 73 68 69 66 74 20 41 5d 0a 20 20  e) [lshift A].  
09f0: 73 65 74 20 50 28 73 65 63 6f 6e 64 73 29 20 35  set P(seconds) 5
0a00: 0a 20 20 73 65 74 20 50 28 69 6e 69 74 29 20 22  .  set P(init) "
0a10: 22 0a 20 20 73 65 74 20 50 28 74 68 72 65 61 64  ".  set P(thread
0a20: 73 29 20 5b 6c 69 73 74 5d 0a 20 20 73 65 74 20  s) [list].  set 
0a30: 50 28 70 72 6f 63 65 73 73 65 73 29 20 30 0a 20  P(processes) 0. 
0a40: 20 73 65 74 20 50 28 63 68 65 63 6b 29 20 7b 0a   set P(check) {.
0a50: 20 20 20 20 73 65 74 20 69 63 20 5b 64 62 20 65      set ic [db e
0a60: 76 61 6c 20 22 50 52 41 47 4d 41 20 69 6e 74 65  val "PRAGMA inte
0a70: 67 72 69 74 79 5f 63 68 65 63 6b 22 5d 0a 20 20  grity_check"].  
0a80: 20 20 69 66 20 7b 24 69 63 20 21 3d 20 22 6f 6b    if {$ic != "ok
0a90: 22 7d 20 7b 20 65 72 72 6f 72 20 24 69 63 20 7d  "} { error $ic }
0aa0: 0a 20 20 7d 0a 0a 20 20 75 6e 73 65 74 20 2d 6e  .  }..  unset -n
0ab0: 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a 64 6f 6e 65  ocomplain ::done
0ac0: 0a 0a 20 20 77 68 69 6c 65 20 7b 5b 6c 6c 65 6e  ..  while {[llen
0ad0: 67 74 68 20 24 41 5d 3e 30 7d 20 7b 0a 20 20 20  gth $A]>0} {.   
0ae0: 20 73 65 74 20 61 20 5b 6c 73 68 69 66 74 20 41   set a [lshift A
0af0: 5d 0a 20 20 20 20 73 77 69 74 63 68 20 2d 67 6c  ].    switch -gl
0b00: 6f 62 20 2d 2d 20 24 61 20 7b 0a 20 20 20 20 20  ob -- $a {.     
0b10: 20 2d 73 65 63 6f 6e 64 73 20 7b 0a 20 20 20 20   -seconds {.    
0b20: 20 20 20 20 73 65 74 20 50 28 73 65 63 6f 6e 64      set P(second
0b30: 73 29 20 5b 6c 73 68 69 66 74 20 41 5d 0a 20 20  s) [lshift A].  
0b40: 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 2d 69 6e      }..      -in
0b50: 69 74 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74  it {.        set
0b60: 20 50 28 69 6e 69 74 29 20 5b 6c 73 68 69 66 74   P(init) [lshift
0b70: 20 41 5d 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20   A].      }..   
0b80: 20 20 20 2d 70 72 6f 63 65 73 73 65 73 20 7b 0a     -processes {.
0b90: 20 20 20 20 20 20 20 20 73 65 74 20 50 28 70 72          set P(pr
0ba0: 6f 63 65 73 73 65 73 29 20 5b 6c 73 68 69 66 74  ocesses) [lshift
0bb0: 20 41 5d 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20   A].      }..   
0bc0: 20 20 20 2d 63 68 65 63 6b 20 7b 0a 20 20 20 20     -check {.    
0bd0: 20 20 20 20 73 65 74 20 50 28 63 68 65 63 6b 29      set P(check)
0be0: 20 5b 6c 73 68 69 66 74 20 41 5d 0a 20 20 20 20   [lshift A].    
0bf0: 20 20 7d 0a 0a 20 20 20 20 20 20 2d 74 68 72 65    }..      -thre
0c00: 61 64 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74  ad {.        set
0c10: 20 6e 61 6d 65 20 20 5b 6c 73 68 69 66 74 20 41   name  [lshift A
0c20: 5d 0a 20 20 20 20 20 20 20 20 73 65 74 20 63 6f  ].        set co
0c30: 75 6e 74 20 5b 6c 73 68 69 66 74 20 41 5d 0a 20  unt [lshift A]. 
0c40: 20 20 20 20 20 20 20 73 65 74 20 70 72 67 20 20         set prg  
0c50: 20 5b 6c 73 68 69 66 74 20 41 5d 0a 20 20 20 20   [lshift A].    
0c60: 20 20 20 20 6c 61 70 70 65 6e 64 20 50 28 74 68      lappend P(th
0c70: 72 65 61 64 73 29 20 5b 6c 69 73 74 20 24 6e 61  reads) [list $na
0c80: 6d 65 20 24 63 6f 75 6e 74 20 24 70 72 67 5d 0a  me $count $prg].
0c90: 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20 64        }..      d
0ca0: 65 66 61 75 6c 74 20 7b 0a 20 20 20 20 20 20 20  efault {.       
0cb0: 20 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 6e 20   error "Unknown 
0cc0: 6f 70 74 69 6f 6e 3a 20 24 61 22 0a 20 20 20 20  option: $a".    
0cd0: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20    }.    }.  }.. 
0ce0: 20 69 66 20 7b 24 50 28 73 65 63 6f 6e 64 73 29   if {$P(seconds)
0cf0: 20 3d 3d 20 30 7d 20 7b 0a 20 20 20 20 70 75 74   == 0} {.    put
0d00: 73 20 22 53 6b 69 70 70 69 6e 67 20 24 50 28 74  s "Skipping $P(t
0d10: 65 73 74 6e 61 6d 65 29 22 0a 20 20 20 20 72 65  estname)".    re
0d20: 74 75 72 6e 0a 20 20 7d 0a 0a 20 20 70 75 74 73  turn.  }..  puts
0d30: 20 22 52 75 6e 6e 69 6e 67 20 24 50 28 74 65 73   "Running $P(tes
0d40: 74 6e 61 6d 65 29 20 66 6f 72 20 24 50 28 73 65  tname) for $P(se
0d50: 63 6f 6e 64 73 29 20 73 65 63 6f 6e 64 73 2e 2e  conds) seconds..
0d60: 2e 22 0a 0a 20 20 63 61 74 63 68 20 7b 20 64 62  ."..  catch { db
0d70: 20 63 6c 6f 73 65 20 7d 0a 20 20 66 6f 72 63 65   close }.  force
0d80: 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 20 74  delete test.db t
0d90: 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 20 74  est.db-journal t
0da0: 65 73 74 2e 64 62 2d 77 61 6c 0a 0a 20 20 73 71  est.db-wal..  sq
0db0: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
0dc0: 0a 20 20 65 76 61 6c 20 24 50 28 69 6e 69 74 29  .  eval $P(init)
0dd0: 0a 20 20 63 61 74 63 68 20 7b 20 64 62 20 63 6c  .  catch { db cl
0de0: 6f 73 65 20 7d 0a 0a 20 20 66 6f 72 65 61 63 68  ose }..  foreach
0df0: 20 54 20 24 50 28 74 68 72 65 61 64 73 29 20 7b   T $P(threads) {
0e00: 0a 20 20 20 20 73 65 74 20 6e 61 6d 65 20 20 5b  .    set name  [
0e10: 6c 69 6e 64 65 78 20 24 54 20 30 5d 0a 20 20 20  lindex $T 0].   
0e20: 20 73 65 74 20 63 6f 75 6e 74 20 5b 6c 69 6e 64   set count [lind
0e30: 65 78 20 24 54 20 31 5d 0a 20 20 20 20 73 65 74  ex $T 1].    set
0e40: 20 70 72 67 20 20 20 5b 6c 69 6e 64 65 78 20 24   prg   [lindex $
0e50: 54 20 32 5d 0a 0a 20 20 20 20 66 6f 72 20 7b 73  T 2]..    for {s
0e60: 65 74 20 69 20 31 7d 20 7b 24 69 20 3c 3d 20 24  et i 1} {$i <= $
0e70: 63 6f 75 6e 74 7d 20 7b 69 6e 63 72 20 69 7d 20  count} {incr i} 
0e80: 7b 0a 20 20 20 20 20 20 73 65 74 20 76 61 72 73  {.      set vars
0e90: 20 22 0a 20 20 20 20 20 20 20 20 73 65 74 20 45   ".        set E
0ea0: 28 70 69 64 29 20 24 69 0a 20 20 20 20 20 20 20  (pid) $i.       
0eb0: 20 73 65 74 20 45 28 6e 74 68 72 65 61 64 29 20   set E(nthread) 
0ec0: 24 63 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 73  $count.        s
0ed0: 65 74 20 45 28 73 65 63 6f 6e 64 73 29 20 24 50  et E(seconds) $P
0ee0: 28 73 65 63 6f 6e 64 73 29 0a 20 20 20 20 20 20  (seconds).      
0ef0: 22 0a 20 20 20 20 20 20 73 65 74 20 70 72 6f 67  ".      set prog
0f00: 72 61 6d 20 5b 73 74 72 69 6e 67 20 6d 61 70 20  ram [string map 
0f10: 5b 6c 69 73 74 20 25 54 45 53 54 25 20 24 70 72  [list %TEST% $pr
0f20: 67 20 25 56 41 52 53 25 20 24 76 61 72 73 5d 20  g %VARS% $vars] 
0f30: 7b 0a 0a 20 20 20 20 20 20 20 20 25 56 41 52 53  {..        %VARS
0f40: 25 0a 0a 20 20 20 20 20 20 20 20 70 72 6f 63 20  %..        proc 
0f50: 75 73 6c 65 65 70 20 7b 6d 73 7d 20 7b 0a 20 20  usleep {ms} {.  
0f60: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 75 73          set ::us
0f70: 6c 65 65 70 20 30 0a 20 20 20 20 20 20 20 20 20  leep 0.         
0f80: 20 61 66 74 65 72 20 24 6d 73 20 7b 73 65 74 20   after $ms {set 
0f90: 3a 3a 75 73 6c 65 65 70 20 31 7d 0a 20 20 20 20  ::usleep 1}.    
0fa0: 20 20 20 20 20 20 76 77 61 69 74 20 3a 3a 75 73        vwait ::us
0fb0: 6c 65 65 70 0a 20 20 20 20 20 20 20 20 7d 0a 0a  leep.        }..
0fc0: 20 20 20 20 20 20 20 20 70 72 6f 63 20 69 6e 74          proc int
0fd0: 65 67 72 69 74 79 5f 63 68 65 63 6b 20 7b 7b 64  egrity_check {{d
0fe0: 62 20 64 62 7d 7d 20 7b 0a 20 20 20 20 20 20 20  b db}} {.       
0ff0: 20 20 20 73 65 74 20 69 63 20 5b 24 64 62 20 65     set ic [$db e
1000: 76 61 6c 20 7b 50 52 41 47 4d 41 20 69 6e 74 65  val {PRAGMA inte
1010: 67 72 69 74 79 5f 63 68 65 63 6b 7d 5d 0a 20 20  grity_check}].  
1020: 20 20 20 20 20 20 20 20 69 66 20 7b 24 69 63 20          if {$ic 
1030: 21 3d 20 22 6f 6b 22 7d 20 7b 65 72 72 6f 72 20  != "ok"} {error 
1040: 24 69 63 7d 0a 20 20 20 20 20 20 20 20 7d 0a 0a  $ic}.        }..
1050: 20 20 20 20 20 20 20 20 70 72 6f 63 20 62 75 73          proc bus
1060: 79 68 61 6e 64 6c 65 72 20 7b 6e 7d 20 7b 20 75  yhandler {n} { u
1070: 73 6c 65 65 70 20 31 30 20 3b 20 72 65 74 75 72  sleep 10 ; retur
1080: 6e 20 30 20 7d 0a 0a 20 20 20 20 20 20 20 20 73  n 0 }..        s
1090: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
10a0: 62 0a 20 20 20 20 20 20 20 20 64 62 20 62 75 73  b.        db bus
10b0: 79 20 62 75 73 79 68 61 6e 64 6c 65 72 0a 20 20  y busyhandler.  
10c0: 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 20        db eval { 
10d0: 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f  SELECT randomblo
10e0: 62 28 24 45 28 70 69 64 29 2a 35 29 20 7d 0a 0a  b($E(pid)*5) }..
10f0: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 66 69          set ::fi
1100: 6e 69 73 68 65 64 20 30 0a 20 20 20 20 20 20 20  nished 0.       
1110: 20 61 66 74 65 72 20 5b 65 78 70 72 20 24 45 28   after [expr $E(
1120: 73 65 63 6f 6e 64 73 29 20 2a 20 31 30 30 30 5d  seconds) * 1000]
1130: 20 7b 73 65 74 20 3a 3a 66 69 6e 69 73 68 65 64   {set ::finished
1140: 20 31 7d 0a 20 20 20 20 20 20 20 20 70 72 6f 63   1}.        proc
1150: 20 74 74 5f 63 6f 6e 74 69 6e 75 65 20 7b 7d 20   tt_continue {} 
1160: 7b 20 75 70 64 61 74 65 20 3b 20 65 78 70 72 20  { update ; expr 
1170: 28 24 3a 3a 66 69 6e 69 73 68 65 64 3d 3d 30 29  ($::finished==0)
1180: 20 7d 0a 0a 20 20 20 20 20 20 20 20 73 65 74 20   }..        set 
1190: 72 63 20 5b 63 61 74 63 68 20 7b 20 25 54 45 53  rc [catch { %TES
11a0: 54 25 20 7d 20 6d 73 67 5d 0a 0a 20 20 20 20 20  T% } msg]..     
11b0: 20 20 20 63 61 74 63 68 20 7b 20 64 62 20 63 6c     catch { db cl
11c0: 6f 73 65 20 7d 0a 20 20 20 20 20 20 20 20 6c 69  ose }.        li
11d0: 73 74 20 24 72 63 20 24 6d 73 67 0a 20 20 20 20  st $rc $msg.    
11e0: 20 20 7d 5d 0a 0a 20 20 20 20 20 20 69 66 20 7b    }]..      if {
11f0: 24 50 28 70 72 6f 63 65 73 73 65 73 29 3d 3d 30  $P(processes)==0
1200: 7d 20 7b 0a 20 20 20 20 20 20 20 20 73 71 6c 74  } {.        sqlt
1210: 68 72 65 61 64 20 73 70 61 77 6e 20 3a 3a 64 6f  hread spawn ::do
1220: 6e 65 28 24 6e 61 6d 65 2c 24 69 29 20 24 70 72  ne($name,$i) $pr
1230: 6f 67 72 61 6d 0a 20 20 20 20 20 20 7d 20 65 6c  ogram.      } el
1240: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 74 65 73  se {.        tes
1250: 74 66 69 78 74 75 72 65 5f 6e 62 20 3a 3a 64 6f  tfixture_nb ::do
1260: 6e 65 28 24 6e 61 6d 65 2c 24 69 29 20 24 70 72  ne($name,$i) $pr
1270: 6f 67 72 61 6d 0a 20 20 20 20 20 20 7d 0a 20 20  ogram.      }.  
1280: 20 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 20 72    }.  }..  set r
1290: 65 70 6f 72 74 20 22 20 20 52 65 73 75 6c 74 73  eport "  Results
12a0: 3a 22 0a 20 20 66 6f 72 65 61 63 68 20 54 20 24  :".  foreach T $
12b0: 50 28 74 68 72 65 61 64 73 29 20 7b 0a 20 20 20  P(threads) {.   
12c0: 20 73 65 74 20 6e 61 6d 65 20 20 5b 6c 69 6e 64   set name  [lind
12d0: 65 78 20 24 54 20 30 5d 0a 20 20 20 20 73 65 74  ex $T 0].    set
12e0: 20 63 6f 75 6e 74 20 5b 6c 69 6e 64 65 78 20 24   count [lindex $
12f0: 54 20 31 5d 0a 20 20 20 20 73 65 74 20 70 72 67  T 1].    set prg
1300: 20 20 20 5b 6c 69 6e 64 65 78 20 24 54 20 32 5d     [lindex $T 2]
1310: 0a 0a 20 20 20 20 73 65 74 20 72 65 73 6c 69 73  ..    set reslis
1320: 74 20 5b 6c 69 73 74 5d 0a 20 20 20 20 66 6f 72  t [list].    for
1330: 20 7b 73 65 74 20 69 20 31 7d 20 7b 24 69 20 3c   {set i 1} {$i <
1340: 3d 20 24 63 6f 75 6e 74 7d 20 7b 69 6e 63 72 20  = $count} {incr 
1350: 69 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 72  i} {.      set r
1360: 65 73 20 5b 77 61 69 74 5f 66 6f 72 5f 76 61 72  es [wait_for_var
1370: 20 3a 3a 64 6f 6e 65 28 24 6e 61 6d 65 2c 24 69   ::done($name,$i
1380: 29 5d 0a 20 20 20 20 20 20 6c 61 70 70 65 6e 64  )].      lappend
1390: 20 72 65 73 6c 69 73 74 20 5b 6c 69 6e 64 65 78   reslist [lindex
13a0: 20 24 72 65 73 20 31 5d 0a 20 20 20 20 20 20 64   $res 1].      d
13b0: 6f 5f 74 65 73 74 20 24 50 28 74 65 73 74 6e 61  o_test $P(testna
13c0: 6d 65 29 2e 24 6e 61 6d 65 2e 24 69 20 5b 6c 69  me).$name.$i [li
13d0: 73 74 20 6c 69 6e 64 65 78 20 24 72 65 73 20 30  st lindex $res 0
13e0: 5d 20 30 0a 20 20 20 20 7d 0a 0a 20 20 20 20 61  ] 0.    }..    a
13f0: 70 70 65 6e 64 20 72 65 70 6f 72 74 20 22 20 20  ppend report "  
1400: 20 24 6e 61 6d 65 20 24 72 65 73 6c 69 73 74 22   $name $reslist"
1410: 0a 20 20 7d 0a 20 20 70 75 74 73 20 24 72 65 70  .  }.  puts $rep
1420: 6f 72 74 0a 0a 20 20 73 71 6c 69 74 65 33 20 64  ort..  sqlite3 d
1430: 62 20 74 65 73 74 2e 64 62 0a 20 20 73 65 74 20  b test.db.  set 
1440: 72 65 73 20 22 22 0a 20 20 69 66 20 7b 5b 63 61  res "".  if {[ca
1450: 74 63 68 20 24 50 28 63 68 65 63 6b 29 20 6d 73  tch $P(check) ms
1460: 67 5d 7d 20 7b 20 73 65 74 20 72 65 73 20 24 6d  g]} { set res $m
1470: 73 67 20 7d 0a 20 20 64 6f 5f 74 65 73 74 20 24  sg }.  do_test $
1480: 50 28 74 65 73 74 6e 61 6d 65 29 2e 63 68 65 63  P(testname).chec
1490: 6b 20 5b 6c 69 73 74 20 73 65 74 20 7b 7d 20 24  k [list set {} $
14a0: 72 65 73 5d 20 22 22 0a 7d 0a 0a 23 20 41 20 77  res] "".}..# A w
14b0: 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 5b 64  rapper around [d
14c0: 6f 5f 74 68 72 65 61 64 5f 74 65 73 74 5d 20 77  o_thread_test] w
14d0: 68 69 63 68 20 72 75 6e 73 20 74 68 65 20 73 70  hich runs the sp
14e0: 65 63 69 66 69 65 64 20 74 65 73 74 20 74 77 69  ecified test twi
14f0: 63 65 2e 0a 23 20 4f 6e 63 65 20 75 73 69 6e 67  ce..# Once using
1500: 20 70 72 6f 63 65 73 73 65 73 2c 20 6f 6e 63 65   processes, once
1510: 20 75 73 69 6e 67 20 74 68 72 65 61 64 73 2e 20   using threads. 
1520: 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 74 61 6b  This command tak
1530: 65 73 20 74 68 65 20 73 61 6d 65 0a 23 20 61 72  es the same.# ar
1540: 67 75 6d 65 6e 74 73 20 61 73 20 5b 64 6f 5f 74  guments as [do_t
1550: 68 72 65 61 64 5f 74 65 73 74 5d 2c 20 65 78 63  hread_test], exc
1560: 65 70 74 20 73 70 65 63 69 66 79 69 6e 67 20 74  ept specifying t
1570: 68 65 20 2d 70 72 6f 63 65 73 73 65 73 20 73 77  he -processes sw
1580: 69 74 63 68 0a 23 20 69 73 20 69 6c 6c 65 67 61  itch.# is illega
1590: 6c 2e 0a 23 0a 70 72 6f 63 20 64 6f 5f 74 68 72  l..#.proc do_thr
15a0: 65 61 64 5f 74 65 73 74 32 20 7b 61 72 67 73 7d  ead_test2 {args}
15b0: 20 7b 0a 20 20 73 65 74 20 6e 61 6d 65 20 5b 6c   {.  set name [l
15c0: 69 6e 64 65 78 20 24 61 72 67 73 20 30 5d 0a 20  index $args 0]. 
15d0: 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 24 61   if {[lsearch $a
15e0: 72 67 73 20 2d 70 72 6f 63 65 73 73 65 73 5d 3e  rgs -processes]>
15f0: 3d 30 7d 20 7b 20 65 72 72 6f 72 20 22 62 61 64  =0} { error "bad
1600: 20 6f 70 74 69 6f 6e 3a 20 2d 70 72 6f 63 65 73   option: -proces
1610: 73 65 73 22 7d 0a 20 20 75 70 6c 65 76 65 6c 20  ses"}.  uplevel 
1620: 5b 6c 72 65 70 6c 61 63 65 20 24 61 72 67 73 20  [lreplace $args 
1630: 30 20 30 20 64 6f 5f 74 68 72 65 61 64 5f 74 65  0 0 do_thread_te
1640: 73 74 20 22 24 6e 61 6d 65 2d 74 68 72 65 61 64  st "$name-thread
1650: 73 22 20 2d 70 72 6f 63 65 73 73 65 73 20 30 5d  s" -processes 0]
1660: 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 72 65 70  .  uplevel [lrep
1670: 6c 61 63 65 20 24 61 72 67 73 20 30 20 30 20 64  lace $args 0 0 d
1680: 6f 5f 74 68 72 65 61 64 5f 74 65 73 74 20 22 24  o_thread_test "$
1690: 6e 61 6d 65 2d 70 72 6f 63 65 73 73 65 73 22 20  name-processes" 
16a0: 2d 70 72 6f 63 65 73 73 65 73 20 31 5d 0a 7d 0a  -processes 1].}.
16b0: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
16c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
16d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
16e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
16f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 53  ------------.# S
1700: 74 61 72 74 20 31 30 20 74 68 72 65 61 64 73 2e  tart 10 threads.
1710: 20 45 61 63 68 20 74 68 72 65 61 64 20 70 65 72   Each thread per
1720: 66 6f 72 6d 73 20 62 6f 74 68 20 72 65 61 64 20  forms both read 
1730: 61 6e 64 20 77 72 69 74 65 20 0a 23 20 74 72 61  and write .# tra
1740: 6e 73 61 63 74 69 6f 6e 73 2e 20 45 61 63 68 20  nsactions. Each 
1750: 72 65 61 64 20 74 72 61 6e 73 61 63 74 69 6f 6e  read transaction
1760: 20 63 6f 6e 73 69 73 74 73 20 6f 66 3a 0a 23 0a   consists of:.#.
1770: 23 20 20 20 31 29 20 52 65 61 64 69 6e 67 20 74  #   1) Reading t
1780: 68 65 20 6d 64 35 73 75 6d 20 6f 66 20 61 6c 6c  he md5sum of all
1790: 20 62 75 74 20 74 68 65 20 6c 61 73 74 20 74 61   but the last ta
17a0: 62 6c 65 20 72 6f 77 2c 0a 23 20 20 20 32 29 20  ble row,.#   2) 
17b0: 52 75 6e 6e 69 6e 67 20 69 6e 74 65 67 72 69 74  Running integrit
17c0: 79 20 63 68 65 63 6b 2e 0a 23 20 20 20 33 29 20  y check..#   3) 
17d0: 52 65 61 64 69 6e 67 20 74 68 65 20 76 61 6c 75  Reading the valu
17e0: 65 20 73 74 6f 72 65 64 20 69 6e 20 74 68 65 20  e stored in the 
17f0: 6c 61 73 74 20 74 61 62 6c 65 20 72 6f 77 2c 0a  last table row,.
1800: 23 20 20 20 34 29 20 43 68 65 63 6b 20 74 68 61  #   4) Check tha
1810: 74 20 74 68 65 20 76 61 6c 75 65 73 20 72 65 61  t the values rea
1820: 64 20 69 6e 20 73 74 65 70 73 20 31 20 61 6e 64  d in steps 1 and
1830: 20 33 20 61 72 65 20 74 68 65 20 73 61 6d 65 2c   3 are the same,
1840: 20 61 6e 64 20 74 68 61 74 0a 23 20 20 20 20 20   and that.#     
1850: 20 74 68 65 20 6d 64 35 73 75 6d 20 6f 66 20 61   the md5sum of a
1860: 6c 6c 20 62 75 74 20 74 68 65 20 6c 61 73 74 20  ll but the last 
1870: 74 61 62 6c 65 20 72 6f 77 20 68 61 73 20 6e 6f  table row has no
1880: 74 20 63 68 61 6e 67 65 64 2e 0a 23 0a 23 20 45  t changed..#.# E
1890: 61 63 68 20 77 72 69 74 65 20 74 72 61 6e 73 61  ach write transa
18a0: 63 74 69 6f 6e 20 63 6f 6e 73 69 73 74 73 20 6f  ction consists o
18b0: 66 3a 0a 23 0a 23 20 20 20 31 29 20 4d 6f 64 69  f:.#.#   1) Modi
18c0: 66 79 69 6e 67 20 74 68 65 20 63 6f 6e 74 65 6e  fying the conten
18d0: 74 73 20 6f 66 20 74 31 20 28 69 6e 73 65 72 74  ts of t1 (insert
18e0: 69 6e 67 2c 20 75 70 64 61 74 69 6e 67 2c 20 64  ing, updating, d
18f0: 65 6c 65 74 69 6e 67 20 72 6f 77 73 29 2e 0a 23  eleting rows)..#
1900: 20 20 20 32 29 20 41 70 70 65 6e 64 69 6e 67 20     2) Appending 
1910: 61 20 6e 65 77 20 72 6f 77 20 74 6f 20 74 68 65  a new row to the
1920: 20 74 61 62 6c 65 20 63 6f 6e 74 61 69 6e 69 6e   table containin
1930: 67 20 74 68 65 20 6d 64 35 73 75 6d 28 29 20 6f  g the md5sum() o
1940: 66 20 61 6c 6c 0a 23 20 20 20 20 20 20 72 6f 77  f all.#      row
1950: 73 20 69 6e 20 74 68 65 20 74 61 62 6c 65 2e 0a  s in the table..
1960: 23 0a 23 20 45 61 63 68 20 6f 66 20 74 68 65 20  #.# Each of the 
1970: 4e 20 74 68 72 65 61 64 73 20 72 75 6e 73 20 4e  N threads runs N
1980: 20 72 65 61 64 20 74 72 61 6e 73 61 63 74 69 6f   read transactio
1990: 6e 73 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 61  ns followed by a
19a0: 20 73 69 6e 67 6c 65 20 77 72 69 74 65 0a 23 20   single write.# 
19b0: 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 6e 20 61  transaction in a
19c0: 20 6c 6f 6f 70 20 61 73 20 66 61 73 74 20 61 73   loop as fast as
19d0: 20 70 6f 73 73 69 62 6c 65 2e 0a 23 0a 23 20 54   possible..#.# T
19e0: 68 65 72 65 20 69 73 20 61 6c 73 6f 20 61 20 73  here is also a s
19f0: 69 6e 67 6c 65 20 63 68 65 63 6b 70 6f 69 6e 74  ingle checkpoint
1a00: 65 72 20 74 68 72 65 61 64 2e 20 49 74 20 72 75  er thread. It ru
1a10: 6e 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  ns the following
1a20: 20 6c 6f 6f 70 3a 0a 23 0a 23 20 20 20 31 29 20   loop:.#.#   1) 
1a30: 45 78 65 63 75 74 65 20 22 50 52 41 47 4d 41 20  Execute "PRAGMA 
1a40: 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 22 0a  wal_checkpoint".
1a50: 23 20 20 20 32 29 20 53 6c 65 65 70 20 66 6f 72  #   2) Sleep for
1a60: 20 35 30 30 20 6d 73 2e 0a 23 0a 64 6f 5f 74 68   500 ms..#.do_th
1a70: 72 65 61 64 5f 74 65 73 74 32 20 77 61 6c 74 68  read_test2 walth
1a80: 72 65 61 64 2d 31 20 2d 73 65 63 6f 6e 64 73 20  read-1 -seconds 
1a90: 24 73 65 63 6f 6e 64 73 28 77 61 6c 74 68 72 65  $seconds(walthre
1aa0: 61 64 2d 31 29 20 2d 69 6e 69 74 20 7b 0a 20 20  ad-1) -init {.  
1ab0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 50 52  execsql {.    PR
1ac0: 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64  AGMA journal_mod
1ad0: 65 20 3d 20 57 41 4c 3b 0a 20 20 20 20 43 52 45  e = WAL;.    CRE
1ae0: 41 54 45 20 54 41 42 4c 45 20 74 31 28 78 20 50  ATE TABLE t1(x P
1af0: 52 49 4d 41 52 59 20 4b 45 59 29 3b 0a 20 20 20  RIMARY KEY);.   
1b00: 20 50 52 41 47 4d 41 20 6c 6f 63 6b 5f 73 74 61   PRAGMA lock_sta
1b10: 74 75 73 3b 0a 20 20 20 20 49 4e 53 45 52 54 20  tus;.    INSERT 
1b20: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 72  INTO t1 VALUES(r
1b30: 61 6e 64 6f 6d 62 6c 6f 62 28 31 30 30 29 29 3b  andomblob(100));
1b40: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
1b50: 20 74 31 20 56 41 4c 55 45 53 28 72 61 6e 64 6f   t1 VALUES(rando
1b60: 6d 62 6c 6f 62 28 31 30 30 29 29 3b 0a 20 20 20  mblob(100));.   
1b70: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
1b80: 53 45 4c 45 43 54 20 6d 64 35 73 75 6d 28 78 29  SELECT md5sum(x)
1b90: 20 46 52 4f 4d 20 74 31 3b 0a 20 20 7d 0a 7d 20   FROM t1;.  }.} 
1ba0: 2d 74 68 72 65 61 64 20 6d 61 69 6e 20 31 30 20  -thread main 10 
1bb0: 7b 0a 0a 20 20 70 72 6f 63 20 72 65 61 64 5f 74  {..  proc read_t
1bc0: 72 61 6e 73 61 63 74 69 6f 6e 20 7b 7d 20 7b 0a  ransaction {} {.
1bd0: 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 73 20      set results 
1be0: 5b 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20  [db eval {.     
1bf0: 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 20 20   BEGIN;.        
1c00: 50 52 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79  PRAGMA integrity
1c10: 5f 63 68 65 63 6b 3b 0a 20 20 20 20 20 20 20 20  _check;.        
1c20: 53 45 4c 45 43 54 20 6d 64 35 73 75 6d 28 78 29  SELECT md5sum(x)
1c30: 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20 72   FROM t1 WHERE r
1c40: 6f 77 69 64 20 21 3d 20 28 53 45 4c 45 43 54 20  owid != (SELECT 
1c50: 6d 61 78 28 72 6f 77 69 64 29 20 46 52 4f 4d 20  max(rowid) FROM 
1c60: 74 31 29 3b 0a 20 20 20 20 20 20 20 20 53 45 4c  t1);.        SEL
1c70: 45 43 54 20 78 20 46 52 4f 4d 20 74 31 20 57 48  ECT x FROM t1 WH
1c80: 45 52 45 20 72 6f 77 69 64 20 3d 20 28 53 45 4c  ERE rowid = (SEL
1c90: 45 43 54 20 6d 61 78 28 72 6f 77 69 64 29 20 46  ECT max(rowid) F
1ca0: 52 4f 4d 20 74 31 29 3b 0a 20 20 20 20 20 20 20  ROM t1);.       
1cb0: 20 53 45 4c 45 43 54 20 6d 64 35 73 75 6d 28 78   SELECT md5sum(x
1cc0: 29 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20  ) FROM t1 WHERE 
1cd0: 72 6f 77 69 64 20 21 3d 20 28 53 45 4c 45 43 54  rowid != (SELECT
1ce0: 20 6d 61 78 28 72 6f 77 69 64 29 20 46 52 4f 4d   max(rowid) FROM
1cf0: 20 74 31 29 3b 0a 20 20 20 20 20 20 43 4f 4d 4d   t1);.      COMM
1d00: 49 54 3b 0a 20 20 20 20 7d 5d 0a 0a 20 20 20 20  IT;.    }]..    
1d10: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 72 65  if {[llength $re
1d20: 73 75 6c 74 73 5d 21 3d 34 0a 20 20 20 20 20 7c  sults]!=4.     |
1d30: 7c 20 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c  | [lindex $resul
1d40: 74 73 20 30 5d 20 21 3d 20 22 6f 6b 22 0a 20 20  ts 0] != "ok".  
1d50: 20 20 20 7c 7c 20 5b 6c 69 6e 64 65 78 20 24 72     || [lindex $r
1d60: 65 73 75 6c 74 73 20 31 5d 20 21 3d 20 5b 6c 69  esults 1] != [li
1d70: 6e 64 65 78 20 24 72 65 73 75 6c 74 73 20 32 5d  ndex $results 2]
1d80: 0a 20 20 20 20 20 7c 7c 20 5b 6c 69 6e 64 65 78  .     || [lindex
1d90: 20 24 72 65 73 75 6c 74 73 20 32 5d 20 21 3d 20   $results 2] != 
1da0: 5b 6c 69 6e 64 65 78 20 24 72 65 73 75 6c 74 73  [lindex $results
1db0: 20 33 5d 0a 20 20 20 20 7d 20 7b 0a 20 20 20 20   3].    } {.    
1dc0: 20 20 65 72 72 6f 72 20 22 46 61 69 6c 65 64 20    error "Failed 
1dd0: 72 65 61 64 20 74 72 61 6e 73 61 63 74 69 6f 6e  read transaction
1de0: 3a 20 24 72 65 73 75 6c 74 73 22 0a 20 20 20 20  : $results".    
1df0: 7d 0a 20 20 7d 0a 0a 20 20 70 72 6f 63 20 77 72  }.  }..  proc wr
1e00: 69 74 65 5f 74 72 61 6e 73 61 63 74 69 6f 6e 20  ite_transaction 
1e10: 7b 7d 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c  {} {.    db eval
1e20: 20 7b 0a 20 20 20 20 20 20 42 45 47 49 4e 3b 0a   {.      BEGIN;.
1e30: 20 20 20 20 20 20 20 20 49 4e 53 45 52 54 20 49          INSERT I
1e40: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 72 61  NTO t1 VALUES(ra
1e50: 6e 64 6f 6d 62 6c 6f 62 28 31 30 31 20 2b 20 24  ndomblob(101 + $
1e60: 3a 3a 45 28 70 69 64 29 29 29 3b 0a 20 20 20 20  ::E(pid)));.    
1e70: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1e80: 74 31 20 56 41 4c 55 45 53 28 72 61 6e 64 6f 6d  t1 VALUES(random
1e90: 62 6c 6f 62 28 31 30 31 20 2b 20 24 3a 3a 45 28  blob(101 + $::E(
1ea0: 70 69 64 29 29 29 3b 0a 20 20 20 20 20 20 20 20  pid)));.        
1eb0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
1ec0: 45 4c 45 43 54 20 6d 64 35 73 75 6d 28 78 29 20  ELECT md5sum(x) 
1ed0: 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20 20 20 43  FROM t1;.      C
1ee0: 4f 4d 4d 49 54 3b 0a 20 20 20 20 7d 0a 20 20 7d  OMMIT;.    }.  }
1ef0: 0a 0a 20 20 23 20 54 75 72 6e 20 6f 66 66 20 61  ..  # Turn off a
1f00: 75 74 6f 2d 63 68 65 63 6b 70 6f 69 6e 74 2e 20  uto-checkpoint. 
1f10: 4f 74 68 65 72 77 69 73 65 2c 20 61 6e 20 61 75  Otherwise, an au
1f20: 74 6f 2d 63 68 65 63 6b 70 6f 69 6e 74 20 72 75  to-checkpoint ru
1f30: 6e 20 62 79 20 61 0a 20 20 23 20 77 72 69 74 65  n by a.  # write
1f40: 72 20 6d 61 79 20 63 61 75 73 65 20 74 68 65 20  r may cause the 
1f50: 64 65 64 69 63 61 74 65 64 20 63 68 65 63 6b 70  dedicated checkp
1f60: 6f 69 6e 74 20 74 68 72 65 61 64 20 74 6f 20 72  oint thread to r
1f70: 65 74 75 72 6e 20 61 6e 0a 20 20 23 20 53 51 4c  eturn an.  # SQL
1f80: 49 54 45 5f 42 55 53 59 20 65 72 72 6f 72 2e 0a  ITE_BUSY error..
1f90: 20 20 23 0a 20 20 64 62 20 65 76 61 6c 20 7b 20    #.  db eval { 
1fa0: 50 52 41 47 4d 41 20 77 61 6c 5f 61 75 74 6f 63  PRAGMA wal_autoc
1fb0: 68 65 63 6b 70 6f 69 6e 74 20 3d 20 30 20 7d 0a  heckpoint = 0 }.
1fc0: 0a 20 20 73 65 74 20 6e 52 75 6e 20 30 0a 20 20  .  set nRun 0.  
1fd0: 77 68 69 6c 65 20 7b 5b 74 74 5f 63 6f 6e 74 69  while {[tt_conti
1fe0: 6e 75 65 5d 7d 20 7b 0a 20 20 20 20 72 65 61 64  nue]} {.    read
1ff0: 5f 74 72 61 6e 73 61 63 74 69 6f 6e 0a 20 20 20  _transaction.   
2000: 20 77 72 69 74 65 5f 74 72 61 6e 73 61 63 74 69   write_transacti
2010: 6f 6e 20 0a 20 20 20 20 69 6e 63 72 20 6e 52 75  on .    incr nRu
2020: 6e 0a 20 20 7d 0a 20 20 73 65 74 20 6e 52 75 6e  n.  }.  set nRun
2030: 0a 0a 7d 20 2d 74 68 72 65 61 64 20 63 6b 70 74  ..} -thread ckpt
2040: 20 31 20 7b 0a 20 20 73 65 74 20 6e 52 75 6e 20   1 {.  set nRun 
2050: 30 0a 20 20 77 68 69 6c 65 20 7b 5b 74 74 5f 63  0.  while {[tt_c
2060: 6f 6e 74 69 6e 75 65 5d 7d 20 7b 0a 20 20 20 20  ontinue]} {.    
2070: 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d 41 20  db eval "PRAGMA 
2080: 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 22 0a  wal_checkpoint".
2090: 20 20 20 20 75 73 6c 65 65 70 20 35 30 30 0a 20      usleep 500. 
20a0: 20 20 20 69 6e 63 72 20 6e 52 75 6e 0a 20 20 7d     incr nRun.  }
20b0: 0a 20 20 73 65 74 20 6e 52 75 6e 0a 7d 0a 0a 23  .  set nRun.}..#
20c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
20d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
20e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
20f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 68 69  ----------.# Thi
2110: 73 20 74 65 73 74 20 68 61 73 20 63 6c 69 65 6e  s test has clien
2120: 74 73 20 72 75 6e 20 74 68 65 20 66 6f 6c 6c 6f  ts run the follo
2130: 77 69 6e 67 20 70 72 6f 63 65 64 75 72 65 20 61  wing procedure a
2140: 73 20 66 61 73 74 20 61 73 20 70 6f 73 73 69 62  s fast as possib
2150: 6c 65 0a 23 20 69 6e 20 61 20 6c 6f 6f 70 3a 0a  le.# in a loop:.
2160: 23 0a 23 20 20 20 31 2e 20 4f 70 65 6e 20 61 20  #.#   1. Open a 
2170: 64 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 2e  database handle.
2180: 0a 23 20 20 20 32 2e 20 45 78 65 63 75 74 65 20  .#   2. Execute 
2190: 61 20 72 65 61 64 2d 6f 6e 6c 79 20 74 72 61 6e  a read-only tran
21a0: 73 61 63 74 69 6f 6e 20 6f 6e 20 74 68 65 20 64  saction on the d
21b0: 62 2e 0a 23 20 20 20 33 2e 20 44 6f 20 22 50 52  b..#   3. Do "PR
21c0: 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64  AGMA journal_mod
21d0: 65 20 3d 20 58 58 58 22 2c 20 77 68 65 72 65 20  e = XXX", where 
21e0: 58 58 58 20 69 73 20 6f 6e 65 20 6f 66 20 57 41  XXX is one of WA
21f0: 4c 20 6f 72 20 44 45 4c 45 54 45 2e 0a 23 20 20  L or DELETE..#  
2200: 20 20 20 20 49 67 6e 6f 72 65 20 61 6e 79 20 53      Ignore any S
2210: 51 4c 49 54 45 5f 42 55 53 59 20 65 72 72 6f 72  QLITE_BUSY error
2220: 2e 0a 23 20 20 20 34 2e 20 45 78 65 63 75 74 65  ..#   4. Execute
2230: 20 61 20 77 72 69 74 65 20 74 72 61 6e 73 61 63   a write transac
2240: 74 69 6f 6e 20 74 6f 20 69 6e 73 65 72 74 20 61  tion to insert a
2250: 20 72 6f 77 20 69 6e 74 6f 20 74 68 65 20 64 62   row into the db
2260: 2e 0a 23 20 20 20 35 2e 20 52 75 6e 20 22 50 52  ..#   5. Run "PR
2270: 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f 63  AGMA integrity_c
2280: 68 65 63 6b 22 0a 23 0a 23 20 41 74 20 70 72 65  heck".#.# At pre
2290: 73 65 6e 74 2c 20 74 68 65 72 65 20 61 72 65 20  sent, there are 
22a0: 34 20 63 6c 69 65 6e 74 73 20 69 6e 20 74 6f 74  4 clients in tot
22b0: 61 6c 2e 20 32 20 64 6f 20 22 6a 6f 75 72 6e 61  al. 2 do "journa
22c0: 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 22 2c 20 61  l_mode = WAL", a
22d0: 6e 64 0a 23 20 74 77 6f 20 64 6f 20 22 6a 6f 75  nd.# two do "jou
22e0: 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 44 45 4c 45  rnal_mode = DELE
22f0: 54 45 22 2e 0a 23 0a 23 20 45 61 63 68 20 63 6c  TE"..#.# Each cl
2300: 69 65 6e 74 20 72 65 74 75 72 6e 73 20 61 20 73  ient returns a s
2310: 74 72 69 6e 67 20 6f 66 20 74 68 65 20 66 6f 72  tring of the for
2320: 6d 20 22 57 20 77 2c 20 52 20 72 22 2c 20 77 68  m "W w, R r", wh
2330: 65 72 65 20 57 20 69 73 20 74 68 65 20 0a 23 20  ere W is the .# 
2340: 6e 75 6d 62 65 72 20 6f 66 20 77 72 69 74 65 2d  number of write-
2350: 74 72 61 6e 73 61 63 74 69 6f 6e 73 20 70 65 72  transactions per
2360: 66 6f 72 6d 65 64 20 75 73 69 6e 67 20 61 20 57  formed using a W
2370: 41 4c 20 6a 6f 75 72 6e 61 6c 2c 20 61 6e 64 20  AL journal, and 
2380: 44 20 69 73 0a 23 20 74 68 65 20 6e 75 6d 62 65  D is.# the numbe
2390: 72 20 6f 66 20 77 72 69 74 65 2d 74 72 61 6e 73  r of write-trans
23a0: 61 63 74 69 6f 6e 73 20 70 65 72 66 6f 72 6d 65  actions performe
23b0: 64 20 75 73 69 6e 67 20 61 20 72 6f 6c 6c 62 61  d using a rollba
23c0: 63 6b 20 6a 6f 75 72 6e 61 6c 2e 0a 23 20 46 6f  ck journal..# Fo
23d0: 72 20 65 78 61 6d 70 6c 65 2c 20 22 31 39 32 20  r example, "192 
23e0: 77 2c 20 31 38 35 20 72 22 2e 0a 23 0a 64 6f 5f  w, 185 r"..#.do_
23f0: 74 68 72 65 61 64 5f 74 65 73 74 32 20 77 61 6c  thread_test2 wal
2400: 74 68 72 65 61 64 2d 32 20 2d 73 65 63 6f 6e 64  thread-2 -second
2410: 73 20 24 73 65 63 6f 6e 64 73 28 77 61 6c 74 68  s $seconds(walth
2420: 72 65 61 64 2d 32 29 20 2d 69 6e 69 74 20 7b 0a  read-2) -init {.
2430: 20 20 65 78 65 63 73 71 6c 20 7b 20 43 52 45 41    execsql { CREA
2440: 54 45 20 54 41 42 4c 45 20 74 31 28 78 20 49 4e  TE TABLE t1(x IN
2450: 54 45 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45  TEGER PRIMARY KE
2460: 59 2c 20 79 20 55 4e 49 51 55 45 29 20 7d 0a 7d  Y, y UNIQUE) }.}
2470: 20 2d 74 68 72 65 61 64 20 52 42 20 32 20 7b 0a   -thread RB 2 {.
2480: 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 73 65  .  db close.  se
2490: 74 20 6e 52 75 6e 20 30 0a 20 20 73 65 74 20 6e  t nRun 0.  set n
24a0: 44 65 6c 20 30 0a 20 20 77 68 69 6c 65 20 7b 5b  Del 0.  while {[
24b0: 74 74 5f 63 6f 6e 74 69 6e 75 65 5d 7d 20 7b 0a  tt_continue]} {.
24c0: 20 20 20 20 73 71 6c 69 74 65 33 20 64 62 20 74      sqlite3 db t
24d0: 65 73 74 2e 64 62 0a 20 20 20 20 64 62 20 62 75  est.db.    db bu
24e0: 73 79 20 62 75 73 79 68 61 6e 64 6c 65 72 0a 20  sy busyhandler. 
24f0: 20 20 20 64 62 20 65 76 61 6c 20 7b 20 53 45 4c     db eval { SEL
2500: 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74  ECT * FROM sqlit
2510: 65 5f 6d 61 73 74 65 72 20 7d 0a 20 20 20 20 63  e_master }.    c
2520: 61 74 63 68 20 7b 20 64 62 20 65 76 61 6c 20 7b  atch { db eval {
2530: 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f   PRAGMA journal_
2540: 6d 6f 64 65 20 3d 20 44 45 4c 45 54 45 20 7d 20  mode = DELETE } 
2550: 7d 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b 0a  }.    db eval {.
2560: 20 20 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20        BEGIN;.   
2570: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
2580: 31 20 56 41 4c 55 45 53 28 4e 55 4c 4c 2c 20 72  1 VALUES(NULL, r
2590: 61 6e 64 6f 6d 62 6c 6f 62 28 31 30 30 2b 24 45  andomblob(100+$E
25a0: 28 70 69 64 29 29 29 3b 0a 20 20 20 20 7d 0a 20  (pid)));.    }. 
25b0: 20 20 20 69 6e 63 72 20 6e 52 75 6e 20 31 0a 20     incr nRun 1. 
25c0: 20 20 20 69 6e 63 72 20 6e 44 65 6c 20 5b 66 69     incr nDel [fi
25d0: 6c 65 20 65 78 69 73 74 73 20 74 65 73 74 2e 64  le exists test.d
25e0: 62 2d 6a 6f 75 72 6e 61 6c 5d 0a 20 20 20 20 69  b-journal].    i
25f0: 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20  f {[file exists 
2600: 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 5d  test.db-journal]
2610: 20 2b 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20   + [file exists 
2620: 74 65 73 74 2e 64 62 2d 77 61 6c 5d 20 21 3d 20  test.db-wal] != 
2630: 31 7d 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72  1} {.      error
2640: 20 22 46 69 6c 65 2d 73 79 73 74 65 6d 20 6c 6f   "File-system lo
2650: 6f 6b 73 20 62 61 64 2e 2e 2e 22 0a 20 20 20 20  oks bad...".    
2660: 7d 0a 20 20 20 20 64 62 20 65 76 61 6c 20 43 4f  }.    db eval CO
2670: 4d 4d 49 54 0a 0a 20 20 20 20 69 6e 74 65 67 72  MMIT..    integr
2680: 69 74 79 5f 63 68 65 63 6b 0a 20 20 20 20 64 62  ity_check.    db
2690: 20 63 6c 6f 73 65 0a 20 20 7d 0a 20 20 6c 69 73   close.  }.  lis
26a0: 74 20 24 6e 52 75 6e 20 24 6e 44 65 6c 0a 20 20  t $nRun $nDel.  
26b0: 73 65 74 20 7b 7d 20 22 5b 65 78 70 72 20 24 6e  set {} "[expr $n
26c0: 52 75 6e 2d 24 6e 44 65 6c 5d 20 77 2c 20 24 6e  Run-$nDel] w, $n
26d0: 44 65 6c 20 72 22 0a 0a 7d 20 2d 74 68 72 65 61  Del r"..} -threa
26e0: 64 20 57 41 4c 20 32 20 7b 0a 20 20 64 62 20 63  d WAL 2 {.  db c
26f0: 6c 6f 73 65 0a 20 20 73 65 74 20 6e 52 75 6e 20  lose.  set nRun 
2700: 30 0a 20 20 73 65 74 20 6e 44 65 6c 20 30 0a 20  0.  set nDel 0. 
2710: 20 77 68 69 6c 65 20 7b 5b 74 74 5f 63 6f 6e 74   while {[tt_cont
2720: 69 6e 75 65 5d 7d 20 7b 0a 20 20 20 20 73 71 6c  inue]} {.    sql
2730: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a  ite3 db test.db.
2740: 20 20 20 20 64 62 20 62 75 73 79 20 62 75 73 79      db busy busy
2750: 68 61 6e 64 6c 65 72 0a 20 20 20 20 64 62 20 65  handler.    db e
2760: 76 61 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46  val { SELECT * F
2770: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
2780: 72 20 7d 0a 20 20 20 20 63 61 74 63 68 20 7b 20  r }.    catch { 
2790: 64 62 20 65 76 61 6c 20 7b 20 50 52 41 47 4d 41  db eval { PRAGMA
27a0: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20   journal_mode = 
27b0: 57 41 4c 20 7d 20 7d 0a 20 20 20 20 64 62 20 65  WAL } }.    db e
27c0: 76 61 6c 20 7b 0a 20 20 20 20 20 20 42 45 47 49  val {.      BEGI
27d0: 4e 3b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20  N;.      INSERT 
27e0: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 4e  INTO t1 VALUES(N
27f0: 55 4c 4c 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28  ULL, randomblob(
2800: 31 31 30 2b 24 45 28 70 69 64 29 29 29 3b 0a 20  110+$E(pid)));. 
2810: 20 20 20 7d 0a 20 20 20 20 69 6e 63 72 20 6e 52     }.    incr nR
2820: 75 6e 20 31 0a 20 20 20 20 69 6e 63 72 20 6e 44  un 1.    incr nD
2830: 65 6c 20 5b 66 69 6c 65 20 65 78 69 73 74 73 20  el [file exists 
2840: 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 5d  test.db-journal]
2850: 0a 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65  .    if {[file e
2860: 78 69 73 74 73 20 74 65 73 74 2e 64 62 2d 6a 6f  xists test.db-jo
2870: 75 72 6e 61 6c 5d 20 2b 20 5b 66 69 6c 65 20 65  urnal] + [file e
2880: 78 69 73 74 73 20 74 65 73 74 2e 64 62 2d 77 61  xists test.db-wa
2890: 6c 5d 20 21 3d 20 31 7d 20 7b 0a 20 20 20 20 20  l] != 1} {.     
28a0: 20 65 72 72 6f 72 20 22 46 69 6c 65 2d 73 79 73   error "File-sys
28b0: 74 65 6d 20 6c 6f 6f 6b 73 20 62 61 64 2e 2e 2e  tem looks bad...
28c0: 22 0a 20 20 20 20 7d 0a 20 20 20 20 64 62 20 65  ".    }.    db e
28d0: 76 61 6c 20 43 4f 4d 4d 49 54 0a 0a 20 20 20 20  val COMMIT..    
28e0: 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 0a  integrity_check.
28f0: 20 20 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 7d      db close.  }
2900: 0a 20 20 73 65 74 20 7b 7d 20 22 5b 65 78 70 72  .  set {} "[expr
2910: 20 24 6e 52 75 6e 2d 24 6e 44 65 6c 5d 20 77 2c   $nRun-$nDel] w,
2920: 20 24 6e 44 65 6c 20 72 22 0a 7d 0a 0a 64 6f 5f   $nDel r".}..do_
2930: 74 68 72 65 61 64 5f 74 65 73 74 20 77 61 6c 74  thread_test walt
2940: 68 72 65 61 64 2d 33 20 2d 73 65 63 6f 6e 64 73  hread-3 -seconds
2950: 20 24 73 65 63 6f 6e 64 73 28 77 61 6c 74 68 72   $seconds(walthr
2960: 65 61 64 2d 33 29 20 2d 69 6e 69 74 20 7b 0a 20  ead-3) -init {. 
2970: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 50   execsql {.    P
2980: 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f  RAGMA journal_mo
2990: 64 65 20 3d 20 57 41 4c 3b 0a 20 20 20 20 43 52  de = WAL;.    CR
29a0: 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 63 6e  EATE TABLE t1(cn
29b0: 74 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 73  t PRIMARY KEY, s
29c0: 75 6d 31 2c 20 73 75 6d 32 29 3b 0a 20 20 20 20  um1, sum2);.    
29d0: 43 52 45 41 54 45 20 49 4e 44 45 58 20 69 31 20  CREATE INDEX i1 
29e0: 4f 4e 20 74 31 28 73 75 6d 31 29 3b 0a 20 20 20  ON t1(sum1);.   
29f0: 20 43 52 45 41 54 45 20 49 4e 44 45 58 20 69 32   CREATE INDEX i2
2a00: 20 4f 4e 20 74 31 28 73 75 6d 32 29 3b 0a 20 20   ON t1(sum2);.  
2a10: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
2a20: 20 56 41 4c 55 45 53 28 30 2c 20 30 2c 20 30 29   VALUES(0, 0, 0)
2a30: 3b 0a 20 20 7d 0a 7d 20 2d 74 68 72 65 61 64 20  ;.  }.} -thread 
2a40: 74 20 31 30 20 7b 0a 0a 20 20 73 65 74 20 6e 65  t 10 {..  set ne
2a50: 78 74 77 72 69 74 65 20 24 45 28 70 69 64 29 0a  xtwrite $E(pid).
2a60: 0a 20 20 70 72 6f 63 20 77 61 6c 5f 68 6f 6f 6b  .  proc wal_hook
2a70: 20 7b 7a 44 62 20 6e 45 6e 74 72 79 7d 20 7b 0a   {zDb nEntry} {.
2a80: 20 20 20 20 69 66 20 7b 24 6e 45 6e 74 72 79 3e      if {$nEntry>
2a90: 31 30 7d 20 7b 20 0a 20 20 20 20 20 20 73 65 74  10} { .      set
2aa0: 20 72 63 20 5b 63 61 74 63 68 20 7b 20 64 62 20   rc [catch { db 
2ab0: 65 76 61 6c 20 7b 50 52 41 47 4d 41 20 77 61 6c  eval {PRAGMA wal
2ac0: 5f 63 68 65 63 6b 70 6f 69 6e 74 7d 20 7d 20 6d  _checkpoint} } m
2ad0: 73 67 5d 0a 20 20 20 20 20 20 69 66 20 7b 24 72  sg].      if {$r
2ae0: 63 20 26 26 20 24 6d 73 67 20 21 3d 20 22 64 61  c && $msg != "da
2af0: 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64  tabase is locked
2b00: 22 7d 20 7b 20 65 72 72 6f 72 20 24 6d 73 67 20  "} { error $msg 
2b10: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  }.    }.    retu
2b20: 72 6e 20 30 0a 20 20 7d 0a 20 20 64 62 20 77 61  rn 0.  }.  db wa
2b30: 6c 5f 68 6f 6f 6b 20 77 61 6c 5f 68 6f 6f 6b 0a  l_hook wal_hook.
2b40: 0a 20 20 77 68 69 6c 65 20 7b 5b 74 74 5f 63 6f  .  while {[tt_co
2b50: 6e 74 69 6e 75 65 5d 7d 20 7b 0a 20 20 20 20 73  ntinue]} {.    s
2b60: 65 74 20 6d 61 78 20 30 0a 20 20 20 20 77 68 69  et max 0.    whi
2b70: 6c 65 20 7b 20 24 6d 61 78 20 21 3d 20 28 24 6e  le { $max != ($n
2b80: 65 78 74 77 72 69 74 65 2d 31 29 20 26 26 20 5b  extwrite-1) && [
2b90: 74 74 5f 63 6f 6e 74 69 6e 75 65 5d 20 7d 20 7b  tt_continue] } {
2ba0: 0a 20 20 20 20 20 20 73 65 74 20 6d 61 78 20 5b  .      set max [
2bb0: 64 62 20 65 76 61 6c 20 7b 20 53 45 4c 45 43 54  db eval { SELECT
2bc0: 20 6d 61 78 28 63 6e 74 29 20 46 52 4f 4d 20 74   max(cnt) FROM t
2bd0: 31 20 7d 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20  1 }].    }..    
2be0: 69 66 20 7b 5b 74 74 5f 63 6f 6e 74 69 6e 75 65  if {[tt_continue
2bf0: 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 73  ]} {.      set s
2c00: 75 6d 31 20 5b 64 62 20 65 76 61 6c 20 7b 20 53  um1 [db eval { S
2c10: 45 4c 45 43 54 20 73 75 6d 28 63 6e 74 29 20 46  ELECT sum(cnt) F
2c20: 52 4f 4d 20 74 31 20 7d 5d 0a 20 20 20 20 20 20  ROM t1 }].      
2c30: 73 65 74 20 73 75 6d 32 20 5b 64 62 20 65 76 61  set sum2 [db eva
2c40: 6c 20 7b 20 53 45 4c 45 43 54 20 73 75 6d 28 73  l { SELECT sum(s
2c50: 75 6d 31 29 20 46 52 4f 4d 20 74 31 20 7d 5d 0a  um1) FROM t1 }].
2c60: 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 20        db eval { 
2c70: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
2c80: 41 4c 55 45 53 28 24 6e 65 78 74 77 72 69 74 65  ALUES($nextwrite
2c90: 2c 20 24 73 75 6d 31 2c 20 24 73 75 6d 32 29 20  , $sum1, $sum2) 
2ca0: 7d 0a 20 20 20 20 20 20 69 6e 63 72 20 6e 65 78  }.      incr nex
2cb0: 74 77 72 69 74 65 20 24 45 28 6e 74 68 72 65 61  twrite $E(nthrea
2cc0: 64 29 0a 20 20 20 20 20 20 69 6e 74 65 67 72 69  d).      integri
2cd0: 74 79 5f 63 68 65 63 6b 0a 20 20 20 20 7d 0a 20  ty_check.    }. 
2ce0: 20 7d 0a 0a 20 20 73 65 74 20 7b 7d 20 6f 6b 0a   }..  set {} ok.
2cf0: 7d 20 2d 63 68 65 63 6b 20 7b 0a 20 20 70 75 74  } -check {.  put
2d00: 73 20 22 20 20 46 69 6e 61 6c 20 64 62 20 63 6f  s "  Final db co
2d10: 6e 74 61 69 6e 73 20 5b 64 62 20 65 76 61 6c 20  ntains [db eval 
2d20: 7b 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29  {SELECT count(*)
2d30: 20 46 52 4f 4d 20 74 31 7d 5d 20 72 6f 77 73 22   FROM t1}] rows"
2d40: 0a 20 20 70 75 74 73 20 22 20 20 46 69 6e 61 6c  .  puts "  Final
2d50: 20 69 6e 74 65 67 72 69 74 79 2d 63 68 65 63 6b   integrity-check
2d60: 20 73 61 79 73 3a 20 5b 64 62 20 65 76 61 6c 20   says: [db eval 
2d70: 7b 50 52 41 47 4d 41 20 69 6e 74 65 67 72 69 74  {PRAGMA integrit
2d80: 79 5f 63 68 65 63 6b 7d 5d 22 0a 0a 20 20 23 20  y_check}]"..  # 
2d90: 43 68 65 63 6b 20 74 68 61 74 20 74 68 65 20 63  Check that the c
2da0: 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 64  ontents of the d
2db0: 61 74 61 62 61 73 65 20 61 72 65 20 4f 6b 2e 0a  atabase are Ok..
2dc0: 20 20 73 65 74 20 63 20 30 0a 20 20 73 65 74 20    set c 0.  set 
2dd0: 73 31 20 30 0a 20 20 73 65 74 20 73 32 20 30 0a  s1 0.  set s2 0.
2de0: 20 20 64 62 20 65 76 61 6c 20 7b 20 53 45 4c 45    db eval { SELE
2df0: 43 54 20 63 6e 74 2c 20 73 75 6d 31 2c 20 73 75  CT cnt, sum1, su
2e00: 6d 32 20 46 52 4f 4d 20 74 31 20 4f 52 44 45 52  m2 FROM t1 ORDER
2e10: 20 42 59 20 63 6e 74 20 7d 20 7b 0a 20 20 20 20   BY cnt } {.    
2e20: 69 66 20 7b 24 63 20 21 3d 20 24 63 6e 74 20 7c  if {$c != $cnt |
2e30: 7c 20 24 73 31 20 21 3d 20 24 73 75 6d 31 20 7c  | $s1 != $sum1 |
2e40: 7c 20 24 73 32 20 21 3d 20 24 73 75 6d 32 7d 20  | $s2 != $sum2} 
2e50: 7b 0a 20 20 20 20 20 20 65 72 72 6f 72 20 22 64  {.      error "d
2e60: 61 74 61 62 61 73 65 20 63 6f 6e 74 65 6e 74 20  atabase content 
2e70: 69 73 20 69 6e 76 61 6c 69 64 22 0a 20 20 20 20  is invalid".    
2e80: 7d 0a 20 20 20 20 69 6e 63 72 20 73 32 20 24 73  }.    incr s2 $s
2e90: 31 0a 20 20 20 20 69 6e 63 72 20 73 31 20 24 63  1.    incr s1 $c
2ea0: 0a 20 20 20 20 69 6e 63 72 20 63 20 31 0a 20 20  .    incr c 1.  
2eb0: 7d 0a 7d 0a 0a 64 6f 5f 74 68 72 65 61 64 5f 74  }.}..do_thread_t
2ec0: 65 73 74 32 20 77 61 6c 74 68 72 65 61 64 2d 34  est2 walthread-4
2ed0: 20 2d 73 65 63 6f 6e 64 73 20 24 73 65 63 6f 6e   -seconds $secon
2ee0: 64 73 28 77 61 6c 74 68 72 65 61 64 2d 34 29 20  ds(walthread-4) 
2ef0: 2d 69 6e 69 74 20 7b 0a 20 20 65 78 65 63 73 71  -init {.  execsq
2f00: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 6a  l {.    PRAGMA j
2f10: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 57 41  ournal_mode = WA
2f20: 4c 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  L;.    CREATE TA
2f30: 42 4c 45 20 74 31 28 61 20 49 4e 54 45 47 45 52  BLE t1(a INTEGER
2f40: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 62 20   PRIMARY KEY, b 
2f50: 55 4e 49 51 55 45 29 3b 0a 20 20 7d 0a 7d 20 2d  UNIQUE);.  }.} -
2f60: 74 68 72 65 61 64 20 72 20 31 20 7b 0a 20 20 23  thread r 1 {.  #
2f70: 20 54 68 69 73 20 63 6f 6e 6e 65 63 74 69 6f 6e   This connection
2f80: 20 6f 6e 6c 79 20 65 76 65 72 20 72 65 61 64 73   only ever reads
2f90: 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 20 54   the database. T
2fa0: 68 65 72 65 66 6f 72 65 20 74 68 65 20 0a 20 20  herefore the .  
2fb0: 23 20 62 75 73 79 2d 68 61 6e 64 6c 65 72 20 69  # busy-handler i
2fc0: 73 20 6e 6f 74 20 72 65 71 75 69 72 65 64 2e 20  s not required. 
2fd0: 44 69 73 61 62 6c 65 20 69 74 20 74 6f 20 63 68  Disable it to ch
2fe0: 65 63 6b 20 74 68 61 74 20 74 68 69 73 20 69 73  eck that this is
2ff0: 20 74 72 75 65 2e 0a 20 20 23 0a 20 20 23 20 55   true..  #.  # U
3000: 50 44 41 54 45 3a 20 54 68 61 74 20 69 73 20 6e  PDATE: That is n
3010: 6f 20 6c 6f 6e 67 65 72 20 65 6e 74 69 72 65 6c  o longer entirel
3020: 79 20 74 72 75 65 20 2d 20 61 73 20 77 65 20 64  y true - as we d
3030: 6f 6e 27 74 20 75 73 65 20 61 20 62 6c 6f 63 6b  on't use a block
3040: 69 6e 67 0a 20 20 23 20 6c 6f 63 6b 20 74 6f 20  ing.  # lock to 
3050: 65 6e 74 65 72 20 52 45 43 4f 56 45 52 20 73 74  enter RECOVER st
3060: 61 74 65 2e 20 57 68 69 63 68 20 6d 65 61 6e 73  ate. Which means
3070: 20 74 68 65 72 65 20 69 73 20 61 20 73 6d 61 6c   there is a smal
3080: 6c 20 63 68 61 6e 63 65 20 61 0a 20 20 23 20 72  l chance a.  # r
3090: 65 61 64 65 72 20 63 61 6e 20 73 65 65 20 61 6e  eader can see an
30a0: 20 53 51 4c 49 54 45 5f 42 55 53 59 2e 0a 20 20   SQLITE_BUSY..  
30b0: 23 0a 20 20 77 68 69 6c 65 20 7b 5b 74 74 5f 63  #.  while {[tt_c
30c0: 6f 6e 74 69 6e 75 65 5d 7d 20 7b 0a 20 20 20 20  ontinue]} {.    
30d0: 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 0a  integrity_check.
30e0: 20 20 7d 0a 20 20 73 65 74 20 7b 7d 20 6f 6b 0a    }.  set {} ok.
30f0: 7d 20 2d 74 68 72 65 61 64 20 77 20 31 20 7b 0a  } -thread w 1 {.
3100: 0a 20 20 70 72 6f 63 20 77 61 6c 5f 68 6f 6f 6b  .  proc wal_hook
3110: 20 7b 7a 44 62 20 6e 45 6e 74 72 79 7d 20 7b 0a   {zDb nEntry} {.
3120: 20 20 20 20 69 66 20 7b 24 6e 45 6e 74 72 79 3e      if {$nEntry>
3130: 31 35 7d 20 7b 64 62 20 65 76 61 6c 20 7b 50 52  15} {db eval {PR
3140: 41 47 4d 41 20 77 61 6c 5f 63 68 65 63 6b 70 6f  AGMA wal_checkpo
3150: 69 6e 74 7d 7d 0a 20 20 20 20 72 65 74 75 72 6e  int}}.    return
3160: 20 30 0a 20 20 7d 0a 20 20 64 62 20 77 61 6c 5f   0.  }.  db wal_
3170: 68 6f 6f 6b 20 77 61 6c 5f 68 6f 6f 6b 0a 20 20  hook wal_hook.  
3180: 73 65 74 20 72 6f 77 20 31 0a 20 20 77 68 69 6c  set row 1.  whil
3190: 65 20 7b 5b 74 74 5f 63 6f 6e 74 69 6e 75 65 5d  e {[tt_continue]
31a0: 7d 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20  } {.    db eval 
31b0: 7b 20 52 45 50 4c 41 43 45 20 49 4e 54 4f 20 74  { REPLACE INTO t
31c0: 31 20 56 41 4c 55 45 53 28 24 72 6f 77 2c 20 72  1 VALUES($row, r
31d0: 61 6e 64 6f 6d 62 6c 6f 62 28 33 30 30 29 29 20  andomblob(300)) 
31e0: 7d 0a 20 20 20 20 69 6e 63 72 20 72 6f 77 0a 20  }.    incr row. 
31f0: 20 20 20 69 66 20 7b 24 72 6f 77 20 3d 3d 20 31     if {$row == 1
3200: 30 7d 20 7b 20 73 65 74 20 72 6f 77 20 31 20 7d  0} { set row 1 }
3210: 0a 20 20 7d 0a 0a 20 20 73 65 74 20 7b 7d 20 6f  .  }..  set {} o
3220: 6b 0a 7d 0a 0a 0a 23 20 54 68 69 73 20 74 65 73  k.}...# This tes
3230: 74 20 63 61 73 65 20 61 74 74 65 6d 70 74 73 20  t case attempts 
3240: 74 6f 20 70 72 6f 76 6f 6b 65 20 61 20 64 65 61  to provoke a dea
3250: 64 6c 6f 63 6b 20 63 6f 6e 64 69 74 69 6f 6e 20  dlock condition 
3260: 74 68 61 74 20 65 78 69 73 74 65 64 20 69 6e 0a  that existed in.
3270: 23 20 74 68 65 20 75 6e 69 78 20 56 46 53 20 61  # the unix VFS a
3280: 74 20 6f 6e 65 20 70 6f 69 6e 74 2e 20 54 68 65  t one point. The
3290: 20 70 72 6f 62 6c 65 6d 20 6f 63 63 75 72 72 65   problem occurre
32a0: 64 20 6f 6e 6c 79 20 77 68 69 6c 65 20 72 65 63  d only while rec
32b0: 6f 76 65 72 69 6e 67 20 61 20 0a 23 20 76 65 72  overing a .# ver
32c0: 79 20 6c 61 72 67 65 20 77 61 6c 20 66 69 6c 65  y large wal file
32d0: 20 28 6f 6e 65 20 74 68 61 74 20 72 65 71 75 69   (one that requi
32e0: 72 65 73 20 61 20 77 61 6c 2d 69 6e 64 65 78 20  res a wal-index 
32f0: 6c 61 72 67 65 72 20 74 68 61 6e 20 74 68 65 20  larger than the 
3300: 0a 23 20 69 6e 69 74 69 61 6c 20 64 65 66 61 75  .# initial defau
3310: 6c 74 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 6f 66  lt allocation of
3320: 20 36 34 4b 42 29 2e 0a 23 0a 64 6f 5f 74 68 72   64KB)..#.do_thr
3330: 65 61 64 5f 74 65 73 74 20 77 61 6c 74 68 72 65  ead_test walthre
3340: 61 64 2d 35 20 2d 73 65 63 6f 6e 64 73 20 24 73  ad-5 -seconds $s
3350: 65 63 6f 6e 64 73 28 77 61 6c 74 68 72 65 61 64  econds(walthread
3360: 2d 35 29 20 2d 69 6e 69 74 20 7b 0a 0a 20 20 70  -5) -init {..  p
3370: 72 6f 63 20 6c 6f 67 5f 66 69 6c 65 5f 73 69 7a  roc log_file_siz
3380: 65 20 7b 6e 46 72 61 6d 65 20 70 67 73 7a 7d 20  e {nFrame pgsz} 
3390: 7b 0a 20 20 20 20 65 78 70 72 20 7b 31 32 20 2b  {.    expr {12 +
33a0: 20 28 24 70 67 73 7a 2b 31 36 29 2a 24 6e 46 72   ($pgsz+16)*$nFr
33b0: 61 6d 65 7d 0a 20 20 7d 0a 0a 20 20 65 78 65 63  ame}.  }..  exec
33c0: 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41  sql {.    PRAGMA
33d0: 20 70 61 67 65 5f 73 69 7a 65 20 3d 20 31 30 32   page_size = 102
33e0: 34 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 6a 6f  4;.    PRAGMA jo
33f0: 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c  urnal_mode = WAL
3400: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ;.    CREATE TAB
3410: 4c 45 20 74 31 28 78 29 3b 0a 20 20 20 20 42 45  LE t1(x);.    BE
3420: 47 49 4e 3b 0a 20 20 20 20 20 20 49 4e 53 45 52  GIN;.      INSER
3430: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
3440: 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29  (randomblob(900)
3450: 29 3b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20  );.      INSERT 
3460: 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20 72  INTO t1 SELECT r
3470: 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46  andomblob(900) F
3480: 52 4f 4d 20 74 31 3b 20 20 20 20 20 20 2f 2a 20  ROM t1;      /* 
3490: 20 20 20 20 32 20 2a 2f 0a 20 20 20 20 20 20 49      2 */.      I
34a0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45  NSERT INTO t1 SE
34b0: 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28  LECT randomblob(
34c0: 39 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20  900) FROM t1;   
34d0: 20 20 20 2f 2a 20 20 20 20 20 34 20 2a 2f 0a 20     /*     4 */. 
34e0: 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f       INSERT INTO
34f0: 20 74 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f   t1 SELECT rando
3500: 6d 62 6c 6f 62 28 39 30 30 29 20 46 52 4f 4d 20  mblob(900) FROM 
3510: 74 31 3b 20 20 20 20 20 20 2f 2a 20 20 20 20 20  t1;      /*     
3520: 38 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52  8 */.      INSER
3530: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
3540: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29   randomblob(900)
3550: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 20 20 2f   FROM t1;      /
3560: 2a 20 20 20 20 31 36 20 2a 2f 0a 20 20 20 20 20  *    16 */.     
3570: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
3580: 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f  SELECT randomblo
3590: 62 28 39 30 30 29 20 46 52 4f 4d 20 74 31 3b 20  b(900) FROM t1; 
35a0: 20 20 20 20 20 2f 2a 20 20 20 20 33 32 20 2a 2f       /*    32 */
35b0: 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e  .      INSERT IN
35c0: 54 4f 20 74 31 20 53 45 4c 45 43 54 20 72 61 6e  TO t1 SELECT ran
35d0: 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46 52 4f  domblob(900) FRO
35e0: 4d 20 74 31 3b 20 20 20 20 20 20 2f 2a 20 20 20  M t1;      /*   
35f0: 20 36 34 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53   64 */.      INS
3600: 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45  ERT INTO t1 SELE
3610: 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30  CT randomblob(90
3620: 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 20  0) FROM t1;     
3630: 20 2f 2a 20 20 20 31 32 38 20 2a 2f 0a 20 20 20   /*   128 */.   
3640: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
3650: 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62  1 SELECT randomb
3660: 6c 6f 62 28 39 30 30 29 20 46 52 4f 4d 20 74 31  lob(900) FROM t1
3670: 3b 20 20 20 20 20 20 2f 2a 20 20 20 32 35 36 20  ;      /*   256 
3680: 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20  */.      INSERT 
3690: 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20 72  INTO t1 SELECT r
36a0: 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46  andomblob(900) F
36b0: 52 4f 4d 20 74 31 3b 20 20 20 20 20 20 2f 2a 20  ROM t1;      /* 
36c0: 20 20 35 31 32 20 2a 2f 0a 20 20 20 20 20 20 49    512 */.      I
36d0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45  NSERT INTO t1 SE
36e0: 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28  LECT randomblob(
36f0: 39 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20  900) FROM t1;   
3700: 20 20 20 2f 2a 20 20 31 30 32 34 20 2a 2f 0a 20     /*  1024 */. 
3710: 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f       INSERT INTO
3720: 20 74 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f   t1 SELECT rando
3730: 6d 62 6c 6f 62 28 39 30 30 29 20 46 52 4f 4d 20  mblob(900) FROM 
3740: 74 31 3b 20 20 20 20 20 20 2f 2a 20 20 32 30 34  t1;      /*  204
3750: 38 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52  8 */.      INSER
3760: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
3770: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29   randomblob(900)
3780: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 20 20 2f   FROM t1;      /
3790: 2a 20 20 34 30 39 36 20 2a 2f 0a 20 20 20 20 20  *  4096 */.     
37a0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
37b0: 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f  SELECT randomblo
37c0: 62 28 39 30 30 29 20 46 52 4f 4d 20 74 31 3b 20  b(900) FROM t1; 
37d0: 20 20 20 20 20 2f 2a 20 20 38 31 39 32 20 2a 2f       /*  8192 */
37e0: 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e  .      INSERT IN
37f0: 54 4f 20 74 31 20 53 45 4c 45 43 54 20 72 61 6e  TO t1 SELECT ran
3800: 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46 52 4f  domblob(900) FRO
3810: 4d 20 74 31 3b 20 20 20 20 20 20 2f 2a 20 31 36  M t1;      /* 16
3820: 33 38 34 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53  384 */.      INS
3830: 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45  ERT INTO t1 SELE
3840: 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30  CT randomblob(90
3850: 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 20  0) FROM t1;     
3860: 20 2f 2a 20 33 32 37 36 38 20 2a 2f 0a 20 20 20   /* 32768 */.   
3870: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
3880: 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62  1 SELECT randomb
3890: 6c 6f 62 28 39 30 30 29 20 46 52 4f 4d 20 74 31  lob(900) FROM t1
38a0: 3b 20 20 20 20 20 20 2f 2a 20 36 35 35 33 36 20  ;      /* 65536 
38b0: 2a 2f 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20  */.    COMMIT;. 
38c0: 20 7d 0a 0a 20 20 66 6f 72 63 65 63 6f 70 79 20   }..  forcecopy 
38d0: 74 65 73 74 2e 64 62 2d 77 61 6c 20 62 61 6b 2e  test.db-wal bak.
38e0: 64 62 2d 77 61 6c 0a 20 20 66 6f 72 63 65 63 6f  db-wal.  forceco
38f0: 70 79 20 74 65 73 74 2e 64 62 20 62 61 6b 2e 64  py test.db bak.d
3900: 62 0a 20 20 64 62 20 63 6c 6f 73 65 0a 0a 20 20  b.  db close..  
3910: 66 6f 72 63 65 63 6f 70 79 20 62 61 6b 2e 64 62  forcecopy bak.db
3920: 2d 77 61 6c 20 74 65 73 74 2e 64 62 2d 77 61 6c  -wal test.db-wal
3930: 0a 20 20 66 6f 72 63 65 63 6f 70 79 20 62 61 6b  .  forcecopy bak
3940: 2e 64 62 20 74 65 73 74 2e 64 62 0a 0a 20 20 69  .db test.db..  i
3950: 66 20 7b 5b 66 69 6c 65 20 73 69 7a 65 20 74 65  f {[file size te
3960: 73 74 2e 64 62 2d 77 61 6c 5d 20 3c 20 5b 6c 6f  st.db-wal] < [lo
3970: 67 5f 66 69 6c 65 5f 73 69 7a 65 20 5b 65 78 70  g_file_size [exp
3980: 72 20 36 34 2a 31 30 32 34 5d 20 31 30 32 34 5d  r 64*1024] 1024]
3990: 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20 22 53  } {.    error "S
39a0: 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64 20 74 6f  omehow failed to
39b0: 20 63 72 65 61 74 65 20 61 20 6c 61 72 67 65 20   create a large 
39c0: 6c 6f 67 20 66 69 6c 65 22 0a 20 20 7d 0a 20 20  log file".  }.  
39d0: 70 75 74 73 20 22 44 61 74 61 62 61 73 65 20 77  puts "Database w
39e0: 69 74 68 20 6c 61 72 67 65 20 6c 6f 67 20 66 69  ith large log fi
39f0: 6c 65 20 72 65 63 6f 76 65 72 65 64 2e 20 4e 6f  le recovered. No
3a00: 77 20 72 75 6e 6e 69 6e 67 20 63 6c 69 65 6e 74  w running client
3a10: 73 2e 2e 2e 22 0a 7d 20 2d 74 68 72 65 61 64 20  s...".} -thread 
3a20: 54 20 35 20 7b 0a 20 20 64 62 20 65 76 61 6c 20  T 5 {.  db eval 
3a30: 7b 20 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a  { SELECT count(*
3a40: 29 20 46 52 4f 4d 20 74 31 20 7d 0a 7d 0a 75 6e  ) FROM t1 }.}.un
3a50: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
3a60: 73 65 63 6f 6e 64 73 0a 0a 66 69 6e 69 73 68 5f  seconds..finish_
3a70: 74 65 73 74 0a                                   test.