Artifact
db1feca997530d848597d36ee28b6314c478e2a6:
- File
test/win32lock.test
— part of check-in
[9191010833]
at
2012-01-23 16:22:58
on branch trunk
— Rename all of the interfaces from "sqlite3" to "sqlite4"
(user:
drh
size: 3838)
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.