/ Hex Artifact Content
Login

Artifact dad2f26567f1b45174e54fbf9a8dc1cb876a7f03:


0000: 23 20 32 30 31 30 20 4d 61 79 20 35 0a 23 0a 23  # 2010 May 5.#.#
0010: 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73 63   The author disc
0020: 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74 20  laims copyright 
0030: 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20 63  to this source c
0040: 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f  ode.  In place o
0050: 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69  f.# a legal noti
0060: 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c  ce, here is a bl
0070: 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20 4d  essing:.#.#    M
0080: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
0090: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20 20  nd not evil..#  
00a0: 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20 66    May you find f
00b0: 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20 79  orgiveness for y
00c0: 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72 67  ourself and forg
00d0: 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20 20  ive others..#   
00e0: 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20 66   May you share f
00f0: 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b  reely, never tak
0100: 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f  ing more than yo
0110: 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a 2a  u 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 0a 23 20 54 68 69 73 20 66 69 6c 65 20 69  **.# This file i
0170: 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67 72 65 73  mplements regres
0180: 73 69 6f 6e 20 74 65 73 74 73 20 66 6f 72 20 53  sion tests for S
0190: 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 20 20  QLite library.  
01a0: 54 68 65 0a 23 20 66 6f 63 75 73 20 6f 66 20 74  The.# focus of t
01b0: 68 69 73 20 66 69 6c 65 20 69 73 20 74 65 73 74  his file is test
01c0: 69 6e 67 20 74 68 65 20 6f 70 65 72 61 74 69 6f  ing the operatio
01d0: 6e 20 6f 66 20 74 68 65 20 6c 69 62 72 61 72 79  n of the library
01e0: 20 69 6e 0a 23 20 22 50 52 41 47 4d 41 20 6a 6f   in.# "PRAGMA jo
01f0: 75 72 6e 61 6c 5f 6d 6f 64 65 3d 57 41 4c 22 20  urnal_mode=WAL" 
0200: 6d 6f 64 65 2e 0a 23 0a 0a 73 65 74 20 74 65 73  mode..#..set tes
0210: 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61  tdir [file dirna
0220: 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f 75 72 63  me $argv0].sourc
0230: 65 20 24 74 65 73 74 64 69 72 2f 74 65 73 74 65  e $testdir/teste
0240: 72 2e 74 63 6c 0a 73 6f 75 72 63 65 20 24 74 65  r.tcl.source $te
0250: 73 74 64 69 72 2f 77 61 6c 5f 63 6f 6d 6d 6f 6e  stdir/wal_common
0260: 2e 74 63 6c 0a 73 65 74 20 74 65 73 74 70 72 65  .tcl.set testpre
0270: 66 69 78 20 77 61 6c 6f 76 65 72 77 72 69 74 65  fix waloverwrite
0280: 0a 0a 69 66 63 61 70 61 62 6c 65 20 21 77 61 6c  ..ifcapable !wal
0290: 20 7b 66 69 6e 69 73 68 5f 74 65 73 74 20 3b 20   {finish_test ; 
02a0: 72 65 74 75 72 6e 20 7d 0a 0a 23 20 53 69 6d 70  return }..# Simp
02b0: 6c 65 20 74 65 73 74 3a 0a 23 0a 23 20 54 65 73  le test:.#.# Tes
02c0: 74 20 63 61 73 65 73 20 2a 2e 31 20 2d 20 2a 2e  t cases *.1 - *.
02d0: 36 3a 0a 23 0a 23 20 20 20 2b 20 43 72 65 61 74  6:.#.#   + Creat
02e0: 65 20 61 20 64 61 74 61 62 61 73 65 20 6f 66 20  e a database of 
02f0: 62 6c 6f 62 73 20 72 6f 75 67 68 6c 79 20 35 30  blobs roughly 50
0300: 20 70 61 67 65 73 20 69 6e 20 73 69 7a 65 2e 0a   pages in size..
0310: 23 0a 23 20 20 20 2b 20 53 65 74 20 74 68 65 20  #.#   + Set the 
0320: 64 62 20 63 61 63 68 65 20 73 69 7a 65 20 74 6f  db cache size to
0330: 20 73 6f 6d 65 74 68 69 6e 67 20 6d 75 63 68 20   something much 
0340: 73 6d 61 6c 6c 65 72 20 74 68 61 6e 20 74 68 69  smaller than thi
0350: 73 20 28 35 20 70 61 67 65 73 29 0a 23 0a 23 20  s (5 pages).#.# 
0360: 20 20 2b 20 57 69 74 68 69 6e 20 61 20 74 72 61    + Within a tra
0370: 6e 73 61 63 74 69 6f 6e 2c 20 6c 6f 6f 70 20 74  nsaction, loop t
0380: 68 72 6f 75 67 68 20 74 68 65 20 73 65 74 20 6f  hrough the set o
0390: 66 20 62 6c 6f 62 73 20 35 20 74 69 6d 65 73 2e  f blobs 5 times.
03a0: 20 55 70 64 61 74 65 0a 23 20 20 20 20 20 20 65   Update.#      e
03b0: 61 63 68 20 62 6c 6f 62 20 61 73 20 69 74 20 69  ach blob as it i
03c0: 73 20 76 69 73 69 74 65 64 2e 0a 23 0a 23 20 20  s visited..#.#  
03d0: 20 2b 20 54 65 73 74 20 74 68 61 74 20 74 68 65   + Test that the
03e0: 20 77 61 6c 20 66 69 6c 65 20 69 73 20 72 6f 75   wal file is rou
03f0: 67 68 6c 79 20 35 30 20 70 61 67 65 73 20 69 6e  ghly 50 pages in
0400: 20 73 69 7a 65 20 2d 20 65 76 65 6e 20 74 68 6f   size - even tho
0410: 75 67 68 20 6d 61 6e 79 0a 23 20 20 20 20 20 20  ugh many.#      
0420: 64 61 74 61 62 61 73 65 20 70 61 67 65 73 20 68  database pages h
0430: 61 76 65 20 62 65 65 6e 20 77 72 69 74 74 65 6e  ave been written
0440: 20 74 6f 20 69 74 20 6d 75 6c 74 69 70 6c 65 20   to it multiple 
0450: 74 69 6d 65 73 2e 0a 23 0a 23 20 20 20 2b 20 54  times..#.#   + T
0460: 61 6b 65 20 61 20 63 6f 70 79 20 6f 66 20 74 68  ake a copy of th
0470: 65 20 64 61 74 61 62 61 73 65 20 61 6e 64 20 77  e database and w
0480: 61 6c 20 66 69 6c 65 2e 20 54 65 73 74 20 74 68  al file. Test th
0490: 61 74 20 72 65 63 6f 76 65 72 79 20 63 61 6e 0a  at recovery can.
04a0: 23 20 20 20 20 20 62 65 20 72 75 6e 20 6f 6e 20  #     be run on 
04b0: 69 74 2e 0a 23 0a 23 20 54 65 73 74 20 63 61 73  it..#.# Test cas
04c0: 65 73 20 2a 2e 37 20 2d 20 2a 2e 39 3a 0a 23 0a  es *.7 - *.9:.#.
04d0: 23 20 20 20 2b 20 53 61 6d 65 20 74 68 69 6e 67  #   + Same thing
04e0: 2c 20 62 75 74 20 62 65 66 6f 72 65 20 63 6f 6d  , but before com
04f0: 6d 69 74 74 69 6e 67 20 74 68 65 20 73 74 61 74  mitting the stat
0500: 65 6d 65 6e 74 20 74 72 61 6e 73 61 63 74 69 6f  ement transactio
0510: 6e 20 6f 70 65 6e 0a 23 20 20 20 20 20 61 20 53  n open.#     a S
0520: 41 56 45 50 4f 49 4e 54 2c 20 75 70 64 61 74 65  AVEPOINT, update
0530: 20 74 68 65 20 62 6c 6f 62 73 20 61 6e 6f 74 68   the blobs anoth
0540: 65 72 20 35 20 74 69 6d 65 73 2c 20 74 68 65 6e  er 5 times, then
0550: 20 72 6f 6c 6c 20 69 74 20 62 61 63 6b 2e 0a 23   roll it back..#
0560: 0a 23 20 20 20 2b 20 43 68 65 63 6b 20 74 68 61  .#   + Check tha
0570: 74 20 69 66 20 72 65 63 6f 76 65 72 79 20 69 73  t if recovery is
0580: 20 72 75 6e 20 6f 6e 20 74 68 65 20 72 65 73 75   run on the resu
0590: 6c 74 69 6e 67 20 77 61 6c 20 66 69 6c 65 2c 20  lting wal file, 
05a0: 74 68 65 20 72 6f 6c 6c 65 64 0a 23 20 20 20 20  the rolled.#    
05b0: 20 62 61 63 6b 20 63 68 61 6e 67 65 73 20 66 72   back changes fr
05c0: 6f 6d 20 77 69 74 68 69 6e 20 74 68 65 20 53 41  om within the SA
05d0: 56 45 50 4f 49 4e 54 20 61 72 65 20 6e 6f 74 20  VEPOINT are not 
05e0: 70 72 65 73 65 6e 74 20 69 6e 20 74 68 65 20 64  present in the d
05f0: 62 2e 0a 23 0a 23 20 54 68 65 20 61 62 6f 76 65  b..#.# The above
0600: 20 69 73 20 72 75 6e 20 74 77 69 63 65 20 2d 20   is run twice - 
0610: 6f 6e 63 65 20 77 68 65 72 65 20 74 68 65 20 77  once where the w
0620: 61 6c 20 66 69 6c 65 20 69 73 20 65 6d 70 74 79  al file is empty
0630: 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66   at the start of
0640: 0a 23 20 73 74 65 70 20 33 20 28 74 6e 3d 3d 31  .# step 3 (tn==1
0650: 29 20 61 6e 64 20 6f 6e 63 65 20 77 68 65 72 65  ) and once where
0660: 20 69 74 20 61 6c 72 65 61 64 79 20 63 6f 6e 74   it already cont
0670: 61 69 6e 73 20 61 20 74 72 61 6e 73 61 63 74 69  ains a transacti
0680: 6f 6e 20 28 74 6e 3d 3d 32 29 2e 0a 23 0a 66 6f  on (tn==2)..#.fo
0690: 72 65 61 63 68 20 7b 74 6e 20 78 74 72 61 7d 20  reach {tn xtra} 
06a0: 7b 0a 20 20 31 20 7b 7d 0a 20 20 32 20 7b 20 55  {.  1 {}.  2 { U
06b0: 50 44 41 54 45 20 74 31 20 53 45 54 20 79 20 3d  PDATE t1 SET y =
06c0: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 37 39 39 29   randomblob(799)
06d0: 20 57 48 45 52 45 20 78 3d 34 20 7d 0a 7d 20 7b   WHERE x=4 }.} {
06e0: 0a 20 20 72 65 73 65 74 5f 64 62 0a 20 20 64 6f  .  reset_db.  do
06f0: 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 31 2e  _execsql_test 1.
0700: 24 74 6e 2e 30 20 7b 0a 20 20 20 20 43 52 45 41  $tn.0 {.    CREA
0710: 54 45 20 54 41 42 4c 45 20 74 31 28 78 2c 20 79  TE TABLE t1(x, y
0720: 29 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  );.    CREATE TA
0730: 42 4c 45 20 74 32 28 78 2c 20 79 29 3b 0a 20 20  BLE t2(x, y);.  
0740: 20 20 43 52 45 41 54 45 20 49 4e 44 45 58 20 69    CREATE INDEX i
0750: 31 79 20 4f 4e 20 74 31 28 79 29 3b 0a 20 20 0a  1y ON t1(y);.  .
0760: 20 20 20 20 57 49 54 48 20 63 6e 74 28 69 29 20      WITH cnt(i) 
0770: 41 53 20 28 0a 20 20 20 20 20 20 53 45 4c 45 43  AS (.      SELEC
0780: 54 20 31 20 55 4e 49 4f 4e 20 41 4c 4c 20 53 45  T 1 UNION ALL SE
0790: 4c 45 43 54 20 69 2b 31 20 46 52 4f 4d 20 63 6e  LECT i+1 FROM cn
07a0: 74 20 57 48 45 52 45 20 69 3c 32 30 0a 20 20 20  t WHERE i<20.   
07b0: 20 29 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e   ).    INSERT IN
07c0: 54 4f 20 74 31 20 53 45 4c 45 43 54 20 69 2c 20  TO t1 SELECT i, 
07d0: 72 61 6e 64 6f 6d 62 6c 6f 62 28 38 30 30 29 20  randomblob(800) 
07e0: 46 52 4f 4d 20 63 6e 74 3b 0a 20 20 7d 20 7b 7d  FROM cnt;.  } {}
07f0: 0a 20 20 0a 20 20 64 6f 5f 74 65 73 74 20 31 2e  .  .  do_test 1.
0800: 24 74 6e 2e 31 20 7b 0a 20 20 20 20 73 65 74 20  $tn.1 {.    set 
0810: 6e 50 67 20 5b 64 62 20 6f 6e 65 20 7b 20 50 52  nPg [db one { PR
0820: 41 47 4d 41 20 70 61 67 65 5f 63 6f 75 6e 74 20  AGMA page_count 
0830: 7d 20 5d 0a 20 20 20 20 65 78 70 72 20 24 6e 50  } ].    expr $nP
0840: 67 3e 34 30 20 26 26 20 24 6e 50 67 3c 35 30 0a  g>40 && $nPg<50.
0850: 20 20 7d 20 7b 31 7d 0a 20 20 0a 20 20 64 6f 5f    } {1}.  .  do_
0860: 74 65 73 74 20 31 2e 24 74 6e 2e 32 20 7b 0a 20  test 1.$tn.2 {. 
0870: 20 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 20 20     db close.    
0880: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
0890: 64 62 0a 20 20 0a 20 20 20 20 65 78 65 63 73 71  db.  .    execsq
08a0: 6c 20 7b 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61  l {PRAGMA journa
08b0: 6c 5f 6d 6f 64 65 20 3d 20 77 61 6c 7d 0a 20 20  l_mode = wal}.  
08c0: 20 20 65 78 65 63 73 71 6c 20 7b 50 52 41 47 4d    execsql {PRAGM
08d0: 41 20 63 61 63 68 65 5f 73 69 7a 65 20 3d 20 35  A cache_size = 5
08e0: 7d 0a 20 20 20 20 65 78 65 63 73 71 6c 20 24 78  }.    execsql $x
08f0: 74 72 61 0a 20 20 0a 20 20 20 20 64 62 20 74 72  tra.  .    db tr
0900: 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20  ansaction {.    
0910: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d 20    for {set i 0} 
0920: 7b 24 69 20 3c 20 35 7d 20 7b 69 6e 63 72 20 69  {$i < 5} {incr i
0930: 7d 20 7b 0a 20 20 20 20 20 20 20 20 66 6f 72 65  } {.        fore
0940: 61 63 68 20 78 20 5b 64 62 20 65 76 61 6c 20 7b  ach x [db eval {
0950: 53 45 4c 45 43 54 20 78 20 46 52 4f 4d 20 74 31  SELECT x FROM t1
0960: 7d 5d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 65  }] {.          e
0970: 78 65 63 73 71 6c 20 7b 20 55 50 44 41 54 45 20  xecsql { UPDATE 
0980: 74 31 20 53 45 54 20 79 20 3d 20 72 61 6e 64 6f  t1 SET y = rando
0990: 6d 62 6c 6f 62 28 37 39 39 29 20 57 48 45 52 45  mblob(799) WHERE
09a0: 20 78 3d 24 78 20 7d 0a 20 20 20 20 20 20 20 20   x=$x }.        
09b0: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  }.      }.    }.
09c0: 20 20 0a 20 20 20 20 73 65 74 20 6e 50 67 20 5b    .    set nPg [
09d0: 77 61 6c 5f 66 72 61 6d 65 5f 63 6f 75 6e 74 20  wal_frame_count 
09e0: 74 65 73 74 2e 64 62 2d 77 61 6c 20 31 30 32 34  test.db-wal 1024
09f0: 5d 0a 20 20 20 20 65 78 70 72 20 24 6e 50 67 3e  ].    expr $nPg>
0a00: 34 30 20 26 26 20 24 6e 50 67 3c 36 30 0a 20 20  40 && $nPg<60.  
0a10: 7d 20 7b 31 7d 0a 20 20 0a 20 20 64 6f 5f 65 78  } {1}.  .  do_ex
0a20: 65 63 73 71 6c 5f 74 65 73 74 20 31 2e 24 74 6e  ecsql_test 1.$tn
0a30: 2e 33 20 7b 20 50 52 41 47 4d 41 20 69 6e 74 65  .3 { PRAGMA inte
0a40: 67 72 69 74 79 5f 63 68 65 63 6b 20 7d 20 6f 6b  grity_check } ok
0a50: 0a 20 20 0a 20 20 64 6f 5f 74 65 73 74 20 31 2e  .  .  do_test 1.
0a60: 24 74 6e 2e 34 20 7b 0a 20 20 20 20 66 6f 72 63  $tn.4 {.    forc
0a70: 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 32  edelete test.db2
0a80: 20 74 65 73 74 2e 64 62 32 2d 77 61 6c 0a 20 20   test.db2-wal.  
0a90: 20 20 66 6f 72 63 65 63 6f 70 79 20 74 65 73 74    forcecopy test
0aa0: 2e 64 62 20 74 65 73 74 2e 64 62 32 0a 20 20 20  .db test.db2.   
0ab0: 20 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73   sqlite3 db2 tes
0ac0: 74 2e 64 62 32 0a 20 20 20 20 65 78 65 63 73 71  t.db2.    execsq
0ad0: 6c 20 7b 20 53 45 4c 45 43 54 20 73 75 6d 28 6c  l { SELECT sum(l
0ae0: 65 6e 67 74 68 28 79 29 29 20 46 52 4f 4d 20 74  ength(y)) FROM t
0af0: 31 20 7d 20 64 62 32 0a 20 20 7d 20 5b 65 78 70  1 } db2.  } [exp
0b00: 72 20 32 30 2a 38 30 30 5d 0a 20 20 0a 20 20 64  r 20*800].  .  d
0b10: 6f 5f 74 65 73 74 20 31 2e 24 74 6e 2e 35 20 7b  o_test 1.$tn.5 {
0b20: 0a 20 20 20 20 64 62 32 20 63 6c 6f 73 65 0a 20  .    db2 close. 
0b30: 20 20 20 66 6f 72 63 65 63 6f 70 79 20 74 65 73     forcecopy tes
0b40: 74 2e 64 62 20 74 65 73 74 2e 64 62 32 0a 20 20  t.db test.db2.  
0b50: 20 20 66 6f 72 63 65 63 6f 70 79 20 74 65 73 74    forcecopy test
0b60: 2e 64 62 2d 77 61 6c 20 74 65 73 74 2e 64 62 32  .db-wal test.db2
0b70: 2d 77 61 6c 0a 20 20 20 20 73 71 6c 69 74 65 33  -wal.    sqlite3
0b80: 20 64 62 32 20 74 65 73 74 2e 64 62 32 0a 20 20   db2 test.db2.  
0b90: 20 20 65 78 65 63 73 71 6c 20 7b 20 53 45 4c 45    execsql { SELE
0ba0: 43 54 20 73 75 6d 28 6c 65 6e 67 74 68 28 79 29  CT sum(length(y)
0bb0: 29 20 46 52 4f 4d 20 74 31 20 7d 20 64 62 32 0a  ) FROM t1 } db2.
0bc0: 20 20 7d 20 5b 65 78 70 72 20 32 30 2a 37 39 39    } [expr 20*799
0bd0: 5d 0a 20 20 0a 20 20 64 6f 5f 74 65 73 74 20 31  ].  .  do_test 1
0be0: 2e 24 74 6e 2e 36 20 7b 0a 20 20 20 20 65 78 65  .$tn.6 {.    exe
0bf0: 63 73 71 6c 20 7b 20 50 52 41 47 4d 41 20 69 6e  csql { PRAGMA in
0c00: 74 65 67 72 69 74 79 5f 63 68 65 63 6b 20 7d 20  tegrity_check } 
0c10: 64 62 32 0a 20 20 7d 20 6f 6b 0a 20 20 64 62 32  db2.  } ok.  db2
0c20: 20 63 6c 6f 73 65 0a 0a 20 20 64 6f 5f 74 65 73   close..  do_tes
0c30: 74 20 31 2e 24 74 6e 2e 37 20 7b 0a 20 20 20 20  t 1.$tn.7 {.    
0c40: 65 78 65 63 73 71 6c 20 7b 20 50 52 41 47 4d 41  execsql { PRAGMA
0c50: 20 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 20   wal_checkpoint 
0c60: 7d 0a 20 20 20 20 64 62 20 74 72 61 6e 73 61 63  }.    db transac
0c70: 74 69 6f 6e 20 7b 0a 20 20 20 20 20 20 66 6f 72  tion {.      for
0c80: 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 20 3c   {set i 0} {$i <
0c90: 20 31 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20   1} {incr i} {. 
0ca0: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 78         foreach x
0cb0: 20 5b 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43   [db eval {SELEC
0cc0: 54 20 78 20 46 52 4f 4d 20 74 31 7d 5d 20 7b 0a  T x FROM t1}] {.
0cd0: 20 20 20 20 20 20 20 20 20 20 65 78 65 63 73 71            execsq
0ce0: 6c 20 7b 20 55 50 44 41 54 45 20 74 31 20 53 45  l { UPDATE t1 SE
0cf0: 54 20 79 20 3d 20 72 61 6e 64 6f 6d 62 6c 6f 62  T y = randomblob
0d00: 28 37 39 38 29 20 57 48 45 52 45 20 78 3d 24 78  (798) WHERE x=$x
0d10: 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20   }.        }.   
0d20: 20 20 20 7d 0a 0a 20 20 20 20 20 20 65 78 65 63     }..      exec
0d30: 73 71 6c 20 7b 0a 20 20 20 20 20 20 20 20 57 49  sql {.        WI
0d40: 54 48 20 63 6e 74 28 69 29 20 41 53 20 28 53 45  TH cnt(i) AS (SE
0d50: 4c 45 43 54 20 31 20 55 4e 49 4f 4e 20 41 4c 4c  LECT 1 UNION ALL
0d60: 20 53 45 4c 45 43 54 20 69 2b 31 20 46 52 4f 4d   SELECT i+1 FROM
0d70: 20 63 6e 74 20 57 48 45 52 45 20 69 3c 32 30 29   cnt WHERE i<20)
0d80: 0a 20 20 20 20 20 20 20 20 49 4e 53 45 52 54 20  .        INSERT 
0d90: 49 4e 54 4f 20 74 32 20 53 45 4c 45 43 54 20 69  INTO t2 SELECT i
0da0: 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 38 30 30  , randomblob(800
0db0: 29 20 46 52 4f 4d 20 63 6e 74 3b 0a 20 20 20 20  ) FROM cnt;.    
0dc0: 20 20 7d 0a 0a 20 20 20 20 20 20 65 78 65 63 73    }..      execs
0dd0: 71 6c 20 7b 53 41 56 45 50 4f 49 4e 54 20 61 62  ql {SAVEPOINT ab
0de0: 63 7d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65  c}.      for {se
0df0: 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 35 7d 20  t i 0} {$i < 5} 
0e00: 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 20  {incr i} {.     
0e10: 20 20 20 66 6f 72 65 61 63 68 20 78 20 5b 64 62     foreach x [db
0e20: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78 20   eval {SELECT x 
0e30: 46 52 4f 4d 20 74 31 7d 5d 20 7b 0a 20 20 20 20  FROM t1}] {.    
0e40: 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 7b 20        execsql { 
0e50: 55 50 44 41 54 45 20 74 31 20 53 45 54 20 79 20  UPDATE t1 SET y 
0e60: 3d 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 37 39 37  = randomblob(797
0e70: 29 20 57 48 45 52 45 20 78 3d 24 78 20 7d 0a 20  ) WHERE x=$x }. 
0e80: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d         }.      }
0e90: 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 7b  .      execsql {
0ea0: 52 4f 4c 4c 42 41 43 4b 20 54 4f 20 61 62 63 7d  ROLLBACK TO abc}
0eb0: 0a 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 65 74  ..    }..    set
0ec0: 20 6e 50 67 20 5b 77 61 6c 5f 66 72 61 6d 65 5f   nPg [wal_frame_
0ed0: 63 6f 75 6e 74 20 74 65 73 74 2e 64 62 2d 77 61  count test.db-wa
0ee0: 6c 20 31 30 32 34 5d 0a 20 20 20 20 65 78 70 72  l 1024].    expr
0ef0: 20 24 6e 50 67 3e 35 35 20 26 26 20 24 6e 50 67   $nPg>55 && $nPg
0f00: 3c 37 35 0a 20 20 7d 20 7b 31 7d 0a 0a 20 20 64  <75.  } {1}..  d
0f10: 6f 5f 74 65 73 74 20 31 2e 24 74 6e 2e 38 20 7b  o_test 1.$tn.8 {
0f20: 0a 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74 65  .    forcedelete
0f30: 20 74 65 73 74 2e 64 62 32 20 74 65 73 74 2e 64   test.db2 test.d
0f40: 62 32 2d 77 61 6c 0a 20 20 20 20 66 6f 72 63 65  b2-wal.    force
0f50: 63 6f 70 79 20 74 65 73 74 2e 64 62 20 74 65 73  copy test.db tes
0f60: 74 2e 64 62 32 0a 20 20 20 20 73 71 6c 69 74 65  t.db2.    sqlite
0f70: 33 20 64 62 32 20 74 65 73 74 2e 64 62 32 0a 20  3 db2 test.db2. 
0f80: 20 20 20 65 78 65 63 73 71 6c 20 7b 20 53 45 4c     execsql { SEL
0f90: 45 43 54 20 73 75 6d 28 6c 65 6e 67 74 68 28 79  ECT sum(length(y
0fa0: 29 29 20 46 52 4f 4d 20 74 31 20 7d 20 64 62 32  )) FROM t1 } db2
0fb0: 0a 20 20 7d 20 5b 65 78 70 72 20 32 30 2a 37 39  .  } [expr 20*79
0fc0: 39 5d 0a 0a 20 20 64 6f 5f 74 65 73 74 20 31 2e  9]..  do_test 1.
0fd0: 24 74 6e 2e 39 20 7b 0a 20 20 20 20 64 62 32 20  $tn.9 {.    db2 
0fe0: 63 6c 6f 73 65 0a 20 20 20 20 66 6f 72 63 65 63  close.    forcec
0ff0: 6f 70 79 20 74 65 73 74 2e 64 62 2d 77 61 6c 20  opy test.db-wal 
1000: 74 65 73 74 2e 64 62 32 2d 77 61 6c 0a 20 20 20  test.db2-wal.   
1010: 20 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73   sqlite3 db2 tes
1020: 74 2e 64 62 32 0a 20 20 20 20 65 78 65 63 73 71  t.db2.    execsq
1030: 6c 20 7b 20 53 45 4c 45 43 54 20 73 75 6d 28 6c  l { SELECT sum(l
1040: 65 6e 67 74 68 28 79 29 29 20 46 52 4f 4d 20 74  ength(y)) FROM t
1050: 31 20 7d 20 64 62 32 0a 20 20 7d 20 5b 65 78 70  1 } db2.  } [exp
1060: 72 20 32 30 2a 37 39 38 5d 0a 0a 20 20 64 6f 5f  r 20*798]..  do_
1070: 74 65 73 74 20 31 2e 24 74 6e 2e 31 30 20 7b 0a  test 1.$tn.10 {.
1080: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 20 50 52      execsql { PR
1090: 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f 63  AGMA integrity_c
10a0: 68 65 63 6b 20 7d 20 64 62 32 0a 20 20 7d 20 6f  heck } db2.  } o
10b0: 6b 0a 20 20 64 62 32 20 63 6c 6f 73 65 0a 7d 0a  k.  db2 close.}.
10c0: 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a           .finish_test.