/ Hex Artifact Content
Login

Artifact 1f79ea40d1133b2683a2f811b00f2399f7ec2401:


0000: 23 20 32 30 31 30 20 4a 75 6e 65 20 31 35 0a 23  # 2010 June 15.#
0010: 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20 64 69  .# The author di
0020: 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68  sclaims copyrigh
0030: 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65  t to this source
0040: 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65   code.  In place
0050: 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f   of.# a legal no
0060: 74 69 63 65 2c 20 68 65 72 65 20 69 73 20 61 20  tice, here is a 
0070: 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20  blessing:.#.#   
0080: 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64   May you do good
0090: 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23   and not evil..#
00a0: 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64      May you find
00b0: 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72   forgiveness for
00c0: 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f   yourself and fo
00d0: 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20  rgive others..# 
00e0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65     May you share
00f0: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74   freely, never t
0100: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20  aking more than 
0110: 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 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 0a 23 0a 23 20 54 68 65 20 74 65 73  ****.#.# The tes
0170: 74 73 20 69 6e 20 74 68 69 73 20 66 69 6c 65 20  ts in this file 
0180: 74 65 73 74 20 74 68 65 20 70 61 67 65 72 20 6d  test the pager m
0190: 6f 64 75 6c 65 73 20 72 65 73 70 6f 6e 73 65 20  odules response 
01a0: 74 6f 20 76 61 72 69 6f 75 73 0a 23 20 66 61 75  to various.# fau
01b0: 6c 74 20 63 6f 6e 64 69 74 69 6f 6e 73 20 28 4f  lt conditions (O
01c0: 4f 4d 2c 20 49 4f 20 65 72 72 6f 72 2c 20 64 69  OM, IO error, di
01d0: 73 6b 20 66 75 6c 6c 20 65 74 63 2e 29 2e 20 54  sk full etc.). T
01e0: 68 65 79 20 61 72 65 20 73 69 6d 69 6c 61 72 0a  hey are similar.
01f0: 23 20 74 6f 20 74 68 6f 73 65 20 69 6e 20 66 69  # to those in fi
0200: 6c 65 20 70 61 67 65 72 66 61 75 6c 74 31 2e 74  le pagerfault1.t
0210: 65 73 74 2e 20 0a 23 0a 23 20 4d 6f 72 65 20 73  est. .#.# More s
0220: 70 65 63 69 66 69 63 61 6c 6c 79 2c 20 74 68 65  pecifically, the
0230: 20 74 65 73 74 73 20 69 6e 20 74 68 69 73 20 66   tests in this f
0240: 69 6c 65 20 61 72 65 20 74 68 6f 73 65 20 64 65  ile are those de
0250: 65 6d 65 64 20 74 6f 6f 20 73 6c 6f 77 20 74 6f  emed too slow to
0260: 20 0a 23 20 72 75 6e 20 61 73 20 70 61 72 74 20   .# run as part 
0270: 6f 66 20 70 61 67 65 72 66 61 75 6c 74 31 2e 74  of pagerfault1.t
0280: 65 73 74 2e 0a 23 0a 0a 73 65 74 20 74 65 73 74  est..#..set test
0290: 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d  dir [file dirnam
02a0: 65 20 24 61 72 67 76 30 5d 0a 73 6f 75 72 63 65  e $argv0].source
02b0: 20 24 74 65 73 74 64 69 72 2f 74 65 73 74 65 72   $testdir/tester
02c0: 2e 74 63 6c 0a 73 6f 75 72 63 65 20 24 74 65 73  .tcl.source $tes
02d0: 74 64 69 72 2f 6c 6f 63 6b 5f 63 6f 6d 6d 6f 6e  tdir/lock_common
02e0: 2e 74 63 6c 0a 73 6f 75 72 63 65 20 24 74 65 73  .tcl.source $tes
02f0: 74 64 69 72 2f 6d 61 6c 6c 6f 63 5f 63 6f 6d 6d  tdir/malloc_comm
0300: 6f 6e 2e 74 63 6c 0a 0a 69 66 20 7b 5b 70 65 72  on.tcl..if {[per
0310: 6d 75 74 61 74 69 6f 6e 5d 20 3d 3d 20 22 69 6e  mutation] == "in
0320: 6d 65 6d 6f 72 79 5f 6a 6f 75 72 6e 61 6c 22 7d  memory_journal"}
0330: 20 7b 0a 20 20 66 69 6e 69 73 68 5f 74 65 73 74   {.  finish_test
0340: 0a 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 73 71 6c  .  return.}..sql
0350: 69 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 76 66  ite3_memdebug_vf
0360: 73 5f 6f 6f 6d 5f 74 65 73 74 20 30 0a 0a 73 65  s_oom_test 0..se
0370: 74 20 61 5f 73 74 72 69 6e 67 5f 63 6f 75 6e 74  t a_string_count
0380: 65 72 20 31 0a 70 72 6f 63 20 61 5f 73 74 72 69  er 1.proc a_stri
0390: 6e 67 20 7b 6e 7d 20 7b 0a 20 20 67 6c 6f 62 61  ng {n} {.  globa
03a0: 6c 20 61 5f 73 74 72 69 6e 67 5f 63 6f 75 6e 74  l a_string_count
03b0: 65 72 0a 20 20 69 6e 63 72 20 61 5f 73 74 72 69  er.  incr a_stri
03c0: 6e 67 5f 63 6f 75 6e 74 65 72 0a 20 20 73 74 72  ng_counter.  str
03d0: 69 6e 67 20 72 61 6e 67 65 20 5b 73 74 72 69 6e  ing range [strin
03e0: 67 20 72 65 70 65 61 74 20 22 24 7b 61 5f 73 74  g repeat "${a_st
03f0: 72 69 6e 67 5f 63 6f 75 6e 74 65 72 7d 2e 22 20  ring_counter}." 
0400: 24 6e 5d 20 31 20 24 6e 0a 7d 0a 64 62 20 66 75  $n] 1 $n.}.db fu
0410: 6e 63 20 61 5f 73 74 72 69 6e 67 20 61 5f 73 74  nc a_string a_st
0420: 72 69 6e 67 0a 0a 64 6f 5f 74 65 73 74 20 70 61  ring..do_test pa
0430: 67 65 72 66 61 75 6c 74 32 2d 31 2d 70 72 65 31  gerfault2-1-pre1
0440: 20 7b 0a 20 20 66 61 75 6c 74 73 69 6d 5f 64 65   {.  faultsim_de
0450: 6c 65 74 65 5f 61 6e 64 5f 72 65 6f 70 65 6e 0a  lete_and_reopen.
0460: 20 20 64 62 20 66 75 6e 63 20 61 5f 73 74 72 69    db func a_stri
0470: 6e 67 20 61 5f 73 74 72 69 6e 67 0a 20 20 65 78  ng a_string.  ex
0480: 65 63 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47  ecsql {.    PRAG
0490: 4d 41 20 61 75 74 6f 5f 76 61 63 75 75 6d 20 3d  MA auto_vacuum =
04a0: 20 30 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 6a   0;.    PRAGMA j
04b0: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 44 45  ournal_mode = DE
04c0: 4c 45 54 45 3b 0a 20 20 20 20 50 52 41 47 4d 41  LETE;.    PRAGMA
04d0: 20 70 61 67 65 5f 73 69 7a 65 20 3d 20 31 30 32   page_size = 102
04e0: 34 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  4;.    CREATE TA
04f0: 42 4c 45 20 74 31 28 61 2c 20 62 29 3b 0a 20 20  BLE t1(a, b);.  
0500: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0510: 20 56 41 4c 55 45 53 28 61 5f 73 74 72 69 6e 67   VALUES(a_string
0520: 28 34 30 31 29 2c 20 61 5f 73 74 72 69 6e 67 28  (401), a_string(
0530: 34 30 32 29 29 3b 0a 20 20 7d 0a 20 20 66 6f 72  402));.  }.  for
0540: 20 7b 73 65 74 20 69 69 20 30 7d 20 7b 24 69 69   {set ii 0} {$ii
0550: 20 3c 20 31 33 7d 20 7b 69 6e 63 72 20 69 69 7d   < 13} {incr ii}
0560: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b   {.    execsql {
0570: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
0580: 53 45 4c 45 43 54 20 61 5f 73 74 72 69 6e 67 28  SELECT a_string(
0590: 34 30 31 29 2c 20 61 5f 73 74 72 69 6e 67 28 34  401), a_string(4
05a0: 30 32 29 20 46 52 4f 4d 20 74 31 20 7d 0a 20 20  02) FROM t1 }.  
05b0: 7d 0a 20 20 66 61 75 6c 74 73 69 6d 5f 73 61 76  }.  faultsim_sav
05c0: 65 5f 61 6e 64 5f 63 6c 6f 73 65 0a 20 20 66 69  e_and_close.  fi
05d0: 6c 65 20 73 69 7a 65 20 74 65 73 74 2e 64 62 0a  le size test.db.
05e0: 7d 20 5b 65 78 70 72 20 31 30 32 34 20 2a 20 38  } [expr 1024 * 8
05f0: 32 36 38 5d 0a 0a 64 6f 5f 66 61 75 6c 74 73 69  268]..do_faultsi
0600: 6d 5f 74 65 73 74 20 70 61 67 65 72 66 61 75 6c  m_test pagerfaul
0610: 74 32 2d 31 20 2d 66 61 75 6c 74 73 20 6f 6f 6d  t2-1 -faults oom
0620: 2d 74 72 61 6e 73 69 65 6e 74 20 2d 70 72 65 70  -transient -prep
0630: 20 7b 0a 20 20 66 61 75 6c 74 73 69 6d 5f 72 65   {.  faultsim_re
0640: 73 74 6f 72 65 5f 61 6e 64 5f 72 65 6f 70 65 6e  store_and_reopen
0650: 0a 20 20 73 71 6c 69 74 65 33 5f 64 62 5f 63 6f  .  sqlite3_db_co
0660: 6e 66 69 67 5f 6c 6f 6f 6b 61 73 69 64 65 20 64  nfig_lookaside d
0670: 62 20 30 20 32 35 36 20 34 30 39 36 0a 20 20 65  b 0 256 4096.  e
0680: 78 65 63 73 71 6c 20 7b 20 0a 20 20 20 20 42 45  xecsql { .    BE
0690: 47 49 4e 3b 0a 20 20 20 20 20 20 53 45 4c 45 43  GIN;.      SELEC
06a0: 54 20 2a 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20  T * FROM t1;.   
06b0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
06c0: 31 20 56 41 4c 55 45 53 28 35 2c 20 36 29 3b 0a  1 VALUES(5, 6);.
06d0: 20 20 20 20 20 20 53 41 56 45 50 4f 49 4e 54 20        SAVEPOINT 
06e0: 61 62 63 3b 0a 20 20 20 20 20 20 20 20 55 50 44  abc;.        UPD
06f0: 41 54 45 20 74 31 20 53 45 54 20 61 20 3d 20 61  ATE t1 SET a = a
0700: 7c 7c 27 78 27 20 57 48 45 52 45 20 72 6f 77 69  ||'x' WHERE rowi
0710: 64 3c 33 37 30 30 3b 0a 20 20 7d 0a 7d 20 2d 62  d<3700;.  }.} -b
0720: 6f 64 79 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  ody {.  execsql 
0730: 7b 20 55 50 44 41 54 45 20 74 31 20 53 45 54 20  { UPDATE t1 SET 
0740: 61 20 3d 20 61 7c 7c 27 78 27 20 57 48 45 52 45  a = a||'x' WHERE
0750: 20 72 6f 77 69 64 3e 3d 33 37 30 30 20 41 4e 44   rowid>=3700 AND
0760: 20 72 6f 77 69 64 3c 3d 34 32 30 30 20 7d 0a 20   rowid<=4200 }. 
0770: 20 65 78 65 63 73 71 6c 20 7b 20 52 4f 4c 4c 42   execsql { ROLLB
0780: 41 43 4b 20 54 4f 20 61 62 63 20 7d 0a 7d 20 2d  ACK TO abc }.} -
0790: 74 65 73 74 20 7b 0a 20 20 66 61 75 6c 74 73 69  test {.  faultsi
07a0: 6d 5f 74 65 73 74 5f 72 65 73 75 6c 74 20 7b 30  m_test_result {0
07b0: 20 7b 7d 7d 0a 7d 0a 0a 64 6f 5f 74 65 73 74 20   {}}.}..do_test 
07c0: 70 61 67 65 72 66 61 75 6c 74 32 2d 32 2d 70 72  pagerfault2-2-pr
07d0: 65 31 20 7b 0a 20 20 66 61 75 6c 74 73 69 6d 5f  e1 {.  faultsim_
07e0: 72 65 73 74 6f 72 65 5f 61 6e 64 5f 72 65 6f 70  restore_and_reop
07f0: 65 6e 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 44  en.  execsql { D
0800: 45 4c 45 54 45 20 46 52 4f 4d 20 74 31 20 7d 0a  ELETE FROM t1 }.
0810: 20 20 66 61 75 6c 74 73 69 6d 5f 73 61 76 65 5f    faultsim_save_
0820: 61 6e 64 5f 63 6c 6f 73 65 0a 7d 20 7b 7d 0a 0a  and_close.} {}..
0830: 64 6f 5f 66 61 75 6c 74 73 69 6d 5f 74 65 73 74  do_faultsim_test
0840: 20 70 61 67 65 72 66 61 75 6c 74 32 2d 32 20 2d   pagerfault2-2 -
0850: 66 61 75 6c 74 73 20 6f 6f 6d 2d 74 72 61 6e 73  faults oom-trans
0860: 69 65 6e 74 20 2d 70 72 65 70 20 7b 0a 20 20 66  ient -prep {.  f
0870: 61 75 6c 74 73 69 6d 5f 72 65 73 74 6f 72 65 5f  aultsim_restore_
0880: 61 6e 64 5f 72 65 6f 70 65 6e 0a 20 20 73 71 6c  and_reopen.  sql
0890: 69 74 65 33 5f 64 62 5f 63 6f 6e 66 69 67 5f 6c  ite3_db_config_l
08a0: 6f 6f 6b 61 73 69 64 65 20 64 62 20 30 20 32 35  ookaside db 0 25
08b0: 36 20 34 30 39 36 0a 20 20 64 62 20 66 75 6e 63  6 4096.  db func
08c0: 20 61 5f 73 74 72 69 6e 67 20 61 5f 73 74 72 69   a_string a_stri
08d0: 6e 67 0a 0a 20 20 65 78 65 63 73 71 6c 20 7b 20  ng..  execsql { 
08e0: 0a 20 20 20 20 50 52 41 47 4d 41 20 63 61 63 68  .    PRAGMA cach
08f0: 65 5f 73 69 7a 65 20 3d 20 32 30 3b 0a 20 20 20  e_size = 20;.   
0900: 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 49 4e   BEGIN;.      IN
0910: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
0920: 55 45 53 28 61 5f 73 74 72 69 6e 67 28 34 30 31  UES(a_string(401
0930: 29 2c 20 61 5f 73 74 72 69 6e 67 28 34 30 32 29  ), a_string(402)
0940: 29 3b 0a 20 20 20 20 20 20 53 41 56 45 50 4f 49  );.      SAVEPOI
0950: 4e 54 20 61 62 63 3b 0a 20 20 7d 0a 7d 20 2d 62  NT abc;.  }.} -b
0960: 6f 64 79 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  ody {.  execsql 
0970: 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31  { INSERT INTO t1
0980: 20 56 41 4c 55 45 53 20 28 61 5f 73 74 72 69 6e   VALUES (a_strin
0990: 67 28 32 30 30 30 30 30 30 29 2c 20 61 5f 73 74  g(2000000), a_st
09a0: 72 69 6e 67 28 32 35 30 30 30 30 30 29 29 20 7d  ring(2500000)) }
09b0: 0a 7d 20 2d 74 65 73 74 20 7b 0a 20 20 66 61 75  .} -test {.  fau
09c0: 6c 74 73 69 6d 5f 74 65 73 74 5f 72 65 73 75 6c  ltsim_test_resul
09d0: 74 20 7b 30 20 7b 7d 7d 0a 7d 0a 0a 73 71 6c 69  t {0 {}}.}..sqli
09e0: 74 65 33 5f 6d 65 6d 64 65 62 75 67 5f 76 66 73  te3_memdebug_vfs
09f0: 5f 6f 6f 6d 5f 74 65 73 74 20 31 0a 66 69 6e 69  _oom_test 1.fini
0a00: 73 68 5f 74 65 73 74 0a 0a                       sh_test..