/ Hex Artifact Content
Login

Artifact 98df47444944a6db2161eed5cef71d6c00bcb8c3:


0000: 23 20 32 30 31 30 20 4d 61 79 20 30 33 0a 23 0a  # 2010 May 03.#.
0010: 23 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73  # The author dis
0020: 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74  claims copyright
0030: 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20   to this source 
0040: 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20  code.  In place 
0050: 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74  of.# a legal not
0060: 69 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62  ice, here is a b
0070: 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20  lessing:.#.#    
0080: 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20  May you do good 
0090: 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20  and not evil..# 
00a0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00b0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00c0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00d0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20  give others..#  
00e0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20    May you share 
00f0: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61  freely, never ta
0100: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79  king more than y
0110: 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a  ou 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 0a 23 20 54 68 69 73 20 66 69 6c 65 20  ***.# This file 
0170: 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67 72 65  implements regre
0180: 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f 72 20  ssion tests for 
0190: 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 20  SQLite library. 
01a0: 20 54 68 65 0a 23 20 66 6f 63 75 73 20 6f 66 20   The.# focus of 
01b0: 74 68 69 73 20 66 69 6c 65 20 69 73 20 74 65 73  this file is tes
01c0: 74 69 6e 67 20 74 68 65 20 6f 70 65 72 61 74 69  ting the operati
01d0: 6f 6e 20 6f 66 20 74 68 65 20 6c 69 62 72 61 72  on of the librar
01e0: 79 20 69 6e 0a 23 20 22 50 52 41 47 4d 41 20 6a  y in.# "PRAGMA j
01f0: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 3d 57 41 4c 22  ournal_mode=WAL"
0200: 20 6d 6f 64 65 2e 0a 23 0a 0a 73 65 74 20 74 65   mode..#..set te
0210: 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e  stdir [file dirn
0220: 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f 75 72  ame $argv0].sour
0230: 63 65 20 24 74 65 73 74 64 69 72 2f 74 65 73 74  ce $testdir/test
0240: 65 72 2e 74 63 6c 0a 73 6f 75 72 63 65 20 24 74  er.tcl.source $t
0250: 65 73 74 64 69 72 2f 6d 61 6c 6c 6f 63 5f 63 6f  estdir/malloc_co
0260: 6d 6d 6f 6e 2e 74 63 6c 0a 0a 69 66 63 61 70 61  mmon.tcl..ifcapa
0270: 62 6c 65 20 21 77 61 6c 20 7b 66 69 6e 69 73 68  ble !wal {finish
0280: 5f 74 65 73 74 20 3b 20 72 65 74 75 72 6e 20 7d  _test ; return }
0290: 0a 0a 64 6f 5f 6d 61 6c 6c 6f 63 5f 74 65 73 74  ..do_malloc_test
02a0: 20 77 61 6c 66 61 75 6c 74 2d 6f 6f 6d 2d 31 20   walfault-oom-1 
02b0: 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 50 52 41  -sqlbody {.  PRA
02c0: 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  GMA journal_mode
02d0: 20 3d 20 57 41 4c 3b 0a 20 20 43 52 45 41 54 45   = WAL;.  CREATE
02e0: 20 54 41 42 4c 45 20 74 31 28 61 2c 20 62 29 3b   TABLE t1(a, b);
02f0: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  .  INSERT INTO t
0300: 31 20 56 41 4c 55 45 53 28 31 2c 20 32 29 3b 0a  1 VALUES(1, 2);.
0310: 20 20 50 52 41 47 4d 41 20 77 61 6c 5f 63 68 65    PRAGMA wal_che
0320: 63 6b 70 6f 69 6e 74 3b 0a 7d 0a 0a 64 6f 5f 6d  ckpoint;.}..do_m
0330: 61 6c 6c 6f 63 5f 74 65 73 74 20 77 61 6c 66 61  alloc_test walfa
0340: 75 6c 74 2d 6f 6f 6d 2d 32 20 2d 74 63 6c 70 72  ult-oom-2 -tclpr
0350: 65 70 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  ep {.  execsql {
0360: 0a 20 20 20 20 50 52 41 47 4d 41 20 6a 6f 75 72  .    PRAGMA jour
0370: 6e 61 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 3b 0a  nal_mode = WAL;.
0380: 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 20      BEGIN;.     
0390: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 78 28   CREATE TABLE x(
03a0: 79 2c 20 7a 2c 20 55 4e 49 51 55 45 28 79 2c 20  y, z, UNIQUE(y, 
03b0: 7a 29 29 3b 0a 20 20 20 20 20 20 49 4e 53 45 52  z));.      INSER
03c0: 54 20 49 4e 54 4f 20 78 20 56 41 4c 55 45 53 28  T INTO x VALUES(
03d0: 72 61 6e 64 6f 6d 62 6c 6f 62 28 31 30 30 29 2c  randomblob(100),
03e0: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 31 30 30 29   randomblob(100)
03f0: 29 3b 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20  );.    COMMIT;. 
0400: 20 20 20 50 52 41 47 4d 41 20 77 61 6c 5f 63 68     PRAGMA wal_ch
0410: 65 63 6b 70 6f 69 6e 74 3b 0a 0a 20 20 20 20 49  eckpoint;..    I
0420: 4e 53 45 52 54 20 49 4e 54 4f 20 78 20 53 45 4c  NSERT INTO x SEL
0430: 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 31  ECT randomblob(1
0440: 30 30 29 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28  00), randomblob(
0450: 31 30 30 29 20 46 52 4f 4d 20 78 3b 0a 20 20 20  100) FROM x;.   
0460: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 78 20 53   INSERT INTO x S
0470: 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62  ELECT randomblob
0480: 28 31 30 30 29 2c 20 72 61 6e 64 6f 6d 62 6c 6f  (100), randomblo
0490: 62 28 31 30 30 29 20 46 52 4f 4d 20 78 3b 0a 20  b(100) FROM x;. 
04a0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 78     INSERT INTO x
04b0: 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c   SELECT randombl
04c0: 6f 62 28 31 30 30 29 2c 20 72 61 6e 64 6f 6d 62  ob(100), randomb
04d0: 6c 6f 62 28 31 30 30 29 20 46 52 4f 4d 20 78 3b  lob(100) FROM x;
04e0: 0a 20 20 7d 0a 20 20 66 69 6c 65 20 63 6f 70 79  .  }.  file copy
04f0: 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 20   -force test.db 
0500: 74 65 73 74 58 2e 64 62 0a 20 20 66 69 6c 65 20  testX.db.  file 
0510: 63 6f 70 79 20 2d 66 6f 72 63 65 20 74 65 73 74  copy -force test
0520: 2e 64 62 2d 77 61 6c 20 74 65 73 74 58 2e 64 62  .db-wal testX.db
0530: 2d 77 61 6c 0a 20 20 64 62 20 63 6c 6f 73 65 0a  -wal.  db close.
0540: 20 20 66 69 6c 65 20 72 65 6e 61 6d 65 20 2d 66    file rename -f
0550: 6f 72 63 65 20 74 65 73 74 58 2e 64 62 20 74 65  orce testX.db te
0560: 73 74 2e 64 62 0a 20 20 66 69 6c 65 20 72 65 6e  st.db.  file ren
0570: 61 6d 65 20 2d 66 6f 72 63 65 20 74 65 73 74 58  ame -force testX
0580: 2e 64 62 2d 77 61 6c 20 74 65 73 74 2e 64 62 2d  .db-wal test.db-
0590: 77 61 6c 0a 0a 20 20 73 71 6c 69 74 65 33 20 64  wal..  sqlite3 d
05a0: 62 20 74 65 73 74 2e 64 62 0a 20 20 73 71 6c 69  b test.db.  sqli
05b0: 74 65 33 5f 65 78 74 65 6e 64 65 64 5f 72 65 73  te3_extended_res
05c0: 75 6c 74 5f 63 6f 64 65 73 20 64 62 20 31 0a 20  ult_codes db 1. 
05d0: 20 73 71 6c 69 74 65 33 5f 64 62 5f 63 6f 6e 66   sqlite3_db_conf
05e0: 69 67 5f 6c 6f 6f 6b 61 73 69 64 65 20 64 62 20  ig_lookaside db 
05f0: 30 20 30 20 30 0a 7d 20 2d 73 71 6c 62 6f 64 79  0 0 0.} -sqlbody
0600: 20 7b 0a 20 20 53 45 4c 45 43 54 20 63 6f 75 6e   {.  SELECT coun
0610: 74 28 2a 29 20 46 52 4f 4d 20 78 3b 0a 7d 0a 0a  t(*) FROM x;.}..
0620: 64 6f 5f 69 6f 65 72 72 5f 74 65 73 74 20 77 61  do_ioerr_test wa
0630: 6c 66 61 75 6c 74 2d 69 6f 65 72 72 2d 31 20 2d  lfault-ioerr-1 -
0640: 73 71 6c 70 72 65 70 20 7b 0a 20 20 50 52 41 47  sqlprep {.  PRAG
0650: 4d 41 20 61 75 74 6f 5f 76 61 63 75 75 6d 20 3d  MA auto_vacuum =
0660: 20 31 3b 0a 20 20 50 52 41 47 4d 41 20 6a 6f 75   1;.  PRAGMA jou
0670: 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 3b  rnal_mode = WAL;
0680: 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20  .  CREATE TABLE 
0690: 61 62 63 28 61 20 50 52 49 4d 41 52 59 20 4b 45  abc(a PRIMARY KE
06a0: 59 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  Y);.  INSERT INT
06b0: 4f 20 61 62 63 20 56 41 4c 55 45 53 28 72 61 6e  O abc VALUES(ran
06c0: 64 6f 6d 62 6c 6f 62 28 31 35 30 30 29 29 3b 0a  domblob(1500));.
06d0: 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 44  } -sqlbody {.  D
06e0: 45 4c 45 54 45 20 46 52 4f 4d 20 61 62 63 3b 0a  ELETE FROM abc;.
06f0: 20 20 50 52 41 47 4d 41 20 77 61 6c 5f 63 68 65    PRAGMA wal_che
0700: 63 6b 70 6f 69 6e 74 3b 0a 7d 0a 63 61 74 63 68  ckpoint;.}.catch
0710: 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 0a 23 20 41   {db close}..# A
0720: 20 5b 74 65 73 74 76 66 73 5d 20 63 61 6c 6c 62   [testvfs] callb
0730: 61 63 6b 20 66 6f 72 20 74 68 65 20 56 46 53 20  ack for the VFS 
0740: 63 72 65 61 74 65 64 20 62 79 20 5b 64 6f 5f 73  created by [do_s
0750: 68 6d 66 61 75 6c 74 5f 74 65 73 74 5d 2e 20 54  hmfault_test]. T
0760: 68 69 73 0a 23 20 63 61 6c 6c 62 61 63 6b 20 69  his.# callback i
0770: 6e 6a 65 63 74 73 20 53 51 4c 49 54 45 5f 49 4f  njects SQLITE_IO
0780: 45 52 52 20 66 61 75 6c 74 73 20 69 6e 74 6f 20  ERR faults into 
0790: 6d 65 74 68 6f 64 73 20 66 6f 72 20 77 68 69 63  methods for whic
07a0: 68 20 61 6e 20 65 6e 74 72 79 0a 23 20 69 6e 20  h an entry.# in 
07b0: 61 72 72 61 79 20 3a 3a 73 68 6d 66 61 75 6c 74  array ::shmfault
07c0: 5f 69 6f 65 72 72 5f 6d 65 74 68 6f 64 73 20 69  _ioerr_methods i
07d0: 73 20 64 65 66 69 6e 65 64 2e 20 46 6f 72 20 65  s defined. For e
07e0: 78 61 6d 70 6c 65 2c 20 74 6f 20 65 6e 61 62 6c  xample, to enabl
07f0: 65 0a 23 20 65 72 72 6f 72 73 20 69 6e 20 78 53  e.# errors in xS
0800: 68 6d 4f 70 65 6e 3a 0a 23 0a 23 20 20 20 73 65  hmOpen:.#.#   se
0810: 74 20 3a 3a 73 68 6d 66 61 75 6c 74 5f 69 6f 65  t ::shmfault_ioe
0820: 72 72 5f 6d 65 74 68 6f 64 73 28 78 53 68 6d 4f  rr_methods(xShmO
0830: 70 65 6e 29 20 31 0a 23 20 0a 23 20 46 61 75 6c  pen) 1.# .# Faul
0840: 74 73 20 61 72 65 20 6e 6f 74 20 69 6e 6a 65 63  ts are not injec
0850: 74 65 64 20 69 6e 74 6f 20 78 53 68 6d 52 65 6c  ted into xShmRel
0860: 65 61 73 65 2c 20 78 53 68 6d 43 6c 6f 73 65 20  ease, xShmClose 
0870: 6f 72 20 78 53 68 6d 4c 6f 63 6b 20 6d 65 74 68  or xShmLock meth
0880: 6f 64 20 0a 23 20 63 61 6c 6c 73 2e 20 54 68 65  od .# calls. The
0890: 20 67 6c 6f 62 61 6c 20 74 63 6c 20 76 61 72 69   global tcl vari
08a0: 61 62 6c 65 73 20 75 73 65 64 20 61 72 65 3a 0a  ables used are:.
08b0: 23 0a 23 20 20 20 24 3a 3a 73 68 6d 66 61 75 6c  #.#   $::shmfaul
08c0: 74 5f 69 6f 65 72 72 5f 63 6f 75 6e 74 64 6f 77  t_ioerr_countdow
08d0: 6e 0a 23 20 20 20 24 3a 3a 73 68 6d 66 61 75 6c  n.#   $::shmfaul
08e0: 74 5f 69 6f 65 72 72 5f 70 65 72 73 69 73 74 0a  t_ioerr_persist.
08f0: 23 20 20 20 24 3a 3a 73 68 6d 66 61 75 6c 74 5f  #   $::shmfault_
0900: 69 6f 65 72 72 5f 6d 65 74 68 6f 64 73 0a 23 0a  ioerr_methods.#.
0910: 70 72 6f 63 20 73 68 6d 66 61 75 6c 74 5f 76 66  proc shmfault_vf
0920: 73 5f 63 62 20 7b 6d 65 74 68 6f 64 20 61 72 67  s_cb {method arg
0930: 73 7d 20 7b 0a 0a 20 20 23 20 49 66 20 3a 3a 73  s} {..  # If ::s
0940: 68 6d 66 61 75 6c 74 5f 69 6f 65 72 72 5f 63 6f  hmfault_ioerr_co
0950: 75 6e 74 64 6f 77 6e 20 69 73 20 6e 6f 74 20 73  untdown is not s
0960: 65 74 2c 20 61 6c 77 61 79 73 20 72 65 74 75 72  et, always retur
0970: 6e 20 53 51 4c 49 54 45 5f 4f 4b 2e 0a 20 20 23  n SQLITE_OK..  #
0980: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
0990: 73 74 73 20 3a 3a 73 68 6d 66 61 75 6c 74 5f 69  sts ::shmfault_i
09a0: 6f 65 72 72 5f 63 6f 75 6e 74 64 6f 77 6e 5d 3d  oerr_countdown]=
09b0: 3d 30 7d 20 7b 20 72 65 74 75 72 6e 20 53 51 4c  =0} { return SQL
09c0: 49 54 45 5f 4f 4b 20 7d 0a 0a 20 20 69 66 20 7b  ITE_OK }..  if {
09d0: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 73  [info exists ::s
09e0: 68 6d 66 61 75 6c 74 5f 69 6f 65 72 72 5f 6d 65  hmfault_ioerr_me
09f0: 74 68 6f 64 73 28 24 6d 65 74 68 6f 64 29 5d 7d  thods($method)]}
0a00: 20 7b 0a 20 20 20 20 69 6e 63 72 20 3a 3a 73 68   {.    incr ::sh
0a10: 6d 66 61 75 6c 74 5f 69 6f 65 72 72 5f 63 6f 75  mfault_ioerr_cou
0a20: 6e 74 64 6f 77 6e 20 2d 31 0a 20 20 20 20 69 66  ntdown -1.    if
0a30: 20 7b 20 28 24 3a 3a 73 68 6d 66 61 75 6c 74 5f   { ($::shmfault_
0a40: 69 6f 65 72 72 5f 63 6f 75 6e 74 64 6f 77 6e 3d  ioerr_countdown=
0a50: 3d 30 29 0a 20 20 20 20 20 20 7c 7c 20 28 24 3a  =0).      || ($:
0a60: 3a 73 68 6d 66 61 75 6c 74 5f 69 6f 65 72 72 5f  :shmfault_ioerr_
0a70: 63 6f 75 6e 74 64 6f 77 6e 3c 3d 30 20 26 26 20  countdown<=0 && 
0a80: 24 3a 3a 73 68 6d 66 61 75 6c 74 5f 69 6f 65 72  $::shmfault_ioer
0a90: 72 5f 70 65 72 73 69 73 74 29 0a 20 20 20 20 7d  r_persist).    }
0aa0: 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20   {.      return 
0ab0: 53 51 4c 49 54 45 5f 49 4f 45 52 52 0a 20 20 20  SQLITE_IOERR.   
0ac0: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20   }.  }.  return 
0ad0: 53 51 4c 49 54 45 5f 4f 4b 0a 7d 0a 0a 23 20 4f  SQLITE_OK.}..# O
0ae0: 70 74 69 6f 6e 73 20 61 72 65 3a 0a 23 0a 23 20  ptions are:.#.# 
0af0: 20 20 2d 74 63 6c 70 72 65 70 20 54 43 4c 0a 23    -tclprep TCL.#
0b00: 20 20 20 2d 73 71 6c 70 72 65 70 20 53 51 4c 0a     -sqlprep SQL.
0b10: 23 20 20 20 2d 73 71 6c 62 6f 64 79 20 53 51 4c  #   -sqlbody SQL
0b20: 0a 23 0a 70 72 6f 63 20 64 6f 5f 73 68 6d 66 61  .#.proc do_shmfa
0b30: 75 6c 74 5f 74 65 73 74 20 7b 6e 61 6d 65 20 61  ult_test {name a
0b40: 72 67 73 7d 20 7b 0a 0a 20 20 73 65 74 20 41 28  rgs} {..  set A(
0b50: 2d 74 63 6c 70 72 65 70 29 20 22 73 71 6c 69 74  -tclprep) "sqlit
0b60: 65 33 20 64 62 20 74 65 73 74 2e 64 62 20 2d 76  e3 db test.db -v
0b70: 66 73 20 73 68 6d 66 61 75 6c 74 22 0a 20 20 73  fs shmfault".  s
0b80: 65 74 20 41 28 2d 73 71 6c 70 72 65 70 29 20 22  et A(-sqlprep) "
0b90: 22 0a 20 20 73 65 74 20 41 28 2d 73 71 6c 62 6f  ".  set A(-sqlbo
0ba0: 64 79 29 20 22 22 0a 20 20 73 65 74 20 41 28 2d  dy) "".  set A(-
0bb0: 6d 65 74 68 6f 64 73 29 20 5b 6c 69 73 74 20 78  methods) [list x
0bc0: 53 68 6d 47 65 74 20 78 53 68 6d 4f 70 65 6e 20  ShmGet xShmOpen 
0bd0: 78 53 68 6d 53 69 7a 65 5d 0a 20 20 73 65 74 20  xShmSize].  set 
0be0: 41 28 2d 63 6f 76 65 72 61 67 65 6f 6e 6c 79 29  A(-coverageonly)
0bf0: 20 30 0a 20 20 61 72 72 61 79 20 73 65 74 20 41   0.  array set A
0c00: 20 24 61 72 67 73 0a 0a 20 20 23 20 43 72 65 61   $args..  # Crea
0c10: 74 65 20 61 20 56 46 53 20 74 6f 20 75 73 65 3a  te a VFS to use:
0c20: 0a 20 20 74 65 73 74 76 66 73 20 73 68 6d 66 61  .  testvfs shmfa
0c30: 75 6c 74 20 73 68 6d 66 61 75 6c 74 5f 76 66 73  ult shmfault_vfs
0c40: 5f 63 62 0a 0a 20 20 75 6e 73 65 74 20 2d 6e 6f  _cb..  unset -no
0c50: 63 6f 6d 70 6c 61 69 6e 20 3a 3a 73 68 6d 66 61  complain ::shmfa
0c60: 75 6c 74 5f 69 6f 65 72 72 5f 6d 65 74 68 6f 64  ult_ioerr_method
0c70: 73 0a 20 20 66 6f 72 65 61 63 68 20 6d 20 24 41  s.  foreach m $A
0c80: 28 2d 6d 65 74 68 6f 64 73 29 20 7b 20 73 65 74  (-methods) { set
0c90: 20 3a 3a 73 68 6d 66 61 75 6c 74 5f 69 6f 65 72   ::shmfault_ioer
0ca0: 72 5f 6d 65 74 68 6f 64 73 28 24 6d 29 20 31 20  r_methods($m) 1 
0cb0: 7d 0a 20 20 0a 20 20 66 6f 72 65 61 63 68 20 6d  }.  .  foreach m
0cc0: 6f 64 65 20 7b 74 72 61 6e 73 69 65 6e 74 20 70  ode {transient p
0cd0: 65 72 73 69 73 74 65 6e 74 7d 20 7b 0a 20 20 20  ersistent} {.   
0ce0: 20 73 65 74 20 3a 3a 73 68 6d 66 61 75 6c 74 5f   set ::shmfault_
0cf0: 69 6f 65 72 72 5f 70 65 72 73 69 73 74 20 5b 65  ioerr_persist [e
0d00: 78 70 72 20 7b 24 6d 6f 64 65 20 3d 3d 20 22 70  xpr {$mode == "p
0d10: 65 72 73 69 73 74 65 6e 74 22 7d 5d 0a 0a 20 20  ersistent"}]..  
0d20: 20 20 66 6f 72 20 7b 73 65 74 20 6e 44 65 6c 61    for {set nDela
0d30: 79 20 31 7d 20 7b 24 6e 44 65 6c 61 79 20 3c 20  y 1} {$nDelay < 
0d40: 31 30 30 30 30 7d 20 7b 69 6e 63 72 20 6e 44 65  10000} {incr nDe
0d50: 6c 61 79 7d 20 7b 0a 20 20 0a 20 20 20 20 20 20  lay} {.  .      
0d60: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
0d70: 63 65 20 74 65 73 74 2e 64 62 20 74 65 73 74 2e  ce test.db test.
0d80: 64 62 2d 77 61 6c 20 74 65 73 74 2e 64 62 2d 6a  db-wal test.db-j
0d90: 6f 75 72 6e 61 6c 0a 0a 20 20 20 20 20 20 65 76  ournal..      ev
0da0: 61 6c 20 24 41 28 2d 74 63 6c 70 72 65 70 29 0a  al $A(-tclprep).
0db0: 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 24 41        db eval $A
0dc0: 28 2d 73 71 6c 70 72 65 70 29 0a 0a 20 20 20 20  (-sqlprep)..    
0dd0: 20 20 73 65 74 20 3a 3a 73 68 6d 66 61 75 6c 74    set ::shmfault
0de0: 5f 69 6f 65 72 72 5f 63 6f 75 6e 74 64 6f 77 6e  _ioerr_countdown
0df0: 20 24 6e 44 65 6c 61 79 0a 20 20 20 20 20 20 73   $nDelay.      s
0e00: 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 20 64  et rc [catch { d
0e10: 62 20 65 76 61 6c 20 24 41 28 2d 73 71 6c 62 6f  b eval $A(-sqlbo
0e20: 64 79 29 20 7d 20 6d 73 67 5d 0a 20 20 20 20 20  dy) } msg].     
0e30: 20 73 65 74 20 68 69 74 5f 65 72 72 6f 72 20 5b   set hit_error [
0e40: 65 78 70 72 20 7b 24 3a 3a 73 68 6d 66 61 75 6c  expr {$::shmfaul
0e50: 74 5f 69 6f 65 72 72 5f 63 6f 75 6e 74 64 6f 77  t_ioerr_countdow
0e60: 6e 3c 3d 30 7d 5d 0a 20 20 20 20 20 20 75 6e 73  n<=0}].      uns
0e70: 65 74 20 3a 3a 73 68 6d 66 61 75 6c 74 5f 69 6f  et ::shmfault_io
0e80: 65 72 72 5f 63 6f 75 6e 74 64 6f 77 6e 0a 0a 20  err_countdown.. 
0e90: 20 20 20 20 20 63 61 74 63 68 20 7b 20 64 62 20       catch { db 
0ea0: 63 6c 6f 73 65 20 7d 0a 20 20 20 20 20 20 0a 20  close }.      . 
0eb0: 20 20 20 20 20 69 66 20 7b 24 41 28 2d 63 6f 76       if {$A(-cov
0ec0: 65 72 61 67 65 6f 6e 6c 79 29 7d 20 7b 20 73 65  erageonly)} { se
0ed0: 74 20 72 63 20 24 68 69 74 5f 65 72 72 6f 72 20  t rc $hit_error 
0ee0: 7d 0a 20 20 20 20 20 20 64 6f 5f 74 65 73 74 20  }.      do_test 
0ef0: 24 6e 61 6d 65 2d 24 6d 6f 64 65 2e 24 6e 44 65  $name-$mode.$nDe
0f00: 6c 61 79 2e 31 20 5b 6c 69 73 74 20 73 65 74 20  lay.1 [list set 
0f10: 7b 7d 20 24 68 69 74 5f 65 72 72 6f 72 5d 20 24  {} $hit_error] $
0f20: 72 63 0a 20 20 0a 20 20 20 20 20 20 69 66 20 7b  rc.  .      if {
0f30: 24 68 69 74 5f 65 72 72 6f 72 3d 3d 30 7d 20 62  $hit_error==0} b
0f40: 72 65 61 6b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a  reak.    }.  }..
0f50: 20 20 73 68 6d 66 61 75 6c 74 20 64 65 6c 65 74    shmfault delet
0f60: 65 0a 7d 0a 0a 64 6f 5f 73 68 6d 66 61 75 6c 74  e.}..do_shmfault
0f70: 5f 74 65 73 74 20 77 61 6c 66 61 75 6c 74 2d 73  _test walfault-s
0f80: 68 6d 2d 31 20 2d 73 71 6c 62 6f 64 79 20 7b 0a  hm-1 -sqlbody {.
0f90: 20 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c    PRAGMA journal
0fa0: 5f 6d 6f 64 65 20 3d 20 57 41 4c 3b 0a 20 20 43  _mode = WAL;.  C
0fb0: 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 61  REATE TABLE t1(a
0fc0: 20 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 62 29   PRIMARY KEY, b)
0fd0: 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  ;.  INSERT INTO 
0fe0: 74 31 20 56 41 4c 55 45 53 28 27 61 27 2c 20 27  t1 VALUES('a', '
0ff0: 62 27 29 3b 0a 20 20 50 52 41 47 4d 41 20 77 61  b');.  PRAGMA wa
1000: 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 3b 0a 7d 0a  l_checkpoint;.}.
1010: 0a 64 6f 5f 73 68 6d 66 61 75 6c 74 5f 74 65 73  .do_shmfault_tes
1020: 74 20 77 61 6c 66 61 75 6c 74 2d 73 68 6d 2d 32  t walfault-shm-2
1030: 20 2d 6d 65 74 68 6f 64 73 20 78 53 68 6d 53 69   -methods xShmSi
1040: 7a 65 20 2d 73 71 6c 70 72 65 70 20 7b 0a 20 20  ze -sqlprep {.  
1050: 50 52 41 47 4d 41 20 70 61 67 65 5f 73 69 7a 65  PRAGMA page_size
1060: 20 3d 20 35 31 32 3b 0a 20 20 50 52 41 47 4d 41   = 512;.  PRAGMA
1070: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20   journal_mode = 
1080: 57 41 4c 3b 0a 20 20 50 52 41 47 4d 41 20 77 61  WAL;.  PRAGMA wa
1090: 6c 5f 61 75 74 6f 63 68 65 63 6b 70 6f 69 6e 74  l_autocheckpoint
10a0: 20 3d 20 30 3b 0a 7d 20 2d 73 71 6c 62 6f 64 79   = 0;.} -sqlbody
10b0: 20 7b 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c   {.  CREATE TABL
10c0: 45 20 74 31 28 78 29 3b 0a 20 20 42 45 47 49 4e  E t1(x);.  BEGIN
10d0: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
10e0: 4f 20 74 31 20 56 41 4c 55 45 53 28 72 61 6e 64  O t1 VALUES(rand
10f0: 6f 6d 62 6c 6f 62 28 34 30 30 29 29 3b 20 20 20  omblob(400));   
1100: 20 20 20 20 20 20 20 20 2f 2a 20 31 20 2a 2f 0a          /* 1 */.
1110: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1120: 74 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d  t1 SELECT random
1130: 62 6c 6f 62 28 34 30 30 29 20 46 52 4f 4d 20 74  blob(400) FROM t
1140: 31 3b 20 20 20 20 2f 2a 20 32 20 2a 2f 0a 20 20  1;    /* 2 */.  
1150: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
1160: 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c   SELECT randombl
1170: 6f 62 28 34 30 30 29 20 46 52 4f 4d 20 74 31 3b  ob(400) FROM t1;
1180: 20 20 20 20 2f 2a 20 34 20 2a 2f 0a 20 20 20 20      /* 4 */.    
1190: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
11a0: 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62  ELECT randomblob
11b0: 28 34 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20  (400) FROM t1;  
11c0: 20 20 2f 2a 20 38 20 2a 2f 0a 20 20 20 20 49 4e    /* 8 */.    IN
11d0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
11e0: 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34  ECT randomblob(4
11f0: 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20  00) FROM t1;    
1200: 2f 2a 20 31 36 20 2a 2f 0a 20 20 20 20 49 4e 53  /* 16 */.    INS
1210: 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45  ERT INTO t1 SELE
1220: 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30  CT randomblob(40
1230: 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f  0) FROM t1;    /
1240: 2a 20 33 32 20 2a 2f 0a 20 20 20 20 49 4e 53 45  * 32 */.    INSE
1250: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
1260: 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30  T randomblob(400
1270: 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a  ) FROM t1;    /*
1280: 20 36 34 20 2a 2f 0a 20 20 20 20 49 4e 53 45 52   64 */.    INSER
1290: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
12a0: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30 29   randomblob(400)
12b0: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20   FROM t1;    /* 
12c0: 31 32 38 20 2a 2f 0a 20 20 20 20 49 4e 53 45 52  128 */.    INSER
12d0: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
12e0: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30 29   randomblob(400)
12f0: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20   FROM t1;    /* 
1300: 32 35 36 20 2a 2f 0a 20 20 20 20 49 4e 53 45 52  256 */.    INSER
1310: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
1320: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30 29   randomblob(400)
1330: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20   FROM t1;    /* 
1340: 35 31 32 20 2a 2f 0a 20 20 20 20 49 4e 53 45 52  512 */.    INSER
1350: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
1360: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30 29   randomblob(400)
1370: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20   FROM t1;    /* 
1380: 31 30 32 34 20 2a 2f 0a 20 20 20 20 49 4e 53 45  1024 */.    INSE
1390: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
13a0: 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30  T randomblob(400
13b0: 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a  ) FROM t1;    /*
13c0: 20 32 30 34 38 20 2a 2f 0a 20 20 20 20 49 4e 53   2048 */.    INS
13d0: 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45  ERT INTO t1 SELE
13e0: 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30  CT randomblob(40
13f0: 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f  0) FROM t1;    /
1400: 2a 20 34 30 39 36 20 2a 2f 0a 20 20 20 20 49 4e  * 4096 */.    IN
1410: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
1420: 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34  ECT randomblob(4
1430: 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20  00) FROM t1;    
1440: 2f 2a 20 38 31 39 32 20 2a 2f 0a 20 20 20 20 49  /* 8192 */.    I
1450: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45  NSERT INTO t1 SE
1460: 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28  LECT randomblob(
1470: 34 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20  400) FROM t1;   
1480: 20 2f 2a 20 31 36 33 38 34 20 2a 2f 0a 20 20 43   /* 16384 */.  C
1490: 4f 4d 4d 49 54 3b 0a 7d 0a 0a 64 6f 5f 73 68 6d  OMMIT;.}..do_shm
14a0: 66 61 75 6c 74 5f 74 65 73 74 20 77 61 6c 66 61  fault_test walfa
14b0: 75 6c 74 2d 73 68 6d 2d 33 20 2d 6d 65 74 68 6f  ult-shm-3 -metho
14c0: 64 73 20 78 53 68 6d 53 69 7a 65 20 2d 74 63 6c  ds xShmSize -tcl
14d0: 70 72 65 70 20 7b 0a 20 20 73 71 6c 69 74 65 33  prep {.  sqlite3
14e0: 20 64 62 20 74 65 73 74 2e 64 62 20 2d 76 66 73   db test.db -vfs
14f0: 20 73 68 6d 66 61 75 6c 74 0a 20 20 75 6e 73 65   shmfault.  unse
1500: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a  t -nocomplain ::
1510: 73 68 6d 66 61 75 6c 74 5f 69 6f 65 72 72 5f 63  shmfault_ioerr_c
1520: 6f 75 6e 74 64 6f 77 6e 0a 20 20 64 62 20 65 76  ountdown.  db ev
1530: 61 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20  al {.    PRAGMA 
1540: 70 61 67 65 5f 73 69 7a 65 20 3d 20 35 31 32 3b  page_size = 512;
1550: 0a 20 20 20 20 50 52 41 47 4d 41 20 6a 6f 75 72  .    PRAGMA jour
1560: 6e 61 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 3b 0a  nal_mode = WAL;.
1570: 20 20 20 20 50 52 41 47 4d 41 20 77 61 6c 5f 61      PRAGMA wal_a
1580: 75 74 6f 63 68 65 63 6b 70 6f 69 6e 74 20 3d 20  utocheckpoint = 
1590: 30 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  0;.    CREATE TA
15a0: 42 4c 45 20 74 31 28 78 29 3b 0a 20 20 20 20 42  BLE t1(x);.    B
15b0: 45 47 49 4e 3b 0a 20 20 20 20 20 20 49 4e 53 45  EGIN;.      INSE
15c0: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
15d0: 53 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30  S(randomblob(400
15e0: 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a  ));           /*
15f0: 20 31 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45   1 */.      INSE
1600: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
1610: 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30  T randomblob(400
1620: 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a  ) FROM t1;    /*
1630: 20 32 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45   2 */.      INSE
1640: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
1650: 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30  T randomblob(400
1660: 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a  ) FROM t1;    /*
1670: 20 34 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45   4 */.      INSE
1680: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
1690: 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30  T randomblob(400
16a0: 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a  ) FROM t1;    /*
16b0: 20 38 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45   8 */.      INSE
16c0: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
16d0: 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30  T randomblob(400
16e0: 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a  ) FROM t1;    /*
16f0: 20 31 36 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53   16 */.      INS
1700: 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45  ERT INTO t1 SELE
1710: 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30  CT randomblob(40
1720: 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f  0) FROM t1;    /
1730: 2a 20 33 32 20 2a 2f 0a 20 20 20 20 20 20 49 4e  * 32 */.      IN
1740: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
1750: 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34  ECT randomblob(4
1760: 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20  00) FROM t1;    
1770: 2f 2a 20 36 34 20 2a 2f 0a 20 20 20 20 20 20 49  /* 64 */.      I
1780: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45  NSERT INTO t1 SE
1790: 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28  LECT randomblob(
17a0: 34 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20  400) FROM t1;   
17b0: 20 2f 2a 20 31 32 38 20 2a 2f 0a 20 20 20 20 20   /* 128 */.     
17c0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
17d0: 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f  SELECT randomblo
17e0: 62 28 34 30 30 29 20 46 52 4f 4d 20 74 31 3b 20  b(400) FROM t1; 
17f0: 20 20 20 2f 2a 20 32 35 36 20 2a 2f 0a 20 20 20     /* 256 */.   
1800: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1810: 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62  1 SELECT randomb
1820: 6c 6f 62 28 34 30 30 29 20 46 52 4f 4d 20 74 31  lob(400) FROM t1
1830: 3b 20 20 20 20 2f 2a 20 35 31 32 20 2a 2f 0a 20  ;    /* 512 */. 
1840: 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f       INSERT INTO
1850: 20 74 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f   t1 SELECT rando
1860: 6d 62 6c 6f 62 28 34 30 30 29 20 46 52 4f 4d 20  mblob(400) FROM 
1870: 74 31 3b 20 20 20 20 2f 2a 20 31 30 32 34 20 2a  t1;    /* 1024 *
1880: 2f 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49  /.      INSERT I
1890: 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20 72 61  NTO t1 SELECT ra
18a0: 6e 64 6f 6d 62 6c 6f 62 28 34 30 30 29 20 46 52  ndomblob(400) FR
18b0: 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20 32 30 34  OM t1;    /* 204
18c0: 38 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52  8 */.      INSER
18d0: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
18e0: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30 29   randomblob(400)
18f0: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20   FROM t1;    /* 
1900: 34 30 39 36 20 2a 2f 0a 20 20 20 20 20 20 49 4e  4096 */.      IN
1910: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
1920: 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 34  ECT randomblob(4
1930: 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20  00) FROM t1;    
1940: 2f 2a 20 38 31 39 32 20 2a 2f 0a 20 20 20 20 20  /* 8192 */.     
1950: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
1960: 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f  SELECT randomblo
1970: 62 28 34 30 30 29 20 46 52 4f 4d 20 74 31 3b 20  b(400) FROM t1; 
1980: 20 20 20 2f 2a 20 31 36 33 38 34 20 2a 2f 0a 20     /* 16384 */. 
1990: 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d 0a 0a     COMMIT;.  }..
19a0: 20 20 73 65 74 20 3a 3a 73 68 6d 66 61 75 6c 74    set ::shmfault
19b0: 5f 69 6f 65 72 72 5f 63 6f 75 6e 74 64 6f 77 6e  _ioerr_countdown
19c0: 20 31 0a 20 20 73 65 74 20 3a 3a 73 68 6d 66 61   1.  set ::shmfa
19d0: 75 6c 74 5f 69 6f 65 72 72 5f 6d 65 74 68 6f 64  ult_ioerr_method
19e0: 73 28 78 53 68 6d 47 65 74 29 20 31 0a 20 20 64  s(xShmGet) 1.  d
19f0: 62 20 63 6c 6f 73 65 0a 20 20 75 6e 73 65 74 20  b close.  unset 
1a00: 3a 3a 73 68 6d 66 61 75 6c 74 5f 69 6f 65 72 72  ::shmfault_ioerr
1a10: 5f 6d 65 74 68 6f 64 73 28 78 53 68 6d 47 65 74  _methods(xShmGet
1a20: 29 0a 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78  ).  if {[file ex
1a30: 69 73 74 73 20 74 65 73 74 2e 64 62 2d 77 61 6c  ists test.db-wal
1a40: 5d 3d 3d 30 7d 20 7b 65 72 72 6f 72 20 22 46 61  ]==0} {error "Fa
1a50: 69 6c 65 64 20 74 6f 20 63 72 65 61 74 65 20 57  iled to create W
1a60: 41 4c 20 66 69 6c 65 21 22 7d 0a 0a 20 20 73 71  AL file!"}..  sq
1a70: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
1a80: 20 2d 76 66 73 20 73 68 6d 66 61 75 6c 74 0a 7d   -vfs shmfault.}
1a90: 20 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 53 45   -sqlbody {.  SE
1aa0: 4c 45 43 54 20 63 6f 75 6e 74 28 2a 29 20 46 52  LECT count(*) FR
1ab0: 4f 4d 20 74 31 3b 0a 7d 0a 0a 64 6f 5f 73 68 6d  OM t1;.}..do_shm
1ac0: 66 61 75 6c 74 5f 74 65 73 74 20 77 61 6c 66 61  fault_test walfa
1ad0: 75 6c 74 2d 73 68 6d 2d 34 20 2d 74 63 6c 70 72  ult-shm-4 -tclpr
1ae0: 65 70 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64  ep {.  sqlite3 d
1af0: 62 20 74 65 73 74 2e 64 62 20 2d 76 66 73 20 73  b test.db -vfs s
1b00: 68 6d 66 61 75 6c 74 0a 20 20 75 6e 73 65 74 20  hmfault.  unset 
1b10: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a 73 68  -nocomplain ::sh
1b20: 6d 66 61 75 6c 74 5f 69 6f 65 72 72 5f 63 6f 75  mfault_ioerr_cou
1b30: 6e 74 64 6f 77 6e 0a 20 20 64 62 20 65 76 61 6c  ntdown.  db eval
1b40: 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 70 61   {.    PRAGMA pa
1b50: 67 65 5f 73 69 7a 65 20 3d 20 35 31 32 3b 0a 20  ge_size = 512;. 
1b60: 20 20 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61     PRAGMA journa
1b70: 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 3b 0a 20 20  l_mode = WAL;.  
1b80: 20 20 50 52 41 47 4d 41 20 77 61 6c 5f 61 75 74    PRAGMA wal_aut
1b90: 6f 63 68 65 63 6b 70 6f 69 6e 74 20 3d 20 30 3b  ocheckpoint = 0;
1ba0: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
1bb0: 45 20 74 31 28 78 29 3b 0a 20 20 20 20 42 45 47  E t1(x);.    BEG
1bc0: 49 4e 3b 0a 20 20 20 20 20 20 49 4e 53 45 52 54  IN;.      INSERT
1bd0: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
1be0: 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30 29 29  randomblob(400))
1bf0: 3b 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 31  ;           /* 1
1c00: 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52 54   */.      INSERT
1c10: 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20   INTO t1 SELECT 
1c20: 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30 29 20  randomblob(400) 
1c30: 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20 32  FROM t1;    /* 2
1c40: 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52 54   */.      INSERT
1c50: 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20   INTO t1 SELECT 
1c60: 72 61 6e 64 6f 6d 62 6c 6f 62 28 34 30 30 29 20  randomblob(400) 
1c70: 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20 34  FROM t1;    /* 4
1c80: 20 2a 2f 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a   */.    COMMIT;.
1c90: 20 20 7d 0a 0a 20 20 73 65 74 20 3a 3a 73 68 6d    }..  set ::shm
1ca0: 66 61 75 6c 74 5f 69 6f 65 72 72 5f 63 6f 75 6e  fault_ioerr_coun
1cb0: 74 64 6f 77 6e 20 31 0a 20 20 73 65 74 20 3a 3a  tdown 1.  set ::
1cc0: 73 68 6d 66 61 75 6c 74 5f 69 6f 65 72 72 5f 6d  shmfault_ioerr_m
1cd0: 65 74 68 6f 64 73 28 78 53 68 6d 47 65 74 29 20  ethods(xShmGet) 
1ce0: 31 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 75  1.  db close.  u
1cf0: 6e 73 65 74 20 3a 3a 73 68 6d 66 61 75 6c 74 5f  nset ::shmfault_
1d00: 69 6f 65 72 72 5f 6d 65 74 68 6f 64 73 28 78 53  ioerr_methods(xS
1d10: 68 6d 47 65 74 29 0a 20 20 69 66 20 7b 5b 66 69  hmGet).  if {[fi
1d20: 6c 65 20 65 78 69 73 74 73 20 74 65 73 74 2e 64  le exists test.d
1d30: 62 2d 77 61 6c 5d 3d 3d 30 7d 20 7b 65 72 72 6f  b-wal]==0} {erro
1d40: 72 20 22 46 61 69 6c 65 64 20 74 6f 20 63 72 65  r "Failed to cre
1d50: 61 74 65 20 57 41 4c 20 66 69 6c 65 21 22 7d 0a  ate WAL file!"}.
1d60: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73    sqlite3 db tes
1d70: 74 2e 64 62 20 2d 76 66 73 20 73 68 6d 66 61 75  t.db -vfs shmfau
1d80: 6c 74 0a 7d 20 2d 73 71 6c 62 6f 64 79 20 7b 0a  lt.} -sqlbody {.
1d90: 20 20 53 45 4c 45 43 54 20 63 6f 75 6e 74 28 2a    SELECT count(*
1da0: 29 20 46 52 4f 4d 20 74 31 3b 0a 7d 0a 0a 64 6f  ) FROM t1;.}..do
1db0: 5f 73 68 6d 66 61 75 6c 74 5f 74 65 73 74 20 77  _shmfault_test w
1dc0: 61 6c 66 61 75 6c 74 2d 73 68 6d 2d 35 20 2d 63  alfault-shm-5 -c
1dd0: 6f 76 65 72 61 67 65 6f 6e 6c 79 20 31 20 2d 73  overageonly 1 -s
1de0: 71 6c 70 72 65 70 20 7b 0a 20 20 50 52 41 47 4d  qlprep {.  PRAGM
1df0: 41 20 63 61 63 68 65 5f 73 69 7a 65 20 3d 20 31  A cache_size = 1
1e00: 30 3b 0a 20 20 50 52 41 47 4d 41 20 6a 6f 75 72  0;.  PRAGMA jour
1e10: 6e 61 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 3b 0a  nal_mode = WAL;.
1e20: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 61    CREATE TABLE a
1e30: 62 63 28 61 20 50 52 49 4d 41 52 59 20 4b 45 59  bc(a PRIMARY KEY
1e40: 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  );.  INSERT INTO
1e50: 20 61 62 63 20 56 41 4c 55 45 53 28 72 61 6e 64   abc VALUES(rand
1e60: 6f 6d 62 6c 6f 62 28 39 30 30 29 29 3b 0a 7d 20  omblob(900));.} 
1e70: 2d 73 71 6c 62 6f 64 79 20 7b 0a 20 20 42 45 47  -sqlbody {.  BEG
1e80: 49 4e 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  IN;.    INSERT I
1e90: 4e 54 4f 20 61 62 63 20 53 45 4c 45 43 54 20 72  NTO abc SELECT r
1ea0: 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46  andomblob(900) F
1eb0: 52 4f 4d 20 61 62 63 3b 20 20 20 20 2f 2a 20 31  ROM abc;    /* 1
1ec0: 20 2a 2f 0a 20 20 20 20 49 4e 53 45 52 54 20 49   */.    INSERT I
1ed0: 4e 54 4f 20 61 62 63 20 53 45 4c 45 43 54 20 72  NTO abc SELECT r
1ee0: 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46  andomblob(900) F
1ef0: 52 4f 4d 20 61 62 63 3b 20 20 20 20 2f 2a 20 32  ROM abc;    /* 2
1f00: 20 2a 2f 0a 20 20 20 20 49 4e 53 45 52 54 20 49   */.    INSERT I
1f10: 4e 54 4f 20 61 62 63 20 53 45 4c 45 43 54 20 72  NTO abc SELECT r
1f20: 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46  andomblob(900) F
1f30: 52 4f 4d 20 61 62 63 3b 20 20 20 20 2f 2a 20 34  ROM abc;    /* 4
1f40: 20 2a 2f 0a 20 20 20 20 49 4e 53 45 52 54 20 49   */.    INSERT I
1f50: 4e 54 4f 20 61 62 63 20 53 45 4c 45 43 54 20 72  NTO abc SELECT r
1f60: 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46  andomblob(900) F
1f70: 52 4f 4d 20 61 62 63 3b 20 20 20 20 2f 2a 20 38  ROM abc;    /* 8
1f80: 20 2a 2f 0a 20 20 52 4f 4c 4c 42 41 43 4b 3b 0a   */.  ROLLBACK;.
1f90: 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  }..#------------
1fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20  -------------.# 
1fe0: 57 68 65 6e 20 61 20 64 61 74 61 62 61 73 65 20  When a database 
1ff0: 69 73 20 63 68 65 63 6b 70 6f 69 6e 74 65 64 2c  is checkpointed,
2000: 20 53 51 4c 69 74 65 20 64 6f 65 73 20 74 68 65   SQLite does the
2010: 20 66 6f 6c 6c 6f 77 69 6e 67 3a 0a 23 0a 23 20   following:.#.# 
2020: 20 20 31 2e 20 78 53 68 6d 4c 6f 63 6b 28 43 48    1. xShmLock(CH
2030: 45 43 4b 50 4f 49 4e 54 29 20 74 6f 20 6c 6f 63  ECKPOINT) to loc
2040: 6b 20 74 68 65 20 57 41 4c 2e 0a 23 20 20 20 32  k the WAL..#   2
2050: 2e 20 78 53 68 6d 47 65 74 28 2d 31 29 20 74 6f  . xShmGet(-1) to
2060: 20 67 65 74 20 61 20 6d 61 70 70 69 6e 67 20 74   get a mapping t
2070: 6f 20 72 65 61 64 20 74 68 65 20 77 61 6c 2d 69  o read the wal-i
2080: 6e 64 65 78 20 68 65 61 64 65 72 2e 0a 23 20 20  ndex header..#  
2090: 20 33 2e 20 49 66 20 74 68 65 20 6d 61 70 70 69   3. If the mappi
20a0: 6e 67 20 6f 62 74 61 69 6e 65 64 20 69 6e 20 28  ng obtained in (
20b0: 32 29 20 69 73 20 6e 6f 74 20 6c 61 72 67 65 20  2) is not large 
20c0: 65 6e 6f 75 67 68 20 74 6f 20 63 6f 76 65 72 20  enough to cover 
20d0: 74 68 65 0a 23 20 20 20 20 20 20 65 6e 74 69 72  the.#      entir
20e0: 65 20 77 61 6c 2d 69 6e 64 65 78 2c 20 63 61 6c  e wal-index, cal
20f0: 6c 20 78 53 68 6d 47 65 74 28 6e 52 65 71 29 20  l xShmGet(nReq) 
2100: 74 6f 20 67 65 74 20 61 20 6c 61 72 67 65 72 20  to get a larger 
2110: 6d 61 70 70 69 6e 67 2e 0a 23 20 20 20 34 2e 20  mapping..#   4. 
2120: 44 6f 20 74 68 65 20 63 68 65 63 6b 70 6f 69 6e  Do the checkpoin
2130: 74 2e 0a 23 20 20 20 35 2e 20 52 65 6c 65 61 73  t..#   5. Releas
2140: 65 20 74 68 65 20 6c 6f 63 6b 20 61 6e 64 20 6d  e the lock and m
2150: 61 70 70 69 6e 67 2e 0a 23 0a 23 20 54 68 69 73  apping..#.# This
2160: 20 74 65 73 74 20 63 61 73 65 20 74 65 73 74 73   test case tests
2170: 20 74 68 65 20 6f 75 74 63 6f 6d 65 20 6f 66 20   the outcome of 
2180: 61 6e 20 49 4f 20 65 72 72 6f 72 20 69 6e 20 73  an IO error in s
2190: 74 65 70 20 32 2e 0a 23 0a 70 72 6f 63 20 73 68  tep 2..#.proc sh
21a0: 6d 66 61 75 6c 74 5f 76 66 73 5f 63 62 5f 36 20  mfault_vfs_cb_6 
21b0: 7b 6d 65 74 68 6f 64 20 61 72 67 73 7d 20 7b 0a  {method args} {.
21c0: 20 20 73 77 69 74 63 68 20 2d 2d 20 24 3a 3a 73    switch -- $::s
21d0: 68 6d 5f 73 74 61 74 65 20 7b 0a 20 20 20 20 30  hm_state {.    0
21e0: 20 7b 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45   { return SQLITE
21f0: 5f 4f 4b 20 7d 0a 20 20 20 20 31 20 7b 0a 20 20  _OK }.    1 {.  
2200: 20 20 20 20 69 66 20 7b 24 6d 65 74 68 6f 64 20      if {$method 
2210: 3d 3d 20 22 78 53 68 6d 47 65 74 22 7d 20 7b 0a  == "xShmGet"} {.
2220: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 77 61          set ::wa
2230: 6c 5f 69 6e 64 65 78 20 5b 74 76 66 73 20 73 68  l_index [tvfs sh
2240: 6d 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20  m [lindex $args 
2250: 30 5d 5d 0a 20 20 20 20 20 20 20 20 74 76 66 73  0]].        tvfs
2260: 20 73 68 6d 20 5b 6c 69 6e 64 65 78 20 24 61 72   shm [lindex $ar
2270: 67 73 20 30 5d 20 5b 73 74 72 69 6e 67 20 72 61  gs 0] [string ra
2280: 6e 67 65 20 24 3a 3a 77 61 6c 5f 69 6e 64 65 78  nge $::wal_index
2290: 20 30 20 36 35 35 33 35 5d 0a 20 20 20 20 20 20   0 65535].      
22a0: 20 20 73 65 74 20 3a 3a 73 68 6d 5f 73 74 61 74    set ::shm_stat
22b0: 65 20 32 0a 20 20 20 20 20 20 7d 0a 20 20 20 20  e 2.      }.    
22c0: 7d 0a 20 20 20 20 32 20 7b 0a 20 20 20 20 20 20  }.    2 {.      
22d0: 69 66 20 7b 24 6d 65 74 68 6f 64 20 3d 3d 20 22  if {$method == "
22e0: 78 53 68 6d 47 65 74 22 7d 20 7b 0a 20 20 20 20  xShmGet"} {.    
22f0: 20 20 20 20 74 76 66 73 20 73 68 6d 20 5b 6c 69      tvfs shm [li
2300: 6e 64 65 78 20 24 61 72 67 73 20 30 5d 20 24 3a  ndex $args 0] $:
2310: 3a 77 61 6c 5f 69 6e 64 65 78 0a 20 20 20 20 20  :wal_index.     
2320: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
2330: 5f 49 4f 45 52 52 0a 20 20 20 20 20 20 7d 0a 20  _IOERR.      }. 
2340: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72     }.  }.  retur
2350: 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 7d 0a 64 6f  n SQLITE_OK.}.do
2360: 5f 74 65 73 74 20 77 61 6c 66 61 75 6c 74 2d 73  _test walfault-s
2370: 68 6d 2d 36 2e 31 20 7b 0a 20 20 73 65 74 20 3a  hm-6.1 {.  set :
2380: 3a 73 68 6d 5f 73 74 61 74 65 20 30 0a 20 20 74  :shm_state 0.  t
2390: 65 73 74 76 66 73 20 74 76 66 73 20 73 68 6d 66  estvfs tvfs shmf
23a0: 61 75 6c 74 5f 76 66 73 5f 63 62 5f 36 0a 0a 20  ault_vfs_cb_6.. 
23b0: 20 73 71 6c 69 74 65 33 20 64 62 20 20 74 65 73   sqlite3 db  tes
23c0: 74 2e 64 62 20 2d 76 66 73 20 74 76 66 73 0a 20  t.db -vfs tvfs. 
23d0: 20 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73   sqlite3 db2 tes
23e0: 74 2e 64 62 20 2d 76 66 73 20 74 76 66 73 0a 0a  t.db -vfs tvfs..
23f0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
2400: 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d  PRAGMA journal_m
2410: 6f 64 65 20 3d 20 57 41 4c 3b 0a 20 20 20 20 50  ode = WAL;.    P
2420: 52 41 47 4d 41 20 77 61 6c 5f 61 75 74 6f 63 68  RAGMA wal_autoch
2430: 65 63 6b 70 6f 69 6e 74 20 3d 20 30 3b 0a 20 20  eckpoint = 0;.  
2440: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74    CREATE TABLE t
2450: 31 28 78 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  1(x);.    INSERT
2460: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
2470: 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 29  randomblob(900))
2480: 3b 0a 20 20 7d 0a 7d 20 7b 77 61 6c 20 30 7d 0a  ;.  }.} {wal 0}.
2490: 64 6f 5f 74 65 73 74 20 77 61 6c 66 61 75 6c 74  do_test walfault
24a0: 2d 73 68 6d 2d 36 2e 32 20 7b 0a 20 20 65 78 65  -shm-6.2 {.  exe
24b0: 63 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d  csql {.    PRAGM
24c0: 41 20 77 61 6c 5f 61 75 74 6f 63 68 65 63 6b 70  A wal_autocheckp
24d0: 6f 69 6e 74 20 3d 20 30 3b 0a 20 20 20 20 42 45  oint = 0;.    BE
24e0: 47 49 4e 3b 0a 20 20 20 20 20 20 49 4e 53 45 52  GIN;.      INSER
24f0: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
2500: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29   randomblob(900)
2510: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20   FROM t1;    /* 
2520: 32 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52  2 */.      INSER
2530: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
2540: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29   randomblob(900)
2550: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20   FROM t1;    /* 
2560: 34 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52  4 */.      INSER
2570: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
2580: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29   randomblob(900)
2590: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20   FROM t1;    /* 
25a0: 38 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52  8 */.      INSER
25b0: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54  T INTO t1 SELECT
25c0: 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29   randomblob(900)
25d0: 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20   FROM t1;    /* 
25e0: 31 36 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45  16 */.      INSE
25f0: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
2600: 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30  T randomblob(900
2610: 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a  ) FROM t1;    /*
2620: 20 33 32 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53   32 */.      INS
2630: 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45  ERT INTO t1 SELE
2640: 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30  CT randomblob(90
2650: 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f  0) FROM t1;    /
2660: 2a 20 36 34 20 2a 2f 0a 20 20 20 20 20 20 49 4e  * 64 */.      IN
2670: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c  SERT INTO t1 SEL
2680: 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39  ECT randomblob(9
2690: 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20  00) FROM t1;    
26a0: 2f 2a 20 31 32 38 20 2a 2f 0a 20 20 20 20 20 20  /* 128 */.      
26b0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
26c0: 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62  ELECT randomblob
26d0: 28 39 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20  (900) FROM t1;  
26e0: 20 20 2f 2a 20 32 35 36 20 2a 2f 0a 20 20 20 20    /* 256 */.    
26f0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
2700: 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c   SELECT randombl
2710: 6f 62 28 39 30 30 29 20 46 52 4f 4d 20 74 31 3b  ob(900) FROM t1;
2720: 20 20 20 20 2f 2a 20 35 31 32 20 2a 2f 0a 20 20      /* 512 */.  
2730: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
2740: 74 31 20 53 45 4c 45 43 54 20 72 61 6e 64 6f 6d  t1 SELECT random
2750: 62 6c 6f 62 28 39 30 30 29 20 46 52 4f 4d 20 74  blob(900) FROM t
2760: 31 3b 20 20 20 20 2f 2a 20 31 30 32 34 20 2a 2f  1;    /* 1024 */
2770: 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e  .      INSERT IN
2780: 54 4f 20 74 31 20 53 45 4c 45 43 54 20 72 61 6e  TO t1 SELECT ran
2790: 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20 46 52 4f  domblob(900) FRO
27a0: 4d 20 74 31 3b 20 20 20 20 2f 2a 20 32 30 34 38  M t1;    /* 2048
27b0: 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53 45 52 54   */.      INSERT
27c0: 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 20   INTO t1 SELECT 
27d0: 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30 30 29 20  randomblob(900) 
27e0: 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f 2a 20 34  FROM t1;    /* 4
27f0: 30 39 36 20 2a 2f 0a 20 20 20 20 20 20 49 4e 53  096 */.      INS
2800: 45 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45  ERT INTO t1 SELE
2810: 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 39 30  CT randomblob(90
2820: 30 29 20 46 52 4f 4d 20 74 31 3b 20 20 20 20 2f  0) FROM t1;    /
2830: 2a 20 38 31 39 32 20 2a 2f 0a 20 20 20 20 20 20  * 8192 */.      
2840: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
2850: 45 4c 45 43 54 20 72 61 6e 64 6f 6d 62 6c 6f 62  ELECT randomblob
2860: 28 39 30 30 29 20 46 52 4f 4d 20 74 31 3b 20 20  (900) FROM t1;  
2870: 20 20 2f 2a 20 31 36 33 38 34 20 2a 2f 0a 20 20    /* 16384 */.  
2880: 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d 20 64 62    COMMIT;.  } db
2890: 32 0a 7d 20 7b 30 7d 0a 64 6f 5f 74 65 73 74 20  2.} {0}.do_test 
28a0: 77 61 6c 66 61 75 6c 74 2d 73 68 6d 2d 36 2e 33  walfault-shm-6.3
28b0: 20 7b 0a 20 20 73 65 74 20 3a 3a 73 68 6d 5f 73   {.  set ::shm_s
28c0: 74 61 74 65 20 31 0a 20 20 63 61 74 63 68 73 71  tate 1.  catchsq
28d0: 6c 20 7b 20 50 52 41 47 4d 41 20 77 61 6c 5f 63  l { PRAGMA wal_c
28e0: 68 65 63 6b 70 6f 69 6e 74 20 7d 20 64 62 32 0a  heckpoint } db2.
28f0: 7d 20 7b 31 20 7b 64 69 73 6b 20 49 2f 4f 20 65  } {1 {disk I/O e
2900: 72 72 6f 72 7d 7d 0a 73 65 74 20 3a 3a 73 68 6d  rror}}.set ::shm
2910: 5f 73 74 61 74 65 20 30 0a 64 62 20 63 6c 6f 73  _state 0.db clos
2920: 65 0a 64 62 32 20 63 6c 6f 73 65 0a 74 76 66 73  e.db2 close.tvfs
2930: 20 64 65 6c 65 74 65 0a 75 6e 73 65 74 20 2d 6e   delete.unset -n
2940: 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a 77 61 6c 5f  ocomplain ::wal_
2950: 69 6e 64 65 78 20 3a 3a 73 68 6d 5f 73 74 61 74  index ::shm_stat
2960: 65 0a 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a 0a  e..finish_test..