SQLite4
Hex Artifact Content
Not logged in

Artifact db1feca997530d848597d36ee28b6314c478e2a6:


0000: 23 20 32 30 31 31 20 4a 75 6c 79 20 31 31 0a 23  # 2011 July 11.#
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 20 54 68 69 73 20 66 69 6c 65  ****.# This file
0170: 20 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67 72   implements regr
0180: 65 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f 72  ession tests for
0190: 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e   SQLite library.
01a0: 20 20 54 68 65 0a 23 20 66 6f 63 75 73 20 6f 66    The.# focus of
01b0: 20 74 68 69 73 20 73 63 72 69 70 74 20 69 73 20   this script is 
01c0: 72 65 63 6f 76 65 72 79 20 66 72 6f 6d 20 74 72  recovery from tr
01d0: 61 6e 73 69 65 6e 74 20 6d 61 6e 64 69 74 6f 72  ansient manditor
01e0: 79 20 6c 6f 63 6b 73 0a 23 20 74 68 61 74 20 73  y locks.# that s
01f0: 6f 6d 65 74 69 6d 65 73 20 61 70 70 65 61 72 20  ometimes appear 
0200: 6f 6e 20 64 61 74 61 62 61 73 65 20 66 69 6c 65  on database file
0210: 73 20 64 75 65 20 74 6f 20 61 6e 74 69 2d 76 69  s due to anti-vi
0220: 72 75 73 20 73 6f 66 74 77 61 72 65 2e 0a 23 0a  rus software..#.
0230: 0a 69 66 20 7b 24 74 63 6c 5f 70 6c 61 74 66 6f  .if {$tcl_platfo
0240: 72 6d 28 70 6c 61 74 66 6f 72 6d 29 21 3d 22 77  rm(platform)!="w
0250: 69 6e 64 6f 77 73 22 7d 20 72 65 74 75 72 6e 0a  indows"} return.
0260: 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b 66 69  .set testdir [fi
0270: 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76  le dirname $argv
0280: 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64  0].source $testd
0290: 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 0a 73  ir/tester.tcl..s
02a0: 65 74 20 74 65 73 74 70 72 65 66 69 78 20 77 69  et testprefix wi
02b0: 6e 33 32 6c 6f 63 6b 0a 0a 64 62 20 63 6c 6f 73  n32lock..db clos
02c0: 65 0a 73 71 6c 69 74 65 34 5f 73 68 75 74 64 6f  e.sqlite4_shutdo
02d0: 77 6e 0a 74 65 73 74 5f 73 71 6c 69 74 65 34 5f  wn.test_sqlite4_
02e0: 6c 6f 67 20 78 4c 6f 67 0a 70 72 6f 63 20 78 4c  log xLog.proc xL
02f0: 6f 67 20 7b 65 72 72 6f 72 5f 63 6f 64 65 20 6d  og {error_code m
0300: 73 67 7d 20 7b 0a 20 20 6c 61 70 70 65 6e 64 20  sg} {.  lappend 
0310: 3a 3a 6c 6f 67 20 24 6d 73 67 20 0a 7d 0a 73 71  ::log $msg .}.sq
0320: 6c 69 74 65 34 20 64 62 20 74 65 73 74 2e 64 62  lite4 db test.db
0330: 0a 0a 64 6f 5f 74 65 73 74 20 77 69 6e 33 32 6c  ..do_test win32l
0340: 6f 63 6b 2d 31 2e 31 20 7b 0a 20 20 64 62 20 65  ock-1.1 {.  db e
0350: 76 61 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41  val {.    PRAGMA
0360: 20 63 61 63 68 65 5f 73 69 7a 65 3d 31 30 3b 0a   cache_size=10;.
0370: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
0380: 20 74 31 28 78 2c 79 29 3b 0a 20 20 20 20 49 4e   t1(x,y);.    IN
0390: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
03a0: 55 45 53 28 31 2c 72 61 6e 64 6f 6d 62 6c 6f 62  UES(1,randomblob
03b0: 28 31 30 30 30 30 30 29 29 3b 0a 20 20 20 20 49  (100000));.    I
03c0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
03d0: 4c 55 45 53 28 32 2c 72 61 6e 64 6f 6d 62 6c 6f  LUES(2,randomblo
03e0: 62 28 35 30 30 30 30 29 29 3b 0a 20 20 20 20 49  b(50000));.    I
03f0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0400: 4c 55 45 53 28 33 2c 72 61 6e 64 6f 6d 62 6c 6f  LUES(3,randomblo
0410: 62 28 32 35 30 30 30 29 29 3b 0a 20 20 20 20 49  b(25000));.    I
0420: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0430: 4c 55 45 53 28 34 2c 72 61 6e 64 6f 6d 62 6c 6f  LUES(4,randomblo
0440: 62 28 31 32 35 30 30 29 29 3b 0a 20 20 20 20 53  b(12500));.    S
0450: 45 4c 45 43 54 20 78 2c 20 6c 65 6e 67 74 68 28  ELECT x, length(
0460: 79 29 20 46 52 4f 4d 20 74 31 20 4f 52 44 45 52  y) FROM t1 ORDER
0470: 20 42 59 20 72 6f 77 69 64 3b 0a 20 20 7d 0a 7d   BY rowid;.  }.}
0480: 20 7b 31 20 31 30 30 30 30 30 20 32 20 35 30 30   {1 100000 2 500
0490: 30 30 20 33 20 32 35 30 30 30 20 34 20 31 32 35  00 3 25000 4 125
04a0: 30 30 7d 0a 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f  00}..unset -noco
04b0: 6d 70 6c 61 69 6e 20 64 65 6c 61 79 31 20 72 63  mplain delay1 rc
04c0: 20 6d 73 67 0a 73 65 74 20 6f 6c 64 5f 70 65 6e   msg.set old_pen
04d0: 64 69 6e 67 5f 62 79 74 65 20 5b 73 71 6c 69 74  ding_byte [sqlit
04e0: 65 34 5f 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f  e4_test_control_
04f0: 70 65 6e 64 69 6e 67 5f 62 79 74 65 20 30 78 34  pending_byte 0x4
0500: 30 30 30 30 30 30 30 5d 0a 0a 73 65 74 20 77 69  0000000]..set wi
0510: 6e 33 32 5f 6c 6f 63 6b 5f 6f 6b 20 5b 6c 69 73  n32_lock_ok [lis
0520: 74 5d 0a 73 65 74 20 77 69 6e 33 32 5f 6c 6f 63  t].set win32_loc
0530: 6b 5f 65 72 72 6f 72 20 5b 6c 69 73 74 5d 0a 73  k_error [list].s
0540: 65 74 20 64 65 6c 61 79 31 20 32 35 0a 77 68 69  et delay1 25.whi
0550: 6c 65 20 7b 31 7d 20 7b 0a 20 20 6c 6f 63 6b 5f  le {1} {.  lock_
0560: 77 69 6e 33 32 5f 66 69 6c 65 20 74 65 73 74 2e  win32_file test.
0570: 64 62 20 30 20 24 3a 3a 64 65 6c 61 79 31 0a 20  db 0 $::delay1. 
0580: 20 73 65 74 20 3a 3a 6c 6f 67 20 7b 7d 0a 20 20   set ::log {}.  
0590: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 64  set rc [catch {d
05a0: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78  b eval {SELECT x
05b0: 2c 20 6c 65 6e 67 74 68 28 79 29 20 46 52 4f 4d  , length(y) FROM
05c0: 20 74 31 20 4f 52 44 45 52 20 42 59 20 72 6f 77   t1 ORDER BY row
05d0: 69 64 7d 7d 20 6d 73 67 5d 0a 20 20 69 66 20 7b  id}} msg].  if {
05e0: 24 72 63 7d 20 7b 0a 20 20 20 20 6c 61 70 70 65  $rc} {.    lappe
05f0: 6e 64 20 77 69 6e 33 32 5f 6c 6f 63 6b 5f 65 72  nd win32_lock_er
0600: 72 6f 72 20 24 3a 3a 64 65 6c 61 79 31 0a 20 20  ror $::delay1.  
0610: 20 20 64 6f 5f 74 65 73 74 20 77 69 6e 33 32 6c    do_test win32l
0620: 6f 63 6b 2d 31 2e 32 2d 24 64 65 6c 61 79 31 2d  ock-1.2-$delay1-
0630: 65 72 72 6f 72 20 7b 0a 20 20 20 20 20 20 20 73  error {.       s
0640: 65 74 20 3a 3a 6d 73 67 0a 20 20 20 20 7d 20 7b  et ::msg.    } {
0650: 64 69 73 6b 20 49 2f 4f 20 65 72 72 6f 72 7d 0a  disk I/O error}.
0660: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 6c    } else {.    l
0670: 61 70 70 65 6e 64 20 77 69 6e 33 32 5f 6c 6f 63  append win32_loc
0680: 6b 5f 6f 6b 20 24 3a 3a 64 65 6c 61 79 31 0a 20  k_ok $::delay1. 
0690: 20 20 20 64 6f 5f 74 65 73 74 20 77 69 6e 33 32     do_test win32
06a0: 6c 6f 63 6b 2d 31 2e 32 2d 24 64 65 6c 61 79 31  lock-1.2-$delay1
06b0: 2d 6f 6b 20 7b 0a 20 20 20 20 20 20 20 73 65 74  -ok {.       set
06c0: 20 3a 3a 6d 73 67 0a 20 20 20 20 7d 20 7b 31 20   ::msg.    } {1 
06d0: 31 30 30 30 30 30 20 32 20 35 30 30 30 30 20 33  100000 2 50000 3
06e0: 20 32 35 30 30 30 20 34 20 31 32 35 30 30 7d 0a   25000 4 12500}.
06f0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
0700: 69 73 74 73 20 3a 3a 6c 6f 67 5d 20 26 26 20 24  ists ::log] && $
0710: 3a 3a 6c 6f 67 21 3d 22 22 7d 20 7b 0a 20 20 20  ::log!=""} {.   
0720: 20 20 20 64 6f 5f 74 65 73 74 20 77 69 6e 33 32     do_test win32
0730: 6c 6f 63 6b 2d 31 2e 32 2d 24 64 65 6c 61 79 31  lock-1.2-$delay1
0740: 2d 6c 6f 67 31 20 7b 0a 20 20 20 20 20 20 20 20  -log1 {.        
0750: 72 65 67 73 75 62 20 7b 5c 64 2b 7d 20 24 3a 3a  regsub {\d+} $::
0760: 6c 6f 67 20 23 20 78 0a 20 20 20 20 20 20 20 20  log # x.        
0770: 73 65 74 20 78 0a 20 20 20 20 20 20 7d 20 7b 7b  set x.      } {{
0780: 64 65 6c 61 79 65 64 20 23 6d 73 20 66 6f 72 20  delayed #ms for 
0790: 6c 6f 63 6b 2f 73 68 61 72 69 6e 67 20 63 6f 6e  lock/sharing con
07a0: 66 6c 69 63 74 7d 7d 0a 20 20 20 20 7d 0a 20 20  flict}}.    }.  
07b0: 7d 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68  }.  if {[llength
07c0: 20 24 77 69 6e 33 32 5f 6c 6f 63 6b 5f 6f 6b 5d   $win32_lock_ok]
07d0: 20 26 26 20 5b 6c 6c 65 6e 67 74 68 20 24 77 69   && [llength $wi
07e0: 6e 33 32 5f 6c 6f 63 6b 5f 65 72 72 6f 72 5d 7d  n32_lock_error]}
07f0: 20 62 72 65 61 6b 0a 20 20 69 6e 63 72 20 64 65   break.  incr de
0800: 6c 61 79 31 20 32 35 0a 20 20 69 66 20 7b 24 64  lay1 25.  if {$d
0810: 65 6c 61 79 31 20 3e 20 31 32 35 30 30 7d 20 7b  elay1 > 12500} {
0820: 0a 20 20 20 20 70 75 74 73 20 22 54 69 6d 65 64  .    puts "Timed
0830: 20 6f 75 74 20 77 61 69 74 69 6e 67 20 66 6f 72   out waiting for
0840: 20 5c 22 6f 6b 5c 22 20 61 6e 64 20 5c 22 65 72   \"ok\" and \"er
0850: 72 6f 72 5c 22 20 72 65 73 75 6c 74 73 2e 22 0a  ror\" results.".
0860: 20 20 20 20 62 72 65 61 6b 0a 20 20 7d 0a 20 20      break.  }.  
0870: 73 71 6c 69 74 65 34 5f 73 6c 65 65 70 20 31 30  sqlite4_sleep 10
0880: 0a 7d 0a 0a 64 6f 5f 74 65 73 74 20 77 69 6e 33  .}..do_test win3
0890: 32 6c 6f 63 6b 2d 32 2e 30 20 7b 0a 20 20 66 69  2lock-2.0 {.  fi
08a0: 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 77 69 6e 33 32  le_control_win32
08b0: 5f 61 76 5f 72 65 74 72 79 20 64 62 20 2d 31 20  _av_retry db -1 
08c0: 2d 31 0a 7d 20 7b 30 20 31 30 20 32 35 7d 0a 64  -1.} {0 10 25}.d
08d0: 6f 5f 74 65 73 74 20 77 69 6e 33 32 6c 6f 63 6b  o_test win32lock
08e0: 2d 32 2e 31 20 7b 0a 20 20 66 69 6c 65 5f 63 6f  -2.1 {.  file_co
08f0: 6e 74 72 6f 6c 5f 77 69 6e 33 32 5f 61 76 5f 72  ntrol_win32_av_r
0900: 65 74 72 79 20 64 62 20 31 20 31 0a 7d 20 7b 30  etry db 1 1.} {0
0910: 20 31 20 31 7d 0a 0a 23 0a 23 20 4e 4f 54 45 3a   1 1}..#.# NOTE:
0920: 20 49 74 20 69 73 20 6b 6e 6f 77 6e 20 74 68 61   It is known tha
0930: 74 20 74 68 65 20 77 69 6e 33 32 6c 6f 63 6b 2d  t the win32lock-
0940: 32 2e 32 2d 2a 20 74 65 73 74 73 20 6d 61 79 20  2.2-* tests may 
0950: 66 61 69 6c 20 69 66 20 74 68 65 20 73 79 73 74  fail if the syst
0960: 65 6d 20 69 73 0a 23 20 20 20 20 20 20 20 65 78  em is.#       ex
0970: 70 65 72 69 65 6e 63 69 6e 67 20 68 65 61 76 79  periencing heavy
0980: 20 6c 6f 61 64 20 28 69 2e 65 2e 20 74 68 65 79   load (i.e. they
0990: 20 61 72 65 20 76 65 72 79 20 74 69 6d 69 6e 67   are very timing
09a0: 20 73 65 6e 73 69 74 69 76 65 29 2e 20 20 54 68   sensitive).  Th
09b0: 69 73 20 69 73 0a 23 20 20 20 20 20 20 20 70 72  is is.#       pr
09c0: 69 6d 61 72 69 6c 79 20 64 75 65 20 74 6f 20 74  imarily due to t
09d0: 68 65 20 41 56 20 72 65 74 72 79 20 64 65 6c 61  he AV retry dela
09e0: 79 20 62 65 69 6e 67 20 73 65 74 20 74 6f 20 31  y being set to 1
09f0: 20 6d 69 6c 6c 69 73 65 63 6f 6e 64 20 69 6e 20   millisecond in 
0a00: 74 68 65 0a 23 20 20 20 20 20 20 20 77 69 6e 33  the.#       win3
0a10: 32 6c 6f 63 6b 2d 32 2e 31 20 74 65 73 74 20 28  2lock-2.1 test (
0a20: 61 62 6f 76 65 29 2e 20 20 57 68 69 6c 65 20 69  above).  While i
0a30: 74 20 69 73 20 69 6d 70 6f 72 74 61 6e 74 20 74  t is important t
0a40: 6f 20 74 65 73 74 20 74 68 69 73 20 63 6f 72 6e  o test this corn
0a50: 65 72 0a 23 20 20 20 20 20 20 20 63 61 73 65 20  er.#       case 
0a60: 66 6f 72 20 74 68 65 20 41 56 20 72 65 74 72 79  for the AV retry
0a70: 20 6c 6f 67 69 63 2c 20 61 20 66 61 69 6c 75 72   logic, a failur
0a80: 65 20 6f 66 20 74 68 69 73 20 74 65 73 74 20 73  e of this test s
0a90: 68 6f 75 6c 64 20 70 72 6f 62 61 62 6c 79 20 6e  hould probably n
0aa0: 6f 74 0a 23 20 20 20 20 20 20 20 62 65 20 69 6e  ot.#       be in
0ab0: 74 65 72 70 72 65 74 65 64 20 61 73 20 61 20 62  terpreted as a b
0ac0: 75 67 20 69 6e 20 53 51 4c 69 74 65 20 6f 72 20  ug in SQLite or 
0ad0: 74 68 65 73 65 20 74 65 73 74 20 63 61 73 65 73  these test cases
0ae0: 2e 0a 23 0a 73 65 74 20 77 69 6e 33 32 5f 6c 6f  ..#.set win32_lo
0af0: 63 6b 5f 6f 6b 20 5b 6c 69 73 74 5d 0a 73 65 74  ck_ok [list].set
0b00: 20 77 69 6e 33 32 5f 6c 6f 63 6b 5f 65 72 72 6f   win32_lock_erro
0b10: 72 20 5b 6c 69 73 74 5d 0a 73 65 74 20 64 65 6c  r [list].set del
0b20: 61 79 31 20 31 0a 77 68 69 6c 65 20 7b 31 7d 20  ay1 1.while {1} 
0b30: 7b 0a 20 20 6c 6f 63 6b 5f 77 69 6e 33 32 5f 66  {.  lock_win32_f
0b40: 69 6c 65 20 74 65 73 74 2e 64 62 20 30 20 24 3a  ile test.db 0 $:
0b50: 3a 64 65 6c 61 79 31 0a 20 20 73 65 74 20 3a 3a  :delay1.  set ::
0b60: 6c 6f 67 20 7b 7d 0a 20 20 73 65 74 20 72 63 20  log {}.  set rc 
0b70: 5b 63 61 74 63 68 20 7b 64 62 20 65 76 61 6c 20  [catch {db eval 
0b80: 7b 53 45 4c 45 43 54 20 78 2c 20 6c 65 6e 67 74  {SELECT x, lengt
0b90: 68 28 79 29 20 46 52 4f 4d 20 74 31 20 4f 52 44  h(y) FROM t1 ORD
0ba0: 45 52 20 42 59 20 72 6f 77 69 64 7d 7d 20 6d 73  ER BY rowid}} ms
0bb0: 67 5d 0a 20 20 69 66 20 7b 24 72 63 7d 20 7b 0a  g].  if {$rc} {.
0bc0: 20 20 20 20 6c 61 70 70 65 6e 64 20 77 69 6e 33      lappend win3
0bd0: 32 5f 6c 6f 63 6b 5f 65 72 72 6f 72 20 24 3a 3a  2_lock_error $::
0be0: 64 65 6c 61 79 31 0a 20 20 20 20 64 6f 5f 74 65  delay1.    do_te
0bf0: 73 74 20 77 69 6e 33 32 6c 6f 63 6b 2d 32 2e 32  st win32lock-2.2
0c00: 2d 24 64 65 6c 61 79 31 2d 65 72 72 6f 72 20 7b  -$delay1-error {
0c10: 0a 20 20 20 20 20 20 20 73 65 74 20 3a 3a 6d 73  .       set ::ms
0c20: 67 0a 20 20 20 20 7d 20 7b 64 69 73 6b 20 49 2f  g.    } {disk I/
0c30: 4f 20 65 72 72 6f 72 7d 0a 20 20 7d 20 65 6c 73  O error}.  } els
0c40: 65 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64 20  e {.    lappend 
0c50: 77 69 6e 33 32 5f 6c 6f 63 6b 5f 6f 6b 20 24 3a  win32_lock_ok $:
0c60: 3a 64 65 6c 61 79 31 0a 20 20 20 20 64 6f 5f 74  :delay1.    do_t
0c70: 65 73 74 20 77 69 6e 33 32 6c 6f 63 6b 2d 32 2e  est win32lock-2.
0c80: 32 2d 24 64 65 6c 61 79 31 2d 6f 6b 20 7b 0a 20  2-$delay1-ok {. 
0c90: 20 20 20 20 20 20 73 65 74 20 3a 3a 6d 73 67 0a        set ::msg.
0ca0: 20 20 20 20 7d 20 7b 31 20 31 30 30 30 30 30 20      } {1 100000 
0cb0: 32 20 35 30 30 30 30 20 33 20 32 35 30 30 30 20  2 50000 3 25000 
0cc0: 34 20 31 32 35 30 30 7d 0a 20 20 20 20 69 66 20  4 12500}.    if 
0cd0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
0ce0: 6c 6f 67 5d 20 26 26 20 24 3a 3a 6c 6f 67 21 3d  log] && $::log!=
0cf0: 22 22 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f 74  ""} {.      do_t
0d00: 65 73 74 20 77 69 6e 33 32 6c 6f 63 6b 2d 32 2e  est win32lock-2.
0d10: 32 2d 24 64 65 6c 61 79 31 2d 6c 6f 67 31 20 7b  2-$delay1-log1 {
0d20: 0a 20 20 20 20 20 20 20 20 72 65 67 73 75 62 20  .        regsub 
0d30: 7b 5c 64 2b 7d 20 24 3a 3a 6c 6f 67 20 23 20 78  {\d+} $::log # x
0d40: 0a 20 20 20 20 20 20 20 20 73 65 74 20 78 0a 20  .        set x. 
0d50: 20 20 20 20 20 7d 20 7b 7b 64 65 6c 61 79 65 64       } {{delayed
0d60: 20 23 6d 73 20 66 6f 72 20 6c 6f 63 6b 2f 73 68   #ms for lock/sh
0d70: 61 72 69 6e 67 20 63 6f 6e 66 6c 69 63 74 7d 7d  aring conflict}}
0d80: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 20  .    }.  }.  if 
0d90: 7b 5b 6c 6c 65 6e 67 74 68 20 24 77 69 6e 33 32  {[llength $win32
0da0: 5f 6c 6f 63 6b 5f 6f 6b 5d 20 26 26 20 5b 6c 6c  _lock_ok] && [ll
0db0: 65 6e 67 74 68 20 24 77 69 6e 33 32 5f 6c 6f 63  ength $win32_loc
0dc0: 6b 5f 65 72 72 6f 72 5d 7d 20 62 72 65 61 6b 0a  k_error]} break.
0dd0: 20 20 69 6e 63 72 20 64 65 6c 61 79 31 20 31 0a    incr delay1 1.
0de0: 20 20 69 66 20 7b 24 64 65 6c 61 79 31 20 3e 20    if {$delay1 > 
0df0: 35 30 30 7d 20 7b 0a 20 20 20 20 70 75 74 73 20  500} {.    puts 
0e00: 22 54 69 6d 65 64 20 6f 75 74 20 77 61 69 74 69  "Timed out waiti
0e10: 6e 67 20 66 6f 72 20 5c 22 6f 6b 5c 22 20 61 6e  ng for \"ok\" an
0e20: 64 20 5c 22 65 72 72 6f 72 5c 22 20 72 65 73 75  d \"error\" resu
0e30: 6c 74 73 2e 22 0a 20 20 20 20 62 72 65 61 6b 0a  lts.".    break.
0e40: 20 20 7d 0a 20 20 73 71 6c 69 74 65 34 5f 73 6c    }.  sqlite4_sl
0e50: 65 65 70 20 31 30 0a 7d 0a 0a 66 69 6c 65 5f 63  eep 10.}..file_c
0e60: 6f 6e 74 72 6f 6c 5f 77 69 6e 33 32 5f 61 76 5f  ontrol_win32_av_
0e70: 72 65 74 72 79 20 64 62 20 31 30 20 32 35 0a 73  retry db 10 25.s
0e80: 71 6c 69 74 65 34 5f 74 65 73 74 5f 63 6f 6e 74  qlite4_test_cont
0e90: 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62 79 74 65  rol_pending_byte
0ea0: 20 24 6f 6c 64 5f 70 65 6e 64 69 6e 67 5f 62 79   $old_pending_by
0eb0: 74 65 0a 64 62 20 63 6c 6f 73 65 0a 73 71 6c 69  te.db close.sqli
0ec0: 74 65 34 5f 73 68 75 74 64 6f 77 6e 0a 74 65 73  te4_shutdown.tes
0ed0: 74 5f 73 71 6c 69 74 65 34 5f 6c 6f 67 20 0a 73  t_sqlite4_log .s
0ee0: 71 6c 69 74 65 34 5f 69 6e 69 74 69 61 6c 69 7a  qlite4_initializ
0ef0: 65 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a        e.finish_test.