/ Hex Artifact Content
Login

Artifact cc90e3a73591b6e480b18ce864474908cccfb0d7:


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 33 5f 73 68 75 74 64 6f  e.sqlite3_shutdo
02d0: 77 6e 0a 74 65 73 74 5f 73 71 6c 69 74 65 33 5f  wn.test_sqlite3_
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 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 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 64 65 6c 61 79 31 20   msg.set delay1 
04d0: 35 30 0a 73 65 74 20 72 63 20 30 0a 73 65 74 20  50.set rc 0.set 
04e0: 6f 6c 64 5f 70 65 6e 64 69 6e 67 5f 62 79 74 65  old_pending_byte
04f0: 20 5b 73 71 6c 69 74 65 33 5f 74 65 73 74 5f 63   [sqlite3_test_c
0500: 6f 6e 74 72 6f 6c 5f 70 65 6e 64 69 6e 67 5f 62  ontrol_pending_b
0510: 79 74 65 20 30 78 34 30 30 30 30 30 30 30 5d 0a  yte 0x40000000].
0520: 77 68 69 6c 65 20 7b 31 7d 20 7b 0a 20 20 73 71  while {1} {.  sq
0530: 6c 69 74 65 33 5f 73 6c 65 65 70 20 31 30 0a 20  lite3_sleep 10. 
0540: 20 6c 6f 63 6b 5f 77 69 6e 33 32 5f 66 69 6c 65   lock_win32_file
0550: 20 74 65 73 74 2e 64 62 20 30 20 24 3a 3a 64 65   test.db 0 $::de
0560: 6c 61 79 31 0a 20 20 73 65 74 20 72 63 20 5b 63  lay1.  set rc [c
0570: 61 74 63 68 20 7b 64 62 20 65 76 61 6c 20 7b 53  atch {db eval {S
0580: 45 4c 45 43 54 20 78 2c 20 6c 65 6e 67 74 68 28  ELECT x, length(
0590: 79 29 20 46 52 4f 4d 20 74 31 20 4f 52 44 45 52  y) FROM t1 ORDER
05a0: 20 42 59 20 72 6f 77 69 64 7d 7d 20 6d 73 67 5d   BY rowid}} msg]
05b0: 0a 20 20 69 66 20 7b 24 72 63 7d 20 7b 0a 20 20  .  if {$rc} {.  
05c0: 20 20 64 6f 5f 74 65 73 74 20 77 69 6e 33 32 6c    do_test win32l
05d0: 6f 63 6b 2d 31 2e 32 2d 24 64 65 6c 61 79 31 2d  ock-1.2-$delay1-
05e0: 66 69 6e 20 7b 0a 20 20 20 20 20 20 20 73 65 74  fin {.       set
05f0: 20 3a 3a 6d 73 67 0a 20 20 20 20 7d 20 7b 64 69   ::msg.    } {di
0600: 73 6b 20 49 2f 4f 20 65 72 72 6f 72 7d 0a 20 20  sk I/O error}.  
0610: 20 20 62 72 65 61 6b 0a 20 20 7d 20 65 6c 73 65    break.  } else
0620: 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 77   {.    do_test w
0630: 69 6e 33 32 6c 6f 63 6b 2d 31 2e 32 2d 24 64 65  in32lock-1.2-$de
0640: 6c 61 79 31 20 7b 0a 20 20 20 20 20 20 20 73 65  lay1 {.       se
0650: 74 20 3a 3a 6d 73 67 0a 20 20 20 20 7d 20 7b 31  t ::msg.    } {1
0660: 20 31 30 30 30 30 30 20 32 20 35 30 30 30 30 20   100000 2 50000 
0670: 33 20 32 35 30 30 30 20 34 20 31 32 35 30 30 7d  3 25000 4 12500}
0680: 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65  .    if {[info e
0690: 78 69 73 74 73 20 3a 3a 6c 6f 67 5d 20 26 26 20  xists ::log] && 
06a0: 24 3a 3a 6c 6f 67 21 3d 22 22 7d 20 7b 0a 20 20  $::log!=""} {.  
06b0: 20 20 20 20 64 6f 5f 74 65 73 74 20 77 69 6e 33      do_test win3
06c0: 32 6c 6f 63 6b 2d 31 2e 32 2d 24 64 65 6c 61 79  2lock-1.2-$delay
06d0: 31 2d 6c 6f 67 31 20 7b 0a 20 20 20 20 20 20 20  1-log1 {.       
06e0: 20 72 65 67 73 75 62 20 7b 5c 64 2b 7d 20 24 3a   regsub {\d+} $:
06f0: 3a 6c 6f 67 20 23 20 78 0a 20 20 20 20 20 20 20  :log # x.       
0700: 20 73 65 74 20 78 0a 20 20 20 20 20 20 7d 20 7b   set x.      } {
0710: 7b 64 65 6c 61 79 65 64 20 23 6d 73 20 66 6f 72  {delayed #ms for
0720: 20 6c 6f 63 6b 2f 73 68 61 72 69 6e 67 20 63 6f   lock/sharing co
0730: 6e 66 6c 69 63 74 7d 7d 0a 20 20 20 20 7d 0a 20  nflict}}.    }. 
0740: 20 20 20 69 6e 63 72 20 64 65 6c 61 79 31 20 35     incr delay1 5
0750: 30 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 6c 6f  0.  }.  set ::lo
0760: 67 20 7b 7d 0a 7d 0a 0a 64 6f 5f 74 65 73 74 20  g {}.}..do_test 
0770: 77 69 6e 33 32 6c 6f 63 6b 2d 32 2e 30 20 7b 0a  win32lock-2.0 {.
0780: 20 20 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 77    file_control_w
0790: 69 6e 33 32 5f 61 76 5f 72 65 74 72 79 20 64 62  in32_av_retry db
07a0: 20 2d 31 20 2d 31 0a 7d 20 7b 30 20 31 30 20 32   -1 -1.} {0 10 2
07b0: 35 7d 0a 64 6f 5f 74 65 73 74 20 77 69 6e 33 32  5}.do_test win32
07c0: 6c 6f 63 6b 2d 32 2e 31 20 7b 0a 20 20 66 69 6c  lock-2.1 {.  fil
07d0: 65 5f 63 6f 6e 74 72 6f 6c 5f 77 69 6e 33 32 5f  e_control_win32_
07e0: 61 76 5f 72 65 74 72 79 20 64 62 20 31 20 31 0a  av_retry db 1 1.
07f0: 7d 20 7b 30 20 31 20 31 7d 0a 0a 73 65 74 20 64  } {0 1 1}..set d
0800: 65 6c 61 79 31 20 35 30 0a 77 68 69 6c 65 20 7b  elay1 50.while {
0810: 31 7d 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73  1} {.  sqlite3_s
0820: 6c 65 65 70 20 31 30 0a 20 20 6c 6f 63 6b 5f 77  leep 10.  lock_w
0830: 69 6e 33 32 5f 66 69 6c 65 20 74 65 73 74 2e 64  in32_file test.d
0840: 62 20 30 20 24 3a 3a 64 65 6c 61 79 31 0a 20 20  b 0 $::delay1.  
0850: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 64  set rc [catch {d
0860: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 78  b eval {SELECT x
0870: 2c 20 6c 65 6e 67 74 68 28 79 29 20 46 52 4f 4d  , length(y) FROM
0880: 20 74 31 20 4f 52 44 45 52 20 42 59 20 72 6f 77   t1 ORDER BY row
0890: 69 64 7d 7d 20 6d 73 67 5d 0a 20 20 69 66 20 7b  id}} msg].  if {
08a0: 24 72 63 7d 20 7b 0a 20 20 20 20 64 6f 5f 74 65  $rc} {.    do_te
08b0: 73 74 20 77 69 6e 33 32 6c 6f 63 6b 2d 32 2e 32  st win32lock-2.2
08c0: 2d 24 64 65 6c 61 79 31 2d 66 69 6e 20 7b 0a 20  -$delay1-fin {. 
08d0: 20 20 20 20 20 20 73 65 74 20 3a 3a 6d 73 67 0a        set ::msg.
08e0: 20 20 20 20 7d 20 7b 64 69 73 6b 20 49 2f 4f 20      } {disk I/O 
08f0: 65 72 72 6f 72 7d 0a 20 20 20 20 62 72 65 61 6b  error}.    break
0900: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
0910: 64 6f 5f 74 65 73 74 20 77 69 6e 33 32 6c 6f 63  do_test win32loc
0920: 6b 2d 32 2e 32 2d 24 64 65 6c 61 79 31 20 7b 0a  k-2.2-$delay1 {.
0930: 20 20 20 20 20 20 20 73 65 74 20 3a 3a 6d 73 67         set ::msg
0940: 0a 20 20 20 20 7d 20 7b 31 20 31 30 30 30 30 30  .    } {1 100000
0950: 20 32 20 35 30 30 30 30 20 33 20 32 35 30 30 30   2 50000 3 25000
0960: 20 34 20 31 32 35 30 30 7d 0a 20 20 20 20 69 66   4 12500}.    if
0970: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
0980: 3a 6c 6f 67 5d 20 26 26 20 24 3a 3a 6c 6f 67 21  :log] && $::log!
0990: 3d 22 22 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f  =""} {.      do_
09a0: 74 65 73 74 20 77 69 6e 33 32 6c 6f 63 6b 2d 32  test win32lock-2
09b0: 2e 32 2d 24 64 65 6c 61 79 31 2d 6c 6f 67 31 20  .2-$delay1-log1 
09c0: 7b 0a 20 20 20 20 20 20 20 20 72 65 67 73 75 62  {.        regsub
09d0: 20 7b 5c 64 2b 7d 20 24 3a 3a 6c 6f 67 20 23 20   {\d+} $::log # 
09e0: 78 0a 20 20 20 20 20 20 20 20 73 65 74 20 78 0a  x.        set x.
09f0: 20 20 20 20 20 20 7d 20 7b 7b 64 65 6c 61 79 65        } {{delaye
0a00: 64 20 23 6d 73 20 66 6f 72 20 6c 6f 63 6b 2f 73  d #ms for lock/s
0a10: 68 61 72 69 6e 67 20 63 6f 6e 66 6c 69 63 74 7d  haring conflict}
0a20: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 6e 63 72  }.    }.    incr
0a30: 20 64 65 6c 61 79 31 20 35 30 0a 20 20 7d 0a 20   delay1 50.  }. 
0a40: 20 73 65 74 20 3a 3a 6c 6f 67 20 7b 7d 0a 7d 0a   set ::log {}.}.
0a50: 0a 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f 77 69  .file_control_wi
0a60: 6e 33 32 5f 61 76 5f 72 65 74 72 79 20 64 62 20  n32_av_retry db 
0a70: 31 30 20 32 35 0a 73 71 6c 69 74 65 33 5f 74 65  10 25.sqlite3_te
0a80: 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70 65 6e 64 69  st_control_pendi
0a90: 6e 67 5f 62 79 74 65 20 24 6f 6c 64 5f 70 65 6e  ng_byte $old_pen
0aa0: 64 69 6e 67 5f 62 79 74 65 0a 73 71 6c 69 74 65  ding_byte.sqlite
0ab0: 33 5f 73 68 75 74 64 6f 77 6e 0a 74 65 73 74 5f  3_shutdown.test_
0ac0: 73 71 6c 69 74 65 33 5f 6c 6f 67 20 0a 73 71 6c  sqlite3_log .sql
0ad0: 69 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a 65 0a  ite3_initialize.
0ae0: 66 69 6e 69 73 68 5f 74 65 73 74 0a              finish_test.