SQLite: Hex Artifact Content

Artifact 9a738c78097e09a8ea6bbc2f35cb805f0dea211a:

File tool/soak1.tcl — part of check-in [d4ea1287] at 2007-06-15 18:43:37 on branch trunk — Add a script for "soak" testing. (CVS 4074) (user: drh size: 2408)
0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 73 68  #!/usr/bin/tclsh
0010: 0a 23 0a 23 20 55 73 61 67 65 3a 0a 23 0a 23 20  .#.# Usage:.#.# 
0020: 20 20 20 74 63 6c 73 68 20 73 6f 61 6b 31 2e 74     tclsh soak1.t
0030: 63 6c 20 6c 6f 63 61 6c 2d 6d 61 6b 65 66 69 6c  cl local-makefil
0040: 65 2e 6d 6b 20 3f 74 61 72 67 65 74 3f 20 3f 73  e.mk ?target? ?s
0050: 63 65 6e 61 72 69 6f 3f 0a 23 0a 23 20 54 68 69  cenario?.#.# Thi
0060: 73 20 67 65 6e 65 72 61 74 65 73 20 6d 61 6e 79  s generates many
0070: 20 76 61 72 69 61 74 69 6f 6e 73 20 6f 6e 20 6c   variations on l
0080: 6f 63 61 6c 2d 6d 61 6b 65 66 69 6c 65 2e 6d 6b  ocal-makefile.mk
0090: 20 28 62 79 20 6d 6f 64 69 66 69 6e 67 0a 23 20   (by modifing.# 
00a0: 74 68 65 20 4f 50 54 20 3d 20 6c 69 6e 65 73 29  the OPT = lines)
00b0: 20 61 6e 64 20 72 75 6e 73 20 74 68 65 6d 20 77   and runs them w
00c0: 69 6c 6c 20 66 75 6c 6c 74 65 73 74 2c 20 6f 6e  ill fulltest, on
00d0: 65 20 62 79 20 6f 6e 65 2e 20 20 54 68 65 0a 23  e by one.  The.#
00e0: 20 63 6f 6e 73 74 72 75 63 74 65 64 20 6d 61 6b   constructed mak
00f0: 65 66 69 6c 65 73 20 61 72 65 20 6e 61 6d 65 64  efiles are named
0100: 20 22 73 6f 61 6b 31 2e 6d 6b 22 2e 0a 23 0a 23   "soak1.mk"..#.#
0110: 20 49 66 20 3f 74 61 72 67 65 74 3f 20 69 73 20   If ?target? is 
0120: 70 72 6f 76 69 64 65 64 2c 20 74 68 61 74 20 69  provided, that i
0130: 73 20 74 68 65 20 6d 61 6b 65 66 69 6c 65 20 74  s the makefile t
0140: 61 72 67 65 74 20 74 68 61 74 20 69 73 20 72 75  arget that is ru
0150: 6e 2e 0a 23 20 54 68 65 20 64 65 66 61 75 6c 74  n..# The default
0160: 20 69 73 20 22 66 75 6c 6c 74 65 73 74 22 0a 23   is "fulltest".#
0170: 0a 23 20 49 66 20 3f 73 63 65 6e 61 72 69 6f 3f  .# If ?scenario?
0180: 20 69 73 20 70 72 6f 76 69 64 65 64 2c 20 69 74   is provided, it
0190: 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20   is the name of 
01a0: 61 20 73 69 6e 67 6c 65 20 73 63 65 6e 61 72 69  a single scenari
01b0: 6f 20 74 6f 0a 23 20 62 65 20 72 75 6e 2e 20 20  o to.# be run.  
01c0: 20 41 6c 6c 20 6f 74 68 65 72 20 73 63 65 6e 61   All other scena
01d0: 72 69 6f 73 20 61 72 65 20 73 6b 69 70 70 65 64  rios are skipped
01e0: 2e 0a 23 0a 73 65 74 20 6c 6f 63 61 6c 6d 61 6b  ..#.set localmak
01f0: 65 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20  e [lindex $argv 
0200: 30 5d 0a 73 65 74 20 74 61 72 67 65 74 20 5b 6c  0].set target [l
0210: 69 6e 64 65 78 20 24 61 72 67 76 20 31 5d 0a 73  index $argv 1].s
0220: 65 74 20 73 63 65 6e 65 20 5b 6c 69 6e 64 65 78  et scene [lindex
0230: 20 24 61 72 67 76 20 32 5d 0a 69 66 20 7b 24 74   $argv 2].if {$t
0240: 61 72 67 65 74 3d 3d 22 22 7d 20 7b 73 65 74 20  arget==""} {set 
0250: 74 61 72 67 65 74 20 66 75 6c 6c 74 65 73 74 7d  target fulltest}
0260: 0a 69 66 20 7b 24 73 63 65 6e 65 3d 3d 22 22 7d  .if {$scene==""}
0270: 20 7b 73 65 74 20 73 63 65 6e 65 20 61 6c 6c 7d   {set scene all}
0280: 0a 0a 73 65 74 20 69 6e 20 5b 6f 70 65 6e 20 24  ..set in [open $
0290: 6c 6f 63 61 6c 6d 61 6b 65 5d 0a 73 65 74 20 6d  localmake].set m
02a0: 61 6b 65 74 78 74 20 5b 72 65 61 64 20 24 69 6e  aketxt [read $in
02b0: 5d 0a 63 6c 6f 73 65 20 24 69 6e 0a 72 65 67 73  ].close $in.regs
02c0: 75 62 20 2d 61 6c 6c 20 7b 5c 5c 5c 6e 7d 20 24  ub -all {\\\n} $
02d0: 6d 61 6b 65 74 78 74 20 7b 7d 20 6d 61 6b 65 74  maketxt {} maket
02e0: 78 74 0a 23 73 65 74 20 6d 61 6b 65 66 69 6c 65  xt.#set makefile
02f0: 6e 61 6d 65 20 22 73 6f 61 6b 31 2d 5b 65 78 70  name "soak1-[exp
0300: 72 20 7b 69 6e 74 28 72 61 6e 64 28 29 2a 31 30  r {int(rand()*10
0310: 30 30 30 30 30 30 30 30 29 7d 5d 2e 6d 6b 22 0a  00000000)}].mk".
0320: 73 65 74 20 6d 61 6b 65 66 69 6c 65 6e 61 6d 65  set makefilename
0330: 20 22 73 6f 61 6b 31 2e 6d 6b 22 0a 0a 23 20 47   "soak1.mk"..# G
0340: 65 6e 65 72 61 74 65 20 61 20 6d 61 6b 65 66 69  enerate a makefi
0350: 6c 65 0a 23 0a 70 72 6f 63 20 67 65 6e 65 72 61  le.#.proc genera
0360: 74 65 5f 6d 61 6b 65 66 69 6c 65 20 7b 70 61 74  te_makefile {pat
0370: 74 65 72 6e 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c  tern} {.  global
0380: 20 6d 61 6b 65 66 69 6c 65 6e 61 6d 65 20 6d 61   makefilename ma
0390: 6b 65 74 78 74 0a 20 20 73 65 74 20 6f 75 74 20  ketxt.  set out 
03a0: 5b 6f 70 65 6e 20 24 6d 61 6b 65 66 69 6c 65 6e  [open $makefilen
03b0: 61 6d 65 20 77 5d 0a 20 20 73 65 74 20 73 65 65  ame w].  set see
03c0: 6e 5f 6f 70 74 20 30 0a 20 20 66 6f 72 65 61 63  n_opt 0.  foreac
03d0: 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 6d  h line [split $m
03e0: 61 6b 65 74 78 74 20 5c 6e 5d 20 7b 0a 20 20 20  aketxt \n] {.   
03f0: 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b 5e 20   if {[regexp {^ 
0400: 2a 23 3f 20 2a 4f 50 54 53 5b 20 3d 2b 5d 7d 20  *#? *OPTS[ =+]} 
0410: 24 6c 69 6e 65 5d 7d 20 7b 0a 20 20 20 20 20 20  $line]} {.      
0420: 69 66 20 7b 21 24 73 65 65 6e 5f 6f 70 74 7d 20  if {!$seen_opt} 
0430: 7b 0a 20 20 20 20 20 20 20 20 20 70 75 74 73 20  {.         puts 
0440: 24 6f 75 74 20 22 4f 50 54 53 20 2b 3d 20 2d 44  $out "OPTS += -D
0450: 53 51 4c 49 54 45 5f 4e 4f 5f 53 59 4e 43 3d 31  SQLITE_NO_SYNC=1
0460: 22 0a 20 20 20 20 20 20 20 20 20 66 6f 72 65 61  ".         forea
0470: 63 68 20 78 20 24 70 61 74 74 65 72 6e 20 7b 0a  ch x $pattern {.
0480: 20 20 20 20 20 20 20 20 20 20 20 70 75 74 73 20             puts 
0490: 24 6f 75 74 20 22 4f 50 54 53 20 2b 3d 20 2d 44  $out "OPTS += -D
04a0: 24 78 22 0a 20 20 20 20 20 20 20 20 20 7d 0a 20  $x".         }. 
04b0: 20 20 20 20 20 20 20 20 73 65 74 20 73 65 65 6e          set seen
04c0: 5f 6f 70 74 20 31 0a 20 20 20 20 20 20 7d 0a 20  _opt 1.      }. 
04d0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
04e0: 20 20 70 75 74 73 20 24 6f 75 74 20 24 6c 69 6e    puts $out $lin
04f0: 65 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 63 6c  e.    }.  }.  cl
0500: 6f 73 65 20 24 6f 75 74 0a 7d 0a 0a 23 20 52 75  ose $out.}..# Ru
0510: 6e 20 61 20 74 65 73 74 0a 23 0a 70 72 6f 63 20  n a test.#.proc 
0520: 73 63 65 6e 61 72 69 6f 20 7b 69 64 20 74 69 74  scenario {id tit
0530: 6c 65 20 70 61 74 74 65 72 6e 7d 20 7b 0a 20 20  le pattern} {.  
0540: 67 6c 6f 62 61 6c 20 6d 61 6b 65 66 69 6c 65 6e  global makefilen
0550: 61 6d 65 20 74 61 72 67 65 74 20 73 63 65 6e 65  ame target scene
0560: 0a 20 20 69 66 20 7b 24 73 63 65 6e 65 21 3d 22  .  if {$scene!="
0570: 61 6c 6c 22 20 26 26 20 24 73 63 65 6e 65 21 3d  all" && $scene!=
0580: 24 69 64 20 26 26 20 24 73 63 65 6e 65 21 3d 24  $id && $scene!=$
0590: 74 69 74 6c 65 7d 20 72 65 74 75 72 6e 0a 20 20  title} return.  
05a0: 70 75 74 73 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  puts "**********
05b0: 2a 2a 2a 2a 2a 2a 20 24 74 69 74 6c 65 20 2a 2a  ****** $title **
05c0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0a 20  *************". 
05d0: 20 67 65 6e 65 72 61 74 65 5f 6d 61 6b 65 66 69   generate_makefi
05e0: 6c 65 20 24 70 61 74 74 65 72 6e 0a 20 20 65 78  le $pattern.  ex
05f0: 65 63 20 6d 61 6b 65 20 2d 66 20 24 6d 61 6b 65  ec make -f $make
0600: 66 69 6c 65 6e 61 6d 65 20 63 6c 65 61 6e 20 3e  filename clean >
0610: 40 73 74 64 6f 75 74 20 32 3e 40 73 74 64 6f 75  @stdout 2>@stdou
0620: 74 0a 20 20 65 78 65 63 20 6d 61 6b 65 20 2d 66  t.  exec make -f
0630: 20 24 6d 61 6b 65 66 69 6c 65 6e 61 6d 65 20 24   $makefilename $
0640: 74 61 72 67 65 74 20 3e 40 73 74 64 6f 75 74 20  target >@stdout 
0650: 32 3e 40 73 74 64 6f 75 74 0a 7d 0a 0a 23 23 23  2>@stdout.}..###
0660: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0670: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0680: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0690: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
06a0: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 20 41  ############.# A
06b0: 64 64 20 6e 65 77 20 73 63 65 6e 61 72 69 6f 73  dd new scenarios
06c0: 20 68 65 72 65 0a 23 0a 73 63 65 6e 61 72 69 6f   here.#.scenario
06d0: 20 30 20 7b 44 65 66 61 75 6c 74 7d 20 7b 7d 0a   0 {Default} {}.
06e0: 73 63 65 6e 61 72 69 6f 20 31 20 7b 44 65 62 75  scenario 1 {Debu
06f0: 67 7d 20 7b 0a 20 20 53 51 4c 49 54 45 5f 44 45  g} {.  SQLITE_DE
0700: 42 55 47 3d 31 0a 20 20 53 51 4c 49 54 45 5f 4d  BUG=1.  SQLITE_M
0710: 45 4d 44 45 42 55 47 3d 31 0a 7d 0a 73 63 65 6e  EMDEBUG=1.}.scen
0720: 61 72 69 6f 20 32 20 7b 45 76 65 72 79 74 68 69  ario 2 {Everythi
0730: 6e 67 7d 20 7b 0a 20 20 53 51 4c 49 54 45 5f 44  ng} {.  SQLITE_D
0740: 45 42 55 47 3d 31 0a 20 20 53 51 4c 49 54 45 5f  EBUG=1.  SQLITE_
0750: 4d 45 4d 44 45 42 55 47 3d 31 0a 20 20 53 51 4c  MEMDEBUG=1.  SQL
0760: 49 54 45 5f 45 4e 41 42 4c 45 5f 4d 45 4d 4f 52  ITE_ENABLE_MEMOR
0770: 59 5f 4d 41 4e 41 47 45 4d 45 4e 54 3d 31 0a 20  Y_MANAGEMENT=1. 
0780: 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 43   SQLITE_ENABLE_C
0790: 4f 4c 55 4d 4e 5f 4d 45 54 41 44 41 54 41 3d 31  OLUMN_METADATA=1
07a0: 0a 20 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45  .  SQLITE_ENABLE
07b0: 5f 4c 4f 41 44 5f 45 58 54 45 4e 53 49 4f 4e 3d  _LOAD_EXTENSION=
07c0: 31 20 48 41 56 45 5f 44 4c 4f 50 45 4e 3d 31 0a  1 HAVE_DLOPEN=1.
07d0: 20 20 53 51 4c 49 54 45 5f 45 4e 41 42 4c 45 5f    SQLITE_ENABLE_
07e0: 4d 45 4d 4f 52 59 5f 4d 41 4e 41 47 45 4d 45 4e  MEMORY_MANAGEMEN
07f0: 54 3d 31 0a 20 20 53 51 4c 49 54 45 5f 45 4e 41  T=1.  SQLITE_ENA
0800: 42 4c 45 5f 52 45 44 45 46 5f 49 4f 3d 31 0a 7d  BLE_REDEF_IO=1.}
0810: 0a 73 63 65 6e 61 72 69 6f 20 33 20 7b 43 75 73  .scenario 3 {Cus
0820: 74 6f 6d 65 72 2d 31 7d 20 7b 0a 20 20 53 51 4c  tomer-1} {.  SQL
0830: 49 54 45 5f 44 49 53 41 42 4c 45 5f 4c 46 53 3d  ITE_DISABLE_LFS=
0840: 31 0a 20 20 53 51 4c 49 54 45 5f 44 45 46 41 55  1.  SQLITE_DEFAU
0850: 4c 54 5f 41 55 54 4f 56 41 43 55 55 4d 3d 31 0a  LT_AUTOVACUUM=1.
0860: 20 20 53 51 4c 49 54 45 5f 44 45 46 41 55 4c 54    SQLITE_DEFAULT
0870: 5f 50 41 47 45 5f 53 49 5a 45 3d 31 30 32 34 0a  _PAGE_SIZE=1024.
0880: 20 20 53 51 4c 49 54 45 5f 4d 41 58 5f 50 41 47    SQLITE_MAX_PAG
0890: 45 5f 53 49 5a 45 3d 34 30 39 36 0a 20 20 53 51  E_SIZE=4096.  SQ
08a0: 4c 49 54 45 5f 44 45 46 41 55 4c 54 5f 43 41 43  LITE_DEFAULT_CAC
08b0: 48 45 5f 53 49 5a 45 3d 36 34 0a 20 20 53 51 4c  HE_SIZE=64.  SQL
08c0: 49 54 45 5f 44 45 46 41 55 4c 54 5f 54 45 4d 50  ITE_DEFAULT_TEMP
08d0: 5f 43 41 43 48 45 5f 53 49 5a 45 3d 33 32 0a 20  _CACHE_SIZE=32. 
08e0: 20 54 45 4d 50 5f 53 54 4f 52 45 3d 33 0a 20 20   TEMP_STORE=3.  
08f0: 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 50 52 4f 47  SQLITE_OMIT_PROG
0900: 52 45 53 53 5f 43 41 4c 4c 42 41 43 4b 3d 31 0a  RESS_CALLBACK=1.
0910: 20 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 4c 4f    SQLITE_OMIT_LO
0920: 41 44 5f 45 58 54 45 4e 53 49 4f 4e 3d 31 0a 20  AD_EXTENSION=1. 
0930: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 56 49 52   SQLITE_OMIT_VIR
0940: 54 55 41 4c 54 41 42 4c 45 3d 31 0a 20 20 53 51  TUALTABLE=1.  SQ
0950: 4c 49 54 45 5f 45 4e 41 42 4c 45 5f 49 4f 54 52  LITE_ENABLE_IOTR
0960: 41 43 45 3d 31 0a 7d 0a                          ACE=1.}.