/ Hex Artifact Content
Login
☰Home Timeline Branches
Download

Artifact 0a16a7df4a51575bda27529ac992a5a94e4a38bd:

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 24 3a 3a 6c 6f 67 21  .    if {$::log!
0690: 3d 22 22 7d 20 7b 0a 20 20 20 20 20 20 64 6f 5f  =""} {.      do_
06a0: 74 65 73 74 20 77 69 6e 33 32 6c 6f 63 6b 2d 31  test win32lock-1
06b0: 2e 32 2d 24 64 65 6c 61 79 31 2d 6c 6f 67 31 20  .2-$delay1-log1 
06c0: 7b 0a 20 20 20 20 20 20 20 20 72 65 67 73 75 62  {.        regsub
06d0: 20 7b 5c 64 2b 7d 20 24 3a 3a 6c 6f 67 20 23 20   {\d+} $::log # 
06e0: 78 0a 20 20 20 20 20 20 20 20 73 65 74 20 78 0a  x.        set x.
06f0: 20 20 20 20 20 20 7d 20 7b 7b 64 65 6c 61 79 65        } {{delaye
0700: 64 20 23 6d 73 20 66 6f 72 20 6c 6f 63 6b 2f 73  d #ms for lock/s
0710: 68 61 72 69 6e 67 20 63 6f 6e 66 6c 69 63 74 7d  haring conflict}
0720: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 6e 63 72  }.    }.    incr
0730: 20 64 65 6c 61 79 31 20 35 30 0a 20 20 7d 0a 20   delay1 50.  }. 
0740: 20 73 65 74 20 3a 3a 6c 6f 67 20 7b 7d 0a 7d 0a   set ::log {}.}.
0750: 0a 64 6f 5f 74 65 73 74 20 77 69 6e 33 32 6c 6f  .do_test win32lo
0760: 63 6b 2d 32 2e 30 20 7b 0a 20 20 66 69 6c 65 5f  ck-2.0 {.  file_
0770: 63 6f 6e 74 72 6f 6c 5f 77 69 6e 33 32 5f 61 76  control_win32_av
0780: 5f 72 65 74 72 79 20 64 62 20 2d 31 20 2d 31 0a  _retry db -1 -1.
0790: 7d 20 7b 30 20 31 30 20 32 35 7d 0a 64 6f 5f 74  } {0 10 25}.do_t
07a0: 65 73 74 20 77 69 6e 33 32 6c 6f 63 6b 2d 32 2e  est win32lock-2.
07b0: 31 20 7b 0a 20 20 66 69 6c 65 5f 63 6f 6e 74 72  1 {.  file_contr
07c0: 6f 6c 5f 77 69 6e 33 32 5f 61 76 5f 72 65 74 72  ol_win32_av_retr
07d0: 79 20 64 62 20 31 20 31 0a 7d 20 7b 30 20 31 20  y db 1 1.} {0 1 
07e0: 31 7d 0a 0a 73 65 74 20 64 65 6c 61 79 31 20 35  1}..set delay1 5
07f0: 30 0a 77 68 69 6c 65 20 7b 31 7d 20 7b 0a 20 20  0.while {1} {.  
0800: 73 71 6c 69 74 65 33 5f 73 6c 65 65 70 20 31 30  sqlite3_sleep 10
0810: 0a 20 20 6c 6f 63 6b 5f 77 69 6e 33 32 5f 66 69  .  lock_win32_fi
0820: 6c 65 20 74 65 73 74 2e 64 62 20 30 20 24 3a 3a  le test.db 0 $::
0830: 64 65 6c 61 79 31 0a 20 20 73 65 74 20 72 63 20  delay1.  set rc 
0840: 5b 63 61 74 63 68 20 7b 64 62 20 65 76 61 6c 20  [catch {db eval 
0850: 7b 53 45 4c 45 43 54 20 78 2c 20 6c 65 6e 67 74  {SELECT x, lengt
0860: 68 28 79 29 20 46 52 4f 4d 20 74 31 20 4f 52 44  h(y) FROM t1 ORD
0870: 45 52 20 42 59 20 72 6f 77 69 64 7d 7d 20 6d 73  ER BY rowid}} ms
0880: 67 5d 0a 20 20 69 66 20 7b 24 72 63 7d 20 7b 0a  g].  if {$rc} {.
0890: 20 20 20 20 64 6f 5f 74 65 73 74 20 77 69 6e 33      do_test win3
08a0: 32 6c 6f 63 6b 2d 32 2e 32 2d 24 64 65 6c 61 79  2lock-2.2-$delay
08b0: 31 2d 66 69 6e 20 7b 0a 20 20 20 20 20 20 20 73  1-fin {.       s
08c0: 65 74 20 3a 3a 6d 73 67 0a 20 20 20 20 7d 20 7b  et ::msg.    } {
08d0: 64 69 73 6b 20 49 2f 4f 20 65 72 72 6f 72 7d 0a  disk I/O error}.
08e0: 20 20 20 20 62 72 65 61 6b 0a 20 20 7d 20 65 6c      break.  } el
08f0: 73 65 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74  se {.    do_test
0900: 20 77 69 6e 33 32 6c 6f 63 6b 2d 32 2e 32 2d 24   win32lock-2.2-$
0910: 64 65 6c 61 79 31 20 7b 0a 20 20 20 20 20 20 20  delay1 {.       
0920: 73 65 74 20 3a 3a 6d 73 67 0a 20 20 20 20 7d 20  set ::msg.    } 
0930: 7b 31 20 31 30 30 30 30 30 20 32 20 35 30 30 30  {1 100000 2 5000
0940: 30 20 33 20 32 35 30 30 30 20 34 20 31 32 35 30  0 3 25000 4 1250
0950: 30 7d 0a 20 20 20 20 69 66 20 7b 24 3a 3a 6c 6f  0}.    if {$::lo
0960: 67 21 3d 22 22 7d 20 7b 0a 20 20 20 20 20 20 64  g!=""} {.      d
0970: 6f 5f 74 65 73 74 20 77 69 6e 33 32 6c 6f 63 6b  o_test win32lock
0980: 2d 32 2e 32 2d 24 64 65 6c 61 79 31 2d 6c 6f 67  -2.2-$delay1-log
0990: 31 20 7b 0a 20 20 20 20 20 20 20 20 72 65 67 73  1 {.        regs
09a0: 75 62 20 7b 5c 64 2b 7d 20 24 3a 3a 6c 6f 67 20  ub {\d+} $::log 
09b0: 23 20 78 0a 20 20 20 20 20 20 20 20 73 65 74 20  # x.        set 
09c0: 78 0a 20 20 20 20 20 20 7d 20 7b 7b 64 65 6c 61  x.      } {{dela
09d0: 79 65 64 20 23 6d 73 20 66 6f 72 20 6c 6f 63 6b  yed #ms for lock
09e0: 2f 73 68 61 72 69 6e 67 20 63 6f 6e 66 6c 69 63  /sharing conflic
09f0: 74 7d 7d 0a 20 20 20 20 7d 0a 20 20 20 20 69 6e  t}}.    }.    in
0a00: 63 72 20 64 65 6c 61 79 31 20 35 30 0a 20 20 7d  cr delay1 50.  }
0a10: 0a 20 20 73 65 74 20 3a 3a 6c 6f 67 20 7b 7d 0a  .  set ::log {}.
0a20: 7d 0a 0a 66 69 6c 65 5f 63 6f 6e 74 72 6f 6c 5f  }..file_control_
0a30: 77 69 6e 33 32 5f 61 76 5f 72 65 74 72 79 20 64  win32_av_retry d
0a40: 62 20 31 30 20 32 35 0a 73 71 6c 69 74 65 33 5f  b 10 25.sqlite3_
0a50: 74 65 73 74 5f 63 6f 6e 74 72 6f 6c 5f 70 65 6e  test_control_pen
0a60: 64 69 6e 67 5f 62 79 74 65 20 24 6f 6c 64 5f 70  ding_byte $old_p
0a70: 65 6e 64 69 6e 67 5f 62 79 74 65 0a 73 71 6c 69  ending_byte.sqli
0a80: 74 65 33 5f 73 68 75 74 64 6f 77 6e 0a 74 65 73  te3_shutdown.tes
0a90: 74 5f 73 71 6c 69 74 65 33 5f 6c 6f 67 20 0a 73  t_sqlite3_log .s
0aa0: 71 6c 69 74 65 33 5f 69 6e 69 74 69 61 6c 69 7a  qlite3_initializ
0ab0: 65 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a        e.finish_test.
This page was generated in about 0.005s by Fossil 2.13 [7de85417de] 2020-09-21 14:21:35