/ Hex Artifact Content
Login

Artifact c2bc173d0ca244134ab6bcf8ccd108ee787fb2e7925dbbae973e60fcc6c74851:


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 69 66 20  w, 185 r"..#.if 
23f0: 7b 5b 61 74 6f 6d 69 63 5f 62 61 74 63 68 5f 77  {[atomic_batch_w
2400: 72 69 74 65 20 74 65 73 74 2e 64 62 5d 3d 3d 30  rite test.db]==0
2410: 7d 20 7b 0a 20 20 64 6f 5f 74 68 72 65 61 64 5f  } {.  do_thread_
2420: 74 65 73 74 32 20 77 61 6c 74 68 72 65 61 64 2d  test2 walthread-
2430: 32 20 2d 73 65 63 6f 6e 64 73 20 24 73 65 63 6f  2 -seconds $seco
2440: 6e 64 73 28 77 61 6c 74 68 72 65 61 64 2d 32 29  nds(walthread-2)
2450: 20 2d 69 6e 69 74 20 7b 0a 20 20 20 20 65 78 65   -init {.    exe
2460: 63 73 71 6c 20 7b 20 43 52 45 41 54 45 20 54 41  csql { CREATE TA
2470: 42 4c 45 20 74 31 28 78 20 49 4e 54 45 47 45 52  BLE t1(x INTEGER
2480: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 79 20   PRIMARY KEY, y 
2490: 55 4e 49 51 55 45 29 20 7d 0a 20 20 7d 20 2d 74  UNIQUE) }.  } -t
24a0: 68 72 65 61 64 20 52 42 20 32 20 7b 0a 0a 20 20  hread RB 2 {..  
24b0: 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 20 20 73    db close.    s
24c0: 65 74 20 6e 52 75 6e 20 30 0a 20 20 20 20 73 65  et nRun 0.    se
24d0: 74 20 6e 44 65 6c 20 30 0a 20 20 20 20 77 68 69  t nDel 0.    whi
24e0: 6c 65 20 7b 5b 74 74 5f 63 6f 6e 74 69 6e 75 65  le {[tt_continue
24f0: 5d 7d 20 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  ]} {.      sqlit
2500: 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20  e3 db test.db.  
2510: 20 20 20 20 64 62 20 62 75 73 79 20 62 75 73 79      db busy busy
2520: 68 61 6e 64 6c 65 72 0a 20 20 20 20 20 20 64 62  handler.      db
2530: 20 65 76 61 6c 20 7b 20 53 45 4c 45 43 54 20 2a   eval { SELECT *
2540: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
2550: 74 65 72 20 7d 0a 20 20 20 20 20 20 63 61 74 63  ter }.      catc
2560: 68 20 7b 20 64 62 20 65 76 61 6c 20 7b 20 50 52  h { db eval { PR
2570: 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64  AGMA journal_mod
2580: 65 20 3d 20 44 45 4c 45 54 45 20 7d 20 7d 0a 20  e = DELETE } }. 
2590: 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 0a 20       db eval {. 
25a0: 20 20 20 20 20 20 20 42 45 47 49 4e 3b 0a 20 20         BEGIN;.  
25b0: 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54        INSERT INT
25c0: 4f 20 74 31 20 56 41 4c 55 45 53 28 4e 55 4c 4c  O t1 VALUES(NULL
25d0: 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 31 30 30  , randomblob(100
25e0: 2b 24 45 28 70 69 64 29 29 29 3b 0a 20 20 20 20  +$E(pid)));.    
25f0: 20 20 7d 0a 20 20 20 20 20 20 69 6e 63 72 20 6e    }.      incr n
2600: 52 75 6e 20 31 0a 20 20 20 20 20 20 69 6e 63 72  Run 1.      incr
2610: 20 6e 44 65 6c 20 5b 66 69 6c 65 20 65 78 69 73   nDel [file exis
2620: 74 73 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e  ts test.db-journ
2630: 61 6c 5d 0a 20 20 20 20 20 20 69 66 20 7b 5b 66  al].      if {[f
2640: 69 6c 65 20 65 78 69 73 74 73 20 74 65 73 74 2e  ile exists test.
2650: 64 62 2d 6a 6f 75 72 6e 61 6c 5d 20 2b 20 5b 66  db-journal] + [f
2660: 69 6c 65 20 65 78 69 73 74 73 20 74 65 73 74 2e  ile exists test.
2670: 64 62 2d 77 61 6c 5d 20 21 3d 20 31 7d 20 7b 0a  db-wal] != 1} {.
2680: 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 22 46          error "F
2690: 69 6c 65 2d 73 79 73 74 65 6d 20 6c 6f 6f 6b 73  ile-system looks
26a0: 20 62 61 64 2e 2e 2e 22 0a 20 20 20 20 20 20 7d   bad...".      }
26b0: 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 43  .      db eval C
26c0: 4f 4d 4d 49 54 0a 20 20 0a 20 20 20 20 20 20 69  OMMIT.  .      i
26d0: 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 0a 20  ntegrity_check. 
26e0: 20 20 20 20 20 64 62 20 63 6c 6f 73 65 0a 20 20       db close.  
26f0: 20 20 7d 0a 20 20 20 20 6c 69 73 74 20 24 6e 52    }.    list $nR
2700: 75 6e 20 24 6e 44 65 6c 0a 20 20 20 20 73 65 74  un $nDel.    set
2710: 20 7b 7d 20 22 5b 65 78 70 72 20 24 6e 52 75 6e   {} "[expr $nRun
2720: 2d 24 6e 44 65 6c 5d 20 77 2c 20 24 6e 44 65 6c  -$nDel] w, $nDel
2730: 20 72 22 0a 20 20 0a 20 20 7d 20 2d 74 68 72 65   r".  .  } -thre
2740: 61 64 20 57 41 4c 20 32 20 7b 0a 20 20 20 20 64  ad WAL 2 {.    d
2750: 62 20 63 6c 6f 73 65 0a 20 20 20 20 73 65 74 20  b close.    set 
2760: 6e 52 75 6e 20 30 0a 20 20 20 20 73 65 74 20 6e  nRun 0.    set n
2770: 44 65 6c 20 30 0a 20 20 20 20 77 68 69 6c 65 20  Del 0.    while 
2780: 7b 5b 74 74 5f 63 6f 6e 74 69 6e 75 65 5d 7d 20  {[tt_continue]} 
2790: 7b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 20  {.      sqlite3 
27a0: 64 62 20 74 65 73 74 2e 64 62 0a 20 20 20 20 20  db test.db.     
27b0: 20 64 62 20 62 75 73 79 20 62 75 73 79 68 61 6e   db busy busyhan
27c0: 64 6c 65 72 0a 20 20 20 20 20 20 64 62 20 65 76  dler.      db ev
27d0: 61 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46 52  al { SELECT * FR
27e0: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
27f0: 20 7d 0a 20 20 20 20 20 20 63 61 74 63 68 20 7b   }.      catch {
2800: 20 64 62 20 65 76 61 6c 20 7b 20 50 52 41 47 4d   db eval { PRAGM
2810: 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d  A journal_mode =
2820: 20 57 41 4c 20 7d 20 7d 0a 20 20 20 20 20 20 64   WAL } }.      d
2830: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20 20 20  b eval {.       
2840: 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 20 20   BEGIN;.        
2850: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
2860: 41 4c 55 45 53 28 4e 55 4c 4c 2c 20 72 61 6e 64  ALUES(NULL, rand
2870: 6f 6d 62 6c 6f 62 28 31 31 30 2b 24 45 28 70 69  omblob(110+$E(pi
2880: 64 29 29 29 3b 0a 20 20 20 20 20 20 7d 0a 20 20  d)));.      }.  
2890: 20 20 20 20 69 6e 63 72 20 6e 52 75 6e 20 31 0a      incr nRun 1.
28a0: 20 20 20 20 20 20 69 6e 63 72 20 6e 44 65 6c 20        incr nDel 
28b0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 74 65 73  [file exists tes
28c0: 74 2e 64 62 2d 6a 6f 75 72 6e 61 6c 5d 0a 20 20  t.db-journal].  
28d0: 20 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78      if {[file ex
28e0: 69 73 74 73 20 74 65 73 74 2e 64 62 2d 6a 6f 75  ists test.db-jou
28f0: 72 6e 61 6c 5d 20 2b 20 5b 66 69 6c 65 20 65 78  rnal] + [file ex
2900: 69 73 74 73 20 74 65 73 74 2e 64 62 2d 77 61 6c  ists test.db-wal
2910: 5d 20 21 3d 20 31 7d 20 7b 0a 20 20 20 20 20 20  ] != 1} {.      
2920: 20 20 65 72 72 6f 72 20 22 46 69 6c 65 2d 73 79    error "File-sy
2930: 73 74 65 6d 20 6c 6f 6f 6b 73 20 62 61 64 2e 2e  stem looks bad..
2940: 2e 22 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .".      }.     
2950: 20 64 62 20 65 76 61 6c 20 43 4f 4d 4d 49 54 0a   db eval COMMIT.
2960: 20 20 0a 20 20 20 20 20 20 69 6e 74 65 67 72 69    .      integri
2970: 74 79 5f 63 68 65 63 6b 0a 20 20 20 20 20 20 64  ty_check.      d
2980: 62 20 63 6c 6f 73 65 0a 20 20 20 20 7d 0a 20 20  b close.    }.  
2990: 20 20 73 65 74 20 7b 7d 20 22 5b 65 78 70 72 20    set {} "[expr 
29a0: 24 6e 52 75 6e 2d 24 6e 44 65 6c 5d 20 77 2c 20  $nRun-$nDel] w, 
29b0: 24 6e 44 65 6c 20 72 22 0a 20 20 7d 0a 7d 0a 0a  $nDel r".  }.}..
29c0: 64 6f 5f 74 68 72 65 61 64 5f 74 65 73 74 20 77  do_thread_test w
29d0: 61 6c 74 68 72 65 61 64 2d 33 20 2d 73 65 63 6f  althread-3 -seco
29e0: 6e 64 73 20 24 73 65 63 6f 6e 64 73 28 77 61 6c  nds $seconds(wal
29f0: 74 68 72 65 61 64 2d 33 29 20 2d 69 6e 69 74 20  thread-3) -init 
2a00: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  {.  execsql {.  
2a10: 20 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c    PRAGMA journal
2a20: 5f 6d 6f 64 65 20 3d 20 57 41 4c 3b 0a 20 20 20  _mode = WAL;.   
2a30: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31   CREATE TABLE t1
2a40: 28 63 6e 74 20 50 52 49 4d 41 52 59 20 4b 45 59  (cnt PRIMARY KEY
2a50: 2c 20 73 75 6d 31 2c 20 73 75 6d 32 29 3b 0a 20  , sum1, sum2);. 
2a60: 20 20 20 43 52 45 41 54 45 20 49 4e 44 45 58 20     CREATE INDEX 
2a70: 69 31 20 4f 4e 20 74 31 28 73 75 6d 31 29 3b 0a  i1 ON t1(sum1);.
2a80: 20 20 20 20 43 52 45 41 54 45 20 49 4e 44 45 58      CREATE INDEX
2a90: 20 69 32 20 4f 4e 20 74 31 28 73 75 6d 32 29 3b   i2 ON t1(sum2);
2aa0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
2ab0: 20 74 31 20 56 41 4c 55 45 53 28 30 2c 20 30 2c   t1 VALUES(0, 0,
2ac0: 20 30 29 3b 0a 20 20 7d 0a 7d 20 2d 74 68 72 65   0);.  }.} -thre
2ad0: 61 64 20 74 20 31 30 20 7b 0a 0a 20 20 73 65 74  ad t 10 {..  set
2ae0: 20 6e 65 78 74 77 72 69 74 65 20 24 45 28 70 69   nextwrite $E(pi
2af0: 64 29 0a 0a 20 20 70 72 6f 63 20 77 61 6c 5f 68  d)..  proc wal_h
2b00: 6f 6f 6b 20 7b 7a 44 62 20 6e 45 6e 74 72 79 7d  ook {zDb nEntry}
2b10: 20 7b 0a 20 20 20 20 69 66 20 7b 24 6e 45 6e 74   {.    if {$nEnt
2b20: 72 79 3e 31 30 7d 20 7b 20 0a 20 20 20 20 20 20  ry>10} { .      
2b30: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 20  set rc [catch { 
2b40: 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20  db eval {PRAGMA 
2b50: 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 7d 20  wal_checkpoint} 
2b60: 7d 20 6d 73 67 5d 0a 20 20 20 20 20 20 69 66 20  } msg].      if 
2b70: 7b 24 72 63 20 26 26 20 24 6d 73 67 20 21 3d 20  {$rc && $msg != 
2b80: 22 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63  "database is loc
2b90: 6b 65 64 22 7d 20 7b 20 65 72 72 6f 72 20 24 6d  ked"} { error $m
2ba0: 73 67 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72  sg }.    }.    r
2bb0: 65 74 75 72 6e 20 30 0a 20 20 7d 0a 20 20 64 62  eturn 0.  }.  db
2bc0: 20 77 61 6c 5f 68 6f 6f 6b 20 77 61 6c 5f 68 6f   wal_hook wal_ho
2bd0: 6f 6b 0a 0a 20 20 77 68 69 6c 65 20 7b 5b 74 74  ok..  while {[tt
2be0: 5f 63 6f 6e 74 69 6e 75 65 5d 7d 20 7b 0a 20 20  _continue]} {.  
2bf0: 20 20 73 65 74 20 6d 61 78 20 30 0a 20 20 20 20    set max 0.    
2c00: 77 68 69 6c 65 20 7b 20 24 6d 61 78 20 21 3d 20  while { $max != 
2c10: 28 24 6e 65 78 74 77 72 69 74 65 2d 31 29 20 26  ($nextwrite-1) &
2c20: 26 20 5b 74 74 5f 63 6f 6e 74 69 6e 75 65 5d 20  & [tt_continue] 
2c30: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 6d 61  } {.      set ma
2c40: 78 20 5b 64 62 20 65 76 61 6c 20 7b 20 53 45 4c  x [db eval { SEL
2c50: 45 43 54 20 6d 61 78 28 63 6e 74 29 20 46 52 4f  ECT max(cnt) FRO
2c60: 4d 20 74 31 20 7d 5d 0a 20 20 20 20 7d 0a 0a 20  M t1 }].    }.. 
2c70: 20 20 20 69 66 20 7b 5b 74 74 5f 63 6f 6e 74 69     if {[tt_conti
2c80: 6e 75 65 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65  nue]} {.      se
2c90: 74 20 73 75 6d 31 20 5b 64 62 20 65 76 61 6c 20  t sum1 [db eval 
2ca0: 7b 20 53 45 4c 45 43 54 20 73 75 6d 28 63 6e 74  { SELECT sum(cnt
2cb0: 29 20 46 52 4f 4d 20 74 31 20 7d 5d 0a 20 20 20  ) FROM t1 }].   
2cc0: 20 20 20 73 65 74 20 73 75 6d 32 20 5b 64 62 20     set sum2 [db 
2cd0: 65 76 61 6c 20 7b 20 53 45 4c 45 43 54 20 73 75  eval { SELECT su
2ce0: 6d 28 73 75 6d 31 29 20 46 52 4f 4d 20 74 31 20  m(sum1) FROM t1 
2cf0: 7d 5d 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c  }].      db eval
2d00: 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74   { INSERT INTO t
2d10: 31 20 56 41 4c 55 45 53 28 24 6e 65 78 74 77 72  1 VALUES($nextwr
2d20: 69 74 65 2c 20 24 73 75 6d 31 2c 20 24 73 75 6d  ite, $sum1, $sum
2d30: 32 29 20 7d 0a 20 20 20 20 20 20 69 6e 63 72 20  2) }.      incr 
2d40: 6e 65 78 74 77 72 69 74 65 20 24 45 28 6e 74 68  nextwrite $E(nth
2d50: 72 65 61 64 29 0a 20 20 20 20 20 20 69 6e 74 65  read).      inte
2d60: 67 72 69 74 79 5f 63 68 65 63 6b 0a 20 20 20 20  grity_check.    
2d70: 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 20 7b 7d 20  }.  }..  set {} 
2d80: 6f 6b 0a 7d 20 2d 63 68 65 63 6b 20 7b 0a 20 20  ok.} -check {.  
2d90: 70 75 74 73 20 22 20 20 46 69 6e 61 6c 20 64 62  puts "  Final db
2da0: 20 63 6f 6e 74 61 69 6e 73 20 5b 64 62 20 65 76   contains [db ev
2db0: 61 6c 20 7b 53 45 4c 45 43 54 20 63 6f 75 6e 74  al {SELECT count
2dc0: 28 2a 29 20 46 52 4f 4d 20 74 31 7d 5d 20 72 6f  (*) FROM t1}] ro
2dd0: 77 73 22 0a 20 20 70 75 74 73 20 22 20 20 46 69  ws".  puts "  Fi
2de0: 6e 61 6c 20 69 6e 74 65 67 72 69 74 79 2d 63 68  nal integrity-ch
2df0: 65 63 6b 20 73 61 79 73 3a 20 5b 64 62 20 65 76  eck says: [db ev
2e00: 61 6c 20 7b 50 52 41 47 4d 41 20 69 6e 74 65 67  al {PRAGMA integ
2e10: 72 69 74 79 5f 63 68 65 63 6b 7d 5d 22 0a 0a 20  rity_check}]".. 
2e20: 20 23 20 43 68 65 63 6b 20 74 68 61 74 20 74 68   # Check that th
2e30: 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68  e contents of th
2e40: 65 20 64 61 74 61 62 61 73 65 20 61 72 65 20 4f  e database are O
2e50: 6b 2e 0a 20 20 73 65 74 20 63 20 30 0a 20 20 73  k..  set c 0.  s
2e60: 65 74 20 73 31 20 30 0a 20 20 73 65 74 20 73 32  et s1 0.  set s2
2e70: 20 30 0a 20 20 64 62 20 65 76 61 6c 20 7b 20 53   0.  db eval { S
2e80: 45 4c 45 43 54 20 63 6e 74 2c 20 73 75 6d 31 2c  ELECT cnt, sum1,
2e90: 20 73 75 6d 32 20 46 52 4f 4d 20 74 31 20 4f 52   sum2 FROM t1 OR
2ea0: 44 45 52 20 42 59 20 63 6e 74 20 7d 20 7b 0a 20  DER BY cnt } {. 
2eb0: 20 20 20 69 66 20 7b 24 63 20 21 3d 20 24 63 6e     if {$c != $cn
2ec0: 74 20 7c 7c 20 24 73 31 20 21 3d 20 24 73 75 6d  t || $s1 != $sum
2ed0: 31 20 7c 7c 20 24 73 32 20 21 3d 20 24 73 75 6d  1 || $s2 != $sum
2ee0: 32 7d 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72  2} {.      error
2ef0: 20 22 64 61 74 61 62 61 73 65 20 63 6f 6e 74 65   "database conte
2f00: 6e 74 20 69 73 20 69 6e 76 61 6c 69 64 22 0a 20  nt is invalid". 
2f10: 20 20 20 7d 0a 20 20 20 20 69 6e 63 72 20 73 32     }.    incr s2
2f20: 20 24 73 31 0a 20 20 20 20 69 6e 63 72 20 73 31   $s1.    incr s1
2f30: 20 24 63 0a 20 20 20 20 69 6e 63 72 20 63 20 31   $c.    incr c 1
2f40: 0a 20 20 7d 0a 7d 0a 0a 64 6f 5f 74 68 72 65 61  .  }.}..do_threa
2f50: 64 5f 74 65 73 74 32 20 77 61 6c 74 68 72 65 61  d_test2 walthrea
2f60: 64 2d 34 20 2d 73 65 63 6f 6e 64 73 20 24 73 65  d-4 -seconds $se
2f70: 63 6f 6e 64 73 28 77 61 6c 74 68 72 65 61 64 2d  conds(walthread-
2f80: 34 29 20 2d 69 6e 69 74 20 7b 0a 20 20 65 78 65  4) -init {.  exe
2f90: 63 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d  csql {.    PRAGM
2fa0: 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d  A journal_mode =
2fb0: 20 57 41 4c 3b 0a 20 20 20 20 43 52 45 41 54 45   WAL;.    CREATE
2fc0: 20 54 41 42 4c 45 20 74 31 28 61 20 49 4e 54 45   TABLE t1(a INTE
2fd0: 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c  GER PRIMARY KEY,
2fe0: 20 62 20 55 4e 49 51 55 45 29 3b 0a 20 20 7d 0a   b UNIQUE);.  }.
2ff0: 7d 20 2d 74 68 72 65 61 64 20 72 20 31 20 7b 0a  } -thread r 1 {.
3000: 20 20 23 20 54 68 69 73 20 63 6f 6e 6e 65 63 74    # This connect
3010: 69 6f 6e 20 6f 6e 6c 79 20 65 76 65 72 20 72 65  ion only ever re
3020: 61 64 73 20 74 68 65 20 64 61 74 61 62 61 73 65  ads the database
3030: 2e 20 54 68 65 72 65 66 6f 72 65 20 74 68 65 20  . Therefore the 
3040: 0a 20 20 23 20 62 75 73 79 2d 68 61 6e 64 6c 65  .  # busy-handle
3050: 72 20 69 73 20 6e 6f 74 20 72 65 71 75 69 72 65  r is not require
3060: 64 2e 20 44 69 73 61 62 6c 65 20 69 74 20 74 6f  d. Disable it to
3070: 20 63 68 65 63 6b 20 74 68 61 74 20 74 68 69 73   check that this
3080: 20 69 73 20 74 72 75 65 2e 0a 20 20 23 0a 20 20   is true..  #.  
3090: 23 20 55 50 44 41 54 45 3a 20 54 68 61 74 20 69  # UPDATE: That i
30a0: 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 65 6e 74 69  s no longer enti
30b0: 72 65 6c 79 20 74 72 75 65 20 2d 20 61 73 20 77  rely true - as w
30c0: 65 20 64 6f 6e 27 74 20 75 73 65 20 61 20 62 6c  e don't use a bl
30d0: 6f 63 6b 69 6e 67 0a 20 20 23 20 6c 6f 63 6b 20  ocking.  # lock 
30e0: 74 6f 20 65 6e 74 65 72 20 52 45 43 4f 56 45 52  to enter RECOVER
30f0: 20 73 74 61 74 65 2e 20 57 68 69 63 68 20 6d 65   state. Which me
3100: 61 6e 73 20 74 68 65 72 65 20 69 73 20 61 20 73  ans there is a s
3110: 6d 61 6c 6c 20 63 68 61 6e 63 65 20 61 0a 20 20  mall chance a.  
3120: 23 20 72 65 61 64 65 72 20 63 61 6e 20 73 65 65  # reader can see
3130: 20 61 6e 20 53 51 4c 49 54 45 5f 42 55 53 59 2e   an SQLITE_BUSY.
3140: 0a 20 20 23 0a 20 20 77 68 69 6c 65 20 7b 5b 74  .  #.  while {[t
3150: 74 5f 63 6f 6e 74 69 6e 75 65 5d 7d 20 7b 0a 20  t_continue]} {. 
3160: 20 20 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65     integrity_che
3170: 63 6b 0a 20 20 7d 0a 20 20 73 65 74 20 7b 7d 20  ck.  }.  set {} 
3180: 6f 6b 0a 7d 20 2d 74 68 72 65 61 64 20 77 20 31  ok.} -thread w 1
3190: 20 7b 0a 0a 20 20 70 72 6f 63 20 77 61 6c 5f 68   {..  proc wal_h
31a0: 6f 6f 6b 20 7b 7a 44 62 20 6e 45 6e 74 72 79 7d  ook {zDb nEntry}
31b0: 20 7b 0a 20 20 20 20 69 66 20 7b 24 6e 45 6e 74   {.    if {$nEnt
31c0: 72 79 3e 31 35 7d 20 7b 64 62 20 65 76 61 6c 20  ry>15} {db eval 
31d0: 7b 50 52 41 47 4d 41 20 77 61 6c 5f 63 68 65 63  {PRAGMA wal_chec
31e0: 6b 70 6f 69 6e 74 7d 7d 0a 20 20 20 20 72 65 74  kpoint}}.    ret
31f0: 75 72 6e 20 30 0a 20 20 7d 0a 20 20 64 62 20 77  urn 0.  }.  db w
3200: 61 6c 5f 68 6f 6f 6b 20 77 61 6c 5f 68 6f 6f 6b  al_hook wal_hook
3210: 0a 20 20 73 65 74 20 72 6f 77 20 31 0a 20 20 77  .  set row 1.  w
3220: 68 69 6c 65 20 7b 5b 74 74 5f 63 6f 6e 74 69 6e  hile {[tt_contin
3230: 75 65 5d 7d 20 7b 0a 20 20 20 20 64 62 20 65 76  ue]} {.    db ev
3240: 61 6c 20 7b 20 52 45 50 4c 41 43 45 20 49 4e 54  al { REPLACE INT
3250: 4f 20 74 31 20 56 41 4c 55 45 53 28 24 72 6f 77  O t1 VALUES($row
3260: 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 33 30 30  , randomblob(300
3270: 29 29 20 7d 0a 20 20 20 20 69 6e 63 72 20 72 6f  )) }.    incr ro
3280: 77 0a 20 20 20 20 69 66 20 7b 24 72 6f 77 20 3d  w.    if {$row =
3290: 3d 20 31 30 7d 20 7b 20 73 65 74 20 72 6f 77 20  = 10} { set row 
32a0: 31 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 20 7b  1 }.  }..  set {
32b0: 7d 20 6f 6b 0a 7d 0a 0a 0a 23 20 54 68 69 73 20  } ok.}...# This 
32c0: 74 65 73 74 20 63 61 73 65 20 61 74 74 65 6d 70  test case attemp
32d0: 74 73 20 74 6f 20 70 72 6f 76 6f 6b 65 20 61 20  ts to provoke a 
32e0: 64 65 61 64 6c 6f 63 6b 20 63 6f 6e 64 69 74 69  deadlock conditi
32f0: 6f 6e 20 74 68 61 74 20 65 78 69 73 74 65 64 20  on that existed 
3300: 69 6e 0a 23 20 74 68 65 20 75 6e 69 78 20 56 46  in.# the unix VF
3310: 53 20 61 74 20 6f 6e 65 20 70 6f 69 6e 74 2e 20  S at one point. 
3320: 54 68 65 20 70 72 6f 62 6c 65 6d 20 6f 63 63 75  The problem occu
3330: 72 72 65 64 20 6f 6e 6c 79 20 77 68 69 6c 65 20  rred only while 
3340: 72 65 63 6f 76 65 72 69 6e 67 20 61 20 0a 23 20  recovering a .# 
3350: 76 65 72 79 20 6c 61 72 67 65 20 77 61 6c 20 66  very large wal f
3360: 69 6c 65 20 28 6f 6e 65 20 74 68 61 74 20 72 65  ile (one that re
3370: 71 75 69 72 65 73 20 61 20 77 61 6c 2d 69 6e 64  quires a wal-ind
3380: 65 78 20 6c 61 72 67 65 72 20 74 68 61 6e 20 74  ex larger than t
3390: 68 65 20 0a 23 20 69 6e 69 74 69 61 6c 20 64 65  he .# initial de
33a0: 66 61 75 6c 74 20 61 6c 6c 6f 63 61 74 69 6f 6e  fault allocation
33b0: 20 6f 66 20 36 34 4b 42 29 2e 0a 23 0a 64 6f 5f   of 64KB)..#.do_
33c0: 74 68 72 65 61 64 5f 74 65 73 74 20 77 61 6c 74  thread_test walt
33d0: 68 72 65 61 64 2d 35 20 2d 73 65 63 6f 6e 64 73  hread-5 -seconds
33e0: 20 24 73 65 63 6f 6e 64 73 28 77 61 6c 74 68 72   $seconds(walthr
33f0: 65 61 64 2d 35 29 20 2d 69 6e 69 74 20 7b 0a 0a  ead-5) -init {..
3400: 20 20 70 72 6f 63 20 6c 6f 67 5f 66 69 6c 65 5f    proc log_file_
3410: 73 69 7a 65 20 7b 6e 46 72 61 6d 65 20 70 67 73  size {nFrame pgs
3420: 7a 7d 20 7b 0a 20 20 20 20 65 78 70 72 20 7b 31  z} {.    expr {1
3430: 32 20 2b 20 28 24 70 67 73 7a 2b 31 36 29 2a 24  2 + ($pgsz+16)*$
3440: 6e 46 72 61 6d 65 7d 0a 20 20 7d 0a 0a 20 20 65  nFrame}.  }..  e
3450: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 50 52 41  xecsql {.    PRA
3460: 47 4d 41 20 70 61 67 65 5f 73 69 7a 65 20 3d 20  GMA page_size = 
3470: 31 30 32 34 3b 0a 20 20 20 20 50 52 41 47 4d 41  1024;.    PRAGMA
3480: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20   journal_mode = 
3490: 57 41 4c 3b 0a 20 20 20 20 43 52 45 41 54 45 20  WAL;.    CREATE 
34a0: 54 41 42 4c 45 20 74 31 28 78 29 3b 0a 20 20 20  TABLE t1(x);.   
34b0: 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 49 4e   BEGIN;.      IN
34c0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
34d0: 55 45 53 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 39  UES(randomblob(9
34e0: 30 30 29 29 3b 0a 20 20 20 20 20 20 49 4e 53 45  00));.      INSE
34f0: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
3500: 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30  T randomblob(900
3510: 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 20 20  ) FROM t1;      
3520: 2f 2a 20 20 20 20 20 32 20 2a 2f 0a 20 20 20 20  /*     2 */.    
3530: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
3540: 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c   SELECT randombl
3550: 6f 62 28 39 30 30 29 20 46 52 4f 4d 20 74 31 3b  ob(900) FROM t1;
3560: 20 20 20 20 20 20 2f 2a 20 20 20 20 20 34 20 2a        /*     4 *
3570: 2f 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49  /.      INSERT I
3580: 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20 72 61  NTO t1 SELECT ra
3590: 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46 52  ndomblob(900) FR
35a0: 4f 4d 20 74 31 3b 20 20 20 20 20 20 2f 2a 20 20  OM t1;      /*  
35b0: 20 20 20 38 20 2a 2f 0a 20 20 20 20 20 20 49 4e     8 */.      IN
35c0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
35d0: 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39  ECT randomblob(9
35e0: 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20  00) FROM t1;    
35f0: 20 20 2f 2a 20 20 20 20 31 36 20 2a 2f 0a 20 20    /*    16 */.  
3600: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
3610: 74 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d  t1 SELECT random
3620: 62 6c 6f 62 28 39 30 30 29 20 46 52 4f 4d 20 74  blob(900) FROM t
3630: 31 3b 20 20 20 20 20 20 2f 2a 20 20 20 20 33 32  1;      /*    32
3640: 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52 54   */.      INSERT
3650: 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20   INTO t1 SELECT 
3660: 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20  randomblob(900) 
3670: 46 52 4f 4d 20 74 31 3b 20 20 20 20 20 20 2f 2a  FROM t1;      /*
3680: 20 20 20 20 36 34 20 2a 2f 0a 20 20 20 20 20 20      64 */.      
3690: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
36a0: 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62  ELECT randomblob
36b0: 28 39 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20  (900) FROM t1;  
36c0: 20 20 20 20 2f 2a 20 20 20 31 32 38 20 2a 2f 0a      /*   128 */.
36d0: 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54        INSERT INT
36e0: 4f 20 74 31 20 53 45 4c 45 43 54 20 72 61 6e 64  O t1 SELECT rand
36f0: 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46 52 4f 4d  omblob(900) FROM
3700: 20 74 31 3b 20 20 20 20 20 20 2f 2a 20 20 20 32   t1;      /*   2
3710: 35 36 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45  56 */.      INSE
3720: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
3730: 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30  T randomblob(900
3740: 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 20 20  ) FROM t1;      
3750: 2f 2a 20 20 20 35 31 32 20 2a 2f 0a 20 20 20 20  /*   512 */.    
3760: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
3770: 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c   SELECT randombl
3780: 6f 62 28 39 30 30 29 20 46 52 4f 4d 20 74 31 3b  ob(900) FROM t1;
3790: 20 20 20 20 20 20 2f 2a 20 20 31 30 32 34 20 2a        /*  1024 *
37a0: 2f 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49  /.      INSERT I
37b0: 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20 72 61  NTO t1 SELECT ra
37c0: 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46 52  ndomblob(900) FR
37d0: 4f 4d 20 74 31 3b 20 20 20 20 20 20 2f 2a 20 20  OM t1;      /*  
37e0: 32 30 34 38 20 2a 2f 0a 20 20 20 20 20 20 49 4e  2048 */.      IN
37f0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
3800: 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39  ECT randomblob(9
3810: 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20  00) FROM t1;    
3820: 20 20 2f 2a 20 20 34 30 39 36 20 2a 2f 0a 20 20    /*  4096 */.  
3830: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
3840: 74 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d  t1 SELECT random
3850: 62 6c 6f 62 28 39 30 30 29 20 46 52 4f 4d 20 74  blob(900) FROM t
3860: 31 3b 20 20 20 20 20 20 2f 2a 20 20 38 31 39 32  1;      /*  8192
3870: 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52 54   */.      INSERT
3880: 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20   INTO t1 SELECT 
3890: 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20  randomblob(900) 
38a0: 46 52 4f 4d 20 74 31 3b 20 20 20 20 20 20 2f 2a  FROM t1;      /*
38b0: 20 31 36 33 38 34 20 2a 2f 0a 20 20 20 20 20 20   16384 */.      
38c0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
38d0: 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62  ELECT randomblob
38e0: 28 39 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20  (900) FROM t1;  
38f0: 20 20 20 20 2f 2a 20 33 32 37 36 38 20 2a 2f 0a      /* 32768 */.
3900: 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54        INSERT INT
3910: 4f 20 74 31 20 53 45 4c 45 43 54 20 72 61 6e 64  O t1 SELECT rand
3920: 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46 52 4f 4d  omblob(900) FROM
3930: 20 74 31 3b 20 20 20 20 20 20 2f 2a 20 36 35 35   t1;      /* 655
3940: 33 36 20 2a 2f 0a 20 20 20 20 43 4f 4d 4d 49 54  36 */.    COMMIT
3950: 3b 0a 20 20 7d 0a 0a 20 20 66 6f 72 63 65 63 6f  ;.  }..  forceco
3960: 70 79 20 74 65 73 74 2e 64 62 2d 77 61 6c 20 62  py test.db-wal b
3970: 61 6b 2e 64 62 2d 77 61 6c 0a 20 20 66 6f 72 63  ak.db-wal.  forc
3980: 65 63 6f 70 79 20 74 65 73 74 2e 64 62 20 62 61  ecopy test.db ba
3990: 6b 2e 64 62 0a 20 20 64 62 20 63 6c 6f 73 65 0a  k.db.  db close.
39a0: 0a 20 20 66 6f 72 63 65 63 6f 70 79 20 62 61 6b  .  forcecopy bak
39b0: 2e 64 62 2d 77 61 6c 20 74 65 73 74 2e 64 62 2d  .db-wal test.db-
39c0: 77 61 6c 0a 20 20 66 6f 72 63 65 63 6f 70 79 20  wal.  forcecopy 
39d0: 62 61 6b 2e 64 62 20 74 65 73 74 2e 64 62 0a 0a  bak.db test.db..
39e0: 20 20 69 66 20 7b 5b 66 69 6c 65 20 73 69 7a 65    if {[file size
39f0: 20 74 65 73 74 2e 64 62 2d 77 61 6c 5d 20 3c 20   test.db-wal] < 
3a00: 5b 6c 6f 67 5f 66 69 6c 65 5f 73 69 7a 65 20 5b  [log_file_size [
3a10: 65 78 70 72 20 36 34 2a 31 30 32 34 5d 20 31 30  expr 64*1024] 10
3a20: 32 34 5d 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72  24]} {.    error
3a30: 20 22 53 6f 6d 65 68 6f 77 20 66 61 69 6c 65 64   "Somehow failed
3a40: 20 74 6f 20 63 72 65 61 74 65 20 61 20 6c 61 72   to create a lar
3a50: 67 65 20 6c 6f 67 20 66 69 6c 65 22 0a 20 20 7d  ge log file".  }
3a60: 0a 20 20 70 75 74 73 20 22 44 61 74 61 62 61 73  .  puts "Databas
3a70: 65 20 77 69 74 68 20 6c 61 72 67 65 20 6c 6f 67  e with large log
3a80: 20 66 69 6c 65 20 72 65 63 6f 76 65 72 65 64 2e   file recovered.
3a90: 20 4e 6f 77 20 72 75 6e 6e 69 6e 67 20 63 6c 69   Now running cli
3aa0: 65 6e 74 73 2e 2e 2e 22 0a 7d 20 2d 74 68 72 65  ents...".} -thre
3ab0: 61 64 20 54 20 35 20 7b 0a 20 20 64 62 20 65 76  ad T 5 {.  db ev
3ac0: 61 6c 20 7b 20 53 45 4c 45 43 54 20 63 6f 75 6e  al { SELECT coun
3ad0: 74 28 2a 29 20 46 52 4f 4d 20 74 31 20 7d 0a 7d  t(*) FROM t1 }.}
3ae0: 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61  .unset -nocompla
3af0: 69 6e 20 73 65 63 6f 6e 64 73 0a 0a 66 69 6e 69  in seconds..fini
3b00: 73 68 5f 74 65 73 74 0a                          sh_test.