System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact b489932a5b322ffd61cf215f5ed2498b96d33f83:


0000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0050: 0a 23 0d 0a 23 20 73 74 72 65 73 73 2e 65 61 67  .#..# stress.eag
0060: 6c 65 20 2d 2d 0d 0a 23 0d 0a 23 20 57 72 69 74  le --..#..# Writ
0070: 74 65 6e 20 62 79 20 4a 6f 65 20 4d 69 73 74 61  ten by Joe Mista
0080: 63 68 6b 69 6e 2e 0d 0a 23 20 52 65 6c 65 61 73  chkin...# Releas
0090: 65 64 20 74 6f 20 74 68 65 20 70 75 62 6c 69 63  ed to the public
00a0: 20 64 6f 6d 61 69 6e 2c 20 75 73 65 20 61 74 20   domain, use at 
00b0: 79 6f 75 72 20 6f 77 6e 20 72 69 73 6b 21 0d 0a  your own risk!..
00c0: 23 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23  #..#############
00d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
00f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0110: 23 23 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 72 65  ##....package re
0120: 71 75 69 72 65 20 45 61 67 6c 65 0d 0a 70 61 63  quire Eagle..pac
0130: 6b 61 67 65 20 72 65 71 75 69 72 65 20 45 61 67  kage require Eag
0140: 6c 65 2e 4c 69 62 72 61 72 79 0d 0a 70 61 63 6b  le.Library..pack
0150: 61 67 65 20 72 65 71 75 69 72 65 20 45 61 67 6c  age require Eagl
0160: 65 2e 54 65 73 74 0d 0a 0d 0a 72 75 6e 54 65 73  e.Test....runTes
0170: 74 50 72 6f 6c 6f 67 75 65 0d 0a 0d 0a 23 23 23  tPrologue....###
0180: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
01c0: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
01d0: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
01e0: 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69  System.Data.SQLi
01f0: 74 65 2e 54 65 73 74 0d 0a 72 75 6e 53 51 4c 69  te.Test..runSQLi
0200: 74 65 54 65 73 74 50 72 6f 6c 6f 67 75 65 0d 0a  teTestPrologue..
0210: 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ..##############
0220: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0230: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0240: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0260: 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20  #....#..# NOTE: 
0270: 52 65 70 6f 72 74 20 62 65 66 6f 72 65 20 74 65  Report before te
0280: 73 74 2c 20 62 65 66 6f 72 65 20 73 68 75 74 64  st, before shutd
0290: 6f 77 6e 2e 0d 0a 23 0d 0a 63 68 65 63 6b 46 6f  own...#..checkFo
02a0: 72 53 51 4c 69 74 65 44 69 72 65 63 74 6f 72 69  rSQLiteDirectori
02b0: 65 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c  es $test_channel
02c0: 0d 0a 67 65 74 53 51 4c 69 74 65 48 61 6e 64 6c  ..getSQLiteHandl
02d0: 65 43 6f 75 6e 74 73 20 24 74 65 73 74 5f 63 68  eCounts $test_ch
02e0: 61 6e 6e 65 6c 0d 0a 72 65 70 6f 72 74 53 51 4c  annel..reportSQL
02f0: 69 74 65 52 65 73 6f 75 72 63 65 73 20 24 74 65  iteResources $te
0300: 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 23 23  st_channel....##
0310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0320: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0340: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0350: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
0360: 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 4d 61 6b 65  .#..# NOTE: Make
0370: 20 73 75 72 65 20 74 68 61 74 20 53 51 4c 69 74   sure that SQLit
0380: 65 20 63 6f 72 65 20 6c 69 62 72 61 72 79 20 69  e core library i
0390: 73 20 63 6f 6d 70 6c 65 74 65 6c 79 20 73 68 75  s completely shu
03a0: 74 64 6f 77 6e 20 70 72 69 6f 72 20 74 6f 0d 0a  tdown prior to..
03b0: 23 20 20 20 20 20 20 20 73 74 61 72 74 69 6e 67  #       starting
03c0: 20 61 6e 79 20 6f 66 20 74 68 65 20 74 65 73 74   any of the test
03d0: 73 20 69 6e 20 74 68 69 73 20 66 69 6c 65 2e 0d  s in this file..
03e0: 0a 23 0d 0a 73 68 75 74 64 6f 77 6e 53 51 4c 69  .#..shutdownSQLi
03f0: 74 65 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c  te $test_channel
0400: 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23 23 23  ....############
0410: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0420: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0430: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0450: 23 23 23 0d 0a 0d 0a 23 0d 0a 23 20 4e 4f 54 45  ###....#..# NOTE
0460: 3a 20 52 65 70 6f 72 74 20 62 65 66 6f 72 65 20  : Report before 
0470: 74 65 73 74 2c 20 61 66 74 65 72 20 73 68 75 74  test, after shut
0480: 64 6f 77 6e 2e 0d 0a 23 0d 0a 63 68 65 63 6b 46  down...#..checkF
0490: 6f 72 53 51 4c 69 74 65 44 69 72 65 63 74 6f 72  orSQLiteDirector
04a0: 69 65 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65  ies $test_channe
04b0: 6c 0d 0a 67 65 74 53 51 4c 69 74 65 48 61 6e 64  l..getSQLiteHand
04c0: 6c 65 43 6f 75 6e 74 73 20 24 74 65 73 74 5f 63  leCounts $test_c
04d0: 68 61 6e 6e 65 6c 0d 0a 72 65 70 6f 72 74 53 51  hannel..reportSQ
04e0: 4c 69 74 65 52 65 73 6f 75 72 63 65 73 20 24 74  LiteResources $t
04f0: 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a 23  est_channel....#
0500: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0510: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0520: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
0550: 0d 0a 72 75 6e 54 65 73 74 20 7b 74 65 73 74 20  ..runTest {test 
0560: 73 74 72 65 73 73 2d 31 2e 31 20 7b 6d 75 6c 74  stress-1.1 {mult
0570: 69 74 68 72 65 61 64 65 64 20 73 74 72 65 73 73  ithreaded stress
0580: 20 74 65 73 74 69 6e 67 7d 20 2d 73 65 74 75 70   testing} -setup
0590: 20 7b 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63   {..  unset -noc
05a0: 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 74  omplain result t
05b0: 68 72 65 61 64 20 69 6e 64 65 78 20 77 6f 72 6b  hread index work
05c0: 6c 6f 61 64 20 70 72 69 6f 72 69 74 79 20 6a 6f  load priority jo
05d0: 75 72 6e 61 6c 4d 6f 64 65 20 5c 0d 0a 20 20 20  urnalMode \..   
05e0: 20 20 20 70 61 67 65 53 69 7a 65 20 6e 6f 57 6f     pageSize noWo
05f0: 72 6b 6c 6f 61 64 20 70 72 69 6f 72 69 74 69 65  rkload prioritie
0600: 73 20 73 72 63 44 62 20 64 62 20 66 69 6c 65 4e  s srcDb db fileN
0610: 61 6d 65 20 63 6f 6d 70 69 6c 65 64 20 6f 70 74  ame compiled opt
0620: 69 6f 6e 73 20 5c 0d 0a 20 20 20 20 20 20 63 6f  ions \..      co
0630: 75 6e 74 20 74 69 6d 65 73 20 6c 6f 67 46 69 6c  unt times logFil
0640: 65 4e 61 6d 65 20 6c 6f 67 4c 69 73 74 65 6e 65  eName logListene
0650: 72 20 65 76 65 6e 74 20 74 69 6d 65 6f 75 74 20  r event timeout 
0660: 63 6f 6e 6e 65 63 74 69 6f 6e 20 5c 0d 0a 20 20  connection \..  
0670: 20 20 20 20 69 6e 64 69 63 61 74 6f 72 73 20 69      indicators i
0680: 74 65 72 61 74 69 6f 6e 73 20 65 78 69 74 4f 6e  terations exitOn
0690: 46 61 69 6c 20 63 6f 54 61 73 6b 4d 65 6d 20 6e  Fail coTaskMem n
06a0: 6f 54 72 61 63 65 20 62 65 67 69 6e 54 72 61 6e  oTrace beginTran
06b0: 73 61 63 74 69 6f 6e 20 5c 0d 0a 20 20 20 20 20  saction \..     
06c0: 20 65 6e 64 54 72 61 6e 73 61 63 74 69 6f 6e 20   endTransaction 
06d0: 65 72 72 6f 72 54 72 61 6e 73 61 63 74 69 6f 6e  errorTransaction
06e0: 20 66 61 69 6c 75 72 65 73 20 73 74 61 74 75 73   failures status
06f0: 20 77 6f 72 6b 6c 6f 61 64 4e 61 6d 65 73 20 5c   workloadNames \
0700: 0d 0a 20 20 20 20 20 20 77 6f 72 6b 6c 6f 61 64  ..      workload
0710: 43 61 6c 6c 62 61 63 6b 73 0d 0a 0d 0a 20 20 23  Callbacks....  #
0720: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0730: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0740: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0750: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0760: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
0770: 20 20 70 72 6f 63 20 73 65 74 75 70 57 6f 72 6b    proc setupWork
0780: 6c 6f 61 64 4d 65 6d 44 62 20 7b 20 66 69 6c 65  loadMemDb { file
0790: 4e 61 6d 65 20 76 61 72 4e 61 6d 65 20 7d 20 7b  Name varName } {
07a0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e  ..    #..    # N
07b0: 4f 54 45 3a 20 54 68 69 73 20 73 68 6f 75 6c 64  OTE: This should
07c0: 20 62 65 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79   be an in-memory
07d0: 20 64 61 74 61 62 61 73 65 3b 20 74 68 65 72 65   database; there
07e0: 66 6f 72 65 2c 20 73 6b 69 70 20 61 74 74 65 6d  fore, skip attem
07f0: 70 74 69 6e 67 0d 0a 20 20 20 20 23 20 20 20 20  pting..    #    
0800: 20 20 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65     to delete the
0810: 20 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61   underlying data
0820: 62 61 73 65 20 66 69 6c 65 20 61 73 20 74 68 61  base file as tha
0830: 74 20 77 6f 75 6c 64 20 6e 6f 74 20 6d 61 6b 65  t would not make
0840: 20 61 6e 79 0d 0a 20 20 20 20 23 20 20 20 20 20   any..    #     
0850: 20 20 73 65 6e 73 65 2e 20 20 41 6c 73 6f 2c 20    sense.  Also, 
0860: 64 69 73 61 62 6c 65 20 75 73 65 20 6f 66 20 22  disable use of "
0870: 50 52 41 47 4d 41 20 74 65 6d 70 5f 73 74 6f 72  PRAGMA temp_stor
0880: 65 5f 64 69 72 65 63 74 6f 72 79 22 20 77 68 65  e_directory" whe
0890: 6e 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 73  n..    #       s
08a0: 65 74 74 69 6e 67 20 75 70 20 74 68 65 20 6e 65  etting up the ne
08b0: 77 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 65 63  w connection bec
08c0: 61 75 73 65 20 69 74 20 69 73 20 6e 6f 74 20 74  ause it is not t
08d0: 68 72 65 61 64 2d 73 61 66 65 2e 0d 0a 20 20 20  hread-safe...   
08e0: 20 23 0d 0a 20 20 20 20 75 70 6c 65 76 65 6c 20   #..    uplevel 
08f0: 31 20 5b 6c 69 73 74 20 73 65 74 75 70 44 62 20  1 [list setupDb 
0900: 5c 0d 0a 20 20 20 20 20 20 20 20 24 66 69 6c 65  \..        $file
0910: 4e 61 6d 65 20 22 22 20 22 22 20 22 22 20 22 22  Name "" "" "" ""
0920: 20 22 22 20 66 61 6c 73 65 20 66 61 6c 73 65 20   "" false false 
0930: 74 72 75 65 20 66 61 6c 73 65 20 5c 0d 0a 20 20  true false \..  
0940: 20 20 20 20 20 20 24 76 61 72 4e 61 6d 65 20 74        $varName t
0950: 72 75 65 5d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b  rue]....    if {
0960: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24  [string length $
0970: 3a 3a 70 61 67 65 53 69 7a 65 5d 20 3e 20 30 7d  ::pageSize] > 0}
0980: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73   then {..      s
0990: 71 6c 20 65 78 65 63 75 74 65 20 5b 75 70 6c 65  ql execute [uple
09a0: 76 65 6c 20 31 20 73 65 74 20 24 76 61 72 4e 61  vel 1 set $varNa
09b0: 6d 65 5d 20 5b 61 70 70 65 6e 64 41 72 67 73 20  me] [appendArgs 
09c0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 50 52  \..          "PR
09d0: 41 47 4d 41 20 70 61 67 65 5f 73 69 7a 65 3d 22  AGMA page_size="
09e0: 20 24 3a 3a 70 61 67 65 53 69 7a 65 20 5c 3b 5d   $::pageSize \;]
09f0: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a  ..    }..  }....
0a00: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
0a10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0a20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0a30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0a40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
0a50: 0a 0d 0a 20 20 70 72 6f 63 20 73 65 74 75 70 57  ...  proc setupW
0a60: 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 7b 20  orkloadFileDb { 
0a70: 66 69 6c 65 4e 61 6d 65 20 76 61 72 4e 61 6d 65  fileName varName
0a80: 20 7d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20   } {..    #..   
0a90: 20 23 20 4e 4f 54 45 3a 20 53 6b 69 70 20 61 74   # NOTE: Skip at
0aa0: 74 65 6d 70 74 69 6e 67 20 74 6f 20 64 65 6c 65  tempting to dele
0ab0: 74 65 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e  te the underlyin
0ac0: 67 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 2e  g database file.
0ad0: 20 20 41 6c 73 6f 2c 0d 0a 20 20 20 20 23 20 20    Also,..    #  
0ae0: 20 20 20 20 20 64 69 73 61 62 6c 65 20 75 73 65       disable use
0af0: 20 6f 66 20 22 50 52 41 47 4d 41 20 74 65 6d 70   of "PRAGMA temp
0b00: 5f 73 74 6f 72 65 5f 64 69 72 65 63 74 6f 72 79  _store_directory
0b10: 22 20 77 68 65 6e 20 73 65 74 74 69 6e 67 20 75  " when setting u
0b20: 70 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 74  p..    #       t
0b30: 68 65 20 6e 65 77 20 63 6f 6e 6e 65 63 74 69 6f  he new connectio
0b40: 6e 20 62 65 63 61 75 73 65 20 69 74 20 69 73 20  n because it is 
0b50: 6e 6f 74 20 74 68 72 65 61 64 2d 73 61 66 65 2e  not thread-safe.
0b60: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 75 70 6c  ..    #..    upl
0b70: 65 76 65 6c 20 31 20 5b 6c 69 73 74 20 73 65 74  evel 1 [list set
0b80: 75 70 44 62 20 5c 0d 0a 20 20 20 20 20 20 20 20  upDb \..        
0b90: 24 66 69 6c 65 4e 61 6d 65 20 24 3a 3a 6a 6f 75  $fileName $::jou
0ba0: 72 6e 61 6c 4d 6f 64 65 20 22 22 20 22 22 20 22  rnalMode "" "" "
0bb0: 22 20 22 22 20 74 72 75 65 20 66 61 6c 73 65 20  " "" true false 
0bc0: 5c 0d 0a 20 20 20 20 20 20 20 20 66 61 6c 73 65  \..        false
0bd0: 20 66 61 6c 73 65 20 24 76 61 72 4e 61 6d 65 20   false $varName 
0be0: 74 72 75 65 5d 0d 0a 0d 0a 20 20 20 20 69 66 20  true]....    if 
0bf0: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
0c00: 24 3a 3a 70 61 67 65 53 69 7a 65 5d 20 3e 20 30  $::pageSize] > 0
0c10: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
0c20: 73 71 6c 20 65 78 65 63 75 74 65 20 5b 75 70 6c  sql execute [upl
0c30: 65 76 65 6c 20 31 20 73 65 74 20 24 76 61 72 4e  evel 1 set $varN
0c40: 61 6d 65 5d 20 5b 61 70 70 65 6e 64 41 72 67 73  ame] [appendArgs
0c50: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 22 50   \..          "P
0c60: 52 41 47 4d 41 20 70 61 67 65 5f 73 69 7a 65 3d  RAGMA page_size=
0c70: 22 20 24 3a 3a 70 61 67 65 53 69 7a 65 20 5c 3b  " $::pageSize \;
0c80: 5d 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d  ]..    }..  }...
0c90: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
0ca0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0cb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0cc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0cd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0ce0: 0d 0a 0d 0a 20 20 70 72 6f 63 20 62 65 67 69 6e  ....  proc begin
0cf0: 54 72 61 6e 73 61 63 74 69 6f 6e 20 7b 20 64 62  Transaction { db
0d00: 20 7d 20 7b 0d 0a 20 20 20 20 73 65 74 20 73 71   } {..    set sq
0d10: 6c 20 24 3a 3a 62 65 67 69 6e 54 72 61 6e 73 61  l $::beginTransa
0d20: 63 74 69 6f 6e 0d 0a 0d 0a 20 20 20 20 69 66 20  ction....    if 
0d30: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20  {[string length 
0d40: 24 73 71 6c 5d 20 3e 20 30 7d 20 74 68 65 6e 20  $sql] > 0} then 
0d50: 7b 0d 0a 20 20 20 20 20 20 73 71 6c 20 65 78 65  {..      sql exe
0d60: 63 75 74 65 20 24 64 62 20 24 73 71 6c 0d 0a 20  cute $db $sql.. 
0d70: 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23     }..  }....  #
0d80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0d90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0da0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0db0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0dc0: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
0dd0: 20 20 70 72 6f 63 20 65 6e 64 54 72 61 6e 73 61    proc endTransa
0de0: 63 74 69 6f 6e 20 7b 20 64 62 20 7d 20 7b 0d 0a  ction { db } {..
0df0: 20 20 20 20 73 65 74 20 73 71 6c 20 24 3a 3a 65      set sql $::e
0e00: 6e 64 54 72 61 6e 73 61 63 74 69 6f 6e 0d 0a 0d  ndTransaction...
0e10: 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67  .    if {[string
0e20: 20 6c 65 6e 67 74 68 20 24 73 71 6c 5d 20 3e 20   length $sql] > 
0e30: 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  0} then {..     
0e40: 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 62   sql execute $db
0e50: 20 24 73 71 6c 0d 0a 20 20 20 20 7d 0d 0a 20 20   $sql..    }..  
0e60: 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23  }....  #########
0e70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0e90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0ea0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0eb0: 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 65  ####....  proc e
0ec0: 72 72 6f 72 54 72 61 6e 73 61 63 74 69 6f 6e 20  rrorTransaction 
0ed0: 7b 20 64 62 20 7d 20 7b 0d 0a 20 20 20 20 73 65  { db } {..    se
0ee0: 74 20 73 71 6c 20 24 3a 3a 65 72 72 6f 72 54 72  t sql $::errorTr
0ef0: 61 6e 73 61 63 74 69 6f 6e 0d 0a 0d 0a 20 20 20  ansaction....   
0f00: 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e   if {[string len
0f10: 67 74 68 20 24 73 71 6c 5d 20 3e 20 30 7d 20 74  gth $sql] > 0} t
0f20: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 71 6c  hen {..      sql
0f30: 20 65 78 65 63 75 74 65 20 24 64 62 20 24 73 71   execute $db $sq
0f40: 6c 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d  l..    }..  }...
0f50: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
0f60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0f90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fa0: 0d 0a 0d 0a 20 20 70 72 6f 63 20 66 6f 72 6d 61  ....  proc forma
0fb0: 74 57 6f 72 6b 6c 6f 61 64 52 65 73 75 6c 74 20  tWorkloadResult 
0fc0: 7b 20 69 6e 64 65 78 20 7d 20 7b 0d 0a 20 20 20  { index } {..   
0fd0: 20 73 65 74 20 72 65 73 75 6c 74 20 5b 61 70 70   set result [app
0fe0: 65 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 69 74  endArgs "---- it
0ff0: 65 72 61 74 69 6f 6e 73 20 66 6f 72 20 77 6f 72  erations for wor
1000: 6b 6c 6f 61 64 20 28 22 20 24 69 6e 64 65 78 20  kload (" $index 
1010: 22 29 3a 20 22 5d 0d 0a 0d 0a 20 20 20 20 61 70  "): "]....    ap
1020: 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78 70  pend result [exp
1030: 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  r {[info exists 
1040: 3a 3a 69 74 65 72 61 74 69 6f 6e 73 28 24 69 6e  ::iterations($in
1050: 64 65 78 2c 74 6f 74 61 6c 29 5d 20 3f 20 5c 0d  dex,total)] ? \.
1060: 0a 20 20 20 20 20 20 20 20 24 3a 3a 69 74 65 72  .        $::iter
1070: 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 2c 74 6f  ations($index,to
1080: 74 61 6c 29 20 3a 20 30 7d 5d 20 22 20 74 6f 74  tal) : 0}] " tot
1090: 61 6c 2c 20 22 0d 0a 0d 0a 20 20 20 20 61 70 70  al, "....    app
10a0: 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78 70 72  end result [expr
10b0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
10c0: 3a 69 74 65 72 61 74 69 6f 6e 73 28 24 69 6e 64  :iterations($ind
10d0: 65 78 2c 6f 6b 29 5d 20 3f 20 5c 0d 0a 20 20 20  ex,ok)] ? \..   
10e0: 20 20 20 20 20 24 3a 3a 69 74 65 72 61 74 69 6f       $::iteratio
10f0: 6e 73 28 24 69 6e 64 65 78 2c 6f 6b 29 20 3a 20  ns($index,ok) : 
1100: 30 7d 5d 20 22 20 6f 6b 2c 20 22 0d 0a 0d 0a 20  0}] " ok, ".... 
1110: 20 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74     append result
1120: 20 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78   [expr {[info ex
1130: 69 73 74 73 20 3a 3a 69 74 65 72 61 74 69 6f 6e  ists ::iteration
1140: 73 28 24 69 6e 64 65 78 2c 65 72 72 6f 72 29 5d  s($index,error)]
1150: 20 3f 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 3a   ? \..        $:
1160: 3a 69 74 65 72 61 74 69 6f 6e 73 28 24 69 6e 64  :iterations($ind
1170: 65 78 2c 65 72 72 6f 72 29 20 3a 20 30 7d 5d 20  ex,error) : 0}] 
1180: 22 20 65 72 72 6f 72 2c 20 22 0d 0a 0d 0a 20 20  " error, "....  
1190: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a    #..    # NOTE:
11a0: 20 54 72 61 6e 73 6c 61 74 65 20 74 68 65 20 77   Translate the w
11b0: 6f 72 6b 6c 6f 61 64 20 69 6e 64 65 78 20 74 6f  orkload index to
11c0: 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69   the correspondi
11d0: 6e 67 20 69 74 65 72 61 74 69 6f 6e 0d 0a 20 20  ng iteration..  
11e0: 20 20 23 20 20 20 20 20 20 20 65 72 72 6f 72 20    #       error 
11f0: 69 6e 64 69 63 61 74 6f 72 20 73 6f 20 74 68 61  indicator so tha
1200: 74 20 77 65 20 63 61 6e 20 65 61 73 69 6c 79 20  t we can easily 
1210: 6c 6f 6f 6b 75 70 20 74 68 65 20 6e 75 6d 62 65  lookup the numbe
1220: 72 20 6f 66 0d 0a 20 20 20 20 23 20 20 20 20 20  r of..    #     
1230: 20 20 66 61 69 6c 75 72 65 73 20 28 69 2e 65 2e    failures (i.e.
1240: 20 22 75 6e 65 78 70 65 63 74 65 64 20 65 72 72   "unexpected err
1250: 6f 72 73 22 29 20 66 6f 72 20 74 68 65 20 77 6f  ors") for the wo
1260: 72 6b 6c 6f 61 64 2e 0d 0a 20 20 20 20 23 0d 0a  rkload...    #..
1270: 20 20 20 20 73 65 74 20 69 6e 64 69 63 61 74 6f      set indicato
1280: 72 20 5b 73 74 72 69 6e 67 20 63 68 61 72 61 63  r [string charac
1290: 74 65 72 20 5b 65 78 70 72 20 7b 5b 73 74 72 69  ter [expr {[stri
12a0: 6e 67 20 6f 72 64 69 6e 61 6c 20 61 20 30 5d 20  ng ordinal a 0] 
12b0: 2b 20 24 69 6e 64 65 78 20 2d 20 31 7d 5d 5d 0d  + $index - 1}]].
12c0: 0a 0d 0a 20 20 20 20 61 70 70 65 6e 64 20 72 65  ...    append re
12d0: 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 69 6e 66  sult [expr {[inf
12e0: 6f 20 65 78 69 73 74 73 20 3a 3a 66 61 69 6c 75  o exists ::failu
12f0: 72 65 73 28 24 69 6e 64 69 63 61 74 6f 72 29 5d  res($indicator)]
1300: 20 3f 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 3a   ? \..        $:
1310: 3a 66 61 69 6c 75 72 65 73 28 24 69 6e 64 69 63  :failures($indic
1320: 61 74 6f 72 29 20 3a 20 30 7d 5d 20 22 20 66 61  ator) : 0}] " fa
1330: 69 6c 65 64 5c 6e 22 0d 0a 0d 0a 20 20 20 20 72  iled\n"....    r
1340: 65 74 75 72 6e 20 24 72 65 73 75 6c 74 0d 0a 20  eturn $result.. 
1350: 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23   }....  ########
1360: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1370: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1380: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1390: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
13a0: 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20  #####....  proc 
13b0: 66 6f 72 6d 61 74 57 6f 72 6b 6c 6f 61 64 54 69  formatWorkloadTi
13c0: 6d 65 20 7b 20 69 6e 64 65 78 20 7d 20 7b 0d 0a  me { index } {..
13d0: 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78      if {[info ex
13e0: 69 73 74 73 20 3a 3a 74 69 6d 65 73 28 24 69 6e  ists ::times($in
13f0: 64 65 78 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  dex)]} then {.. 
1400: 20 20 20 20 20 73 65 74 20 6c 65 6e 67 74 68 20       set length 
1410: 5b 6c 6c 65 6e 67 74 68 20 24 3a 3a 74 69 6d 65  [llength $::time
1420: 73 28 24 69 6e 64 65 78 29 5d 0d 0a 0d 0a 20 20  s($index)]....  
1430: 20 20 20 20 69 66 20 7b 24 6c 65 6e 67 74 68 20      if {$length 
1440: 3e 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  > 0} then {..   
1450: 20 20 20 20 20 73 65 74 20 73 75 6d 20 5b 65 78       set sum [ex
1460: 70 72 20 5b 6a 6f 69 6e 20 24 3a 3a 74 69 6d 65  pr [join $::time
1470: 73 28 24 69 6e 64 65 78 29 20 2b 5d 5d 0d 0a 0d  s($index) +]]...
1480: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20  .        return 
1490: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 2d 2d 2d  [appendArgs "---
14a0: 2d 20 61 76 65 72 61 67 65 20 74 69 6d 65 20 66  - average time f
14b0: 6f 72 20 77 6f 72 6b 6c 6f 61 64 20 28 22 20 24  or workload (" $
14c0: 69 6e 64 65 78 20 5c 0d 0a 20 20 20 20 20 20 20  index \..       
14d0: 20 20 20 20 20 22 29 20 69 73 20 61 62 6f 75 74       ") is about
14e0: 20 22 20 5b 65 78 70 72 20 7b 69 6e 74 28 24 73   " [expr {int($s
14f0: 75 6d 20 2f 20 24 6c 65 6e 67 74 68 20 2f 20 31  um / $length / 1
1500: 30 30 30 2e 30 29 7d 5d 20 5c 0d 0a 20 20 20 20  000.0)}] \..    
1510: 20 20 20 20 20 20 20 20 22 20 6d 69 6c 6c 69 73          " millis
1520: 65 63 6f 6e 64 73 20 28 22 20 5b 65 78 70 72 20  econds (" [expr 
1530: 7b 69 6e 74 28 24 73 75 6d 20 2f 20 28 5b 69 6e  {int($sum / ([in
1540: 66 6f 20 65 78 69 73 74 73 20 5c 0d 0a 20 20 20  fo exists \..   
1550: 20 20 20 20 20 20 20 20 20 3a 3a 69 74 65 72 61           ::itera
1560: 74 69 6f 6e 73 28 24 69 6e 64 65 78 2c 74 6f 74  tions($index,tot
1570: 61 6c 29 5d 20 3f 20 24 3a 3a 69 74 65 72 61 74  al)] ? $::iterat
1580: 69 6f 6e 73 28 24 69 6e 64 65 78 2c 74 6f 74 61  ions($index,tota
1590: 6c 29 20 3a 20 5c 0d 0a 20 20 20 20 20 20 20 20  l) : \..        
15a0: 20 20 20 20 24 6c 65 6e 67 74 68 29 20 2f 20 31      $length) / 1
15b0: 30 30 30 2e 30 29 7d 5d 20 22 20 6d 69 6c 6c 69  000.0)}] " milli
15c0: 73 65 63 6f 6e 64 73 20 70 65 72 20 69 74 65 72  seconds per iter
15d0: 61 74 69 6f 6e 29 5c 6e 22 5d 0d 0a 20 20 20 20  ation)\n"]..    
15e0: 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20    }..    }....  
15f0: 20 20 72 65 74 75 72 6e 20 5b 61 70 70 65 6e 64    return [append
1600: 41 72 67 73 20 22 2d 2d 2d 2d 20 6e 6f 20 74 69  Args "---- no ti
1610: 6d 65 73 20 66 6f 72 20 77 6f 72 6b 6c 6f 61 64  mes for workload
1620: 20 28 22 20 24 69 6e 64 65 78 20 29 5c 6e 5d 0d   (" $index )\n].
1630: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23  .  }....  ######
1640: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1650: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1660: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1670: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1680: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f  #######....  pro
1690: 63 20 69 73 45 78 70 65 63 74 65 64 45 72 72 6f  c isExpectedErro
16a0: 72 20 7b 20 65 72 72 6f 72 20 7d 20 7b 0d 0a 20  r { error } {.. 
16b0: 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20     return [expr 
16c0: 7b 5b 72 65 67 65 78 70 20 2d 2d 20 7b 5c 73 6e  {[regexp -- {\sn
16d0: 6f 20 73 75 63 68 20 74 61 62 6c 65 3a 20 74 31  o such table: t1
16e0: 5c 73 7d 20 24 65 72 72 6f 72 5d 20 7c 7c 20 5c  \s} $error] || \
16f0: 0d 0a 20 20 20 20 20 20 20 20 5b 72 65 67 65 78  ..        [regex
1700: 70 20 2d 2d 20 7b 5c 73 64 61 74 61 62 61 73 65  p -- {\sdatabase
1710: 20 69 73 20 6c 6f 63 6b 65 64 5c 73 7d 20 24 65   is locked\s} $e
1720: 72 72 6f 72 5d 20 7c 7c 20 5c 0d 0a 20 20 20 20  rror] || \..    
1730: 20 20 20 20 5b 72 65 67 65 78 70 20 2d 2d 20 7b      [regexp -- {
1740: 5c 73 64 61 74 61 62 61 73 65 20 74 61 62 6c 65  \sdatabase table
1750: 20 69 73 20 6c 6f 63 6b 65 64 5c 73 7d 20 24 65   is locked\s} $e
1760: 72 72 6f 72 5d 7d 5d 0d 0a 20 20 7d 0d 0a 0d 0a  rror]}]..  }....
1770: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
1780: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1790: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
17a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
17b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
17c0: 0a 0d 0a 20 20 70 72 6f 63 20 69 6e 69 74 54 65  ...  proc initTe
17d0: 73 74 20 7b 20 69 6e 64 69 63 61 74 6f 72 20 7d  st { indicator }
17e0: 20 7b 0d 0a 20 20 20 20 73 65 74 20 3a 3a 65 61   {..    set ::ea
17f0: 67 6c 65 5f 74 65 73 74 73 28 43 6f 6e 73 74 72  gle_tests(Constr
1800: 61 69 6e 74 73 29 20 24 3a 3a 74 65 73 74 5f 63  aints) $::test_c
1810: 6f 6e 73 74 72 61 69 6e 74 73 0d 0a 20 20 7d 0d  onstraints..  }.
1820: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
1830: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1840: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1850: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1860: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1870: 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 64 65 6c  ##....  proc del
1880: 61 79 54 65 73 74 20 7b 20 62 61 73 65 20 65 78  ayTest { base ex
1890: 74 72 61 20 7d 20 7b 0d 0a 20 20 20 20 69 66 20  tra } {..    if 
18a0: 7b 24 62 61 73 65 20 3c 20 30 7d 20 74 68 65 6e  {$base < 0} then
18b0: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 62 61   {..      set ba
18c0: 73 65 20 31 30 30 30 0d 0a 20 20 20 20 7d 0d 0a  se 1000..    }..
18d0: 20 20 20 20 69 66 20 7b 24 62 61 73 65 20 3e 20      if {$base > 
18e0: 30 20 7c 7c 20 24 65 78 74 72 61 20 3e 20 30 7d  0 || $extra > 0}
18f0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 61   then {..      a
1900: 66 74 65 72 20 5b 65 78 70 72 20 7b 69 6e 74 28  fter [expr {int(
1910: 28 72 61 6e 64 28 29 20 2a 20 24 62 61 73 65 29  (rand() * $base)
1920: 20 2b 20 24 65 78 74 72 61 29 7d 5d 0d 0a 20 20   + $extra)}]..  
1930: 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23    }..  }....  ##
1940: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1950: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1960: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1970: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1980: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20  ###########.... 
1990: 20 70 72 6f 63 20 77 61 69 74 54 65 73 74 20 7b   proc waitTest {
19a0: 20 69 6e 64 69 63 61 74 6f 72 20 7d 20 7b 0d 0a   indicator } {..
19b0: 20 20 20 20 69 66 20 7b 21 5b 24 3a 3a 65 76 65      if {![$::eve
19c0: 6e 74 20 57 61 69 74 4f 6e 65 20 24 3a 3a 74 69  nt WaitOne $::ti
19d0: 6d 65 6f 75 74 5d 7d 20 74 68 65 6e 20 7b 0d 0a  meout]} then {..
19e0: 20 20 20 20 20 20 65 72 72 6f 72 20 5b 61 70 70        error [app
19f0: 65 6e 64 41 72 67 73 20 22 74 69 6d 65 6f 75 74  endArgs "timeout
1a00: 20 77 68 69 6c 65 20 73 74 61 72 74 69 6e 67 20   while starting 
1a10: 77 6f 72 6b 6c 6f 61 64 20 23 22 20 5c 0d 0a 20  workload #" \.. 
1a20: 20 20 20 20 20 20 20 20 20 5b 65 78 70 72 20 7b           [expr {
1a30: 5b 73 74 72 69 6e 67 20 6f 72 64 69 6e 61 6c 20  [string ordinal 
1a40: 24 69 6e 64 69 63 61 74 6f 72 20 30 5d 20 2d 20  $indicator 0] - 
1a50: 5b 73 74 72 69 6e 67 20 6f 72 64 69 6e 61 6c 20  [string ordinal 
1a60: 41 20 30 5d 20 2b 20 31 7d 5d 5d 0d 0a 20 20 20  A 0] + 1}]]..   
1a70: 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23   }..  }....  ###
1a80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1a90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1aa0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1ab0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1ac0: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20  ##########....  
1ad0: 70 72 6f 63 20 73 68 6f 77 54 65 73 74 20 7b 20  proc showTest { 
1ae0: 69 6e 64 69 63 61 74 6f 72 20 7d 20 7b 0d 0a 20  indicator } {.. 
1af0: 20 20 20 73 68 6f 77 54 65 73 74 57 69 74 68 44     showTestWithD
1b00: 65 6c 61 79 20 24 69 6e 64 69 63 61 74 6f 72 20  elay $indicator 
1b10: 2d 31 20 24 3a 3a 63 6f 75 6e 74 28 32 29 0d 0a  -1 $::count(2)..
1b20: 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23    }....  #######
1b30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1b50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1b60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1b70: 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f 63  ######....  proc
1b80: 20 73 68 6f 77 54 65 73 74 57 69 74 68 44 65 6c   showTestWithDel
1b90: 61 79 20 7b 20 69 6e 64 69 63 61 74 6f 72 20 62  ay { indicator b
1ba0: 61 73 65 20 65 78 74 72 61 20 7d 20 7b 0d 0a 20  ase extra } {.. 
1bb0: 20 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74     tputs $::test
1bc0: 5f 63 68 61 6e 6e 65 6c 20 24 69 6e 64 69 63 61  _channel $indica
1bd0: 74 6f 72 0d 0a 20 20 20 20 61 70 70 65 6e 64 20  tor..    append 
1be0: 3a 3a 69 6e 64 69 63 61 74 6f 72 73 20 24 69 6e  ::indicators $in
1bf0: 64 69 63 61 74 6f 72 0d 0a 20 20 20 20 64 65 6c  dicator..    del
1c00: 61 79 54 65 73 74 20 24 62 61 73 65 20 24 65 78  ayTest $base $ex
1c10: 74 72 61 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23  tra..  }....  ##
1c20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1c30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1c40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1c50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1c60: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20  ###########.... 
1c70: 20 70 72 6f 63 20 64 6f 6e 65 54 65 73 74 20 7b   proc doneTest {
1c80: 20 7b 69 6e 64 69 63 61 74 6f 72 20 22 22 7d 20   {indicator ""} 
1c90: 7d 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 73 74  } {..    if {[st
1ca0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 69 6e 64  ring length $ind
1cb0: 69 63 61 74 6f 72 5d 20 3e 20 30 7d 20 74 68 65  icator] > 0} the
1cc0: 6e 20 7b 0d 0a 20 20 20 20 20 20 6c 61 70 70 65  n {..      lappe
1cd0: 6e 64 20 3a 3a 73 74 61 74 75 73 28 64 6f 6e 65  nd ::status(done
1ce0: 29 20 24 69 6e 64 69 63 61 74 6f 72 0d 0a 20 20  ) $indicator..  
1cf0: 20 20 7d 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e    }..    if {[in
1d00: 66 6f 20 65 78 69 73 74 73 20 3a 3a 73 74 61 74  fo exists ::stat
1d10: 75 73 28 64 6f 6e 65 29 5d 7d 20 74 68 65 6e 20  us(done)]} then 
1d20: 7b 0d 0a 20 20 20 20 20 20 68 6f 73 74 20 74 69  {..      host ti
1d30: 74 6c 65 20 24 3a 3a 73 74 61 74 75 73 28 64 6f  tle $::status(do
1d40: 6e 65 29 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20  ne)..    } else 
1d50: 7b 0d 0a 20 20 20 20 20 20 68 6f 73 74 20 74 69  {..      host ti
1d60: 74 6c 65 20 22 22 0d 0a 20 20 20 20 7d 0d 0a 20  tle ""..    }.. 
1d70: 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23   }....  ########
1d80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1d90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1da0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1db0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1dc0: 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20  #####....  proc 
1dd0: 66 61 69 6c 54 65 73 74 20 7b 20 69 6e 64 69 63  failTest { indic
1de0: 61 74 6f 72 20 65 72 72 6f 72 20 7d 20 7b 0d 0a  ator error } {..
1df0: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
1e00: 45 3a 20 48 61 6c 74 20 61 6c 6c 20 74 65 73 74  E: Halt all test
1e10: 69 6e 67 20 61 6e 64 20 65 78 69 74 20 74 68 65  ing and exit the
1e20: 20 70 72 6f 63 65 73 73 20 6e 6f 77 0d 0a 20 20   process now..  
1e30: 20 20 23 20 20 20 20 20 20 20 2d 4f 52 2d 20 6a    #       -OR- j
1e40: 75 73 74 20 72 65 63 6f 72 64 20 74 68 65 20 66  ust record the f
1e50: 61 69 6c 75 72 65 20 61 6e 64 20 63 6f 6e 74 69  ailure and conti
1e60: 6e 75 65 3f 0d 0a 20 20 20 20 23 0d 0a 20 20 20  nue?..    #..   
1e70: 20 73 65 74 20 6c 65 76 65 6c 20 5b 65 78 70 72   set level [expr
1e80: 20 7b 5b 69 6e 66 6f 20 6c 65 76 65 6c 5d 20 2d   {[info level] -
1e90: 20 31 7d 5d 0d 0a 0d 0a 20 20 20 20 69 66 20 7b   1}]....    if {
1ea0: 24 3a 3a 65 78 69 74 4f 6e 46 61 69 6c 7d 20 74  $::exitOnFail} t
1eb0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 74 70 75  hen {..      tpu
1ec0: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e  ts $::test_chann
1ed0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
1ee0: 0d 0a 20 20 20 20 20 20 20 20 20 20 5c 6e 20 5b  ..          \n [
1ef0: 69 6e 66 6f 20 6c 65 76 65 6c 20 24 6c 65 76 65  info level $leve
1f00: 6c 5d 20 22 3a 20 22 20 5c 6e 5c 74 20 24 65 72  l] ": " \n\t $er
1f10: 72 6f 72 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20  ror \n]....     
1f20: 20 65 78 69 74 20 66 61 69 6c 75 72 65 0d 0a 20   exit failure.. 
1f30: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
1f40: 20 20 20 74 6c 6f 67 20 5b 61 70 70 65 6e 64 41     tlog [appendA
1f50: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  rgs \..         
1f60: 20 22 5c 6e 2d 2d 2d 2d 20 42 45 47 49 4e 20 54   "\n---- BEGIN T
1f70: 45 53 54 20 46 41 49 4c 55 52 45 20 4f 55 54 50  EST FAILURE OUTP
1f80: 55 54 5c 6e 22 20 5c 0d 0a 20 20 20 20 20 20 20  UT\n" \..       
1f90: 20 20 20 5c 6e 20 5b 69 6e 66 6f 20 6c 65 76 65     \n [info leve
1fa0: 6c 20 24 6c 65 76 65 6c 5d 20 22 3a 20 22 20 5c  l $level] ": " \
1fb0: 6e 5c 74 20 24 65 72 72 6f 72 20 5c 6e 20 5c 0d  n\t $error \n \.
1fc0: 0a 20 20 20 20 20 20 20 20 20 20 22 5c 6e 2d 2d  .          "\n--
1fd0: 2d 2d 20 45 4e 44 20 54 45 53 54 20 46 41 49 4c  -- END TEST FAIL
1fe0: 55 52 45 20 4f 55 54 50 55 54 5c 6e 22 5d 0d 0a  URE OUTPUT\n"]..
1ff0: 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24 3a  ..      tputs $:
2000: 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 24 69  :test_channel $i
2010: 6e 64 69 63 61 74 6f 72 0d 0a 0d 0a 20 20 20 20  ndicator....    
2020: 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69    if {![info exi
2030: 73 74 73 20 3a 3a 66 61 69 6c 75 72 65 73 28 24  sts ::failures($
2040: 69 6e 64 69 63 61 74 6f 72 29 5d 7d 20 74 68 65  indicator)]} the
2050: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 73 65 74  n {..        set
2060: 20 3a 3a 66 61 69 6c 75 72 65 73 28 24 69 6e 64   ::failures($ind
2070: 69 63 61 74 6f 72 29 20 30 0d 0a 20 20 20 20 20  icator) 0..     
2080: 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 69 6e 63 72   }....      incr
2090: 20 3a 3a 66 61 69 6c 75 72 65 73 28 24 69 6e 64   ::failures($ind
20a0: 69 63 61 74 6f 72 29 0d 0a 20 20 20 20 20 20 64  icator)..      d
20b0: 65 6c 61 79 54 65 73 74 20 2d 31 20 24 3a 3a 63  elayTest -1 $::c
20c0: 6f 75 6e 74 28 32 29 0d 0a 20 20 20 20 7d 0d 0a  ount(2)..    }..
20d0: 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23    }....  #######
20e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
20f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2120: 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f 63  ######....  proc
2130: 20 61 6c 6c 6f 63 4d 65 6d 20 7b 20 73 69 7a 65   allocMem { size
2140: 20 7d 20 7b 0d 0a 20 20 20 20 69 66 20 7b 24 3a   } {..    if {$:
2150: 3a 63 6f 54 61 73 6b 4d 65 6d 7d 20 74 68 65 6e  :coTaskMem} then
2160: 20 7b 0d 0a 20 20 20 20 20 20 72 65 74 75 72 6e   {..      return
2170: 20 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20   [object invoke 
2180: 2d 63 72 65 61 74 65 20 5c 0d 0a 20 20 20 20 20  -create \..     
2190: 20 20 20 20 20 53 79 73 74 65 6d 2e 52 75 6e 74       System.Runt
21a0: 69 6d 65 2e 49 6e 74 65 72 6f 70 53 65 72 76 69  ime.InteropServi
21b0: 63 65 73 2e 4d 61 72 73 68 61 6c 20 5c 0d 0a 20  ces.Marshal \.. 
21c0: 20 20 20 20 20 20 20 20 20 41 6c 6c 6f 63 43 6f           AllocCo
21d0: 54 61 73 6b 4d 65 6d 20 24 73 69 7a 65 5d 3b 20  TaskMem $size]; 
21e0: 23 20 74 68 72 6f 77 0d 0a 20 20 20 20 7d 20 65  # throw..    } e
21f0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 73 65 74  lse {..      set
2200: 20 70 74 72 20 5b 6f 62 6a 65 63 74 20 69 6e 76   ptr [object inv
2210: 6f 6b 65 20 2d 63 72 65 61 74 65 20 2d 66 6c 61  oke -create -fla
2220: 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c 0d  gs +NonPublic \.
2230: 0a 20 20 20 20 20 20 20 20 20 20 53 79 73 74 65  .          Syste
2240: 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 55 6e  m.Data.SQLite.Un
2250: 73 61 66 65 4e 61 74 69 76 65 4d 65 74 68 6f 64  safeNativeMethod
2260: 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 73  s \..          s
2270: 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 20 24 73  qlite3_malloc $s
2280: 69 7a 65 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66  ize]....      if
2290: 20 7b 5b 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65   {[object invoke
22a0: 20 24 70 74 72 20 54 6f 49 6e 74 36 34 5d 20 21   $ptr ToInt64] !
22b0: 3d 20 30 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  = 0} then {..   
22c0: 20 20 20 20 20 72 65 74 75 72 6e 20 24 70 74 72       return $ptr
22d0: 0d 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b  ..      } else {
22e0: 0d 0a 20 20 20 20 20 20 20 20 65 72 72 6f 72 20  ..        error 
22f0: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 73 71 6c  [appendArgs "sql
2300: 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 22 20 24 73  ite3_malloc(" $s
2310: 69 7a 65 20 22 29 20 66 61 69 6c 65 64 22 5d 0d  ize ") failed"].
2320: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d  .      }..    }.
2330: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23  .  }....  ######
2340: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2350: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2360: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2370: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2380: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f  #######....  pro
2390: 63 20 75 73 65 4d 65 6d 20 7b 20 70 74 72 20 73  c useMem { ptr s
23a0: 69 7a 65 20 7d 20 7b 0d 0a 20 20 20 20 23 0d 0a  ize } {..    #..
23b0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73      # NOTE: This
23c0: 20 70 72 6f 63 65 64 75 72 65 20 64 6f 65 73 20   procedure does 
23d0: 6e 6f 74 68 69 6e 67 20 6f 6e 20 6e 6f 6e 2d 57  nothing on non-W
23e0: 69 6e 64 6f 77 73 20 6f 70 65 72 61 74 69 6e 67  indows operating
23f0: 20 73 79 73 74 65 6d 73 2e 20 20 49 74 0d 0a 20   systems.  It.. 
2400: 20 20 20 23 20 20 20 20 20 20 20 61 6c 73 6f 20     #       also 
2410: 64 6f 65 73 20 6e 6f 74 68 69 6e 67 20 77 68 65  does nothing whe
2420: 6e 20 72 75 6e 6e 69 6e 67 20 6f 6e 20 4d 6f 6e  n running on Mon
2430: 6f 20 6f 72 20 2e 4e 45 54 20 43 6f 72 65 2c 20  o or .NET Core, 
2440: 64 75 65 20 74 6f 20 74 68 65 69 72 0d 0a 20 20  due to their..  
2450: 20 20 23 20 20 20 20 20 20 20 6c 61 63 6b 20 6f    #       lack o
2460: 66 20 74 68 65 20 28 69 6e 74 65 72 6e 61 6c 2c  f the (internal,
2470: 20 75 6e 64 6f 63 75 6d 65 6e 74 65 64 29 20 5a   undocumented) Z
2480: 65 72 6f 4d 65 6d 6f 72 79 20 6d 65 74 68 6f 64  eroMemory method
2490: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66  ...    #..    if
24a0: 20 7b 5b 69 73 57 69 6e 64 6f 77 73 5d 20 26 26   {[isWindows] &&
24b0: 20 21 5b 69 73 4d 6f 6e 6f 5d 20 26 26 20 21 5b   ![isMono] && ![
24c0: 69 73 44 6f 74 4e 65 74 43 6f 72 65 5d 7d 20 74  isDotNetCore]} t
24d0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 23 0d 0a  hen {..      #..
24e0: 20 20 20 20 20 20 23 20 48 41 43 4b 3a 20 54 68        # HACK: Th
24f0: 65 20 74 79 70 65 20 73 69 67 6e 61 74 75 72 65  e type signature
2500: 20 6f 66 20 74 68 65 20 5a 65 72 6f 4d 65 6d 6f   of the ZeroMemo
2510: 72 79 20 6d 65 74 68 6f 64 20 63 68 61 6e 67 65  ry method change
2520: 64 20 61 73 20 6f 66 20 74 68 65 0d 0a 20 20 20  d as of the..   
2530: 20 20 20 23 20 20 20 20 20 20 20 2e 4e 45 54 20     #       .NET 
2540: 46 72 61 6d 65 77 6f 72 6b 20 34 2e 35 2e 20 20  Framework 4.5.  
2550: 54 68 65 20 73 65 63 6f 6e 64 20 61 72 67 75 6d  The second argum
2560: 65 6e 74 20 77 65 6e 74 20 66 72 6f 6d 20 62 65  ent went from be
2570: 69 6e 67 20 6f 66 0d 0a 20 20 20 20 20 20 23 20  ing of..      # 
2580: 20 20 20 20 20 20 74 79 70 65 20 55 49 6e 74 20        type UInt 
2590: 74 6f 20 74 79 70 65 20 55 49 6e 74 50 74 72 2e  to type UIntPtr.
25a0: 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20  ..      #..     
25b0: 20 69 66 20 7b 5b 68 61 76 65 43 6f 6e 73 74 72   if {[haveConstr
25c0: 61 69 6e 74 20 64 6f 74 4e 65 74 34 30 5d 20 26  aint dotNet40] &
25d0: 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b  & \..          [
25e0: 68 61 76 65 43 6f 6e 73 74 72 61 69 6e 74 20 64  haveConstraint d
25f0: 6f 74 4e 65 74 34 35 4f 72 48 69 67 68 65 72 5d  otNet45OrHigher]
2600: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
2610: 20 20 73 65 74 20 6e 65 77 53 69 7a 65 20 5b 6f    set newSize [o
2620: 62 6a 65 63 74 20 63 72 65 61 74 65 20 55 49 6e  bject create UIn
2630: 74 50 74 72 20 24 73 69 7a 65 5d 0d 0a 20 20 20  tPtr $size]..   
2640: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
2650: 20 20 20 20 20 73 65 74 20 6e 65 77 53 69 7a 65       set newSize
2660: 20 24 73 69 7a 65 0d 0a 20 20 20 20 20 20 7d 0d   $size..      }.
2670: 0a 0d 0a 20 20 20 20 20 20 6f 62 6a 65 63 74 20  ...      object 
2680: 69 6e 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e  invoke -flags +N
2690: 6f 6e 50 75 62 6c 69 63 20 4d 69 63 72 6f 73 6f  onPublic Microso
26a0: 66 74 2e 57 69 6e 33 32 2e 57 69 6e 33 32 4e 61  ft.Win32.Win32Na
26b0: 74 69 76 65 20 5c 0d 0a 20 20 20 20 20 20 20 20  tive \..        
26c0: 20 20 5a 65 72 6f 4d 65 6d 6f 72 79 20 24 70 74    ZeroMemory $pt
26d0: 72 20 24 6e 65 77 53 69 7a 65 0d 0a 20 20 20 20  r $newSize..    
26e0: 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23  }..  }....  ####
26f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2700: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2710: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2720: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2730: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70  #########....  p
2740: 72 6f 63 20 66 72 65 65 4d 65 6d 20 7b 20 70 74  roc freeMem { pt
2750: 72 20 7d 20 7b 0d 0a 20 20 20 20 69 66 20 7b 24  r } {..    if {$
2760: 3a 3a 63 6f 54 61 73 6b 4d 65 6d 7d 20 74 68 65  ::coTaskMem} the
2770: 6e 20 7b 0d 0a 20 20 20 20 20 20 6f 62 6a 65 63  n {..      objec
2780: 74 20 69 6e 76 6f 6b 65 20 53 79 73 74 65 6d 2e  t invoke System.
2790: 52 75 6e 74 69 6d 65 2e 49 6e 74 65 72 6f 70 53  Runtime.InteropS
27a0: 65 72 76 69 63 65 73 2e 4d 61 72 73 68 61 6c 20  ervices.Marshal 
27b0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 46 72 65  \..          Fre
27c0: 65 43 6f 54 61 73 6b 4d 65 6d 20 24 70 74 72 0d  eCoTaskMem $ptr.
27d0: 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20  .    } else {.. 
27e0: 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f       object invo
27f0: 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75  ke -flags +NonPu
2800: 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20  blic \..        
2810: 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51    System.Data.SQ
2820: 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76  Lite.UnsafeNativ
2830: 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20  eMethods \..    
2840: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 72        sqlite3_fr
2850: 65 65 20 24 70 74 72 0d 0a 20 20 20 20 7d 0d 0a  ee $ptr..    }..
2860: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e  ..    #..    # N
2870: 4f 54 45 3a 20 46 72 65 65 20 65 78 74 72 61 20  OTE: Free extra 
2880: 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20 68 61  opaque object ha
2890: 6e 64 6c 65 20 72 65 66 65 72 65 6e 63 65 20 61  ndle reference a
28a0: 64 64 65 64 20 62 79 20 74 68 65 0d 0a 20 20 20  dded by the..   
28b0: 20 23 20 20 20 20 20 20 20 5b 72 65 74 75 72 6e   #       [return
28c0: 5d 20 63 6f 6d 6d 61 6e 64 20 69 6e 20 5b 61 6c  ] command in [al
28d0: 6c 6f 63 4d 65 6d 5d 2e 0d 0a 20 20 20 20 23 0d  locMem]...    #.
28e0: 0a 20 20 20 20 6f 62 6a 65 63 74 20 64 69 73 70  .    object disp
28f0: 6f 73 65 20 24 70 74 72 0d 0a 20 20 7d 0d 0a 0d  ose $ptr..  }...
2900: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
2910: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2920: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2930: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2940: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2950: 0d 0a 0d 0a 20 20 70 72 6f 63 20 72 65 6c 65 61  ....  proc relea
2960: 73 65 4d 65 6d 20 7b 20 73 69 7a 65 20 7d 20 7b  seMem { size } {
2970: 0d 0a 20 20 20 20 73 65 74 20 6e 46 72 65 65 20  ..    set nFree 
2980: 30 3b 20 73 65 74 20 72 65 73 65 74 4f 6b 20 66  0; set resetOk f
2990: 61 6c 73 65 3b 20 73 65 74 20 6e 4c 61 72 67 65  alse; set nLarge
29a0: 73 74 20 30 0d 0a 0d 0a 20 20 20 20 73 65 74 20  st 0....    set 
29b0: 63 6f 64 65 20 5b 6f 62 6a 65 63 74 20 69 6e 76  code [object inv
29c0: 6f 6b 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 53  oke \..        S
29d0: 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74  ystem.Data.SQLit
29e0: 65 2e 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69  e.SQLiteConnecti
29f0: 6f 6e 20 52 65 6c 65 61 73 65 4d 65 6d 6f 72 79  on ReleaseMemory
2a00: 20 5c 0d 0a 20 20 20 20 20 20 20 20 24 73 69 7a   \..        $siz
2a10: 65 20 74 72 75 65 20 74 72 75 65 20 6e 46 72 65  e true true nFre
2a20: 65 20 72 65 73 65 74 4f 6b 20 6e 4c 61 72 67 65  e resetOk nLarge
2a30: 73 74 5d 0d 0a 0d 0a 20 20 20 20 72 65 74 75 72  st]....    retur
2a40: 6e 20 5b 6c 69 73 74 20 24 63 6f 64 65 20 24 6e  n [list $code $n
2a50: 46 72 65 65 20 24 72 65 73 65 74 4f 6b 20 24 6e  Free $resetOk $n
2a60: 4c 61 72 67 65 73 74 5d 0d 0a 20 20 7d 0d 0a 0d  Largest]..  }...
2a70: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
2a80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2a90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2aa0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2ab0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2ac0: 0d 0a 0d 0a 20 20 70 72 6f 63 20 73 65 74 75 70  ....  proc setup
2ad0: 4c 6f 67 67 69 6e 67 20 7b 20 66 69 6c 65 4e 61  Logging { fileNa
2ae0: 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 69 66 20 7b  me } {..    if {
2af0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
2b00: 6c 6f 67 4c 69 73 74 65 6e 65 72 5d 7d 20 74 68  logListener]} th
2b10: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20  en {..      set 
2b20: 3a 3a 6c 6f 67 4c 69 73 74 65 6e 65 72 20 5b 6f  ::logListener [o
2b30: 62 6a 65 63 74 20 63 72 65 61 74 65 20 2d 61 6c  bject create -al
2b40: 69 61 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  ias \..         
2b50: 20 53 79 73 74 65 6d 2e 44 69 61 67 6e 6f 73 74   System.Diagnost
2b60: 69 63 73 2e 54 65 78 74 57 72 69 74 65 72 54 72  ics.TextWriterTr
2b70: 61 63 65 4c 69 73 74 65 6e 65 72 20 24 66 69 6c  aceListener $fil
2b80: 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 7d 0d 0a 0d  eName]..    }...
2b90: 0a 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f  .    object invo
2ba0: 6b 65 20 53 79 73 74 65 6d 2e 44 69 61 67 6e 6f  ke System.Diagno
2bb0: 73 74 69 63 73 2e 54 72 61 63 65 2e 4c 69 73 74  stics.Trace.List
2bc0: 65 6e 65 72 73 20 41 64 64 20 24 3a 3a 6c 6f 67  eners Add $::log
2bd0: 4c 69 73 74 65 6e 65 72 0d 0a 20 20 20 20 6f 62  Listener..    ob
2be0: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 53 79 73 74  ject invoke Syst
2bf0: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 53  em.Data.SQLite.S
2c00: 51 4c 69 74 65 4c 6f 67 20 49 6e 69 74 69 61 6c  QLiteLog Initial
2c10: 69 7a 65 0d 0a 0d 0a 20 20 20 20 74 70 75 74 73  ize....    tputs
2c20: 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65 6c   $::test_channel
2c30: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
2c40: 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 65 6e          "---- en
2c50: 61 62 6c 65 64 20 53 51 4c 69 74 65 20 74 72 61  abled SQLite tra
2c60: 63 65 20 6c 6f 67 67 69 6e 67 20 74 6f 20 66 69  ce logging to fi
2c70: 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65  le \"" $fileName
2c80: 20 5c 22 5c 6e 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20   \"\n]..  }.... 
2c90: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23   ###############
2ca0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2cb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2cc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2cd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
2ce0: 0d 0a 20 20 70 72 6f 63 20 63 6c 65 61 6e 75 70  ..  proc cleanup
2cf0: 4c 6f 67 67 69 6e 67 20 7b 20 66 69 6c 65 4e 61  Logging { fileNa
2d00: 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 69 66 20 7b  me } {..    if {
2d10: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 6c  [info exists ::l
2d20: 6f 67 4c 69 73 74 65 6e 65 72 5d 7d 20 74 68 65  ogListener]} the
2d30: 6e 20 7b 0d 0a 20 20 20 20 20 20 6f 62 6a 65 63  n {..      objec
2d40: 74 20 69 6e 76 6f 6b 65 20 53 79 73 74 65 6d 2e  t invoke System.
2d50: 44 69 61 67 6e 6f 73 74 69 63 73 2e 54 72 61 63  Diagnostics.Trac
2d60: 65 2e 4c 69 73 74 65 6e 65 72 73 20 52 65 6d 6f  e.Listeners Remo
2d70: 76 65 20 24 3a 3a 6c 6f 67 4c 69 73 74 65 6e 65  ve $::logListene
2d80: 72 0d 0a 20 20 20 20 20 20 24 3a 3a 6c 6f 67 4c  r..      $::logL
2d90: 69 73 74 65 6e 65 72 20 43 6c 6f 73 65 0d 0a 20  istener Close.. 
2da0: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20     }....    #.. 
2db0: 20 20 20 23 20 4e 4f 54 45 3a 20 43 6f 70 79 20     # NOTE: Copy 
2dc0: 74 68 65 20 74 72 61 63 65 20 6c 69 73 74 65 6e  the trace listen
2dd0: 65 72 20 6c 6f 67 20 66 69 6c 65 20 74 6f 20 74  er log file to t
2de0: 68 65 20 6d 61 69 6e 20 74 65 73 74 20 6c 6f 67  he main test log
2df0: 20 66 69 6c 65 2e 0d 0a 20 20 20 20 23 0d 0a 20   file...    #.. 
2e00: 20 20 20 69 66 20 7b 5b 66 69 6c 65 20 65 78 69     if {[file exi
2e10: 73 74 73 20 24 66 69 6c 65 4e 61 6d 65 5d 7d 20  sts $fileName]} 
2e20: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 74 6c  then {..      tl
2e30: 6f 67 20 22 2d 2d 2d 2d 20 42 45 47 49 4e 20 54  og "---- BEGIN T
2e40: 52 41 43 45 20 4c 49 53 54 45 4e 45 52 20 4f 55  RACE LISTENER OU
2e50: 54 50 55 54 5c 6e 22 0d 0a 20 20 20 20 20 20 74  TPUT\n"..      t
2e60: 6c 6f 67 20 5b 72 65 61 64 46 69 6c 65 20 24 66  log [readFile $f
2e70: 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 20 20  ileName]..      
2e80: 74 6c 6f 67 20 22 5c 6e 2d 2d 2d 2d 20 45 4e 44  tlog "\n---- END
2e90: 20 54 52 41 43 45 20 4c 49 53 54 45 4e 45 52 20   TRACE LISTENER 
2ea0: 4f 55 54 50 55 54 5c 6e 22 0d 0a 20 20 20 20 7d  OUTPUT\n"..    }
2eb0: 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23  ....    #..    #
2ec0: 20 4e 4f 54 45 3a 20 44 65 6c 65 74 65 20 74 68   NOTE: Delete th
2ed0: 65 20 74 72 61 63 65 20 6c 69 73 74 65 6e 65 72  e trace listener
2ee0: 20 6c 6f 67 20 66 69 6c 65 20 62 65 63 61 75 73   log file becaus
2ef0: 65 20 69 74 73 20 63 6f 6e 74 65 6e 74 73 20 68  e its contents h
2f00: 61 76 65 0d 0a 20 20 20 20 23 20 20 20 20 20 20  ave..    #      
2f10: 20 62 65 65 6e 20 63 6f 70 69 65 64 20 74 6f 20   been copied to 
2f20: 74 68 65 20 6d 61 69 6e 20 74 65 73 74 20 6c 6f  the main test lo
2f30: 67 20 66 69 6c 65 2e 0d 0a 20 20 20 20 23 0d 0a  g file...    #..
2f40: 20 20 20 20 63 6c 65 61 6e 75 70 46 69 6c 65 20      cleanupFile 
2f50: 24 66 69 6c 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20  $fileName....   
2f60: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63   tputs $::test_c
2f70: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
2f80: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 22 2d  gs \..        "-
2f90: 2d 2d 2d 20 64 69 73 61 62 6c 65 64 20 53 51 4c  --- disabled SQL
2fa0: 69 74 65 20 74 72 61 63 65 20 6c 6f 67 67 69 6e  ite trace loggin
2fb0: 67 20 74 6f 20 66 69 6c 65 20 5c 22 22 20 24 66  g to file \"" $f
2fc0: 69 6c 65 4e 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20  ileName \"\n].. 
2fd0: 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23   }....  ########
2fe0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2ff0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3020: 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a 20 20  #####....  #..  
3030: 23 20 4e 4f 54 45 3a 20 53 65 74 75 70 20 74 68  # NOTE: Setup th
3040: 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 73  e default values
3050: 20 66 6f 72 20 74 68 65 20 74 75 6e 61 62 6c 65   for the tunable
3060: 20 77 6f 72 6b 6c 6f 61 64 20 70 61 72 61 6d 65   workload parame
3070: 74 65 72 73 2e 20 20 41 6e 79 2c 0d 0a 20 20 23  ters.  Any,..  #
3080: 20 20 20 20 20 20 20 61 6c 6c 2c 20 6f 72 20 6e         all, or n
3090: 6f 6e 65 20 6f 66 20 74 68 65 73 65 20 6d 61 79  one of these may
30a0: 20 62 65 20 6f 76 65 72 72 69 64 65 6e 20 76 69   be overriden vi
30b0: 61 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69  a the command li
30c0: 6e 65 2e 0d 0a 20 20 23 0d 0a 20 20 73 65 74 20  ne...  #..  set 
30d0: 63 6f 75 6e 74 28 30 29 20 33 3b 20 20 20 20 20  count(0) 3;     
30e0: 20 20 20 20 20 23 20 57 6f 72 6b 6c 6f 61 64 20       # Workload 
30f0: 72 65 70 65 61 74 20 63 6f 75 6e 74 20 28 69 2e  repeat count (i.
3100: 65 2e 20 74 6f 74 61 6c 20 66 75 6c 6c 20 72 75  e. total full ru
3110: 6e 73 29 2e 0d 0a 20 20 73 65 74 20 63 6f 75 6e  ns)...  set coun
3120: 74 28 31 29 20 35 3b 20 20 20 20 20 20 20 20 20  t(1) 5;         
3130: 20 23 20 57 6f 72 6b 6c 6f 61 64 20 69 74 65 72   # Workload iter
3140: 61 74 69 6f 6e 20 63 6f 75 6e 74 20 28 77 69 74  ation count (wit
3150: 68 69 6e 20 61 20 72 75 6e 29 2e 0d 0a 20 20 73  hin a run)...  s
3160: 65 74 20 63 6f 75 6e 74 28 32 29 20 32 30 30 3b  et count(2) 200;
3170: 20 20 20 20 20 20 20 20 23 20 57 6f 72 6b 6c 6f          # Worklo
3180: 61 64 20 69 74 65 72 61 74 69 6f 6e 20 64 65 6c  ad iteration del
3190: 61 79 20 28 6d 69 6c 6c 69 73 65 63 6f 6e 64 73  ay (milliseconds
31a0: 29 2e 0d 0a 20 20 73 65 74 20 63 6f 75 6e 74 28  )...  set count(
31b0: 33 29 20 35 37 3b 20 20 20 20 20 20 20 20 20 23  3) 57;         #
31c0: 20 57 6f 72 6b 6c 6f 61 64 20 22 73 6d 61 6c 6c   Workload "small
31d0: 22 20 64 61 74 61 20 63 68 75 6e 6b 20 73 69 7a  " data chunk siz
31e0: 65 2c 20 69 6e 20 62 79 74 65 73 2e 0d 0a 20 20  e, in bytes...  
31f0: 73 65 74 20 63 6f 75 6e 74 28 34 29 20 31 30 30  set count(4) 100
3200: 30 30 3b 20 20 20 20 20 20 23 20 57 6f 72 6b 6c  00;      # Workl
3210: 6f 61 64 20 22 62 69 67 22 20 64 61 74 61 20 63  oad "big" data c
3220: 68 75 6e 6b 20 73 69 7a 65 2c 20 69 6e 20 62 79  hunk size, in by
3230: 74 65 73 2e 0d 0a 20 20 73 65 74 20 63 6f 75 6e  tes...  set coun
3240: 74 28 35 29 20 32 30 39 37 31 35 32 30 30 3b 20  t(5) 209715200; 
3250: 20 23 20 4d 61 78 69 6d 75 6d 20 68 65 61 70 20   # Maximum heap 
3260: 6d 65 6d 6f 72 79 20 74 6f 20 65 78 63 6c 75 64  memory to exclud
3270: 65 20 61 74 20 6f 6e 65 20 74 69 6d 65 2e 0d 0a  e at one time...
3280: 20 20 73 65 74 20 63 6f 75 6e 74 28 36 29 20 31    set count(6) 1
3290: 35 3b 20 20 20 20 20 20 20 20 20 23 20 57 6f 72  5;         # Wor
32a0: 6b 6c 6f 61 64 20 61 75 78 69 6c 69 61 72 79 20  kload auxiliary 
32b0: 69 74 65 72 61 74 69 6f 6e 20 63 6f 75 6e 74 20  iteration count 
32c0: 28 77 69 74 68 69 6e 20 61 20 72 75 6e 29 2e 0d  (within a run)..
32d0: 0a 20 20 73 65 74 20 63 6f 75 6e 74 28 37 29 20  .  set count(7) 
32e0: 31 30 30 3b 20 20 20 20 20 20 20 20 23 20 57 6f  100;        # Wo
32f0: 72 6b 6c 6f 61 64 20 61 75 78 69 6c 69 61 72 79  rkload auxiliary
3300: 20 69 74 65 72 61 74 69 6f 6e 20 64 65 6c 61 79   iteration delay
3310: 20 28 6d 69 6c 6c 69 73 65 63 6f 6e 64 73 29 2e   (milliseconds).
3320: 0d 0a 20 20 73 65 74 20 63 6f 75 6e 74 28 38 29  ..  set count(8)
3330: 20 35 30 30 30 3b 20 20 20 20 20 20 20 23 20 57   5000;       # W
3340: 6f 72 6b 6c 6f 61 64 20 61 75 78 69 6c 69 61 72  orkload auxiliar
3350: 79 20 64 61 74 61 20 76 61 6c 75 65 20 28 66 6f  y data value (fo
3360: 72 20 75 73 65 20 62 79 20 72 75 6e 29 2e 0d 0a  r use by run)...
3370: 20 20 73 65 74 20 6a 6f 75 72 6e 61 6c 4d 6f 64    set journalMod
3380: 65 20 22 22 3b 20 20 20 20 20 20 23 20 49 6e 69  e "";      # Ini
3390: 74 69 61 6c 20 6a 6f 75 72 6e 61 6c 20 6d 6f 64  tial journal mod
33a0: 65 20 66 6f 72 20 64 61 74 61 62 61 73 65 20 66  e for database f
33b0: 69 6c 65 73 2e 0d 0a 20 20 73 65 74 20 70 61 67  iles...  set pag
33c0: 65 53 69 7a 65 20 22 22 3b 20 20 20 20 20 20 20  eSize "";       
33d0: 20 20 23 20 49 6e 69 74 69 61 6c 20 70 61 67 65    # Initial page
33e0: 20 73 69 7a 65 20 66 6f 72 20 64 61 74 61 62 61   size for databa
33f0: 73 65 20 66 69 6c 65 73 2e 0d 0a 20 20 73 65 74  se files...  set
3400: 20 6e 6f 57 6f 72 6b 6c 6f 61 64 20 5b 6c 69 73   noWorkload [lis
3410: 74 5d 3b 20 20 20 23 20 57 6f 72 6b 6c 6f 61 64  t];   # Workload
3420: 73 20 74 6f 20 62 65 20 6f 6d 69 74 74 65 64 20  s to be omitted 
3430: 66 72 6f 6d 20 74 68 65 20 72 75 6e 2c 20 62 79  from the run, by
3440: 20 69 6e 64 65 78 2e 0d 0a 20 20 73 65 74 20 70   index...  set p
3450: 72 69 6f 72 69 74 69 65 73 20 5b 6c 69 73 74 5d  riorities [list]
3460: 3b 20 20 20 23 20 44 69 63 74 69 6f 6e 61 72 79  ;   # Dictionary
3470: 20 6f 66 20 77 6f 72 6b 6c 6f 61 64 20 74 68 72   of workload thr
3480: 65 61 64 20 70 72 69 6f 72 69 74 69 65 73 2e 0d  ead priorities..
3490: 0a 20 20 73 65 74 20 65 78 69 74 4f 6e 46 61 69  .  set exitOnFai
34a0: 6c 20 66 61 6c 73 65 3b 20 20 20 20 23 20 48 61  l false;    # Ha
34b0: 6c 74 20 74 65 73 74 69 6e 67 20 61 6e 64 20 65  lt testing and e
34c0: 78 69 74 20 70 72 6f 63 65 73 73 20 6f 6e 20 74  xit process on t
34d0: 65 73 74 20 66 61 69 6c 75 72 65 3f 0d 0a 20 20  est failure?..  
34e0: 73 65 74 20 63 6f 54 61 73 6b 4d 65 6d 20 74 72  set coTaskMem tr
34f0: 75 65 3b 20 20 20 20 20 20 23 20 55 73 65 20 41  ue;      # Use A
3500: 6c 6c 6f 63 43 6f 54 61 73 6b 4d 65 6d 2f 46 72  llocCoTaskMem/Fr
3510: 65 65 43 6f 54 61 73 6b 4d 65 6d 20 66 6f 72 20  eeCoTaskMem for 
3520: 6d 65 6d 6f 72 79 3f 0d 0a 20 20 73 65 74 20 6e  memory?..  set n
3530: 6f 54 72 61 63 65 20 66 61 6c 73 65 3b 20 20 20  oTrace false;   
3540: 20 20 20 20 23 20 44 69 73 61 62 6c 65 20 53 51      # Disable SQ
3550: 4c 69 74 65 20 74 72 61 63 65 20 6c 6f 67 67 69  Lite trace loggi
3560: 6e 67 20 74 6f 20 61 20 66 69 6c 65 3f 0d 0a 20  ng to a file?.. 
3570: 20 73 65 74 20 62 65 67 69 6e 54 72 61 6e 73 61   set beginTransa
3580: 63 74 69 6f 6e 20 22 22 3b 20 23 20 53 51 4c 20  ction ""; # SQL 
3590: 6a 75 73 74 20 62 65 66 6f 72 65 20 6d 6f 64 69  just before modi
35a0: 66 79 69 6e 67 20 74 68 65 20 64 61 74 61 62 61  fying the databa
35b0: 73 65 2e 0d 0a 20 20 73 65 74 20 65 6e 64 54 72  se...  set endTr
35c0: 61 6e 73 61 63 74 69 6f 6e 20 22 22 3b 20 20 20  ansaction "";   
35d0: 23 20 53 51 4c 20 6a 75 73 74 20 61 66 74 65 72  # SQL just after
35e0: 20 6d 6f 64 69 66 79 69 6e 67 20 74 68 65 20 64   modifying the d
35f0: 61 74 61 62 61 73 65 2e 0d 0a 20 20 73 65 74 20  atabase...  set 
3600: 65 72 72 6f 72 54 72 61 6e 73 61 63 74 69 6f 6e  errorTransaction
3610: 20 22 22 3b 20 23 20 53 51 4c 20 6a 75 73 74 20   ""; # SQL just 
3620: 61 66 74 65 72 20 61 20 64 61 74 61 62 61 73 65  after a database
3630: 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 65 72   modification er
3640: 72 6f 72 2e 0d 0a 0d 0a 20 20 23 23 23 23 23 23  ror.....  ######
3650: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3660: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3670: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3680: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3690: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a  #######....  #..
36a0: 20 20 23 20 4e 4f 54 45 3a 20 49 66 20 63 6f 6d    # NOTE: If com
36b0: 6d 61 6e 64 20 6c 69 6e 65 20 61 72 67 75 6d 65  mand line argume
36c0: 6e 74 73 20 74 6f 20 74 68 65 20 74 65 73 74 20  nts to the test 
36d0: 73 75 69 74 65 20 61 72 65 20 61 76 61 69 6c 61  suite are availa
36e0: 62 6c 65 2c 20 70 72 6f 63 65 73 73 0d 0a 20 20  ble, process..  
36f0: 23 20 20 20 20 20 20 20 74 68 65 6d 20 66 6f 72  #       them for
3700: 20 61 6e 79 20 6f 70 74 69 6f 6e 73 20 74 68 61   any options tha
3710: 74 20 61 72 65 20 61 70 70 6c 69 63 61 62 6c 65  t are applicable
3720: 20 74 6f 20 74 68 69 73 20 74 65 73 74 20 28 69   to this test (i
3730: 2e 65 2e 20 61 6e 79 20 6f 66 0d 0a 20 20 23 20  .e. any of..  # 
3740: 20 20 20 20 20 20 74 68 65 20 74 75 6e 61 62 6c        the tunabl
3750: 65 20 77 6f 72 6b 6c 6f 61 64 20 70 61 72 61 6d  e workload param
3760: 65 74 65 72 73 20 6c 69 73 74 65 64 20 61 62 6f  eters listed abo
3770: 76 65 29 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20  ve)...  #..  if 
3780: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 61 72  {[info exists ar
3790: 67 76 5d 20 26 26 20 5b 6c 6c 65 6e 67 74 68 20  gv] && [llength 
37a0: 24 61 72 67 76 5d 20 3e 20 30 7d 20 74 68 65 6e  $argv] > 0} then
37b0: 20 7b 0d 0a 20 20 20 20 70 61 72 73 65 20 6f 70   {..    parse op
37c0: 74 69 6f 6e 73 20 2d 66 6c 61 67 73 20 5c 0d 0a  tions -flags \..
37d0: 20 20 20 20 20 20 20 20 7b 2d 53 74 6f 70 4f 6e          {-StopOn
37e0: 55 6e 6b 6e 6f 77 6e 4f 70 74 69 6f 6e 20 2b 49  UnknownOption +I
37f0: 67 6e 6f 72 65 4f 6e 55 6e 6b 6e 6f 77 6e 4f 70  gnoreOnUnknownOp
3800: 74 69 6f 6e 20 53 6b 69 70 4f 6e 55 6e 6b 6e 6f  tion SkipOnUnkno
3810: 77 6e 4f 70 74 69 6f 6e 7d 20 2d 2d 20 5c 0d 0a  wnOption} -- \..
3820: 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20 5b 6c          [list [l
3830: 69 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76  ist null MustHav
3840: 65 49 6e 74 65 67 65 72 56 61 6c 75 65 20 2d 31  eIntegerValue -1
3850: 20 2d 31 20 2d 63 6f 75 6e 74 30 20 24 63 6f 75   -1 -count0 $cou
3860: 6e 74 28 30 29 5d 20 5c 0d 0a 20 20 20 20 20 20  nt(0)] \..      
3870: 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d 75 73    [list null Mus
3880: 74 48 61 76 65 49 6e 74 65 67 65 72 56 61 6c 75  tHaveIntegerValu
3890: 65 20 2d 31 20 2d 31 20 2d 63 6f 75 6e 74 31 20  e -1 -1 -count1 
38a0: 24 63 6f 75 6e 74 28 31 29 5d 20 5c 0d 0a 20 20  $count(1)] \..  
38b0: 20 20 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c        [list null
38c0: 20 4d 75 73 74 48 61 76 65 49 6e 74 65 67 65 72   MustHaveInteger
38d0: 56 61 6c 75 65 20 2d 31 20 2d 31 20 2d 63 6f 75  Value -1 -1 -cou
38e0: 6e 74 32 20 24 63 6f 75 6e 74 28 32 29 5d 20 5c  nt2 $count(2)] \
38f0: 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20  ..        [list 
3900: 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 49 6e 74  null MustHaveInt
3910: 65 67 65 72 56 61 6c 75 65 20 2d 31 20 2d 31 20  egerValue -1 -1 
3920: 2d 63 6f 75 6e 74 33 20 24 63 6f 75 6e 74 28 33  -count3 $count(3
3930: 29 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c  )] \..        [l
3940: 69 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76  ist null MustHav
3950: 65 49 6e 74 65 67 65 72 56 61 6c 75 65 20 2d 31  eIntegerValue -1
3960: 20 2d 31 20 2d 63 6f 75 6e 74 34 20 24 63 6f 75   -1 -count4 $cou
3970: 6e 74 28 34 29 5d 20 5c 0d 0a 20 20 20 20 20 20  nt(4)] \..      
3980: 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d 75 73    [list null Mus
3990: 74 48 61 76 65 49 6e 74 65 67 65 72 56 61 6c 75  tHaveIntegerValu
39a0: 65 20 2d 31 20 2d 31 20 2d 63 6f 75 6e 74 35 20  e -1 -1 -count5 
39b0: 24 63 6f 75 6e 74 28 35 29 5d 20 5c 0d 0a 20 20  $count(5)] \..  
39c0: 20 20 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c        [list null
39d0: 20 4d 75 73 74 48 61 76 65 49 6e 74 65 67 65 72   MustHaveInteger
39e0: 56 61 6c 75 65 20 2d 31 20 2d 31 20 2d 63 6f 75  Value -1 -1 -cou
39f0: 6e 74 36 20 24 63 6f 75 6e 74 28 36 29 5d 20 5c  nt6 $count(6)] \
3a00: 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20  ..        [list 
3a10: 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 49 6e 74  null MustHaveInt
3a20: 65 67 65 72 56 61 6c 75 65 20 2d 31 20 2d 31 20  egerValue -1 -1 
3a30: 2d 63 6f 75 6e 74 37 20 24 63 6f 75 6e 74 28 37  -count7 $count(7
3a40: 29 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c  )] \..        [l
3a50: 69 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76  ist null MustHav
3a60: 65 49 6e 74 65 67 65 72 56 61 6c 75 65 20 2d 31  eIntegerValue -1
3a70: 20 2d 31 20 2d 63 6f 75 6e 74 38 20 24 63 6f 75   -1 -count8 $cou
3a80: 6e 74 28 38 29 5d 20 5c 0d 0a 20 20 20 20 20 20  nt(8)] \..      
3a90: 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d 75 73    [list null Mus
3aa0: 74 48 61 76 65 56 61 6c 75 65 20 2d 31 20 2d 31  tHaveValue -1 -1
3ab0: 20 2d 6a 6f 75 72 6e 61 6c 4d 6f 64 65 20 24 6a   -journalMode $j
3ac0: 6f 75 72 6e 61 6c 4d 6f 64 65 5d 20 5c 0d 0a 20  ournalMode] \.. 
3ad0: 20 20 20 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c         [list nul
3ae0: 6c 20 4d 75 73 74 48 61 76 65 49 6e 74 65 67 65  l MustHaveIntege
3af0: 72 56 61 6c 75 65 20 2d 31 20 2d 31 20 2d 70 61  rValue -1 -1 -pa
3b00: 67 65 53 69 7a 65 20 24 70 61 67 65 53 69 7a 65  geSize $pageSize
3b10: 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69  ] \..        [li
3b20: 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65  st null MustHave
3b30: 4c 69 73 74 56 61 6c 75 65 20 2d 31 20 2d 31 20  ListValue -1 -1 
3b40: 2d 6e 6f 57 6f 72 6b 6c 6f 61 64 20 24 6e 6f 57  -noWorkload $noW
3b50: 6f 72 6b 6c 6f 61 64 5d 20 5c 0d 0a 20 20 20 20  orkload] \..    
3b60: 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d      [list null M
3b70: 75 73 74 48 61 76 65 4c 69 73 74 56 61 6c 75 65  ustHaveListValue
3b80: 20 2d 31 20 2d 31 20 2d 70 72 69 6f 72 69 74 69   -1 -1 -prioriti
3b90: 65 73 20 24 70 72 69 6f 72 69 74 69 65 73 5d 20  es $priorities] 
3ba0: 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 73 74  \..        [list
3bb0: 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 42 6f   null MustHaveBo
3bc0: 6f 6c 65 61 6e 56 61 6c 75 65 20 2d 31 20 2d 31  oleanValue -1 -1
3bd0: 20 2d 65 78 69 74 4f 6e 46 61 69 6c 20 24 65 78   -exitOnFail $ex
3be0: 69 74 4f 6e 46 61 69 6c 5d 20 5c 0d 0a 20 20 20  itOnFail] \..   
3bf0: 20 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20       [list null 
3c00: 4d 75 73 74 48 61 76 65 42 6f 6f 6c 65 61 6e 56  MustHaveBooleanV
3c10: 61 6c 75 65 20 2d 31 20 2d 31 20 2d 63 6f 54 61  alue -1 -1 -coTa
3c20: 73 6b 4d 65 6d 20 24 63 6f 54 61 73 6b 4d 65 6d  skMem $coTaskMem
3c30: 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69  ] \..        [li
3c40: 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65  st null MustHave
3c50: 42 6f 6f 6c 65 61 6e 56 61 6c 75 65 20 2d 31 20  BooleanValue -1 
3c60: 2d 31 20 2d 6e 6f 54 72 61 63 65 20 24 6e 6f 54  -1 -noTrace $noT
3c70: 72 61 63 65 5d 20 5c 0d 0a 20 20 20 20 20 20 20  race] \..       
3c80: 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d 75 73 74   [list null Must
3c90: 48 61 76 65 56 61 6c 75 65 20 2d 31 20 2d 31 20  HaveValue -1 -1 
3ca0: 2d 62 65 67 69 6e 54 72 61 6e 73 61 63 74 69 6f  -beginTransactio
3cb0: 6e 20 24 62 65 67 69 6e 54 72 61 6e 73 61 63 74  n $beginTransact
3cc0: 69 6f 6e 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20  ion] \..        
3cd0: 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48  [list null MustH
3ce0: 61 76 65 56 61 6c 75 65 20 2d 31 20 2d 31 20 2d  aveValue -1 -1 -
3cf0: 65 6e 64 54 72 61 6e 73 61 63 74 69 6f 6e 20 24  endTransaction $
3d00: 65 6e 64 54 72 61 6e 73 61 63 74 69 6f 6e 5d 20  endTransaction] 
3d10: 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 73 74  \..        [list
3d20: 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 56 61   null MustHaveVa
3d30: 6c 75 65 20 2d 31 20 2d 31 20 2d 65 72 72 6f 72  lue -1 -1 -error
3d40: 54 72 61 6e 73 61 63 74 69 6f 6e 20 24 65 72 72  Transaction $err
3d50: 6f 72 54 72 61 6e 73 61 63 74 69 6f 6e 5d 5d 20  orTransaction]] 
3d60: 5c 0d 0a 20 20 20 20 20 20 20 20 24 61 72 67 76  \..        $argv
3d70: 0d 0a 0d 0a 20 20 20 20 73 65 74 20 63 6f 75 6e  ....    set coun
3d80: 74 28 30 29 20 24 6f 70 74 69 6f 6e 73 28 2d 63  t(0) $options(-c
3d90: 6f 75 6e 74 30 2c 76 61 6c 75 65 29 0d 0a 20 20  ount0,value)..  
3da0: 20 20 73 65 74 20 63 6f 75 6e 74 28 31 29 20 24    set count(1) $
3db0: 6f 70 74 69 6f 6e 73 28 2d 63 6f 75 6e 74 31 2c  options(-count1,
3dc0: 76 61 6c 75 65 29 0d 0a 20 20 20 20 73 65 74 20  value)..    set 
3dd0: 63 6f 75 6e 74 28 32 29 20 24 6f 70 74 69 6f 6e  count(2) $option
3de0: 73 28 2d 63 6f 75 6e 74 32 2c 76 61 6c 75 65 29  s(-count2,value)
3df0: 0d 0a 20 20 20 20 73 65 74 20 63 6f 75 6e 74 28  ..    set count(
3e00: 33 29 20 24 6f 70 74 69 6f 6e 73 28 2d 63 6f 75  3) $options(-cou
3e10: 6e 74 33 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20  nt3,value)..    
3e20: 73 65 74 20 63 6f 75 6e 74 28 34 29 20 24 6f 70  set count(4) $op
3e30: 74 69 6f 6e 73 28 2d 63 6f 75 6e 74 34 2c 76 61  tions(-count4,va
3e40: 6c 75 65 29 0d 0a 20 20 20 20 73 65 74 20 63 6f  lue)..    set co
3e50: 75 6e 74 28 35 29 20 24 6f 70 74 69 6f 6e 73 28  unt(5) $options(
3e60: 2d 63 6f 75 6e 74 35 2c 76 61 6c 75 65 29 0d 0a  -count5,value)..
3e70: 20 20 20 20 73 65 74 20 63 6f 75 6e 74 28 36 29      set count(6)
3e80: 20 24 6f 70 74 69 6f 6e 73 28 2d 63 6f 75 6e 74   $options(-count
3e90: 36 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20 73 65  6,value)..    se
3ea0: 74 20 63 6f 75 6e 74 28 37 29 20 24 6f 70 74 69  t count(7) $opti
3eb0: 6f 6e 73 28 2d 63 6f 75 6e 74 37 2c 76 61 6c 75  ons(-count7,valu
3ec0: 65 29 0d 0a 20 20 20 20 73 65 74 20 63 6f 75 6e  e)..    set coun
3ed0: 74 28 38 29 20 24 6f 70 74 69 6f 6e 73 28 2d 63  t(8) $options(-c
3ee0: 6f 75 6e 74 38 2c 76 61 6c 75 65 29 0d 0a 20 20  ount8,value)..  
3ef0: 20 20 73 65 74 20 6a 6f 75 72 6e 61 6c 4d 6f 64    set journalMod
3f00: 65 20 24 6f 70 74 69 6f 6e 73 28 2d 6a 6f 75 72  e $options(-jour
3f10: 6e 61 6c 4d 6f 64 65 2c 76 61 6c 75 65 29 0d 0a  nalMode,value)..
3f20: 20 20 20 20 73 65 74 20 70 61 67 65 53 69 7a 65      set pageSize
3f30: 20 24 6f 70 74 69 6f 6e 73 28 2d 70 61 67 65 53   $options(-pageS
3f40: 69 7a 65 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20  ize,value)..    
3f50: 73 65 74 20 6e 6f 57 6f 72 6b 6c 6f 61 64 20 24  set noWorkload $
3f60: 6f 70 74 69 6f 6e 73 28 2d 6e 6f 57 6f 72 6b 6c  options(-noWorkl
3f70: 6f 61 64 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20  oad,value)..    
3f80: 73 65 74 20 70 72 69 6f 72 69 74 69 65 73 20 24  set priorities $
3f90: 6f 70 74 69 6f 6e 73 28 2d 70 72 69 6f 72 69 74  options(-priorit
3fa0: 69 65 73 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20  ies,value)..    
3fb0: 73 65 74 20 65 78 69 74 4f 6e 46 61 69 6c 20 24  set exitOnFail $
3fc0: 6f 70 74 69 6f 6e 73 28 2d 65 78 69 74 4f 6e 46  options(-exitOnF
3fd0: 61 69 6c 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20  ail,value)..    
3fe0: 73 65 74 20 63 6f 54 61 73 6b 4d 65 6d 20 24 6f  set coTaskMem $o
3ff0: 70 74 69 6f 6e 73 28 2d 63 6f 54 61 73 6b 4d 65  ptions(-coTaskMe
4000: 6d 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20 73 65  m,value)..    se
4010: 74 20 6e 6f 54 72 61 63 65 20 24 6f 70 74 69 6f  t noTrace $optio
4020: 6e 73 28 2d 6e 6f 54 72 61 63 65 2c 76 61 6c 75  ns(-noTrace,valu
4030: 65 29 0d 0a 20 20 20 20 73 65 74 20 62 65 67 69  e)..    set begi
4040: 6e 54 72 61 6e 73 61 63 74 69 6f 6e 20 24 6f 70  nTransaction $op
4050: 74 69 6f 6e 73 28 2d 62 65 67 69 6e 54 72 61 6e  tions(-beginTran
4060: 73 61 63 74 69 6f 6e 2c 76 61 6c 75 65 29 0d 0a  saction,value)..
4070: 20 20 20 20 73 65 74 20 65 6e 64 54 72 61 6e 73      set endTrans
4080: 61 63 74 69 6f 6e 20 24 6f 70 74 69 6f 6e 73 28  action $options(
4090: 2d 65 6e 64 54 72 61 6e 73 61 63 74 69 6f 6e 2c  -endTransaction,
40a0: 76 61 6c 75 65 29 0d 0a 20 20 20 20 73 65 74 20  value)..    set 
40b0: 65 72 72 6f 72 54 72 61 6e 73 61 63 74 69 6f 6e  errorTransaction
40c0: 20 24 6f 70 74 69 6f 6e 73 28 2d 65 72 72 6f 72   $options(-error
40d0: 54 72 61 6e 73 61 63 74 69 6f 6e 2c 76 61 6c 75  Transaction,valu
40e0: 65 29 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23  e)..  }....  ###
40f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4120: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4130: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20  ##########....  
4140: 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 4c 6f 61  #..  # NOTE: Loa
4150: 64 20 63 75 73 74 6f 6d 20 70 65 72 2d 75 73 65  d custom per-use
4160: 72 20 61 6e 64 2f 6f 72 20 70 65 72 2d 68 6f 73  r and/or per-hos
4170: 74 20 74 65 73 74 20 73 65 74 74 69 6e 67 73 2e  t test settings.
4180: 20 20 43 75 72 72 65 6e 74 6c 79 2c 20 74 68 69    Currently, thi
4190: 73 0d 0a 20 20 23 20 20 20 20 20 20 20 69 73 20  s..  #       is 
41a0: 64 6f 6e 65 20 61 66 74 65 72 20 70 72 6f 63 65  done after proce
41b0: 73 73 69 6e 67 20 74 68 65 20 63 6f 6d 6d 61 6e  ssing the comman
41c0: 64 20 6c 69 6e 65 20 6f 70 74 69 6f 6e 73 2e 20  d line options. 
41d0: 20 54 68 65 20 73 65 74 74 69 6e 67 73 20 66 69   The settings fi
41e0: 6c 65 0d 0a 20 20 23 20 20 20 20 20 20 20 73 68  le..  #       sh
41f0: 6f 75 6c 64 20 74 61 6b 65 20 69 6e 74 6f 20 61  ould take into a
4200: 63 63 6f 75 6e 74 20 74 68 65 20 65 78 69 73 74  ccount the exist
4210: 69 6e 67 20 77 6f 72 6b 6c 6f 61 64 20 70 61 72  ing workload par
4220: 61 6d 65 74 65 72 73 20 61 6e 64 20 61 76 6f 69  ameters and avoi
4230: 64 0d 0a 20 20 23 20 20 20 20 20 20 20 63 68 61  d..  #       cha
4240: 6e 67 69 6e 67 20 61 6e 79 20 74 68 61 74 20 6d  nging any that m
4250: 61 79 20 68 61 76 65 20 61 6c 72 65 61 64 79 20  ay have already 
4260: 62 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 2e  been overridden.
4270: 0d 0a 20 20 23 0d 0a 20 20 6c 6f 61 64 53 51 4c  ..  #..  loadSQL
4280: 69 74 65 54 65 73 74 53 65 74 74 69 6e 67 73 20  iteTestSettings 
4290: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 2e 73  $test_channel .s
42a0: 74 72 65 73 73 0d 0a 0d 0a 20 20 23 23 23 23 23  tress....  #####
42b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
42c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
42d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
42e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
42f0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d  ########....  #.
4300: 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 65 20 74  .  # NOTE: The t
4310: 72 61 63 65 20 6c 69 73 74 65 6e 65 72 20 75 73  race listener us
4320: 65 64 20 77 69 74 68 20 74 68 65 20 53 51 4c 69  ed with the SQLi
4330: 74 65 4c 6f 67 20 63 6c 61 73 73 20 74 6f 20 63  teLog class to c
4340: 61 70 74 75 72 65 20 6f 75 74 70 75 74 0d 0a 20  apture output.. 
4350: 20 23 20 20 20 20 20 20 20 66 72 6f 6d 20 74 68   #       from th
4360: 65 20 63 6f 72 65 20 53 51 4c 69 74 65 20 6c 69  e core SQLite li
4370: 62 72 61 72 79 20 72 65 71 75 69 72 65 73 20 69  brary requires i
4380: 74 73 20 6f 77 6e 20 6c 6f 67 20 66 69 6c 65 20  ts own log file 
4390: 62 65 63 61 75 73 65 20 74 68 65 0d 0a 20 20 23  because the..  #
43a0: 20 20 20 20 20 20 20 54 65 78 74 57 72 69 74 65         TextWrite
43b0: 72 54 72 61 63 65 4c 69 73 74 65 6e 65 72 20 63  rTraceListener c
43c0: 6c 61 73 73 20 6f 70 65 6e 73 20 61 6e 64 20 6c  lass opens and l
43d0: 6f 63 6b 73 20 74 68 65 20 6c 6f 67 20 66 69 6c  ocks the log fil
43e0: 65 20 69 74 20 75 73 65 73 0d 0a 20 20 23 20 20  e it uses..  #  
43f0: 20 20 20 20 20 61 73 20 74 68 65 20 62 61 73 69       as the basi
4400: 73 20 6f 66 20 74 68 65 20 6f 75 74 70 75 74 20  s of the output 
4410: 73 74 72 65 61 6d 2e 20 20 42 65 66 6f 72 65 20  stream.  Before 
4420: 74 68 69 73 20 74 65 73 74 20 69 73 20 63 6f 6d  this test is com
4430: 70 6c 65 74 65 2c 0d 0a 20 20 23 20 20 20 20 20  plete,..  #     
4440: 20 20 74 68 65 20 65 6e 74 69 72 65 20 63 6f 6e    the entire con
4450: 74 65 6e 74 73 20 6f 66 20 74 68 69 73 20 74 72  tents of this tr
4460: 61 63 65 20 6c 6f 67 20 66 69 6c 65 20 77 69 6c  ace log file wil
4470: 6c 20 62 65 20 63 6f 70 69 65 64 20 69 6e 74 6f  l be copied into
4480: 20 74 68 65 0d 0a 20 20 23 20 20 20 20 20 20 20   the..  #       
4490: 6d 61 69 6e 20 74 65 73 74 20 6c 6f 67 20 66 69  main test log fi
44a0: 6c 65 20 61 6e 64 20 74 68 65 6e 20 64 65 6c 65  le and then dele
44b0: 74 65 64 2e 0d 0a 20 20 23 0d 0a 20 20 69 66 20  ted...  #..  if 
44c0: 7b 21 24 6e 6f 54 72 61 63 65 7d 20 74 68 65 6e  {!$noTrace} then
44d0: 20 7b 0d 0a 20 20 20 20 73 65 74 20 6c 6f 67 46   {..    set logF
44e0: 69 6c 65 4e 61 6d 65 20 5b 61 70 70 65 6e 64 41  ileName [appendA
44f0: 72 67 73 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61  rgs [file rootna
4500: 6d 65 20 24 74 65 73 74 5f 6c 6f 67 5d 20 2e 74  me $test_log] .t
4510: 72 61 63 65 2e 6c 6f 67 5d 0d 0a 20 20 20 20 73  race.log]..    s
4520: 65 74 75 70 4c 6f 67 67 69 6e 67 20 24 6c 6f 67  etupLogging $log
4530: 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 7d 0d 0a 0d  FileName..  }...
4540: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
4550: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4570: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4580: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4590: 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 48 41 43  ....  #..  # HAC
45a0: 4b 3a 20 4d 61 6b 65 20 73 75 72 65 20 74 68 65  K: Make sure the
45b0: 20 65 66 66 65 63 74 69 76 65 20 63 6f 6e 6e 65   effective conne
45c0: 63 74 69 6f 6e 20 66 6c 61 67 73 20 66 6f 72 20  ction flags for 
45d0: 74 68 69 73 20 74 65 73 74 20 61 72 65 20 6c 6f  this test are lo
45e0: 67 67 65 64 2e 0d 0a 20 20 23 0d 0a 20 20 67 65  gged...  #..  ge
45f0: 74 43 6f 6e 6e 65 63 74 69 6f 6e 46 6c 61 67 73  tConnectionFlags
4600: 20 22 73 74 72 65 73 73 20 74 65 73 74 22 20 22   "stress test" "
4610: 22 20 66 61 6c 73 65 3b 20 23 20 49 47 4e 4f 52  " false; # IGNOR
4620: 45 44 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23  ED....  ########
4630: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4640: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4650: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4660: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4670: 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a 20 20  #####....  #..  
4680: 23 20 4e 4f 54 45 3a 20 49 6e 20 73 68 61 72 65  # NOTE: In share
4690: 64 2d 63 61 63 68 65 20 6d 6f 64 65 2c 20 73 6b  d-cache mode, sk
46a0: 69 70 20 74 68 65 20 62 61 63 6b 75 70 20 74 65  ip the backup te
46b0: 73 74 73 2e 20 20 54 68 65 20 53 51 4c 69 74 65  sts.  The SQLite
46c0: 20 63 6f 72 65 20 6c 69 62 72 61 72 79 0d 0a 20   core library.. 
46d0: 20 23 20 20 20 20 20 20 20 64 6f 63 75 6d 65 6e   #       documen
46e0: 74 61 74 69 6f 6e 20 73 74 61 74 65 73 3a 0d 0a  tation states:..
46f0: 20 20 23 0d 0a 20 20 23 20 20 20 20 20 20 20 22    #..  #       "
4700: 49 66 20 72 75 6e 6e 69 6e 67 20 69 6e 20 73 68  If running in sh
4710: 61 72 65 64 20 63 61 63 68 65 20 6d 6f 64 65 2c  ared cache mode,
4720: 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e   the application
4730: 20 6d 75 73 74 20 67 75 61 72 61 6e 74 65 65 0d   must guarantee.
4740: 0a 20 20 23 20 20 20 20 20 20 20 20 74 68 61 74  .  #        that
4750: 20 74 68 65 20 73 68 61 72 65 64 20 63 61 63 68   the shared cach
4760: 65 20 75 73 65 64 20 62 79 20 74 68 65 20 64 65  e used by the de
4770: 73 74 69 6e 61 74 69 6f 6e 20 64 61 74 61 62 61  stination databa
4780: 73 65 20 69 73 20 6e 6f 74 0d 0a 20 20 23 20 20  se is not..  #  
4790: 20 20 20 20 20 20 61 63 63 65 73 73 65 64 20 77        accessed w
47a0: 68 69 6c 65 20 74 68 65 20 62 61 63 6b 75 70 20  hile the backup 
47b0: 69 73 20 72 75 6e 6e 69 6e 67 2e 20 49 6e 20 70  is running. In p
47c0: 72 61 63 74 69 63 65 20 74 68 69 73 20 6d 65 61  ractice this mea
47d0: 6e 73 20 74 68 61 74 0d 0a 20 20 23 20 20 20 20  ns that..  #    
47e0: 20 20 20 20 74 68 65 20 61 70 70 6c 69 63 61 74      the applicat
47f0: 69 6f 6e 20 6d 75 73 74 20 67 75 61 72 61 6e 74  ion must guarant
4800: 65 65 20 74 68 61 74 20 74 68 65 20 64 69 73 6b  ee that the disk
4810: 20 66 69 6c 65 20 62 65 69 6e 67 20 62 61 63 6b   file being back
4820: 65 64 20 75 70 0d 0a 20 20 23 20 20 20 20 20 20  ed up..  #      
4830: 20 20 74 6f 20 69 73 20 6e 6f 74 20 61 63 63 65    to is not acce
4840: 73 73 65 64 20 62 79 20 61 6e 79 20 63 6f 6e 6e  ssed by any conn
4850: 65 63 74 69 6f 6e 20 77 69 74 68 69 6e 20 74 68  ection within th
4860: 65 20 70 72 6f 63 65 73 73 2c 20 6e 6f 74 20 6a  e process, not j
4870: 75 73 74 0d 0a 20 20 23 20 20 20 20 20 20 20 20  ust..  #        
4880: 74 68 65 20 73 70 65 63 69 66 69 63 20 63 6f 6e  the specific con
4890: 6e 65 63 74 69 6f 6e 20 74 68 61 74 20 77 61 73  nection that was
48a0: 20 70 61 73 73 65 64 20 74 6f 20 73 71 6c 69 74   passed to sqlit
48b0: 65 33 5f 62 61 63 6b 75 70 5f 69 6e 69 74 28 29  e3_backup_init()
48c0: 2e 22 0d 0a 20 20 23 0d 0a 20 20 23 20 20 20 20  ."..  #..  #    
48d0: 20 20 20 54 68 65 20 6f 6e 6c 79 20 72 65 61 73     The only reas
48e0: 6f 6e 61 62 6c 65 20 77 61 79 20 74 68 61 74 20  onable way that 
48f0: 74 68 69 73 20 74 65 73 74 20 63 61 6e 20 67 75  this test can gu
4900: 61 72 61 6e 74 65 65 20 74 68 69 73 20 63 6f 6e  arantee this con
4910: 64 69 74 69 6f 6e 0d 0a 20 20 23 20 20 20 20 20  dition..  #     
4920: 20 20 69 73 20 74 6f 20 64 69 73 61 62 6c 65 20    is to disable 
4930: 74 68 65 20 62 61 63 6b 75 70 20 74 65 73 74 73  the backup tests
4940: 20 77 68 65 6e 20 73 68 61 72 65 64 2d 63 61 63   when shared-cac
4950: 68 65 20 6d 6f 64 65 20 69 73 20 62 65 69 6e 67  he mode is being
4960: 20 75 73 65 64 0d 0a 20 20 23 20 20 20 20 20 20   used..  #      
4970: 20 66 6f 72 20 74 65 73 74 69 6e 67 2e 0d 0a 20   for testing... 
4980: 20 23 0d 0a 20 20 23 20 54 4f 44 4f 3a 20 55 70   #..  # TODO: Up
4990: 64 61 74 65 20 74 68 65 73 65 20 69 66 20 74 68  date these if th
49a0: 65 20 77 6f 72 6b 6c 6f 61 64 20 6e 75 6d 62 65  e workload numbe
49b0: 72 73 20 63 68 61 6e 67 65 2e 0d 0a 20 20 23 0d  rs change...  #.
49c0: 0a 20 20 69 66 20 7b 5b 68 61 73 52 75 6e 74 69  .  if {[hasRunti
49d0: 6d 65 4f 70 74 69 6f 6e 20 73 68 61 72 65 64 43  meOption sharedC
49e0: 61 63 68 65 5d 20 7c 7c 20 5b 68 61 73 52 75 6e  ache] || [hasRun
49f0: 74 69 6d 65 4f 70 74 69 6f 6e 20 64 6d 6c 4f 6e  timeOption dmlOn
4a00: 6c 79 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ly]} then {..   
4a10: 20 6c 61 70 70 65 6e 64 20 6e 6f 57 6f 72 6b 6c   lappend noWorkl
4a20: 6f 61 64 20 31 32 3b 20 23 20 4e 4f 54 45 3a 20  oad 12; # NOTE: 
4a30: 42 61 63 6b 75 70 20 74 6f 20 69 6e 2d 6d 65 6d  Backup to in-mem
4a40: 6f 72 79 20 64 61 74 61 62 61 73 65 2e 0d 0a 20  ory database... 
4a50: 20 20 20 6c 61 70 70 65 6e 64 20 6e 6f 57 6f 72     lappend noWor
4a60: 6b 6c 6f 61 64 20 31 33 3b 20 23 20 4e 4f 54 45  kload 13; # NOTE
4a70: 3a 20 42 61 63 6b 75 70 20 66 72 6f 6d 20 69 6e  : Backup from in
4a80: 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73 65  -memory database
4a90: 2e 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 0d 0a 20  ...  }....  #.. 
4aa0: 20 23 20 4e 4f 54 45 3a 20 4f 6d 69 74 20 73 6f   # NOTE: Omit so
4ab0: 6d 65 20 77 6f 72 6b 6c 6f 61 64 73 20 69 66 20  me workloads if 
4ac0: 77 65 20 61 72 65 20 6f 6e 6c 79 20 69 6e 74 65  we are only inte
4ad0: 72 65 73 74 65 64 20 69 6e 20 64 61 74 61 20 6d  rested in data m
4ae0: 61 6e 69 70 75 6c 61 74 69 6f 6e 0d 0a 20 20 23  anipulation..  #
4af0: 20 20 20 20 20 20 20 28 44 4d 4c 29 20 73 74 61         (DML) sta
4b00: 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 23 0d 0a 20  tements...  #.. 
4b10: 20 23 20 54 4f 44 4f 3a 20 55 70 64 61 74 65 20   # TODO: Update 
4b20: 74 68 65 73 65 20 69 66 20 74 68 65 20 77 6f 72  these if the wor
4b30: 6b 6c 6f 61 64 20 6e 75 6d 62 65 72 73 20 63 68  kload numbers ch
4b40: 61 6e 67 65 2e 0d 0a 20 20 23 0d 0a 20 20 69 66  ange...  #..  if
4b50: 20 7b 5b 68 61 73 52 75 6e 74 69 6d 65 4f 70 74   {[hasRuntimeOpt
4b60: 69 6f 6e 20 64 6d 6c 4f 6e 6c 79 5d 7d 20 74 68  ion dmlOnly]} th
4b70: 65 6e 20 7b 0d 0a 20 20 20 20 6c 61 70 70 65 6e  en {..    lappen
4b80: 64 20 6e 6f 57 6f 72 6b 6c 6f 61 64 20 20 31 3b  d noWorkload  1;
4b90: 20 23 20 4e 4f 54 45 3a 20 43 52 45 41 54 45 20   # NOTE: CREATE 
4ba0: 54 41 42 4c 45 0d 0a 20 20 20 20 6c 61 70 70 65  TABLE..    lappe
4bb0: 6e 64 20 6e 6f 57 6f 72 6b 6c 6f 61 64 20 20 32  nd noWorkload  2
4bc0: 3b 20 23 20 4e 4f 54 45 3a 20 44 52 4f 50 20 54  ; # NOTE: DROP T
4bd0: 41 42 4c 45 0d 0a 20 20 20 20 6c 61 70 70 65 6e  ABLE..    lappen
4be0: 64 20 6e 6f 57 6f 72 6b 6c 6f 61 64 20 31 37 3b  d noWorkload 17;
4bf0: 20 23 20 4e 4f 54 45 3a 20 50 52 41 47 4d 41 20   # NOTE: PRAGMA 
4c00: 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 0d 0a 20 20  journal_mode..  
4c10: 20 20 6c 61 70 70 65 6e 64 20 6e 6f 57 6f 72 6b    lappend noWork
4c20: 6c 6f 61 64 20 32 32 3b 20 23 20 4e 4f 54 45 3a  load 22; # NOTE:
4c30: 20 50 52 41 47 4d 41 20 64 65 66 61 75 6c 74 5f   PRAGMA default_
4c40: 63 61 63 68 65 5f 73 69 7a 65 0d 0a 20 20 7d 0d  cache_size..  }.
4c50: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
4c60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4c70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4c80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4c90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ca0: 23 23 0d 0a 0d 0a 20 20 74 70 75 74 73 20 24 74  ##....  tputs $t
4cb0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
4cc0: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
4cd0: 20 22 2d 2d 2d 2d 20 77 6f 72 6b 6c 6f 61 64 73   "---- workloads
4ce0: 20 77 69 6c 6c 20 72 65 70 65 61 74 20 22 20 24   will repeat " $
4cf0: 63 6f 75 6e 74 28 30 29 20 22 20 74 69 6d 65 28  count(0) " time(
4d00: 73 29 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74  s)\n"]....  tput
4d10: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  s $test_channel 
4d20: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
4d30: 20 20 20 20 20 22 2d 2d 2d 2d 20 77 6f 72 6b 6c       "---- workl
4d40: 6f 61 64 73 20 77 69 6c 6c 20 68 61 76 65 20 22  oads will have "
4d50: 20 24 63 6f 75 6e 74 28 31 29 20 22 20 69 74 65   $count(1) " ite
4d60: 72 61 74 69 6f 6e 28 73 29 5c 6e 22 5d 0d 0a 0d  ration(s)\n"]...
4d70: 0a 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63  .  tputs $test_c
4d80: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
4d90: 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d  gs \..      "---
4da0: 2d 20 77 6f 72 6b 6c 6f 61 64 73 20 77 69 6c 6c  - workloads will
4db0: 20 77 61 69 74 20 61 74 20 6c 65 61 73 74 20 22   wait at least "
4dc0: 20 24 63 6f 75 6e 74 28 32 29 20 5c 0d 0a 20 20   $count(2) \..  
4dd0: 20 20 20 20 22 20 6d 69 6c 6c 69 73 65 63 6f 6e      " millisecon
4de0: 64 28 73 29 20 61 66 74 65 72 20 65 61 63 68 20  d(s) after each 
4df0: 69 74 65 72 61 74 69 6f 6e 5c 6e 22 5d 0d 0a 0d  iteration\n"]...
4e00: 0a 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63  .  tputs $test_c
4e10: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
4e20: 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d  gs \..      "---
4e30: 2d 20 73 6d 61 6c 6c 20 63 68 75 6e 6b 20 73 69  - small chunk si
4e40: 7a 65 20 69 73 20 22 20 24 63 6f 75 6e 74 28 33  ze is " $count(3
4e50: 29 20 22 20 62 79 74 65 28 73 29 5c 6e 22 5d 0d  ) " byte(s)\n"].
4e60: 0a 0d 0a 20 20 74 70 75 74 73 20 24 74 65 73 74  ...  tputs $test
4e70: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
4e80: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d  Args \..      "-
4e90: 2d 2d 2d 20 62 69 67 20 63 68 75 6e 6b 20 73 69  --- big chunk si
4ea0: 7a 65 20 69 73 20 22 20 24 63 6f 75 6e 74 28 34  ze is " $count(4
4eb0: 29 20 22 20 62 79 74 65 28 73 29 5c 6e 22 5d 0d  ) " byte(s)\n"].
4ec0: 0a 0d 0a 20 20 74 70 75 74 73 20 24 74 65 73 74  ...  tputs $test
4ed0: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
4ee0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d  Args \..      "-
4ef0: 2d 2d 2d 20 6d 61 78 69 6d 75 6d 20 65 78 63 6c  --- maximum excl
4f00: 75 64 65 64 20 68 65 61 70 20 6d 65 6d 6f 72 79  uded heap memory
4f10: 20 69 73 20 22 20 24 63 6f 75 6e 74 28 35 29 20   is " $count(5) 
4f20: 22 20 62 79 74 65 28 73 29 5c 6e 22 5d 0d 0a 0d  " byte(s)\n"]...
4f30: 0a 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63  .  tputs $test_c
4f40: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
4f50: 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d  gs \..      "---
4f60: 2d 20 77 6f 72 6b 6c 6f 61 64 73 20 77 69 6c 6c  - workloads will
4f70: 20 68 61 76 65 20 61 6e 20 61 75 78 69 6c 69 61   have an auxilia
4f80: 72 79 20 69 74 65 72 61 74 69 6f 6e 20 63 6f 75  ry iteration cou
4f90: 6e 74 20 6f 66 20 22 20 5c 0d 0a 20 20 20 20 20  nt of " \..     
4fa0: 20 24 63 6f 75 6e 74 28 36 29 20 5c 6e 5d 0d 0a   $count(6) \n]..
4fb0: 0d 0a 20 20 74 70 75 74 73 20 24 74 65 73 74 5f  ..  tputs $test_
4fc0: 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41  channel [appendA
4fd0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d  rgs \..      "--
4fe0: 2d 2d 20 77 6f 72 6b 6c 6f 61 64 73 20 77 69 6c  -- workloads wil
4ff0: 6c 20 68 61 76 65 20 61 6e 20 61 75 78 69 6c 69  l have an auxili
5000: 61 72 79 20 69 74 65 72 61 74 69 6f 6e 20 64 65  ary iteration de
5010: 6c 61 79 20 6f 66 20 22 20 5c 0d 0a 20 20 20 20  lay of " \..    
5020: 20 20 24 63 6f 75 6e 74 28 37 29 20 22 20 6d 69    $count(7) " mi
5030: 6c 6c 69 73 65 63 6f 6e 64 28 73 29 5c 6e 22 5d  llisecond(s)\n"]
5040: 0d 0a 0d 0a 20 20 74 70 75 74 73 20 24 74 65 73  ....  tputs $tes
5050: 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e  t_channel [appen
5060: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 22  dArgs \..      "
5070: 2d 2d 2d 2d 20 77 6f 72 6b 6c 6f 61 64 73 20 77  ---- workloads w
5080: 69 6c 6c 20 68 61 76 65 20 61 6e 20 61 75 78 69  ill have an auxi
5090: 6c 69 61 72 79 20 64 61 74 61 20 76 61 6c 75 65  liary data value
50a0: 20 6f 66 20 22 20 5c 0d 0a 20 20 20 20 20 20 24   of " \..      $
50b0: 63 6f 75 6e 74 28 38 29 20 5c 6e 5d 0d 0a 0d 0a  count(8) \n]....
50c0: 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 68    tputs $test_ch
50d0: 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67  annel [appendArg
50e0: 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d 2d  s \..      "----
50f0: 20 74 68 65 20 69 6e 69 74 69 61 6c 20 6a 6f 75   the initial jou
5100: 72 6e 61 6c 20 6d 6f 64 65 20 69 73 20 22 20 5c  rnal mode is " \
5110: 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b 5b  ..      [expr {[
5120: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6a  string length $j
5130: 6f 75 72 6e 61 6c 4d 6f 64 65 5d 20 3e 20 30 20  ournalMode] > 0 
5140: 3f 20 24 6a 6f 75 72 6e 61 6c 4d 6f 64 65 20 3a  ? $journalMode :
5150: 20 22 6e 6f 6e 65 22 7d 5d 20 5c 6e 5d 0d 0a 0d   "none"}] \n]...
5160: 0a 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63  .  tputs $test_c
5170: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
5180: 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d  gs \..      "---
5190: 2d 20 74 68 65 20 69 6e 69 74 69 61 6c 20 70 61  - the initial pa
51a0: 67 65 20 73 69 7a 65 20 69 73 20 22 20 5c 0d 0a  ge size is " \..
51b0: 20 20 20 20 20 20 5b 65 78 70 72 20 7b 5b 73 74        [expr {[st
51c0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 70 61 67  ring length $pag
51d0: 65 53 69 7a 65 5d 20 3e 20 30 20 3f 20 24 70 61  eSize] > 0 ? $pa
51e0: 67 65 53 69 7a 65 20 3a 20 22 6e 6f 6e 65 22 7d  geSize : "none"}
51f0: 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 74 70 75 74 73  ] \n]....  tputs
5200: 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b   $test_channel [
5210: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..  
5220: 20 20 20 20 22 2d 2d 2d 2d 20 77 6f 72 6b 6c 6f      "---- worklo
5230: 61 64 73 20 74 6f 20 62 65 20 73 6b 69 70 70 65  ads to be skippe
5240: 64 2e 2e 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20  d... " \..      
5250: 5b 65 78 70 72 20 7b 5b 6c 6c 65 6e 67 74 68 20  [expr {[llength 
5260: 24 6e 6f 57 6f 72 6b 6c 6f 61 64 5d 20 3e 20 30  $noWorkload] > 0
5270: 20 3f 20 24 6e 6f 57 6f 72 6b 6c 6f 61 64 20 3a   ? $noWorkload :
5280: 20 22 6e 6f 6e 65 22 7d 5d 20 5c 6e 5d 0d 0a 0d   "none"}] \n]...
5290: 0a 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63  .  tputs $test_c
52a0: 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72  hannel [appendAr
52b0: 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d  gs \..      "---
52c0: 2d 20 77 6f 72 6b 6c 6f 61 64 73 20 70 72 69 6f  - workloads prio
52d0: 72 69 74 79 20 6f 76 65 72 72 69 64 65 73 2e 2e  rity overrides..
52e0: 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78  . " \..      [ex
52f0: 70 72 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 70 72  pr {[llength $pr
5300: 69 6f 72 69 74 69 65 73 5d 20 3e 20 30 20 3f 20  iorities] > 0 ? 
5310: 24 70 72 69 6f 72 69 74 69 65 73 20 3a 20 22 6e  $priorities : "n
5320: 6f 6e 65 22 7d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20  one"}] \n]....  
5330: 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e  tputs $test_chan
5340: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
5350: 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d 2d 20 75  \..      "---- u
5360: 6e 65 78 70 65 63 74 65 64 20 65 72 72 6f 72 73  nexpected errors
5370: 20 22 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70   " \..      [exp
5380: 72 20 7b 24 65 78 69 74 4f 6e 46 61 69 6c 20 3f  r {$exitOnFail ?
5390: 20 22 77 69 6c 6c 22 20 3a 20 22 77 69 6c 6c 20   "will" : "will 
53a0: 6e 6f 74 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20  not"}] \..      
53b0: 22 20 68 61 6c 74 20 74 65 73 74 69 6e 67 20 61  " halt testing a
53c0: 6e 64 20 65 78 69 74 20 74 68 65 20 70 72 6f 63  nd exit the proc
53d0: 65 73 73 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75  ess\n"]....  tpu
53e0: 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c  ts $test_channel
53f0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
5400: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 74 68 65 20        "---- the 
5410: 22 20 5b 65 78 70 72 20 7b 24 63 6f 54 61 73 6b  " [expr {$coTask
5420: 4d 65 6d 20 3f 20 22 43 6f 54 61 73 6b 4d 65 6d  Mem ? "CoTaskMem
5430: 22 20 3a 20 22 53 51 4c 69 74 65 22 7d 5d 20 5c  " : "SQLite"}] \
5440: 0d 0a 20 20 20 20 20 20 22 20 61 6c 6c 6f 63 61  ..      " alloca
5450: 74 6f 72 20 77 69 6c 6c 20 62 65 20 75 73 65 64  tor will be used
5460: 20 74 6f 20 65 78 63 6c 75 64 65 20 68 65 61 70   to exclude heap
5470: 20 6d 65 6d 6f 72 79 5c 6e 22 5d 0d 0a 0d 0a 20   memory\n"].... 
5480: 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 61   tputs $test_cha
5490: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
54a0: 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d 2d 20   \..      "---- 
54b0: 74 72 61 63 65 20 6c 6f 67 67 69 6e 67 20 74 6f  trace logging to
54c0: 20 61 20 66 69 6c 65 20 69 73 20 22 20 5c 0d 0a   a file is " \..
54d0: 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24 6e 6f        [expr {$no
54e0: 54 72 61 63 65 20 3f 20 22 64 69 73 61 62 6c 65  Trace ? "disable
54f0: 64 22 20 3a 20 22 65 6e 61 62 6c 65 64 22 7d 5d  d" : "enabled"}]
5500: 20 5c 6e 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20   \n]....  tputs 
5510: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  $test_channel [a
5520: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
5530: 20 20 20 22 2d 2d 2d 2d 20 62 65 67 69 6e 20 74     "---- begin t
5540: 72 61 6e 73 61 63 74 69 6f 6e 20 53 51 4c 20 69  ransaction SQL i
5550: 73 20 22 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78  s " \..      [ex
5560: 70 72 20 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67  pr {[string leng
5570: 74 68 20 24 62 65 67 69 6e 54 72 61 6e 73 61 63  th $beginTransac
5580: 74 69 6f 6e 5d 20 3e 20 30 20 3f 20 5c 0d 0a 20  tion] > 0 ? \.. 
5590: 20 20 20 20 20 5b 61 70 70 65 6e 64 41 72 67 73       [appendArgs
55a0: 20 5c 22 20 24 62 65 67 69 6e 54 72 61 6e 73 61   \" $beginTransa
55b0: 63 74 69 6f 6e 20 5c 22 5d 20 3a 20 22 6e 6f 6e  ction \"] : "non
55c0: 65 22 7d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 74 70  e"}] \n]....  tp
55d0: 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65  uts $test_channe
55e0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
55f0: 0a 20 20 20 20 20 20 22 2d 2d 2d 2d 20 65 6e 64  .      "---- end
5600: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 53 51 4c   transaction SQL
5610: 20 69 73 20 22 20 5c 0d 0a 20 20 20 20 20 20 5b   is " \..      [
5620: 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 6c 65  expr {[string le
5630: 6e 67 74 68 20 24 65 6e 64 54 72 61 6e 73 61 63  ngth $endTransac
5640: 74 69 6f 6e 5d 20 3e 20 30 20 3f 20 5c 0d 0a 20  tion] > 0 ? \.. 
5650: 20 20 20 20 20 5b 61 70 70 65 6e 64 41 72 67 73       [appendArgs
5660: 20 5c 22 20 24 65 6e 64 54 72 61 6e 73 61 63 74   \" $endTransact
5670: 69 6f 6e 20 5c 22 5d 20 3a 20 22 6e 6f 6e 65 22  ion \"] : "none"
5680: 7d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 74 70 75 74  }] \n]....  tput
5690: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  s $test_channel 
56a0: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
56b0: 20 20 20 20 20 22 2d 2d 2d 2d 20 65 72 72 6f 72       "---- error
56c0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 53 51 4c   transaction SQL
56d0: 20 69 73 20 22 20 5c 0d 0a 20 20 20 20 20 20 5b   is " \..      [
56e0: 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 6c 65  expr {[string le
56f0: 6e 67 74 68 20 24 65 72 72 6f 72 54 72 61 6e 73  ngth $errorTrans
5700: 61 63 74 69 6f 6e 5d 20 3e 20 30 20 3f 20 5c 0d  action] > 0 ? \.
5710: 0a 20 20 20 20 20 20 5b 61 70 70 65 6e 64 41 72  .      [appendAr
5720: 67 73 20 5c 22 20 24 65 72 72 6f 72 54 72 61 6e  gs \" $errorTran
5730: 73 61 63 74 69 6f 6e 20 5c 22 5d 20 3a 20 22 6e  saction \"] : "n
5740: 6f 6e 65 22 7d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20  one"}] \n]....  
5750: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5760: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5770: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5780: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5790: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
57a0: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
57b0: 43 72 65 61 74 65 20 74 68 65 20 77 6f 72 6b 6c  Create the workl
57c0: 6f 61 64 20 70 72 69 6f 72 69 74 79 20 61 72 72  oad priority arr
57d0: 61 79 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20  ay based on the 
57e0: 70 72 69 6f 72 69 74 79 20 6c 69 73 74 20 73 65  priority list se
57f0: 65 6e 0d 0a 20 20 23 20 20 20 20 20 20 20 6f 6e  en..  #       on
5800: 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e   the command lin
5810: 65 2c 20 69 66 20 61 6e 79 2e 0d 0a 20 20 23 0d  e, if any...  #.
5820: 0a 20 20 61 72 72 61 79 20 73 65 74 20 70 72 69  .  array set pri
5830: 6f 72 69 74 79 20 24 70 72 69 6f 72 69 74 69 65  ority $prioritie
5840: 73 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23  s....  #########
5850: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5860: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5870: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5880: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5890: 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23  ####....  #..  #
58a0: 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 73   NOTE: Workloads
58b0: 20 23 31 32 20 61 6e 64 20 23 31 33 20 63 6f 6e   #12 and #13 con
58c0: 74 61 69 6e 20 43 23 20 63 6f 64 65 20 74 68 61  tain C# code tha
58d0: 74 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6d 70  t should be comp
58e0: 69 6c 65 64 2c 20 62 75 74 0d 0a 20 20 23 20 20  iled, but..  #  
58f0: 20 20 20 20 20 6f 6e 6c 79 20 6f 6e 63 65 2e 20       only once. 
5900: 20 54 68 65 73 65 20 76 61 72 69 61 62 6c 65 73   These variables
5910: 20 6b 65 65 70 20 74 72 61 63 6b 20 6f 66 20 74   keep track of t
5920: 68 61 74 20 73 74 61 74 65 20 69 6e 66 6f 72 6d  hat state inform
5930: 61 74 69 6f 6e 2e 0d 0a 20 20 23 20 20 20 20 20  ation...  #     
5940: 20 20 41 6e 20 69 6e 74 65 67 65 72 20 76 61 6c    An integer val
5950: 75 65 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65  ue in one of the
5960: 73 65 20 76 61 72 69 61 62 6c 65 73 20 6d 65 61  se variables mea
5970: 6e 73 20 74 68 65 20 63 6f 6d 70 69 6c 61 74 69  ns the compilati
5980: 6f 6e 20 77 61 73 0d 0a 20 20 23 20 20 20 20 20  on was..  #     
5990: 20 20 63 6f 6d 70 6c 65 74 65 64 20 61 6e 64 20    completed and 
59a0: 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 63 6f  the resulting co
59b0: 6d 70 69 6c 65 64 20 6d 65 74 68 6f 64 20 6d 61  mpiled method ma
59c0: 79 20 62 65 20 69 6e 76 6f 6b 65 64 20 75 73 69  y be invoked usi
59d0: 6e 67 20 74 68 65 0d 0a 20 20 23 20 20 20 20 20  ng the..  #     
59e0: 20 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f 6d 6d    following comm
59f0: 61 6e 64 20 28 77 68 65 72 65 20 24 7b 69 64 7d  and (where ${id}
5a00: 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66   is the value of
5a10: 20 74 68 65 20 76 61 72 69 61 62 6c 65 29 3a 0d   the variable):.
5a20: 0a 20 20 23 0d 0a 20 20 23 20 20 20 20 20 20 20  .  #..  #       
5a30: 20 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b      object invok
5a40: 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e  e _Dynamic${id}.
5a50: 54 65 73 74 24 7b 69 64 7d 20 42 61 63 6b 75 70  Test${id} Backup
5a60: 41 6e 64 47 65 74 44 61 74 61 0d 0a 20 20 23 0d  AndGetData..  #.
5a70: 0a 20 20 73 65 74 20 63 6f 6d 70 69 6c 65 64 28  .  set compiled(
5a80: 31 32 29 20 22 22 0d 0a 20 20 73 65 74 20 63 6f  12) ""..  set co
5a90: 6d 70 69 6c 65 64 28 31 33 29 20 22 22 0d 0a 0d  mpiled(13) ""...
5aa0: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
5ab0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5ac0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5ad0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5ae0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5af0: 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54  ....  #..  # NOT
5b00: 45 3a 20 54 68 69 73 20 69 73 20 61 6e 20 69 6e  E: This is an in
5b10: 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73 65  -memory database
5b20: 20 77 69 74 68 20 73 68 61 72 65 64 20 63 61 63   with shared cac
5b30: 68 65 20 65 6e 61 62 6c 65 64 2e 0d 0a 20 20 23  he enabled...  #
5b40: 0d 0a 20 20 73 65 74 20 66 69 6c 65 4e 61 6d 65  ..  set fileName
5b50: 28 31 29 20 66 69 6c 65 3a 3a 6d 65 6d 6f 72 79  (1) file::memory
5b60: 3a 3f 63 61 63 68 65 3d 73 68 61 72 65 64 0d 0a  :?cache=shared..
5b70: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23  ..  ############
5b80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5b90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5ba0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5bb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5bc0: 23 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f  #....  #..  # NO
5bd0: 54 45 3a 20 54 68 69 73 20 69 73 20 61 20 6e 6f  TE: This is a no
5be0: 72 6d 61 6c 20 6f 6e 2d 64 69 73 6b 20 64 61 74  rmal on-disk dat
5bf0: 61 62 61 73 65 2e 0d 0a 20 20 23 0d 0a 20 20 73  abase...  #..  s
5c00: 65 74 20 66 69 6c 65 4e 61 6d 65 28 32 29 20 5b  et fileName(2) [
5c10: 66 69 6c 65 20 6a 6f 69 6e 20 5b 67 65 74 44 61  file join [getDa
5c20: 74 61 62 61 73 65 44 69 72 65 63 74 6f 72 79 5d  tabaseDirectory]
5c30: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
5c40: 20 20 20 20 20 20 73 74 72 65 73 73 2d 20 5b 70        stress- [p
5c50: 69 64 5d 20 2d 20 5b 73 74 72 69 6e 67 20 74 72  id] - [string tr
5c60: 69 6d 20 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64  im [clock second
5c70: 73 5d 20 2d 5d 20 2e 64 62 5d 5d 0d 0a 0d 0a 20  s] -] .db]].... 
5c80: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23   ###############
5c90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5ca0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5cb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5cc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
5cd0: 0d 0a 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61  ..  setupWorkloa
5ce0: 64 4d 65 6d 44 62 20 24 66 69 6c 65 4e 61 6d 65  dMemDb $fileName
5cf0: 28 31 29 20 73 72 63 44 62 0d 0a 20 20 73 65 74  (1) srcDb..  set
5d00: 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62  upWorkloadFileDb
5d10: 20 24 66 69 6c 65 4e 61 6d 65 28 32 29 20 64 62   $fileName(2) db
5d20: 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23  ....  ##########
5d30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5d40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5d50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5d60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5d70: 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20  ###....  #..  # 
5d80: 4e 4f 54 45 3a 20 54 68 69 73 20 73 65 72 76 65  NOTE: This serve
5d90: 73 20 74 77 6f 20 70 75 72 70 6f 73 65 73 2e 20  s two purposes. 
5da0: 20 46 69 72 73 74 2c 20 69 74 20 61 6c 6c 6f 77   First, it allow
5db0: 73 20 75 73 20 74 6f 20 76 65 72 69 66 79 20 74  s us to verify t
5dc0: 68 65 20 74 72 61 63 65 0d 0a 20 20 23 20 20 20  he trace..  #   
5dd0: 20 20 20 20 6c 6f 67 67 69 6e 67 20 73 75 62 73      logging subs
5de0: 79 73 74 65 6d 20 69 73 20 77 6f 72 6b 69 6e 67  ystem is working
5df0: 20 70 72 6f 70 65 72 6c 79 2e 20 20 53 65 63 6f   properly.  Seco
5e00: 6e 64 2c 20 69 74 20 70 6c 61 63 65 73 20 74 68  nd, it places th
5e10: 65 20 66 69 6c 65 0d 0a 20 20 23 20 20 20 20 20  e file..  #     
5e20: 20 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 61    name for the a
5e30: 73 73 6f 63 69 61 74 65 64 20 64 61 74 61 62 61  ssociated databa
5e40: 73 65 20 66 69 6c 65 20 69 6e 74 6f 20 74 68 65  se file into the
5e50: 20 74 72 61 63 65 20 6c 6f 67 20 66 69 6c 65 2e   trace log file.
5e60: 0d 0a 20 20 23 0d 0a 20 20 73 65 74 20 63 6f 6e  ..  #..  set con
5e70: 6e 65 63 74 69 6f 6e 20 5b 67 65 74 44 62 43 6f  nection [getDbCo
5e80: 6e 6e 65 63 74 69 6f 6e 5d 0d 0a 0d 0a 20 20 24  nnection]....  $
5e90: 63 6f 6e 6e 65 63 74 69 6f 6e 20 4c 6f 67 4d 65  connection LogMe
5ea0: 73 73 61 67 65 20 30 20 5b 61 70 70 65 6e 64 41  ssage 0 [appendA
5eb0: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 73 74  rgs \..      "st
5ec0: 61 72 74 69 6e 67 20 73 74 72 65 73 73 20 74 65  arting stress te
5ed0: 73 74 20 75 73 69 6e 67 20 64 61 74 61 62 61 73  st using databas
5ee0: 65 20 5c 22 22 20 24 66 69 6c 65 4e 61 6d 65 28  e \"" $fileName(
5ef0: 32 29 20 5c 22 2e 2e 2e 5d 0d 0a 0d 0a 20 20 23  2) \"...]....  #
5f00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5f10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5f20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5f30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5f40: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
5f50: 20 20 73 65 74 20 74 69 6d 65 6f 75 74 20 5b 6f    set timeout [o
5f60: 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d 66 6c  bject invoke -fl
5f70: 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63 20 5c  ags +NonPublic \
5f80: 0d 0a 20 20 20 20 20 20 45 61 67 6c 65 2e 5f 43  ..      Eagle._C
5f90: 6f 6d 70 6f 6e 65 6e 74 73 2e 50 72 69 76 61 74  omponents.Privat
5fa0: 65 2e 54 68 72 65 61 64 4f 70 73 20 44 65 66 61  e.ThreadOps Defa
5fb0: 75 6c 74 4a 6f 69 6e 54 69 6d 65 6f 75 74 5d 0d  ultJoinTimeout].
5fc0: 0a 0d 0a 20 20 74 70 75 74 73 20 24 74 65 73 74  ...  tputs $test
5fd0: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
5fe0: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 2d  Args \..      "-
5ff0: 2d 2d 2d 20 77 6f 72 6b 6c 6f 61 64 73 20 77 69  --- workloads wi
6000: 6c 6c 20 73 74 61 72 74 20 62 65 66 6f 72 65 20  ll start before 
6010: 6f 72 20 74 69 6d 65 6f 75 74 20 61 66 74 65 72  or timeout after
6020: 20 22 20 24 74 69 6d 65 6f 75 74 20 5c 0d 0a 20   " $timeout \.. 
6030: 20 20 20 20 20 22 20 6d 69 6c 6c 69 73 65 63 6f       " milliseco
6040: 6e 64 28 73 29 5c 6e 22 5d 0d 0a 0d 0a 20 20 23  nd(s)\n"]....  #
6050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6060: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6070: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6080: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6090: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
60a0: 20 20 73 65 74 20 65 76 65 6e 74 20 5b 6f 62 6a    set event [obj
60b0: 65 63 74 20 63 72 65 61 74 65 20 2d 61 6c 69 61  ect create -alia
60c0: 73 20 5c 0d 0a 20 20 20 20 20 20 53 79 73 74 65  s \..      Syste
60d0: 6d 2e 54 68 72 65 61 64 69 6e 67 2e 45 76 65 6e  m.Threading.Even
60e0: 74 57 61 69 74 48 61 6e 64 6c 65 20 66 61 6c 73  tWaitHandle fals
60f0: 65 20 4d 61 6e 75 61 6c 52 65 73 65 74 5d 0d 0a  e ManualReset]..
6100: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23  ..  ############
6110: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6120: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6130: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6140: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6150: 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20 20  #..  #          
6160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6170: 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 20      WORKLOAD #1 
6180: 28 41 29 20 20 20 20 20 20 20 20 20 20 20 20 20  (A)             
6190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
61a0: 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23   #..  ##########
61b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
61c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
61d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
61e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
61f0: 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72  ###....  set wor
6200: 6b 6c 6f 61 64 28 31 29 20 5b 6c 69 73 74 20 5c  kload(1) [list \
6210: 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73 72  ..      [list sr
6220: 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c  cFileName dstFil
6230: 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e  eName table coun
6240: 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33  t1 count2 count3
6250: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
6260: 63 6f 75 6e 74 34 20 63 6f 75 6e 74 35 20 63 6f  count4 count5 co
6270: 75 6e 74 36 20 63 6f 75 6e 74 37 5d 20 7b 0d 0a  unt6 count7] {..
6280: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
6290: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 2c 20  E: Workload #1, 
62a0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 73 74 61  CREATE TABLE sta
62b0: 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 23 0d  tements...    #.
62c0: 0a 20 20 20 20 77 61 69 74 54 65 73 74 20 41 0d  .    waitTest A.
62d0: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74  .    lappend ::t
62e0: 69 6d 65 73 28 31 29 20 5b 6c 69 6e 64 65 78 20  imes(1) [lindex 
62f0: 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 69  [time {..      i
6300: 6e 69 74 54 65 73 74 20 41 0d 0a 20 20 20 20 20  nitTest A..     
6310: 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46 69   setupWorkloadFi
6320: 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d  leDb $dstFileNam
6330: 65 20 64 62 0d 0a 20 20 20 20 20 20 66 6f 72 20  e db..      for 
6340: 7b 73 65 74 20 69 6e 64 65 78 20 34 7d 20 7b 24  {set index 4} {$
6350: 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31  index <= $count1
6360: 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b  } {incr index} {
6370: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63  ..        if {[c
6380: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  atch {..        
6390: 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 64    sql execute $d
63a0: 62 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  b [appendArgs \.
63b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
63c0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20  CREATE TABLE IF 
63d0: 4e 4f 54 20 45 58 49 53 54 53 20 74 22 20 5c 0d  NOT EXISTS t" \.
63e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24  .              $
63f0: 69 6e 64 65 78 20 22 28 78 20 50 52 49 4d 41 52  index "(x PRIMAR
6400: 59 20 4b 45 59 2c 20 79 2c 20 7a 29 3b 22 5d 0d  Y KEY, y, z);"].
6410: 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54  .          showT
6420: 65 73 74 20 41 0d 0a 20 20 20 20 20 20 20 20 7d  est A..        }
6430: 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d   error]} then {.
6440: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b  .          if {[
6450: 69 73 45 78 70 65 63 74 65 64 45 72 72 6f 72 20  isExpectedError 
6460: 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d  $error]} then {.
6470: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 68 6f  .            sho
6480: 77 54 65 73 74 20 61 0d 0a 20 20 20 20 20 20 20  wTest a..       
6490: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
64a0: 20 20 20 20 20 20 20 20 20 66 61 69 6c 54 65 73           failTes
64b0: 74 20 61 20 24 65 72 72 6f 72 0d 0a 20 20 20 20  t a $error..    
64c0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
64d0: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20   }..      }..   
64e0: 20 20 20 63 6c 65 61 6e 75 70 44 62 20 24 64 73     cleanupDb $ds
64f0: 74 46 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c  tFileName db fal
6500: 73 65 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20  se true false.. 
6510: 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20 41 0d       doneTest A.
6520: 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d  .    }] 0]..  }]
6530: 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23  ....  ##########
6540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6550: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6570: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6580: 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20  ###..  #        
6590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
65a0: 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23        WORKLOAD #
65b0: 32 20 28 42 29 20 20 20 20 20 20 20 20 20 20 20  2 (B)           
65c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
65d0: 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23     #..  ########
65e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
65f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6600: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6610: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6620: 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77  #####....  set w
6630: 6f 72 6b 6c 6f 61 64 28 32 29 20 5b 6c 69 73 74  orkload(2) [list
6640: 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20   \..      [list 
6650: 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46  srcFileName dstF
6660: 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f  ileName table co
6670: 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e  unt1 count2 coun
6680: 74 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  t3 \..          
6690: 20 20 63 6f 75 6e 74 34 20 63 6f 75 6e 74 35 20    count4 count5 
66a0: 63 6f 75 6e 74 36 20 63 6f 75 6e 74 37 5d 20 7b  count6 count7] {
66b0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e  ..    #..    # N
66c0: 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 32  OTE: Workload #2
66d0: 2c 20 44 52 4f 50 20 54 41 42 4c 45 20 73 74 61  , DROP TABLE sta
66e0: 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 23 0d  tements...    #.
66f0: 0a 20 20 20 20 77 61 69 74 54 65 73 74 20 42 0d  .    waitTest B.
6700: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74  .    lappend ::t
6710: 69 6d 65 73 28 32 29 20 5b 6c 69 6e 64 65 78 20  imes(2) [lindex 
6720: 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 69  [time {..      i
6730: 6e 69 74 54 65 73 74 20 42 0d 0a 20 20 20 20 20  nitTest B..     
6740: 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46 69   setupWorkloadFi
6750: 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d  leDb $dstFileNam
6760: 65 20 64 62 0d 0a 20 20 20 20 20 20 66 6f 72 20  e db..      for 
6770: 7b 73 65 74 20 69 6e 64 65 78 20 34 7d 20 7b 24  {set index 4} {$
6780: 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31  index <= $count1
6790: 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b  } {incr index} {
67a0: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63  ..        if {[c
67b0: 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20  atch {..        
67c0: 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 64    sql execute $d
67d0: 62 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  b [appendArgs \.
67e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
67f0: 44 52 4f 50 20 54 41 42 4c 45 20 49 46 20 45 58  DROP TABLE IF EX
6800: 49 53 54 53 20 74 22 20 24 69 6e 64 65 78 20 5c  ISTS t" $index \
6810: 3b 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68  ;]..          sh
6820: 6f 77 54 65 73 74 20 42 0d 0a 20 20 20 20 20 20  owTest B..      
6830: 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e    } error]} then
6840: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66   {..          if
6850: 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72   {[isExpectedErr
6860: 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e  or $error]} then
6870: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
6880: 73 68 6f 77 54 65 73 74 20 62 0d 0a 20 20 20 20  showTest b..    
6890: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
68a0: 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c              fail
68b0: 54 65 73 74 20 62 20 24 65 72 72 6f 72 0d 0a 20  Test b $error.. 
68c0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
68d0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
68e0: 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20        cleanupDb 
68f0: 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20  $dstFileName db 
6900: 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65  false true false
6910: 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74  ..      doneTest
6920: 20 42 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20   B..    }] 0].. 
6930: 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23   }]....  #######
6940: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6950: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6960: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6970: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6980: 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20  ######..  #     
6990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
69a0: 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41           WORKLOA
69b0: 44 20 23 33 20 28 43 29 20 20 20 20 20 20 20 20  D #3 (C)        
69c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
69d0: 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23        #..  #####
69e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
69f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6a00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6a10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6a20: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65  ########....  se
6a30: 74 20 77 6f 72 6b 6c 6f 61 64 28 33 29 20 5b 6c  t workload(3) [l
6a40: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ist \..      [li
6a50: 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64  st srcFileName d
6a60: 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65  stFileName table
6a70: 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63   count1 count2 c
6a80: 6f 75 6e 74 33 20 5c 0d 0a 20 20 20 20 20 20 20  ount3 \..       
6a90: 20 20 20 20 20 63 6f 75 6e 74 34 20 63 6f 75 6e       count4 coun
6aa0: 74 35 20 63 6f 75 6e 74 36 20 63 6f 75 6e 74 37  t5 count6 count7
6ab0: 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  ] {..    #..    
6ac0: 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64  # NOTE: Workload
6ad0: 20 23 33 2c 20 22 73 6d 61 6c 6c 22 20 53 45 4c   #3, "small" SEL
6ae0: 45 43 54 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d  ECT statements..
6af0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 77 61 69 74  .    #..    wait
6b00: 54 65 73 74 20 43 0d 0a 20 20 20 20 6c 61 70 70  Test C..    lapp
6b10: 65 6e 64 20 3a 3a 74 69 6d 65 73 28 33 29 20 5b  end ::times(3) [
6b20: 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a  lindex [time {..
6b30: 20 20 20 20 20 20 69 6e 69 74 54 65 73 74 20 43        initTest C
6b40: 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f 72  ..      setupWor
6b50: 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74  kloadFileDb $dst
6b60: 46 69 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20 20  FileName db..   
6b70: 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65     for {set inde
6b80: 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20  x 1} {$index <= 
6b90: 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69  $count1} {incr i
6ba0: 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20  ndex} {..       
6bb0: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20   if {[catch {.. 
6bc0: 20 20 20 20 20 20 20 20 20 73 65 74 20 72 65 61           set rea
6bd0: 64 65 72 20 5b 73 71 6c 20 65 78 65 63 75 74 65  der [sql execute
6be0: 20 2d 65 78 65 63 75 74 65 20 72 65 61 64 65 72   -execute reader
6bf0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
6c00: 20 20 2d 66 6f 72 6d 61 74 20 64 61 74 61 52 65    -format dataRe
6c10: 61 64 65 72 20 2d 61 6c 69 61 73 20 24 64 62 20  ader -alias $db 
6c20: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
6c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 45               "SE
6c40: 4c 45 43 54 20 78 2c 20 79 20 46 52 4f 4d 20 22  LECT x, y FROM "
6c50: 20 24 74 61 62 6c 65 20 22 20 57 48 45 52 45 20   $table " WHERE 
6c60: 7a 20 3d 20 27 73 6d 61 6c 6c 27 3b 22 5d 5d 0d  z = 'small';"]].
6c70: 0a 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65  .          while
6c80: 20 7b 5b 24 72 65 61 64 65 72 20 52 65 61 64 5d   {[$reader Read]
6c90: 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  } {..           
6ca0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   #..            
6cb0: 23 20 4e 4f 54 45 3a 20 44 6f 20 6e 6f 74 68 69  # NOTE: Do nothi
6cc0: 6e 67 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ng...           
6cd0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d   #..          }.
6ce0: 0a 20 20 20 20 20 20 20 20 20 20 75 6e 73 65 74  .          unset
6cf0: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 61   -nocomplain rea
6d00: 64 65 72 0d 0a 20 20 20 20 20 20 20 20 20 20 73  der..          s
6d10: 68 6f 77 54 65 73 74 20 43 0d 0a 20 20 20 20 20  howTest C..     
6d20: 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65     } error]} the
6d30: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69  n {..          i
6d40: 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72  f {[isExpectedEr
6d50: 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65  ror $error]} the
6d60: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
6d70: 20 73 68 6f 77 54 65 73 74 20 63 0d 0a 20 20 20   showTest c..   
6d80: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d         } else {.
6d90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69  .            fai
6da0: 6c 54 65 73 74 20 63 20 24 65 72 72 6f 72 0d 0a  lTest c $error..
6db0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
6dc0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d       }..      }.
6dd0: 0a 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62  .      cleanupDb
6de0: 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62   $dstFileName db
6df0: 20 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73   false true fals
6e00: 65 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73  e..      doneTes
6e10: 74 20 43 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a  t C..    }] 0]..
6e20: 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23    }]....  ######
6e30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6e70: 23 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20  #######..  #    
6e80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6e90: 20 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f            WORKLO
6ea0: 41 44 20 23 34 20 28 44 29 20 20 20 20 20 20 20  AD #4 (D)       
6eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6ec0: 20 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23         #..  ####
6ed0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6ee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6ef0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6f00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6f10: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73  #########....  s
6f20: 65 74 20 77 6f 72 6b 6c 6f 61 64 28 34 29 20 5b  et workload(4) [
6f30: 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c  list \..      [l
6f40: 69 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20  ist srcFileName 
6f50: 64 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c  dstFileName tabl
6f60: 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20  e count1 count2 
6f70: 63 6f 75 6e 74 33 20 5c 0d 0a 20 20 20 20 20 20  count3 \..      
6f80: 20 20 20 20 20 20 63 6f 75 6e 74 34 20 63 6f 75        count4 cou
6f90: 6e 74 35 20 63 6f 75 6e 74 36 20 63 6f 75 6e 74  nt5 count6 count
6fa0: 37 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20  7] {..    #..   
6fb0: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61   # NOTE: Workloa
6fc0: 64 20 23 34 2c 20 22 62 69 67 22 20 53 45 4c 45  d #4, "big" SELE
6fd0: 43 54 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a  CT statements...
6fe0: 20 20 20 20 23 0d 0a 20 20 20 20 77 61 69 74 54      #..    waitT
6ff0: 65 73 74 20 44 0d 0a 20 20 20 20 6c 61 70 70 65  est D..    lappe
7000: 6e 64 20 3a 3a 74 69 6d 65 73 28 34 29 20 5b 6c  nd ::times(4) [l
7010: 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20  index [time {.. 
7020: 20 20 20 20 20 69 6e 69 74 54 65 73 74 20 44 0d       initTest D.
7030: 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f 72 6b  .      setupWork
7040: 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74 46  loadFileDb $dstF
7050: 69 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20 20 20  ileName db..    
7060: 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78    for {set index
7070: 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24   1} {$index <= $
7080: 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e  count1} {incr in
7090: 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20  dex} {..        
70a0: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20  if {[catch {..  
70b0: 20 20 20 20 20 20 20 20 73 65 74 20 72 65 61 64          set read
70c0: 65 72 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20  er [sql execute 
70d0: 2d 65 78 65 63 75 74 65 20 72 65 61 64 65 72 20  -execute reader 
70e0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
70f0: 20 2d 66 6f 72 6d 61 74 20 64 61 74 61 52 65 61   -format dataRea
7100: 64 65 72 20 2d 61 6c 69 61 73 20 24 64 62 20 5b  der -alias $db [
7110: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..  
7120: 20 20 20 20 20 20 20 20 20 20 20 20 22 53 45 4c              "SEL
7130: 45 43 54 20 78 2c 20 79 20 46 52 4f 4d 20 22 20  ECT x, y FROM " 
7140: 24 74 61 62 6c 65 20 22 20 57 48 45 52 45 20 7a  $table " WHERE z
7150: 20 3d 20 27 62 69 67 27 3b 22 5d 5d 0d 0a 20 20   = 'big';"]]..  
7160: 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 7b 5b          while {[
7170: 24 72 65 61 64 65 72 20 52 65 61 64 5d 7d 20 7b  $reader Read]} {
7180: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
7190: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e  .            # N
71a0: 4f 54 45 3a 20 44 6f 20 6e 6f 74 68 69 6e 67 2e  OTE: Do nothing.
71b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d  ..            #.
71c0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  .          }..  
71d0: 20 20 20 20 20 20 20 20 75 6e 73 65 74 20 2d 6e          unset -n
71e0: 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 61 64 65 72  ocomplain reader
71f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f 77  ..          show
7200: 54 65 73 74 20 44 0d 0a 20 20 20 20 20 20 20 20  Test D..        
7210: 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b  } error]} then {
7220: 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b  ..          if {
7230: 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 6f 72  [isExpectedError
7240: 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b   $error]} then {
7250: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 68  ..            sh
7260: 6f 77 54 65 73 74 20 64 0d 0a 20 20 20 20 20 20  owTest d..      
7270: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..  
7280: 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 54 65            failTe
7290: 73 74 20 64 20 24 65 72 72 6f 72 0d 0a 20 20 20  st d $error..   
72a0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
72b0: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20    }..      }..  
72c0: 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20 24 64      cleanupDb $d
72d0: 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20 66 61  stFileName db fa
72e0: 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65 0d 0a  lse true false..
72f0: 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20 44        doneTest D
7300: 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d  ..    }] 0]..  }
7310: 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23  ]....  #########
7320: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7340: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7350: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7360: 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20  ####..  #       
7370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7380: 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20         WORKLOAD 
7390: 23 35 20 28 45 29 20 20 20 20 20 20 20 20 20 20  #5 (E)          
73a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
73b0: 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23      #..  #######
73c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
73d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
73e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
73f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7400: 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20  ######....  set 
7410: 77 6f 72 6b 6c 6f 61 64 28 35 29 20 5b 6c 69 73  workload(5) [lis
7420: 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74  t \..      [list
7430: 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74   srcFileName dst
7440: 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63  FileName table c
7450: 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75  ount1 count2 cou
7460: 6e 74 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  nt3 \..         
7470: 20 20 20 63 6f 75 6e 74 34 20 63 6f 75 6e 74 35     count4 count5
7480: 20 63 6f 75 6e 74 36 20 63 6f 75 6e 74 37 5d 20   count6 count7] 
7490: 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20  {..    #..    # 
74a0: 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23  NOTE: Workload #
74b0: 35 2c 20 22 73 6d 61 6c 6c 22 20 49 4e 53 45 52  5, "small" INSER
74c0: 54 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20  T statements... 
74d0: 20 20 20 23 0d 0a 20 20 20 20 77 61 69 74 54 65     #..    waitTe
74e0: 73 74 20 45 0d 0a 20 20 20 20 6c 61 70 70 65 6e  st E..    lappen
74f0: 64 20 3a 3a 74 69 6d 65 73 28 35 29 20 5b 6c 69  d ::times(5) [li
7500: 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20  ndex [time {..  
7510: 20 20 20 20 69 6e 69 74 54 65 73 74 20 45 0d 0a      initTest E..
7520: 20 20 20 20 20 20 73 65 74 75 70 57 6f 72 6b 6c        setupWorkl
7530: 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74 46 69  oadFileDb $dstFi
7540: 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20 20 20 20  leName db..     
7550: 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20   for {set index 
7560: 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63  1} {$index <= $c
7570: 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64  ount1} {incr ind
7580: 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69  ex} {..        i
7590: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20  f {[catch {..   
75a0: 20 20 20 20 20 20 20 62 65 67 69 6e 54 72 61 6e         beginTran
75b0: 73 61 63 74 69 6f 6e 20 24 64 62 0d 0a 20 20 20  saction $db..   
75c0: 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75         sql execu
75d0: 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72  te $db [appendAr
75e0: 67 73 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20  gs "INSERT INTO 
75f0: 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20  " $table \..    
7600: 20 20 20 20 20 20 20 20 20 20 22 28 78 2c 20 79            "(x, y
7610: 2c 20 7a 29 20 56 41 4c 55 45 53 28 27 22 20 5b  , z) VALUES('" [
7620: 66 6f 72 6d 61 74 20 25 6c 58 20 5b 65 78 70 72  format %lX [expr
7630: 20 7b 72 61 6e 64 6f 6d 28 29 7d 5d 5d 20 5c 0d   {random()}]] \.
7640: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
7650: 27 2c 20 27 22 20 5b 62 61 73 65 36 34 20 65 6e  ', '" [base64 en
7660: 63 6f 64 65 20 2d 2d 20 5b 65 78 70 72 20 7b 72  code -- [expr {r
7670: 61 6e 64 73 74 72 28 24 63 6f 75 6e 74 32 29 7d  andstr($count2)}
7680: 5d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  ]] \..          
7690: 20 20 20 20 22 27 2c 20 27 73 6d 61 6c 6c 27 29      "', 'small')
76a0: 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 65  ;"]..          e
76b0: 6e 64 54 72 61 6e 73 61 63 74 69 6f 6e 20 24 64  ndTransaction $d
76c0: 62 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f  b..          sho
76d0: 77 54 65 73 74 20 45 0d 0a 20 20 20 20 20 20 20  wTest E..       
76e0: 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20   } error]} then 
76f0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 63 61 74  {..          cat
7700: 63 68 20 7b 65 72 72 6f 72 54 72 61 6e 73 61 63  ch {errorTransac
7710: 74 69 6f 6e 20 24 64 62 7d 0d 0a 20 20 20 20 20  tion $db}..     
7720: 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65       if {[isExpe
7730: 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72  ctedError $error
7740: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
7750: 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20         showTest 
7760: 65 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65  e..          } e
7770: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
7780: 20 20 20 66 61 69 6c 54 65 73 74 20 65 20 24 65     failTest e $e
7790: 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20  rror..          
77a0: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
77b0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65      }..      cle
77c0: 61 6e 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e  anupDb $dstFileN
77d0: 61 6d 65 20 64 62 20 66 61 6c 73 65 20 74 72 75  ame db false tru
77e0: 65 20 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64  e false..      d
77f0: 6f 6e 65 54 65 73 74 20 45 0d 0a 20 20 20 20 7d  oneTest E..    }
7800: 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20  ] 0]..  }]....  
7810: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7820: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7830: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7840: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7850: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20  #############.. 
7860: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20   #              
7870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7880: 57 4f 52 4b 4c 4f 41 44 20 23 36 20 28 46 29 20  WORKLOAD #6 (F) 
7890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
78a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a               #..
78b0: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
78c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
78d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
78e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
78f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
7900: 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61  ...  set workloa
7910: 64 28 36 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20  d(6) [list \..  
7920: 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c      [list srcFil
7930: 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d  eName dstFileNam
7940: 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63  e table count1 c
7950: 6f 75 6e 74 32 20 63 6f 75 6e 74 33 20 5c 0d 0a  ount2 count3 \..
7960: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e              coun
7970: 74 34 20 63 6f 75 6e 74 35 20 63 6f 75 6e 74 36  t4 count5 count6
7980: 20 63 6f 75 6e 74 37 5d 20 7b 0d 0a 20 20 20 20   count7] {..    
7990: 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57  #..    # NOTE: W
79a0: 6f 72 6b 6c 6f 61 64 20 23 36 2c 20 22 62 69 67  orkload #6, "big
79b0: 22 20 49 4e 53 45 52 54 20 73 74 61 74 65 6d 65  " INSERT stateme
79c0: 6e 74 73 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20  nts...    #..   
79d0: 20 77 61 69 74 54 65 73 74 20 46 0d 0a 20 20 20   waitTest F..   
79e0: 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73   lappend ::times
79f0: 28 36 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d  (6) [lindex [tim
7a00: 65 20 7b 0d 0a 20 20 20 20 20 20 69 6e 69 74 54  e {..      initT
7a10: 65 73 74 20 46 0d 0a 20 20 20 20 20 20 73 65 74  est F..      set
7a20: 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62  upWorkloadFileDb
7a30: 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62   $dstFileName db
7a40: 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74  ..      for {set
7a50: 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65   index 1} {$inde
7a60: 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69  x <= $count1} {i
7a70: 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20  ncr index} {..  
7a80: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
7a90: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 62 65   {..          be
7aa0: 67 69 6e 54 72 61 6e 73 61 63 74 69 6f 6e 20 24  ginTransaction $
7ab0: 64 62 0d 0a 20 20 20 20 20 20 20 20 20 20 73 71  db..          sq
7ac0: 6c 20 65 78 65 63 75 74 65 20 24 64 62 20 5b 61  l execute $db [a
7ad0: 70 70 65 6e 64 41 72 67 73 20 22 49 4e 53 45 52  ppendArgs "INSER
7ae0: 54 20 49 4e 54 4f 20 22 20 24 74 61 62 6c 65 20  T INTO " $table 
7af0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
7b00: 20 22 28 78 2c 20 79 2c 20 7a 29 20 56 41 4c 55   "(x, y, z) VALU
7b10: 45 53 28 27 22 20 5b 66 6f 72 6d 61 74 20 25 6c  ES('" [format %l
7b20: 58 20 5b 65 78 70 72 20 7b 72 61 6e 64 6f 6d 28  X [expr {random(
7b30: 29 7d 5d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20  )}]] \..        
7b40: 20 20 20 20 20 20 22 27 2c 20 52 41 4e 44 4f 4d        "', RANDOM
7b50: 42 4c 4f 42 28 22 20 24 63 6f 75 6e 74 33 20 22  BLOB(" $count3 "
7b60: 29 2c 20 27 62 69 67 27 29 3b 22 5d 0d 0a 20 20  ), 'big');"]..  
7b70: 20 20 20 20 20 20 20 20 65 6e 64 54 72 61 6e 73          endTrans
7b80: 61 63 74 69 6f 6e 20 24 64 62 0d 0a 20 20 20 20  action $db..    
7b90: 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 46        showTest F
7ba0: 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f  ..        } erro
7bb0: 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  r]} then {..    
7bc0: 20 20 20 20 20 20 63 61 74 63 68 20 7b 65 72 72        catch {err
7bd0: 6f 72 54 72 61 6e 73 61 63 74 69 6f 6e 20 24 64  orTransaction $d
7be0: 62 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66  b}..          if
7bf0: 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72   {[isExpectedErr
7c00: 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e  or $error]} then
7c10: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
7c20: 73 68 6f 77 54 65 73 74 20 66 0d 0a 20 20 20 20  showTest f..    
7c30: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
7c40: 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c              fail
7c50: 54 65 73 74 20 66 20 24 65 72 72 6f 72 0d 0a 20  Test f $error.. 
7c60: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
7c70: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
7c80: 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20        cleanupDb 
7c90: 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20  $dstFileName db 
7ca0: 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65  false true false
7cb0: 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74  ..      doneTest
7cc0: 20 46 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20   F..    }] 0].. 
7cd0: 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23   }]....  #######
7ce0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7cf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7d00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7d10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7d20: 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20  ######..  #     
7d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7d40: 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41           WORKLOA
7d50: 44 20 23 37 20 28 47 29 20 20 20 20 20 20 20 20  D #7 (G)        
7d60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7d70: 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23        #..  #####
7d80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7d90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7da0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7db0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7dc0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65  ########....  se
7dd0: 74 20 77 6f 72 6b 6c 6f 61 64 28 37 29 20 5b 6c  t workload(7) [l
7de0: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ist \..      [li
7df0: 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64  st srcFileName d
7e00: 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65  stFileName table
7e10: 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63   count1 count2 c
7e20: 6f 75 6e 74 33 20 5c 0d 0a 20 20 20 20 20 20 20  ount3 \..       
7e30: 20 20 20 20 20 63 6f 75 6e 74 34 20 63 6f 75 6e       count4 coun
7e40: 74 35 20 63 6f 75 6e 74 36 20 63 6f 75 6e 74 37  t5 count6 count7
7e50: 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  ] {..    #..    
7e60: 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64  # NOTE: Workload
7e70: 20 23 37 2c 20 22 73 6d 61 6c 6c 22 20 55 50 44   #7, "small" UPD
7e80: 41 54 45 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d  ATE statements..
7e90: 0a 20 20 20 20 23 0d 0a 20 20 20 20 77 61 69 74  .    #..    wait
7ea0: 54 65 73 74 20 47 0d 0a 20 20 20 20 6c 61 70 70  Test G..    lapp
7eb0: 65 6e 64 20 3a 3a 74 69 6d 65 73 28 37 29 20 5b  end ::times(7) [
7ec0: 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a  lindex [time {..
7ed0: 20 20 20 20 20 20 69 6e 69 74 54 65 73 74 20 47        initTest G
7ee0: 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f 72  ..      setupWor
7ef0: 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74  kloadFileDb $dst
7f00: 46 69 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20 20  FileName db..   
7f10: 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65     for {set inde
7f20: 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20  x 1} {$index <= 
7f30: 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69  $count1} {incr i
7f40: 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20  ndex} {..       
7f50: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20   if {[catch {.. 
7f60: 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 54 72           beginTr
7f70: 61 6e 73 61 63 74 69 6f 6e 20 24 64 62 0d 0a 20  ansaction $db.. 
7f80: 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 65           sql exe
7f90: 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64  cute $db [append
7fa0: 41 72 67 73 20 22 55 50 44 41 54 45 20 22 20 24  Args "UPDATE " $
7fb0: 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20  table \..       
7fc0: 20 20 20 20 20 20 20 22 20 53 45 54 20 79 20 3d         " SET y =
7fd0: 20 27 22 20 5b 62 61 73 65 36 34 20 65 6e 63 6f   '" [base64 enco
7fe0: 64 65 20 2d 2d 20 5b 65 78 70 72 20 7b 72 61 6e  de -- [expr {ran
7ff0: 64 73 74 72 28 24 63 6f 75 6e 74 32 29 7d 5d 5d  dstr($count2)}]]
8000: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
8010: 20 20 22 27 20 57 48 45 52 45 20 78 20 4c 49 4b    "' WHERE x LIK
8020: 45 20 27 22 20 5b 66 6f 72 6d 61 74 20 25 58 20  E '" [format %X 
8030: 24 69 6e 64 65 78 5d 20 22 25 27 20 41 4e 44 20  $index] "%' AND 
8040: 7a 20 3d 20 27 73 6d 61 6c 6c 27 3b 22 5d 0d 0a  z = 'small';"]..
8050: 20 20 20 20 20 20 20 20 20 20 65 6e 64 54 72 61            endTra
8060: 6e 73 61 63 74 69 6f 6e 20 24 64 62 0d 0a 20 20  nsaction $db..  
8070: 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74          showTest
8080: 20 47 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 72   G..        } er
8090: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
80a0: 20 20 20 20 20 20 20 20 63 61 74 63 68 20 7b 65          catch {e
80b0: 72 72 6f 72 54 72 61 6e 73 61 63 74 69 6f 6e 20  rrorTransaction 
80c0: 24 64 62 7d 0d 0a 20 20 20 20 20 20 20 20 20 20  $db}..          
80d0: 69 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45  if {[isExpectedE
80e0: 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68  rror $error]} th
80f0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
8100: 20 20 73 68 6f 77 54 65 73 74 20 67 0d 0a 20 20    showTest g..  
8110: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
8120: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 61  ..            fa
8130: 69 6c 54 65 73 74 20 67 20 24 65 72 72 6f 72 0d  ilTest g $error.
8140: 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  .          }..  
8150: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d        }..      }
8160: 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44  ..      cleanupD
8170: 62 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64  b $dstFileName d
8180: 62 20 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c  b false true fal
8190: 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65  se..      doneTe
81a0: 73 74 20 47 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d  st G..    }] 0].
81b0: 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23  .  }]....  #####
81c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
81d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
81e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
81f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8200: 23 23 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20  ########..  #   
8210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8220: 20 20 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c             WORKL
8230: 4f 41 44 20 23 38 20 28 48 29 20 20 20 20 20 20  OAD #8 (H)      
8240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8250: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23          #..  ###
8260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
82a0: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20  ##########....  
82b0: 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28 38 29 20  set workload(8) 
82c0: 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b  [list \..      [
82d0: 6c 69 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65  list srcFileName
82e0: 20 64 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62   dstFileName tab
82f0: 6c 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32  le count1 count2
8300: 20 63 6f 75 6e 74 33 20 5c 0d 0a 20 20 20 20 20   count3 \..     
8310: 20 20 20 20 20 20 20 63 6f 75 6e 74 34 20 63 6f         count4 co
8320: 75 6e 74 35 20 63 6f 75 6e 74 36 20 63 6f 75 6e  unt5 count6 coun
8330: 74 37 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20  t7] {..    #..  
8340: 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f    # NOTE: Worklo
8350: 61 64 20 23 38 2c 20 22 62 69 67 22 20 55 50 44  ad #8, "big" UPD
8360: 41 54 45 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d  ATE statements..
8370: 0a 20 20 20 20 23 0d 0a 20 20 20 20 77 61 69 74  .    #..    wait
8380: 54 65 73 74 20 48 0d 0a 20 20 20 20 6c 61 70 70  Test H..    lapp
8390: 65 6e 64 20 3a 3a 74 69 6d 65 73 28 38 29 20 5b  end ::times(8) [
83a0: 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a  lindex [time {..
83b0: 20 20 20 20 20 20 69 6e 69 74 54 65 73 74 20 48        initTest H
83c0: 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f 72  ..      setupWor
83d0: 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74  kloadFileDb $dst
83e0: 46 69 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20 20  FileName db..   
83f0: 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65     for {set inde
8400: 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20  x 1} {$index <= 
8410: 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69  $count1} {incr i
8420: 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20  ndex} {..       
8430: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20   if {[catch {.. 
8440: 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 54 72           beginTr
8450: 61 6e 73 61 63 74 69 6f 6e 20 24 64 62 0d 0a 20  ansaction $db.. 
8460: 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 65           sql exe
8470: 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64  cute $db [append
8480: 41 72 67 73 20 22 55 50 44 41 54 45 20 22 20 24  Args "UPDATE " $
8490: 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20  table \..       
84a0: 20 20 20 20 20 20 20 22 20 53 45 54 20 79 20 3d         " SET y =
84b0: 20 52 41 4e 44 4f 4d 42 4c 4f 42 28 22 20 24 63   RANDOMBLOB(" $c
84c0: 6f 75 6e 74 33 20 22 29 20 57 48 45 52 45 20 78  ount3 ") WHERE x
84d0: 20 4c 49 4b 45 20 27 22 20 5c 0d 0a 20 20 20 20   LIKE '" \..    
84e0: 20 20 20 20 20 20 20 20 20 20 5b 66 6f 72 6d 61            [forma
84f0: 74 20 25 58 20 24 69 6e 64 65 78 5d 20 22 25 27  t %X $index] "%'
8500: 20 41 4e 44 20 7a 20 3d 20 27 62 69 67 27 3b 22   AND z = 'big';"
8510: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64  ]..          end
8520: 54 72 61 6e 73 61 63 74 69 6f 6e 20 24 64 62 0d  Transaction $db.
8530: 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54  .          showT
8540: 65 73 74 20 48 0d 0a 20 20 20 20 20 20 20 20 7d  est H..        }
8550: 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d   error]} then {.
8560: 0a 20 20 20 20 20 20 20 20 20 20 63 61 74 63 68  .          catch
8570: 20 7b 65 72 72 6f 72 54 72 61 6e 73 61 63 74 69   {errorTransacti
8580: 6f 6e 20 24 64 62 7d 0d 0a 20 20 20 20 20 20 20  on $db}..       
8590: 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74     if {[isExpect
85a0: 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d  edError $error]}
85b0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
85c0: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 68 0d       showTest h.
85d0: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73  .          } els
85e0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e {..           
85f0: 20 66 61 69 6c 54 65 73 74 20 68 20 24 65 72 72   failTest h $err
8600: 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  or..          }.
8610: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
8620: 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e    }..      clean
8630: 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d  upDb $dstFileNam
8640: 65 20 64 62 20 66 61 6c 73 65 20 74 72 75 65 20  e db false true 
8650: 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e  false..      don
8660: 65 54 65 73 74 20 48 0d 0a 20 20 20 20 7d 5d 20  eTest H..    }] 
8670: 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23  0]..  }]....  ##
8680: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8690: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
86a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
86b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
86c0: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23  ###########..  #
86d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
86e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 4f                WO
86f0: 52 4b 4c 4f 41 44 20 23 39 20 28 49 29 20 20 20  RKLOAD #9 (I)   
8700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8710: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
8720: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8730: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8740: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8750: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8760: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
8770: 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28  .  set workload(
8780: 39 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20  9) [list \..    
8790: 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c 65 4e    [list srcFileN
87a0: 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d 65 20  ame dstFileName 
87b0: 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f 75  table count1 cou
87c0: 6e 74 32 20 63 6f 75 6e 74 33 20 5c 0d 0a 20 20  nt2 count3 \..  
87d0: 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74 34            count4
87e0: 20 63 6f 75 6e 74 35 20 63 6f 75 6e 74 36 20 63   count5 count6 c
87f0: 6f 75 6e 74 37 5d 20 7b 0d 0a 20 20 20 20 23 0d  ount7] {..    #.
8800: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72  .    # NOTE: Wor
8810: 6b 6c 6f 61 64 20 23 39 2c 20 22 73 6d 61 6c 6c  kload #9, "small
8820: 22 20 44 45 4c 45 54 45 20 73 74 61 74 65 6d 65  " DELETE stateme
8830: 6e 74 73 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20  nts...    #..   
8840: 20 77 61 69 74 54 65 73 74 20 49 0d 0a 20 20 20   waitTest I..   
8850: 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73   lappend ::times
8860: 28 39 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d  (9) [lindex [tim
8870: 65 20 7b 0d 0a 20 20 20 20 20 20 69 6e 69 74 54  e {..      initT
8880: 65 73 74 20 49 0d 0a 20 20 20 20 20 20 73 65 74  est I..      set
8890: 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62  upWorkloadFileDb
88a0: 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62   $dstFileName db
88b0: 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74  ..      for {set
88c0: 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65   index 1} {$inde
88d0: 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69  x <= $count1} {i
88e0: 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20  ncr index} {..  
88f0: 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68        if {[catch
8900: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 62 65   {..          be
8910: 67 69 6e 54 72 61 6e 73 61 63 74 69 6f 6e 20 24  ginTransaction $
8920: 64 62 0d 0a 20 20 20 20 20 20 20 20 20 20 73 71  db..          sq
8930: 6c 20 65 78 65 63 75 74 65 20 24 64 62 20 5b 61  l execute $db [a
8940: 70 70 65 6e 64 41 72 67 73 20 22 44 45 4c 45 54  ppendArgs "DELET
8950: 45 20 46 52 4f 4d 20 22 20 24 74 61 62 6c 65 20  E FROM " $table 
8960: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
8970: 20 22 20 57 48 45 52 45 20 78 20 4c 49 4b 45 20   " WHERE x LIKE 
8980: 27 22 20 5b 66 6f 72 6d 61 74 20 25 58 20 24 69  '" [format %X $i
8990: 6e 64 65 78 5d 20 22 25 27 20 41 4e 44 20 7a 20  ndex] "%' AND z 
89a0: 3d 20 27 73 6d 61 6c 6c 27 3b 22 5d 0d 0a 20 20  = 'small';"]..  
89b0: 20 20 20 20 20 20 20 20 65 6e 64 54 72 61 6e 73          endTrans
89c0: 61 63 74 69 6f 6e 20 24 64 62 0d 0a 20 20 20 20  action $db..    
89d0: 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 49        showTest I
89e0: 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f  ..        } erro
89f0: 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  r]} then {..    
8a00: 20 20 20 20 20 20 63 61 74 63 68 20 7b 65 72 72        catch {err
8a10: 6f 72 54 72 61 6e 73 61 63 74 69 6f 6e 20 24 64  orTransaction $d
8a20: 62 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66  b}..          if
8a30: 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72   {[isExpectedErr
8a40: 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e  or $error]} then
8a50: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
8a60: 73 68 6f 77 54 65 73 74 20 69 0d 0a 20 20 20 20  showTest i..    
8a70: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
8a80: 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c              fail
8a90: 54 65 73 74 20 69 20 24 65 72 72 6f 72 0d 0a 20  Test i $error.. 
8aa0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
8ab0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
8ac0: 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20        cleanupDb 
8ad0: 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20  $dstFileName db 
8ae0: 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65  false true false
8af0: 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74  ..      doneTest
8b00: 20 49 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20   I..    }] 0].. 
8b10: 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23   }]....  #######
8b20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8b30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8b50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8b60: 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20  ######..  #     
8b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8b80: 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41           WORKLOA
8b90: 44 20 23 31 30 20 28 4a 29 20 20 20 20 20 20 20  D #10 (J)       
8ba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8bb0: 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23        #..  #####
8bc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8bd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8be0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8bf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8c00: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65  ########....  se
8c10: 74 20 77 6f 72 6b 6c 6f 61 64 28 31 30 29 20 5b  t workload(10) [
8c20: 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c  list \..      [l
8c30: 69 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20  ist srcFileName 
8c40: 64 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c  dstFileName tabl
8c50: 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20  e count1 count2 
8c60: 63 6f 75 6e 74 33 20 5c 0d 0a 20 20 20 20 20 20  count3 \..      
8c70: 20 20 20 20 20 20 63 6f 75 6e 74 34 20 63 6f 75        count4 cou
8c80: 6e 74 35 20 63 6f 75 6e 74 36 20 63 6f 75 6e 74  nt5 count6 count
8c90: 37 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20  7] {..    #..   
8ca0: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61   # NOTE: Workloa
8cb0: 64 20 23 31 30 2c 20 22 62 69 67 22 20 44 45 4c  d #10, "big" DEL
8cc0: 45 54 45 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d  ETE statements..
8cd0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 77 61 69 74  .    #..    wait
8ce0: 54 65 73 74 20 4a 0d 0a 20 20 20 20 6c 61 70 70  Test J..    lapp
8cf0: 65 6e 64 20 3a 3a 74 69 6d 65 73 28 31 30 29 20  end ::times(10) 
8d00: 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d  [lindex [time {.
8d10: 0a 20 20 20 20 20 20 69 6e 69 74 54 65 73 74 20  .      initTest 
8d20: 4a 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f  J..      setupWo
8d30: 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73  rkloadFileDb $ds
8d40: 74 46 69 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20  tFileName db..  
8d50: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64      for {set ind
8d60: 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d  ex 1} {$index <=
8d70: 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20   $count1} {incr 
8d80: 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20  index} {..      
8d90: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a    if {[catch {..
8da0: 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 54            beginT
8db0: 72 61 6e 73 61 63 74 69 6f 6e 20 24 64 62 0d 0a  ransaction $db..
8dc0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78            sql ex
8dd0: 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e  ecute $db [appen
8de0: 64 41 72 67 73 20 22 44 45 4c 45 54 45 20 46 52  dArgs "DELETE FR
8df0: 4f 4d 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20  OM " $table \.. 
8e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 57               " W
8e10: 48 45 52 45 20 78 20 4c 49 4b 45 20 27 22 20 5b  HERE x LIKE '" [
8e20: 66 6f 72 6d 61 74 20 25 58 20 24 69 6e 64 65 78  format %X $index
8e30: 5d 20 22 25 27 20 41 4e 44 20 7a 20 3d 20 27 62  ] "%' AND z = 'b
8e40: 69 67 27 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20  ig';"]..        
8e50: 20 20 65 6e 64 54 72 61 6e 73 61 63 74 69 6f 6e    endTransaction
8e60: 20 24 64 62 0d 0a 20 20 20 20 20 20 20 20 20 20   $db..          
8e70: 73 68 6f 77 54 65 73 74 20 4a 0d 0a 20 20 20 20  showTest J..    
8e80: 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68      } error]} th
8e90: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
8ea0: 63 61 74 63 68 20 7b 65 72 72 6f 72 54 72 61 6e  catch {errorTran
8eb0: 73 61 63 74 69 6f 6e 20 24 64 62 7d 0d 0a 20 20  saction $db}..  
8ec0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45          if {[isE
8ed0: 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 72  xpectedError $er
8ee0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
8ef0: 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65            showTe
8f00: 73 74 20 6a 0d 0a 20 20 20 20 20 20 20 20 20 20  st j..          
8f10: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
8f20: 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 6a        failTest j
8f30: 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20   $error..       
8f40: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d     }..        }.
8f50: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20  .      }..      
8f60: 63 6c 65 61 6e 75 70 44 62 20 24 64 73 74 46 69  cleanupDb $dstFi
8f70: 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 65 20  leName db false 
8f80: 74 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 20 20  true false..    
8f90: 20 20 64 6f 6e 65 54 65 73 74 20 4a 0d 0a 20 20    doneTest J..  
8fa0: 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d    }] 0]..  }]...
8fb0: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
8fc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8fd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8fe0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8ff0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9000: 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20 20 20  ..  #           
9010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9020: 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 31 20     WORKLOAD #11 
9030: 28 4b 29 20 20 20 20 20 20 20 20 20 20 20 20 20  (K)             
9040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9050: 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  #..  ###########
9060: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9070: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9080: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9090: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
90a0: 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b  ##....  set work
90b0: 6c 6f 61 64 28 31 31 29 20 5b 6c 69 73 74 20 5c  load(11) [list \
90c0: 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73 72  ..      [list sr
90d0: 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c  cFileName dstFil
90e0: 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e  eName table coun
90f0: 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33  t1 count2 count3
9100: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
9110: 63 6f 75 6e 74 34 20 63 6f 75 6e 74 35 20 63 6f  count4 count5 co
9120: 75 6e 74 36 20 63 6f 75 6e 74 37 5d 20 7b 0d 0a  unt6 count7] {..
9130: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
9140: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 31 2c  E: Workload #11,
9150: 20 56 41 43 55 55 4d 20 73 74 61 74 65 6d 65 6e   VACUUM statemen
9160: 74 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 77  t...    #..    w
9170: 61 69 74 54 65 73 74 20 4b 0d 0a 20 20 20 20 6c  aitTest K..    l
9180: 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 31  append ::times(1
9190: 31 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65  1) [lindex [time
91a0: 20 7b 0d 0a 20 20 20 20 20 20 69 6e 69 74 54 65   {..      initTe
91b0: 73 74 20 4b 0d 0a 20 20 20 20 20 20 73 65 74 75  st K..      setu
91c0: 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20  pWorkloadFileDb 
91d0: 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 0d  $dstFileName db.
91e0: 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20  .      for {set 
91f0: 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78  index 1} {$index
9200: 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e   <= $count1} {in
9210: 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20  cr index} {..   
9220: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20       if {[catch 
9230: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c  {..          sql
9240: 20 65 78 65 63 75 74 65 20 24 64 62 20 22 56 41   execute $db "VA
9250: 43 55 55 4d 3b 22 0d 0a 20 20 20 20 20 20 20 20  CUUM;"..        
9260: 20 20 73 68 6f 77 54 65 73 74 20 4b 0d 0a 20 20    showTest K..  
9270: 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20        } error]} 
9280: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
9290: 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74 65    if {[isExpecte
92a0: 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20  dError $error]} 
92b0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
92c0: 20 20 20 20 73 68 6f 77 54 65 73 74 20 6b 0d 0a      showTest k..
92d0: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65            } else
92e0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
92f0: 66 61 69 6c 54 65 73 74 20 6b 20 24 65 72 72 6f  failTest k $erro
9300: 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  r..          }..
9310: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
9320: 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e 75   }..      cleanu
9330: 70 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d 65  pDb $dstFileName
9340: 20 64 62 20 66 61 6c 73 65 20 74 72 75 65 20 66   db false true f
9350: 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e 65  alse..      done
9360: 54 65 73 74 20 4b 0d 0a 20 20 20 20 7d 5d 20 30  Test K..    }] 0
9370: 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23  ]..  }]....  ###
9380: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9390: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
93a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
93b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
93c0: 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23 20  ##########..  # 
93d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
93e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 4f 52               WOR
93f0: 4b 4c 4f 41 44 20 23 31 32 20 28 4c 29 20 20 20  KLOAD #12 (L)   
9400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9410: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 23            #..  #
9420: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9430: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9450: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9460: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a  ############....
9470: 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28 31    set workload(1
9480: 32 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20  2) [list \..    
9490: 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c 65 4e    [list srcFileN
94a0: 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d 65 20  ame dstFileName 
94b0: 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f 75  table count1 cou
94c0: 6e 74 32 20 63 6f 75 6e 74 33 20 5c 0d 0a 20 20  nt2 count3 \..  
94d0: 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74 34            count4
94e0: 20 63 6f 75 6e 74 35 20 63 6f 75 6e 74 36 20 63   count5 count6 c
94f0: 6f 75 6e 74 37 5d 20 7b 0d 0a 20 20 20 20 23 0d  ount7] {..    #.
9500: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72  .    # NOTE: Wor
9510: 6b 6c 6f 61 64 20 23 31 32 2c 20 62 61 63 6b 75  kload #12, backu
9520: 70 20 74 6f 20 69 6e 2d 6d 65 6d 6f 72 79 20 64  p to in-memory d
9530: 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 20 23 0d  atabase...    #.
9540: 0a 20 20 20 20 77 61 69 74 54 65 73 74 20 4c 0d  .    waitTest L.
9550: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74  .    lappend ::t
9560: 69 6d 65 73 28 31 32 29 20 5b 6c 69 6e 64 65 78  imes(12) [lindex
9570: 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20   [time {..      
9580: 69 6e 69 74 54 65 73 74 20 4c 0d 0a 20 20 20 20  initTest L..    
9590: 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78    for {set index
95a0: 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24   1} {$index <= $
95b0: 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e  count1} {incr in
95c0: 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20  dex} {..        
95d0: 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 73 20 69  if {[string is i
95e0: 6e 74 65 67 65 72 20 2d 73 74 72 69 63 74 20 24  nteger -strict $
95f0: 3a 3a 63 6f 6d 70 69 6c 65 64 28 31 32 29 5d 7d  ::compiled(12)]}
9600: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
9610: 20 20 20 73 65 74 20 69 64 20 24 3a 3a 63 6f 6d     set id $::com
9620: 70 69 6c 65 64 28 31 32 29 3b 20 23 20 4e 4f 54  piled(12); # NOT
9630: 45 3a 20 41 6c 72 65 61 64 79 20 63 6f 6d 70 69  E: Already compi
9640: 6c 65 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  led...          
9650: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20  if {[catch {..  
9660: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74            object
9670: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63   invoke _Dynamic
9680: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20  ${id}.Test${id} 
9690: 42 61 63 6b 75 70 41 6e 64 47 65 74 44 61 74 61  BackupAndGetData
96a0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 68  ..            sh
96b0: 6f 77 54 65 73 74 20 4c 0d 0a 20 20 20 20 20 20  owTest L..      
96c0: 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68      } error]} th
96d0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
96e0: 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74 65    if {[isExpecte
96f0: 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20  dError $error]} 
9700: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
9710: 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 6c        showTest l
9720: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20  ..            } 
9730: 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  else {..        
9740: 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 6c        failTest l
9750: 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20   $error..       
9760: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
9770: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65    }..        } e
9780: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
9790: 20 73 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20   set id [object 
97a0: 69 6e 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74  invoke Interpret
97b0: 65 72 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78  er.GetActive Nex
97c0: 74 49 64 5d 0d 0a 20 20 20 20 20 20 20 20 20 20  tId]..          
97d0: 73 65 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c  set code [compil
97e0: 65 43 53 68 61 72 70 57 69 74 68 20 5b 73 75 62  eCSharpWith [sub
97f0: 73 74 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  st {..          
9800: 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 44    using System.D
9810: 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 0d 0a 20  ata.SQLite;.... 
9820: 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 73             names
9830: 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24 7b 69  pace _Dynamic${i
9840: 64 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  d}..            
9850: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
9860: 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 63   public static c
9870: 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d 0d 0a  lass Test${id}..
9880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d                {.
9890: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
98a0: 20 70 75 62 6c 69 63 20 73 74 61 74 69 63 20 76   public static v
98b0: 6f 69 64 20 42 61 63 6b 75 70 41 6e 64 47 65 74  oid BackupAndGet
98c0: 44 61 74 61 28 29 0d 0a 20 20 20 20 20 20 20 20  Data()..        
98d0: 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20          {..     
98e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 69               usi
98f0: 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65 63  ng (SQLiteConnec
9900: 74 69 6f 6e 20 73 6f 75 72 63 65 20 3d 20 6e 65  tion source = ne
9910: 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69  w SQLiteConnecti
9920: 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  on(..           
9930: 20 20 20 20 20 20 20 20 20 20 20 22 46 75 6c 6c             "Full
9940: 55 72 69 3d 24 7b 64 73 74 46 69 6c 65 4e 61 6d  Uri=${dstFileNam
9950: 65 7d 3b 5b 67 65 74 54 65 73 74 50 72 6f 70 65  e};[getTestPrope
9960: 72 74 69 65 73 20 7b 7d 20 74 72 75 65 5d 22 29  rties {} true]")
9970: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
9980: 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20       {..        
9990: 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75 72              sour
99a0: 63 65 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20  ce.Open();....  
99b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
99c0: 20 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43    using (SQLiteC
99d0: 6f 6e 6e 65 63 74 69 6f 6e 20 64 65 73 74 69 6e  onnection destin
99e0: 61 74 69 6f 6e 20 3d 20 6e 65 77 20 53 51 4c 69  ation = new SQLi
99f0: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20  teConnection(.. 
9a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9a10: 20 20 20 20 20 20 20 22 46 75 6c 6c 55 72 69 3d         "FullUri=
9a20: 24 7b 73 72 63 46 69 6c 65 4e 61 6d 65 7d 3b 5b  ${srcFileName};[
9a30: 67 65 74 54 65 73 74 50 72 6f 70 65 72 74 69 65  getTestPropertie
9a40: 73 20 7b 7d 20 74 72 75 65 5d 22 29 29 0d 0a 20  s {} true]")).. 
9a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9a60: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
9a70: 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 74              dest
9a80: 69 6e 61 74 69 6f 6e 2e 4f 70 65 6e 28 29 3b 0d  ination.Open();.
9a90: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ...             
9aa0: 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65 2e           source.
9ab0: 42 61 63 6b 75 70 44 61 74 61 62 61 73 65 28 0d  BackupDatabase(.
9ac0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
9ad0: 20 20 20 20 20 20 20 20 20 20 20 64 65 73 74 69             desti
9ae0: 6e 61 74 69 6f 6e 2c 20 22 6d 61 69 6e 22 2c 20  nation, "main", 
9af0: 22 6d 61 69 6e 22 2c 20 2d 31 2c 20 6e 75 6c 6c  "main", -1, null
9b00: 2c 20 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 20  , 0);..         
9b10: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
9b20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9b30: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  }..             
9b40: 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20 20     }....        
9b50: 20 20 20 20 20 20 20 20 2f 2f 2f 2f 2f 2f 2f 2f          ////////
9b60: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
9b70: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
9b80: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
9b90: 2f 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 20 20 20 20 20  ///////....     
9ba0: 20 20 20 20 20 20 20 20 20 20 20 70 75 62 6c 69             publi
9bb0: 63 20 73 74 61 74 69 63 20 76 6f 69 64 20 4d 61  c static void Ma
9bc0: 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 20 20  in()..          
9bd0: 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20        {..       
9be0: 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 64 6f             // do
9bf0: 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20 20   nothing...     
9c00: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
9c10: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
9c20: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
9c30: 20 20 20 20 20 20 20 20 7d 5d 20 74 72 75 65 20          }] true 
9c40: 66 61 6c 73 65 20 74 72 75 65 20 72 65 73 75 6c  false true resul
9c50: 74 73 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d  ts errors System
9c60: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c  .Data.SQLite.dll
9c70: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  ]..          if 
9c80: 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 7d 20  {$code eq "Ok"} 
9c90: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
9ca0: 20 20 20 20 73 65 74 20 3a 3a 63 6f 6d 70 69 6c      set ::compil
9cb0: 65 64 28 31 32 29 20 24 69 64 3b 20 23 20 4e 4f  ed(12) $id; # NO
9cc0: 54 45 3a 20 43 6f 6d 70 69 6c 65 64 20 4f 4b 2e  TE: Compiled OK.
9cd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66  ..            if
9ce0: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..    
9cf0: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74            object
9d00: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63   invoke _Dynamic
9d10: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20  ${id}.Test${id} 
9d20: 42 61 63 6b 75 70 41 6e 64 47 65 74 44 61 74 61  BackupAndGetData
9d30: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
9d40: 73 68 6f 77 54 65 73 74 20 4c 0d 0a 20 20 20 20  showTest L..    
9d50: 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d          } error]
9d60: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
9d70: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45          if {[isE
9d80: 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 72  xpectedError $er
9d90: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
9da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68                sh
9db0: 6f 77 54 65 73 74 20 6c 0d 0a 20 20 20 20 20 20  owTest l..      
9dc0: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
9dd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
9de0: 20 20 66 61 69 6c 54 65 73 74 20 6c 20 24 65 72    failTest l $er
9df0: 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ror..           
9e00: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
9e10: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d    }..          }
9e20: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
9e30: 20 20 20 20 20 65 72 72 6f 72 20 24 65 72 72 6f       error $erro
9e40: 72 73 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  rs..          }.
9e50: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
9e60: 20 20 7d 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54    }..      doneT
9e70: 65 73 74 20 4c 0d 0a 20 20 20 20 7d 5d 20 30 5d  est L..    }] 0]
9e80: 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23  ..  }]....  ####
9e90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9ea0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9eb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9ec0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9ed0: 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23 20 20  #########..  #  
9ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9ef0: 20 20 20 20 20 20 20 20 20 20 20 20 57 4f 52 4b              WORK
9f00: 4c 4f 41 44 20 23 31 33 20 28 4d 29 20 20 20 20  LOAD #13 (M)    
9f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9f20: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 23 23           #..  ##
9f30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9f40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9f50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9f60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9f70: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20  ###########.... 
9f80: 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28 31 33   set workload(13
9f90: 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20  ) [list \..     
9fa0: 20 5b 6c 69 73 74 20 73 72 63 46 69 6c 65 4e 61   [list srcFileNa
9fb0: 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d 65 20 74  me dstFileName t
9fc0: 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e  able count1 coun
9fd0: 74 32 20 63 6f 75 6e 74 33 20 5c 0d 0a 20 20 20  t2 count3 \..   
9fe0: 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74 34 20           count4 
9ff0: 63 6f 75 6e 74 35 20 63 6f 75 6e 74 36 20 63 6f  count5 count6 co
a000: 75 6e 74 37 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a  unt7] {..    #..
a010: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b      # NOTE: Work
a020: 6c 6f 61 64 20 23 31 33 2c 20 62 61 63 6b 75 70  load #13, backup
a030: 20 66 72 6f 6d 20 61 6e 20 69 6e 2d 6d 65 6d 6f   from an in-memo
a040: 72 79 20 64 61 74 61 62 61 73 65 2e 0d 0a 20 20  ry database...  
a050: 20 20 23 0d 0a 20 20 20 20 77 61 69 74 54 65 73    #..    waitTes
a060: 74 20 4d 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64  t M..    lappend
a070: 20 3a 3a 74 69 6d 65 73 28 31 33 29 20 5b 6c 69   ::times(13) [li
a080: 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20  ndex [time {..  
a090: 20 20 20 20 69 6e 69 74 54 65 73 74 20 4d 0d 0a      initTest M..
a0a0: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69        for {set i
a0b0: 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20  ndex 1} {$index 
a0c0: 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63  <= $count1} {inc
a0d0: 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20  r index} {..    
a0e0: 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20      if {[string 
a0f0: 69 73 20 69 6e 74 65 67 65 72 20 2d 73 74 72 69  is integer -stri
a100: 63 74 20 24 3a 3a 63 6f 6d 70 69 6c 65 64 28 31  ct $::compiled(1
a110: 33 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  3)]} then {..   
a120: 20 20 20 20 20 20 20 73 65 74 20 69 64 20 24 3a         set id $:
a130: 3a 63 6f 6d 70 69 6c 65 64 28 31 33 29 3b 20 23  :compiled(13); #
a140: 20 4e 4f 54 45 3a 20 41 6c 72 65 61 64 79 20 63   NOTE: Already c
a150: 6f 6d 70 69 6c 65 64 2e 0d 0a 20 20 20 20 20 20  ompiled...      
a160: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
a170: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6f 62  ..            ob
a180: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e  ject invoke _Dyn
a190: 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b  amic${id}.Test${
a1a0: 69 64 7d 20 42 61 63 6b 75 70 41 6e 64 47 65 74  id} BackupAndGet
a1b0: 44 61 74 61 0d 0a 20 20 20 20 20 20 20 20 20 20  Data..          
a1c0: 20 20 73 68 6f 77 54 65 73 74 20 4d 0d 0a 20 20    showTest M..  
a1d0: 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d          } error]
a1e0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
a1f0: 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 70        if {[isExp
a200: 65 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 6f  ectedError $erro
a210: 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  r]} then {..    
a220: 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65            showTe
a230: 73 74 20 6d 0d 0a 20 20 20 20 20 20 20 20 20 20  st m..          
a240: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
a250: 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 54 65            failTe
a260: 73 74 20 6d 20 24 65 72 72 6f 72 0d 0a 20 20 20  st m $error..   
a270: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
a280: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
a290: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
a2a0: 20 20 20 20 20 73 65 74 20 69 64 20 5b 6f 62 6a       set id [obj
a2b0: 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e 74 65 72  ect invoke Inter
a2c0: 70 72 65 74 65 72 2e 47 65 74 41 63 74 69 76 65  preter.GetActive
a2d0: 20 4e 65 78 74 49 64 5d 0d 0a 20 20 20 20 20 20   NextId]..      
a2e0: 20 20 20 20 73 65 74 20 63 6f 64 65 20 5b 63 6f      set code [co
a2f0: 6d 70 69 6c 65 43 53 68 61 72 70 57 69 74 68 20  mpileCSharpWith 
a300: 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20 20 20 20  [subst {..      
a310: 20 20 20 20 20 20 75 73 69 6e 67 20 53 79 73 74        using Syst
a320: 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d  em.Data.SQLite;.
a330: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e  ...            n
a340: 61 6d 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69  amespace _Dynami
a350: 63 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20 20 20  c${id}..        
a360: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
a370: 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74       public stat
a380: 69 63 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69  ic class Test${i
a390: 64 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  d}..            
a3a0: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
a3b0: 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74       public stat
a3c0: 69 63 20 76 6f 69 64 20 42 61 63 6b 75 70 41 6e  ic void BackupAn
a3d0: 64 47 65 74 44 61 74 61 28 29 0d 0a 20 20 20 20  dGetData()..    
a3e0: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
a3f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a400: 20 75 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f   using (SQLiteCo
a410: 6e 6e 65 63 74 69 6f 6e 20 73 6f 75 72 63 65 20  nnection source 
a420: 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e  = new SQLiteConn
a430: 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20  ection(..       
a440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
a450: 46 75 6c 6c 55 72 69 3d 24 7b 73 72 63 46 69 6c  FullUri=${srcFil
a460: 65 4e 61 6d 65 7d 3b 5b 67 65 74 54 65 73 74 50  eName};[getTestP
a470: 72 6f 70 65 72 74 69 65 73 20 7b 7d 20 74 72 75  roperties {} tru
a480: 65 5d 22 29 29 0d 0a 20 20 20 20 20 20 20 20 20  e]"))..         
a490: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
a4a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a4b0: 73 6f 75 72 63 65 2e 4f 70 65 6e 28 29 3b 0d 0a  source.Open();..
a4c0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
a4d0: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
a4e0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 64 65  iteConnection de
a4f0: 73 74 69 6e 61 74 69 6f 6e 20 3d 20 6e 65 77 20  stination = new 
a500: 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e  SQLiteConnection
a510: 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  (..             
a520: 20 20 20 20 20 20 20 20 20 20 20 22 46 75 6c 6c             "Full
a530: 55 72 69 3d 24 7b 64 73 74 46 69 6c 65 4e 61 6d  Uri=${dstFileNam
a540: 65 7d 3b 5b 67 65 74 54 65 73 74 50 72 6f 70 65  e};[getTestPrope
a550: 72 74 69 65 73 20 7b 7d 20 74 72 75 65 5d 22 29  rties {} true]")
a560: 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  )..             
a570: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
a580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
a590: 64 65 73 74 69 6e 61 74 69 6f 6e 2e 4f 70 65 6e  destination.Open
a5a0: 28 29 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20  ();....         
a5b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 6f 75               sou
a5c0: 72 63 65 2e 42 61 63 6b 75 70 44 61 74 61 62 61  rce.BackupDataba
a5d0: 73 65 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20  se(..           
a5e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64                 d
a5f0: 65 73 74 69 6e 61 74 69 6f 6e 2c 20 22 6d 61 69  estination, "mai
a600: 6e 22 2c 20 22 6d 61 69 6e 22 2c 20 2d 31 2c 20  n", "main", -1, 
a610: 6e 75 6c 6c 2c 20 30 29 3b 0d 0a 20 20 20 20 20  null, 0);..     
a620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d                 }
a630: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
a640: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
a650: 20 20 20 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20         }....    
a660: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 2f 2f              ////
a670: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
a680: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
a690: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
a6a0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 20  ///////////.... 
a6b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70                 p
a6c0: 75 62 6c 69 63 20 73 74 61 74 69 63 20 76 6f 69  ublic static voi
a6d0: 64 20 4d 61 69 6e 28 29 0d 0a 20 20 20 20 20 20  d Main()..      
a6e0: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
a6f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f                 /
a700: 2f 20 64 6f 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20  / do nothing... 
a710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d                 }
a720: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
a730: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d  }..            }
a740: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 5d 20 74  ..          }] t
a750: 72 75 65 20 66 61 6c 73 65 20 74 72 75 65 20 72  rue false true r
a760: 65 73 75 6c 74 73 20 65 72 72 6f 72 73 20 53 79  esults errors Sy
a770: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
a780: 2e 64 6c 6c 5d 0d 0a 20 20 20 20 20 20 20 20 20  .dll]..         
a790: 20 69 66 20 7b 24 63 6f 64 65 20 65 71 20 22 4f   if {$code eq "O
a7a0: 6b 22 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  k"} then {..    
a7b0: 20 20 20 20 20 20 20 20 73 65 74 20 3a 3a 63 6f          set ::co
a7c0: 6d 70 69 6c 65 64 28 31 33 29 20 24 69 64 3b 20  mpiled(13) $id; 
a7d0: 23 20 4e 4f 54 45 3a 20 43 6f 6d 70 69 6c 65 64  # NOTE: Compiled
a7e0: 20 4f 4b 2e 0d 0a 20 20 20 20 20 20 20 20 20 20   OK...          
a7f0: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a    if {[catch {..
a800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 62                ob
a810: 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e  ject invoke _Dyn
a820: 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b  amic${id}.Test${
a830: 69 64 7d 20 42 61 63 6b 75 70 41 6e 64 47 65 74  id} BackupAndGet
a840: 44 61 74 61 0d 0a 20 20 20 20 20 20 20 20 20 20  Data..          
a850: 20 20 20 20 73 68 6f 77 54 65 73 74 20 4d 0d 0a      showTest M..
a860: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 72              } er
a870: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
a880: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7b              if {
a890: 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 6f 72  [isExpectedError
a8a0: 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b   $error]} then {
a8b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
a8c0: 20 20 73 68 6f 77 54 65 73 74 20 6d 0d 0a 20 20    showTest m..  
a8d0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c              } el
a8e0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  se {..          
a8f0: 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 6d        failTest m
a900: 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20   $error..       
a910: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
a920: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
a930: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
a940: 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 24           error $
a950: 65 72 72 6f 72 73 0d 0a 20 20 20 20 20 20 20 20  errors..        
a960: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a    }..        }..
a970: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 64        }..      d
a980: 6f 6e 65 54 65 73 74 20 4d 0d 0a 20 20 20 20 7d  oneTest M..    }
a990: 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20  ] 0]..  }]....  
a9a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a9b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a9c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a9d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a9e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20  #############.. 
a9f0: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20   #              
aa00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
aa10: 57 4f 52 4b 4c 4f 41 44 20 23 31 34 20 28 4e 29  WORKLOAD #14 (N)
aa20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
aa30: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a               #..
aa40: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
aa50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aa60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aa70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aa80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
aa90: 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61  ...  set workloa
aaa0: 64 28 31 34 29 20 5b 6c 69 73 74 20 5c 0d 0a 20  d(14) [list \.. 
aab0: 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69       [list srcFi
aac0: 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61  leName dstFileNa
aad0: 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20  me table count1 
aae0: 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 20 5c 0d  count2 count3 \.
aaf0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75  .            cou
ab00: 6e 74 34 20 63 6f 75 6e 74 35 20 63 6f 75 6e 74  nt4 count5 count
ab10: 36 20 63 6f 75 6e 74 37 5d 20 7b 0d 0a 20 20 20  6 count7] {..   
ab20: 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20   #..    # NOTE: 
ab30: 57 6f 72 6b 6c 6f 61 64 20 23 31 34 2c 20 50 52  Workload #14, PR
ab40: 41 47 4d 41 20 69 6e 74 65 67 72 69 74 79 20 63  AGMA integrity c
ab50: 68 65 63 6b 20 73 74 61 74 65 6d 65 6e 74 2e 0d  heck statement..
ab60: 0a 20 20 20 20 23 0d 0a 20 20 20 20 77 61 69 74  .    #..    wait
ab70: 54 65 73 74 20 4e 0d 0a 20 20 20 20 6c 61 70 70  Test N..    lapp
ab80: 65 6e 64 20 3a 3a 74 69 6d 65 73 28 31 34 29 20  end ::times(14) 
ab90: 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d  [lindex [time {.
aba0: 0a 20 20 20 20 20 20 69 6e 69 74 54 65 73 74 20  .      initTest 
abb0: 4e 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f  N..      setupWo
abc0: 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73  rkloadFileDb $ds
abd0: 74 46 69 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20  tFileName db..  
abe0: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64      for {set ind
abf0: 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d  ex 1} {$index <=
ac00: 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20   $count1} {incr 
ac10: 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20  index} {..      
ac20: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a    if {[catch {..
ac30: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 65            set re
ac40: 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63 75 74  sult [sql execut
ac50: 65 20 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61  e -execute scala
ac60: 72 20 24 64 62 20 5c 0d 0a 20 20 20 20 20 20 20  r $db \..       
ac70: 20 20 20 20 20 20 20 22 50 52 41 47 4d 41 20 69         "PRAGMA i
ac80: 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 3b 22  ntegrity_check;"
ac90: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  ]..          if 
aca0: 7b 24 72 65 73 75 6c 74 20 6e 65 20 22 6f 6b 22  {$result ne "ok"
acb0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
acc0: 20 20 20 20 20 20 65 72 72 6f 72 20 5b 61 70 70        error [app
acd0: 65 6e 64 41 72 67 73 20 22 69 6e 74 65 67 72 69  endArgs "integri
ace0: 74 79 20 63 68 65 63 6b 20 66 61 69 6c 65 64 3a  ty check failed:
acf0: 20 22 20 24 72 65 73 75 6c 74 5d 0d 0a 20 20 20   " $result]..   
ad00: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
ad10: 20 20 20 20 73 68 6f 77 54 65 73 74 20 4e 0d 0a      showTest N..
ad20: 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d          } error]
ad30: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
ad40: 20 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63      if {[isExpec
ad50: 74 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d  tedError $error]
ad60: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
ad70: 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 6e        showTest n
ad80: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c  ..          } el
ad90: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  se {..          
ada0: 20 20 66 61 69 6c 54 65 73 74 20 6e 20 24 65 72    failTest n $er
adb0: 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d  ror..          }
adc0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20  ..        }..   
add0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61     }..      clea
ade0: 6e 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e 61  nupDb $dstFileNa
adf0: 6d 65 20 64 62 20 66 61 6c 73 65 20 74 72 75 65  me db false true
ae00: 20 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f   false..      do
ae10: 6e 65 54 65 73 74 20 4e 0d 0a 20 20 20 20 7d 5d  neTest N..    }]
ae20: 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23   0]..  }]....  #
ae30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ae40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ae50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ae60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ae70: 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20  ############..  
ae80: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  #               
ae90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57                 W
aea0: 4f 52 4b 4c 4f 41 44 20 23 31 35 20 28 4f 29 20  ORKLOAD #15 (O) 
aeb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
aec0: 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20              #.. 
aed0: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23   ###############
aee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aef0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
af00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
af10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
af20: 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64  ..  set workload
af30: 28 31 35 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20  (15) [list \..  
af40: 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c      [list srcFil
af50: 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d  eName dstFileNam
af60: 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63  e table count1 c
af70: 6f 75 6e 74 32 20 63 6f 75 6e 74 33 20 5c 0d 0a  ount2 count3 \..
af80: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e              coun
af90: 74 34 20 63 6f 75 6e 74 35 20 63 6f 75 6e 74 36  t4 count5 count6
afa0: 20 63 6f 75 6e 74 37 5d 20 7b 0d 0a 20 20 20 20   count7] {..    
afb0: 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57  #..    # NOTE: W
afc0: 6f 72 6b 6c 6f 61 64 20 23 31 35 2c 20 66 6f 72  orkload #15, for
afd0: 63 65 20 6d 61 6e 61 67 65 64 20 67 61 72 62 61  ce managed garba
afe0: 67 65 20 63 6f 6c 6c 65 63 74 69 6f 6e 0d 0a 20  ge collection.. 
aff0: 20 20 20 23 0d 0a 20 20 20 20 77 61 69 74 54 65     #..    waitTe
b000: 73 74 20 4f 0d 0a 20 20 20 20 6c 61 70 70 65 6e  st O..    lappen
b010: 64 20 3a 3a 74 69 6d 65 73 28 31 35 29 20 5b 6c  d ::times(15) [l
b020: 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20  index [time {.. 
b030: 20 20 20 20 20 69 6e 69 74 54 65 73 74 20 4f 0d       initTest O.
b040: 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20  .      for {set 
b050: 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78  index 1} {$index
b060: 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e   <= $count1} {in
b070: 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20  cr index} {..   
b080: 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20       if {[catch 
b090: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 63 6f 6c  {..          col
b0a0: 6c 65 63 74 47 61 72 62 61 67 65 20 24 3a 3a 74  lectGarbage $::t
b0b0: 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 20 20 20  est_channel..   
b0c0: 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20         showTest 
b0d0: 4f 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72  O..        } err
b0e0: 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  or]} then {..   
b0f0: 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78         if {[isEx
b100: 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 72 72  pectedError $err
b110: 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  or]} then {..   
b120: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73           showTes
b130: 74 20 6f 0d 0a 20 20 20 20 20 20 20 20 20 20 7d  t o..          }
b140: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
b150: 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 6f 20       failTest o 
b160: 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20  $error..        
b170: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a    }..        }..
b180: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 64        }..      d
b190: 6f 6e 65 54 65 73 74 20 4f 0d 0a 20 20 20 20 7d  oneTest O..    }
b1a0: 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20  ] 0]..  }]....  
b1b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b1c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b1d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b1e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b1f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20  #############.. 
b200: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20   #              
b210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b220: 57 4f 52 4b 4c 4f 41 44 20 23 31 36 20 28 50 29  WORKLOAD #16 (P)
b230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b240: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a               #..
b250: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
b260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
b2a0: 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61  ...  set workloa
b2b0: 64 28 31 36 29 20 5b 6c 69 73 74 20 5c 0d 0a 20  d(16) [list \.. 
b2c0: 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69       [list srcFi
b2d0: 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61  leName dstFileNa
b2e0: 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20  me table count1 
b2f0: 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 20 5c 0d  count2 count3 \.
b300: 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75  .            cou
b310: 6e 74 34 20 63 6f 75 6e 74 35 20 63 6f 75 6e 74  nt4 count5 count
b320: 36 20 63 6f 75 6e 74 37 5d 20 7b 0d 0a 20 20 20  6 count7] {..   
b330: 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20   #..    # NOTE: 
b340: 57 6f 72 6b 6c 6f 61 64 20 23 31 36 2c 20 61 6c  Workload #16, al
b350: 6c 6f 63 61 74 65 20 28 65 78 63 6c 75 64 65 29  locate (exclude)
b360: 20 73 6f 6d 65 20 6e 61 74 69 76 65 20 68 65 61   some native hea
b370: 70 20 6d 65 6d 6f 72 79 0d 0a 20 20 20 20 23 0d  p memory..    #.
b380: 0a 20 20 20 20 77 61 69 74 54 65 73 74 20 50 0d  .    waitTest P.
b390: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74  .    lappend ::t
b3a0: 69 6d 65 73 28 31 36 29 20 5b 6c 69 6e 64 65 78  imes(16) [lindex
b3b0: 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20   [time {..      
b3c0: 69 6e 69 74 54 65 73 74 20 50 0d 0a 20 20 20 20  initTest P..    
b3d0: 20 20 73 65 74 20 6d 61 78 53 69 7a 65 20 24 63    set maxSize $c
b3e0: 6f 75 6e 74 34 0d 0a 20 20 20 20 20 20 6f 62 6a  ount4..      obj
b3f0: 65 63 74 20 69 6e 76 6f 6b 65 20 47 43 20 41 64  ect invoke GC Ad
b400: 64 4d 65 6d 6f 72 79 50 72 65 73 73 75 72 65 20  dMemoryPressure 
b410: 24 6d 61 78 53 69 7a 65 0d 0a 20 20 20 20 20 20  $maxSize..      
b420: 74 72 79 20 7b 0d 0a 20 20 20 20 20 20 20 20 66  try {..        f
b430: 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 7d  or {set index 1}
b440: 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75   {$index <= $cou
b450: 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78  nt1} {incr index
b460: 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69  } {..          i
b470: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20  f {[catch {..   
b480: 20 20 20 20 20 20 20 20 20 73 65 74 20 73 69 7a           set siz
b490: 65 20 5b 65 78 70 72 20 7b 69 6e 74 28 6d 69 6e  e [expr {int(min
b4a0: 28 24 6d 61 78 53 69 7a 65 2c 20 61 62 73 28 24  ($maxSize, abs($
b4b0: 63 6f 75 6e 74 33 20 2a 20 24 69 6e 64 65 78 20  count3 * $index 
b4c0: 2a 20 35 2e 30 29 29 29 7d 5d 0d 0a 20 20 20 20  * 5.0)))}]..    
b4d0: 20 20 20 20 20 20 20 20 73 65 74 20 70 74 72 20          set ptr 
b4e0: 5b 61 6c 6c 6f 63 4d 65 6d 20 24 73 69 7a 65 5d  [allocMem $size]
b4f0: 3b 20 23 20 74 68 72 6f 77 0d 0a 20 20 20 20 20  ; # throw..     
b500: 20 20 20 20 20 20 20 75 73 65 4d 65 6d 20 24 70         useMem $p
b510: 74 72 20 24 73 69 7a 65 3b 20 64 65 6c 61 79 54  tr $size; delayT
b520: 65 73 74 20 2d 31 20 24 63 6f 75 6e 74 32 0d 0a  est -1 $count2..
b530: 20 20 20 20 20 20 20 20 20 20 20 20 66 72 65 65              free
b540: 4d 65 6d 20 24 70 74 72 3b 20 75 6e 73 65 74 20  Mem $ptr; unset 
b550: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 70 74 72 0d  -nocomplain ptr.
b560: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 68 6f  .            sho
b570: 77 54 65 73 74 20 50 0d 0a 20 20 20 20 20 20 20  wTest P..       
b580: 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65     } error]} the
b590: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
b5a0: 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64   if {[isExpected
b5b0: 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74  Error $error]} t
b5c0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
b5d0: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 70 0d       showTest p.
b5e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65  .            } e
b5f0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
b600: 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 70 20       failTest p 
b610: 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20  $error..        
b620: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
b630: 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20   }..        }.. 
b640: 20 20 20 20 20 7d 20 66 69 6e 61 6c 6c 79 20 7b       } finally {
b650: 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69  ..        if {[i
b660: 6e 66 6f 20 65 78 69 73 74 73 20 70 74 72 5d 7d  nfo exists ptr]}
b670: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
b680: 20 20 20 66 72 65 65 4d 65 6d 20 24 70 74 72 3b     freeMem $ptr;
b690: 20 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61   unset -nocompla
b6a0: 69 6e 20 70 74 72 0d 0a 20 20 20 20 20 20 20 20  in ptr..        
b6b0: 7d 0d 0a 20 20 20 20 20 20 20 20 6f 62 6a 65 63  }..        objec
b6c0: 74 20 69 6e 76 6f 6b 65 20 47 43 20 52 65 6d 6f  t invoke GC Remo
b6d0: 76 65 4d 65 6d 6f 72 79 50 72 65 73 73 75 72 65  veMemoryPressure
b6e0: 20 24 6d 61 78 53 69 7a 65 0d 0a 20 20 20 20 20   $maxSize..     
b6f0: 20 7d 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65   }..      doneTe
b700: 73 74 20 50 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d  st P..    }] 0].
b710: 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23  .  }]....  #####
b720: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b730: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b740: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b750: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b760: 23 23 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20  ########..  #   
b770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b780: 20 20 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c             WORKL
b790: 4f 41 44 20 23 31 37 20 28 51 29 20 20 20 20 20  OAD #17 (Q)     
b7a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
b7b0: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23          #..  ###
b7c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b7d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b7e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b7f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b800: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20  ##########....  
b810: 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28 31 37 29  set workload(17)
b820: 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20 20   [list \..      
b830: 5b 6c 69 73 74 20 73 72 63 46 69 6c 65 4e 61 6d  [list srcFileNam
b840: 65 20 64 73 74 46 69 6c 65 4e 61 6d 65 20 74 61  e dstFileName ta
b850: 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74  ble count1 count
b860: 32 20 63 6f 75 6e 74 33 20 5c 0d 0a 20 20 20 20  2 count3 \..    
b870: 20 20 20 20 20 20 20 20 63 6f 75 6e 74 34 20 63          count4 c
b880: 6f 75 6e 74 35 20 63 6f 75 6e 74 36 20 63 6f 75  ount5 count6 cou
b890: 6e 74 37 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20  nt7] {..    #.. 
b8a0: 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c     # NOTE: Workl
b8b0: 6f 61 64 20 23 31 37 2c 20 63 68 61 6e 67 65 20  oad #17, change 
b8c0: 74 68 65 20 64 61 74 61 62 61 73 65 20 6a 6f 75  the database jou
b8d0: 72 6e 61 6c 20 6d 6f 64 65 0d 0a 20 20 20 20 23  rnal mode..    #
b8e0: 0d 0a 20 20 20 20 77 61 69 74 54 65 73 74 20 51  ..    waitTest Q
b8f0: 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a  ..    lappend ::
b900: 74 69 6d 65 73 28 31 37 29 20 5b 6c 69 6e 64 65  times(17) [linde
b910: 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20  x [time {..     
b920: 20 69 6e 69 74 54 65 73 74 20 51 0d 0a 20 20 20   initTest Q..   
b930: 20 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64     setupWorkload
b940: 46 69 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e  FileDb $dstFileN
b950: 61 6d 65 20 64 62 0d 0a 20 20 20 20 20 20 66 6f  ame db..      fo
b960: 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 7d 20  r {set index 1} 
b970: 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e  {$index <= $coun
b980: 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d  t1} {incr index}
b990: 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20 7b   {..        if {
b9a0: 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20 20  [catch {..      
b9b0: 20 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 20      sql execute 
b9c0: 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73 20  $db [appendArgs 
b9d0: 22 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f  "PRAGMA journal_
b9e0: 6d 6f 64 65 20 3d 20 5c 22 22 20 5c 0d 0a 20 20  mode = \"" \..  
b9f0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 65 78 70              [exp
ba00: 72 20 7b 24 69 6e 64 65 78 20 25 20 32 20 3d 3d  r {$index % 2 ==
ba10: 20 30 20 3f 20 22 64 65 6c 65 74 65 22 20 3a 20   0 ? "delete" : 
ba20: 22 77 61 6c 22 7d 5d 20 5c 22 5c 3b 5d 0d 0a 20  "wal"}] \"\;].. 
ba30: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73           showTes
ba40: 74 20 51 0d 0a 20 20 20 20 20 20 20 20 7d 20 65  t Q..        } e
ba50: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  rror]} then {.. 
ba60: 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73           if {[is
ba70: 45 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 65  ExpectedError $e
ba80: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  rror]} then {.. 
ba90: 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54             showT
baa0: 65 73 74 20 71 0d 0a 20 20 20 20 20 20 20 20 20  est q..         
bab0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
bac0: 20 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 20         failTest 
bad0: 71 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20  q $error..      
bae0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d      }..        }
baf0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20  ..      }..     
bb00: 20 63 6c 65 61 6e 75 70 44 62 20 24 64 73 74 46   cleanupDb $dstF
bb10: 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 65  ileName db false
bb20: 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 20   true false..   
bb30: 20 20 20 64 6f 6e 65 54 65 73 74 20 51 0d 0a 20     doneTest Q.. 
bb40: 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a     }] 0]..  }]..
bb50: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23  ..  ############
bb60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bb70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bb80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bb90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bba0: 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20 20  #..  #          
bbb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
bbc0: 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 38      WORKLOAD #18
bbd0: 20 28 52 29 20 20 20 20 20 20 20 20 20 20 20 20   (R)            
bbe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
bbf0: 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23   #..  ##########
bc00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bc10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bc20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bc30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
bc40: 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72  ###....  set wor
bc50: 6b 6c 6f 61 64 28 31 38 29 20 5b 6c 69 73 74 20  kload(18) [list 
bc60: 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73  \..      [list s
bc70: 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69  rcFileName dstFi
bc80: 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75  leName table cou
bc90: 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74  nt1 count2 count
bca0: 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  3 \..           
bcb0: 20 63 6f 75 6e 74 34 20 63 6f 75 6e 74 35 20 63   count4 count5 c
bcc0: 6f 75 6e 74 36 20 63 6f 75 6e 74 37 5d 20 7b 0d  ount6 count7] {.
bcd0: 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f  .    #..    # NO
bce0: 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38  TE: Workload #18
bcf0: 2c 20 65 78 65 63 75 74 65 20 71 75 65 72 69 65  , execute querie
bd00: 73 20 61 67 61 69 6e 73 74 20 74 68 65 20 69 6e  s against the in
bd10: 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73 65  -memory database
bd20: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 77 61 69  ..    #..    wai
bd30: 74 54 65 73 74 20 52 0d 0a 20 20 20 20 6c 61 70  tTest R..    lap
bd40: 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 31 38 29  pend ::times(18)
bd50: 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b   [lindex [time {
bd60: 0d 0a 20 20 20 20 20 20 69 6e 69 74 54 65 73 74  ..      initTest
bd70: 20 52 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57   R..      setupW
bd80: 6f 72 6b 6c 6f 61 64 4d 65 6d 44 62 20 24 73 72  orkloadMemDb $sr
bd90: 63 46 69 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20  cFileName db..  
bda0: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64      for {set ind
bdb0: 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d  ex 1} {$index <=
bdc0: 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20   $count1} {incr 
bdd0: 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20  index} {..      
bde0: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a    if {[catch {..
bdf0: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
be00: 20 20 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 4d         # NOTE: M
be10: 61 79 62 65 20 73 74 61 72 74 20 61 20 6e 65 77  aybe start a new
be20: 20 74 72 61 6e 73 61 63 74 69 6f 6e 2e 0d 0a 20   transaction... 
be30: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
be40: 20 20 20 20 20 20 62 65 67 69 6e 54 72 61 6e 73        beginTrans
be50: 61 63 74 69 6f 6e 20 24 64 62 0d 0a 20 20 20 20  action $db..    
be60: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
be70: 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c     # NOTE: Workl
be80: 6f 61 64 20 23 31 38 2e 33 2c 20 22 73 6d 61 6c  oad #18.3, "smal
be90: 6c 22 20 53 45 4c 45 43 54 20 73 74 61 74 65 6d  l" SELECT statem
bea0: 65 6e 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 20  ents...         
beb0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65   #..          se
bec0: 74 20 72 65 61 64 65 72 20 5b 73 71 6c 20 65 78  t reader [sql ex
bed0: 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 72  ecute -execute r
bee0: 65 61 64 65 72 20 5c 0d 0a 20 20 20 20 20 20 20  eader \..       
bef0: 20 20 20 20 20 20 20 2d 66 6f 72 6d 61 74 20 64         -format d
bf00: 61 74 61 52 65 61 64 65 72 20 2d 61 6c 69 61 73  ataReader -alias
bf10: 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73   $db [appendArgs
bf20: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
bf30: 20 20 22 53 45 4c 45 43 54 20 78 2c 20 79 20 46    "SELECT x, y F
bf40: 52 4f 4d 20 22 20 24 74 61 62 6c 65 20 22 20 57  ROM " $table " W
bf50: 48 45 52 45 20 7a 20 3d 20 27 73 6d 61 6c 6c 27  HERE z = 'small'
bf60: 3b 22 5d 5d 0d 0a 20 20 20 20 20 20 20 20 20 20  ;"]]..          
bf70: 77 68 69 6c 65 20 7b 5b 24 72 65 61 64 65 72 20  while {[$reader 
bf80: 52 65 61 64 5d 7d 20 7b 0d 0a 20 20 20 20 20 20  Read]} {..      
bf90: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
bfa0: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 20       # NOTE: Do 
bfb0: 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20 20 20  nothing...      
bfc0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
bfd0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
bfe0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
bff0: 6e 20 72 65 61 64 65 72 0d 0a 20 20 20 20 20 20  n reader..      
c000: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
c010: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61   # NOTE: Workloa
c020: 64 20 23 31 38 2e 34 2c 20 22 62 69 67 22 20 53  d #18.4, "big" S
c030: 45 4c 45 43 54 20 73 74 61 74 65 6d 65 6e 74 73  ELECT statements
c040: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
c050: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 65            set re
c060: 61 64 65 72 20 5b 73 71 6c 20 65 78 65 63 75 74  ader [sql execut
c070: 65 20 2d 65 78 65 63 75 74 65 20 72 65 61 64 65  e -execute reade
c080: 72 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  r \..           
c090: 20 20 20 2d 66 6f 72 6d 61 74 20 64 61 74 61 52     -format dataR
c0a0: 65 61 64 65 72 20 2d 61 6c 69 61 73 20 24 64 62  eader -alias $db
c0b0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
c0c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53                "S
c0d0: 45 4c 45 43 54 20 78 2c 20 79 20 46 52 4f 4d 20  ELECT x, y FROM 
c0e0: 22 20 24 74 61 62 6c 65 20 22 20 57 48 45 52 45  " $table " WHERE
c0f0: 20 7a 20 3d 20 27 62 69 67 27 3b 22 5d 5d 0d 0a   z = 'big';"]]..
c100: 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20            while 
c110: 7b 5b 24 72 65 61 64 65 72 20 52 65 61 64 5d 7d  {[$reader Read]}
c120: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
c130: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23  #..            #
c140: 20 4e 4f 54 45 3a 20 44 6f 20 6e 6f 74 68 69 6e   NOTE: Do nothin
c150: 67 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  g...            
c160: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  #..          }..
c170: 20 20 20 20 20 20 20 20 20 20 75 6e 73 65 74 20            unset 
c180: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 61 64  -nocomplain read
c190: 65 72 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  er..          #.
c1a0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
c1b0: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38 2e  E: Workload #18.
c1c0: 35 2c 20 22 73 6d 61 6c 6c 22 20 49 4e 53 45 52  5, "small" INSER
c1d0: 54 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20  T statements... 
c1e0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
c1f0: 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 74        sql execut
c200: 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67  e $db [appendArg
c210: 73 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 22  s "INSERT INTO "
c220: 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20   $table \..     
c230: 20 20 20 20 20 20 20 20 20 22 28 78 2c 20 79 2c           "(x, y,
c240: 20 7a 29 20 56 41 4c 55 45 53 28 27 22 20 5b 66   z) VALUES('" [f
c250: 6f 72 6d 61 74 20 25 6c 58 20 5b 65 78 70 72 20  ormat %lX [expr 
c260: 7b 72 61 6e 64 6f 6d 28 29 7d 5d 5d 20 5c 0d 0a  {random()}]] \..
c270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 27                "'
c280: 2c 20 27 22 20 5b 62 61 73 65 36 34 20 65 6e 63  , '" [base64 enc
c290: 6f 64 65 20 2d 2d 20 5b 65 78 70 72 20 7b 72 61  ode -- [expr {ra
c2a0: 6e 64 73 74 72 28 24 63 6f 75 6e 74 32 29 7d 5d  ndstr($count2)}]
c2b0: 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ] \..           
c2c0: 20 20 20 22 27 2c 20 27 73 6d 61 6c 6c 27 29 3b     "', 'small');
c2d0: 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  "]..          #.
c2e0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
c2f0: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38 2e  E: Workload #18.
c300: 36 2c 20 22 62 69 67 22 20 49 4e 53 45 52 54 20  6, "big" INSERT 
c310: 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20  statements...   
c320: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
c330: 20 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 20      sql execute 
c340: 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73 20  $db [appendArgs 
c350: 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 22 20 24  "INSERT INTO " $
c360: 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20  table \..       
c370: 20 20 20 20 20 20 20 22 28 78 2c 20 79 2c 20 7a         "(x, y, z
c380: 29 20 56 41 4c 55 45 53 28 27 22 20 5b 66 6f 72  ) VALUES('" [for
c390: 6d 61 74 20 25 6c 58 20 5b 65 78 70 72 20 7b 72  mat %lX [expr {r
c3a0: 61 6e 64 6f 6d 28 29 7d 5d 5d 20 5c 0d 0a 20 20  andom()}]] \..  
c3b0: 20 20 20 20 20 20 20 20 20 20 20 20 22 27 2c 20              "', 
c3c0: 52 41 4e 44 4f 4d 42 4c 4f 42 28 22 20 24 63 6f  RANDOMBLOB(" $co
c3d0: 75 6e 74 33 20 22 29 2c 20 27 62 69 67 27 29 3b  unt3 "), 'big');
c3e0: 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  "]..          #.
c3f0: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
c400: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38 2e  E: Workload #18.
c410: 37 2c 20 22 73 6d 61 6c 6c 22 20 55 50 44 41 54  7, "small" UPDAT
c420: 45 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20  E statements... 
c430: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
c440: 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 74        sql execut
c450: 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67  e $db [appendArg
c460: 73 20 22 55 50 44 41 54 45 20 22 20 24 74 61 62  s "UPDATE " $tab
c470: 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  le \..          
c480: 20 20 20 20 22 20 53 45 54 20 79 20 3d 20 27 22      " SET y = '"
c490: 20 5b 62 61 73 65 36 34 20 65 6e 63 6f 64 65 20   [base64 encode 
c4a0: 2d 2d 20 5b 65 78 70 72 20 7b 72 61 6e 64 73 74  -- [expr {randst
c4b0: 72 28 24 63 6f 75 6e 74 32 29 7d 5d 5d 20 5c 0d  r($count2)}]] \.
c4c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
c4d0: 27 20 57 48 45 52 45 20 78 20 4c 49 4b 45 20 27  ' WHERE x LIKE '
c4e0: 22 20 5b 66 6f 72 6d 61 74 20 25 58 20 24 69 6e  " [format %X $in
c4f0: 64 65 78 5d 20 22 25 27 20 41 4e 44 20 7a 20 3d  dex] "%' AND z =
c500: 20 27 73 6d 61 6c 6c 27 3b 22 5d 0d 0a 20 20 20   'small';"]..   
c510: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
c520: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b      # NOTE: Work
c530: 6c 6f 61 64 20 23 31 38 2e 38 2c 20 22 62 69 67  load #18.8, "big
c540: 22 20 55 50 44 41 54 45 20 73 74 61 74 65 6d 65  " UPDATE stateme
c550: 6e 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  nts...          
c560: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c  #..          sql
c570: 20 65 78 65 63 75 74 65 20 24 64 62 20 5b 61 70   execute $db [ap
c580: 70 65 6e 64 41 72 67 73 20 22 55 50 44 41 54 45  pendArgs "UPDATE
c590: 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20   " $table \..   
c5a0: 20 20 20 20 20 20 20 20 20 20 20 22 20 53 45 54             " SET
c5b0: 20 79 20 3d 20 52 41 4e 44 4f 4d 42 4c 4f 42 28   y = RANDOMBLOB(
c5c0: 22 20 24 63 6f 75 6e 74 33 20 22 29 20 57 48 45  " $count3 ") WHE
c5d0: 52 45 20 78 20 4c 49 4b 45 20 27 22 20 5c 0d 0a  RE x LIKE '" \..
c5e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 66                [f
c5f0: 6f 72 6d 61 74 20 25 58 20 24 69 6e 64 65 78 5d  ormat %X $index]
c600: 20 22 25 27 20 41 4e 44 20 7a 20 3d 20 27 62 69   "%' AND z = 'bi
c610: 67 27 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20 20  g';"]..         
c620: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20   #..          # 
c630: 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23  NOTE: Workload #
c640: 31 38 2e 39 2c 20 22 73 6d 61 6c 6c 22 20 44 45  18.9, "small" DE
c650: 4c 45 54 45 20 73 74 61 74 65 6d 65 6e 74 73 2e  LETE statements.
c660: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
c670: 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 65           sql exe
c680: 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64  cute $db [append
c690: 41 72 67 73 20 22 44 45 4c 45 54 45 20 46 52 4f  Args "DELETE FRO
c6a0: 4d 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20  M " $table \..  
c6b0: 20 20 20 20 20 20 20 20 20 20 20 20 22 20 57 48              " WH
c6c0: 45 52 45 20 78 20 4c 49 4b 45 20 27 22 20 5b 66  ERE x LIKE '" [f
c6d0: 6f 72 6d 61 74 20 25 58 20 24 69 6e 64 65 78 5d  ormat %X $index]
c6e0: 20 22 25 27 20 41 4e 44 20 7a 20 3d 20 27 73 6d   "%' AND z = 'sm
c6f0: 61 6c 6c 27 3b 22 5d 0d 0a 20 20 20 20 20 20 20  all';"]..       
c700: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
c710: 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64  # NOTE: Workload
c720: 20 23 31 38 2e 31 30 2c 20 22 62 69 67 22 20 44   #18.10, "big" D
c730: 45 4c 45 54 45 20 73 74 61 74 65 6d 65 6e 74 73  ELETE statements
c740: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
c750: 20 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78            sql ex
c760: 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e  ecute $db [appen
c770: 64 41 72 67 73 20 22 44 45 4c 45 54 45 20 46 52  dArgs "DELETE FR
c780: 4f 4d 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20  OM " $table \.. 
c790: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 57               " W
c7a0: 48 45 52 45 20 78 20 4c 49 4b 45 20 27 22 20 5b  HERE x LIKE '" [
c7b0: 66 6f 72 6d 61 74 20 25 58 20 24 69 6e 64 65 78  format %X $index
c7c0: 5d 20 22 25 27 20 41 4e 44 20 7a 20 3d 20 27 62  ] "%' AND z = 'b
c7d0: 69 67 27 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20  ig';"]..        
c7e0: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
c7f0: 20 4e 4f 54 45 3a 20 4d 61 79 62 65 20 65 6e 64   NOTE: Maybe end
c800: 20 74 68 65 20 63 75 72 72 65 6e 74 20 74 72 61   the current tra
c810: 6e 73 61 63 74 69 6f 6e 2e 0d 0a 20 20 20 20 20  nsaction...     
c820: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
c830: 20 20 65 6e 64 54 72 61 6e 73 61 63 74 69 6f 6e    endTransaction
c840: 20 24 64 62 0d 0a 20 20 20 20 20 20 20 20 20 20   $db..          
c850: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e  #..          # N
c860: 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31  OTE: Workload #1
c870: 38 2e 31 31 2c 20 56 41 43 55 55 4d 20 73 74 61  8.11, VACUUM sta
c880: 74 65 6d 65 6e 74 2e 0d 0a 20 20 20 20 20 20 20  tement...       
c890: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
c8a0: 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 62 20  sql execute $db 
c8b0: 22 56 41 43 55 55 4d 3b 22 0d 0a 20 20 20 20 20  "VACUUM;"..     
c8c0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
c8d0: 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f    # NOTE: Worklo
c8e0: 61 64 20 23 31 38 2e 31 34 2c 20 50 52 41 47 4d  ad #18.14, PRAGM
c8f0: 41 20 69 6e 74 65 67 72 69 74 79 20 63 68 65 63  A integrity chec
c900: 6b 20 73 74 61 74 65 6d 65 6e 74 2e 0d 0a 20 20  k statement...  
c910: 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20          #..     
c920: 20 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20       set result 
c930: 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d 65 78  [sql execute -ex
c940: 65 63 75 74 65 20 73 63 61 6c 61 72 20 24 64 62  ecute scalar $db
c950: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
c960: 20 20 22 50 52 41 47 4d 41 20 69 6e 74 65 67 72    "PRAGMA integr
c970: 69 74 79 5f 63 68 65 63 6b 3b 22 5d 0d 0a 20 20  ity_check;"]..  
c980: 20 20 20 20 20 20 20 20 69 66 20 7b 24 72 65 73          if {$res
c990: 75 6c 74 20 6e 65 20 22 6f 6b 22 7d 20 74 68 65  ult ne "ok"} the
c9a0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
c9b0: 20 65 72 72 6f 72 20 5b 61 70 70 65 6e 64 41 72   error [appendAr
c9c0: 67 73 20 22 69 6e 74 65 67 72 69 74 79 20 63 68  gs "integrity ch
c9d0: 65 63 6b 20 66 61 69 6c 65 64 3a 20 22 20 24 72  eck failed: " $r
c9e0: 65 73 75 6c 74 5d 0d 0a 20 20 20 20 20 20 20 20  esult]..        
c9f0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 73    }..          s
ca00: 68 6f 77 54 65 73 74 20 52 0d 0a 20 20 20 20 20  howTest R..     
ca10: 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65     } error]} the
ca20: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 63  n {..          c
ca30: 61 74 63 68 20 7b 65 72 72 6f 72 54 72 61 6e 73  atch {errorTrans
ca40: 61 63 74 69 6f 6e 20 24 64 62 7d 0d 0a 20 20 20  action $db}..   
ca50: 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78         if {[isEx
ca60: 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 72 72  pectedError $err
ca70: 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  or]} then {..   
ca80: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73           showTes
ca90: 74 20 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d  t r..          }
caa0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
cab0: 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 72 20       failTest r 
cac0: 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20  $error..        
cad0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a    }..        }..
cae0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 63        }..      c
caf0: 6c 65 61 6e 75 70 44 62 20 24 73 72 63 46 69 6c  leanupDb $srcFil
cb00: 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 65 20 74  eName db false t
cb10: 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 20 20 20  rue false..     
cb20: 20 64 6f 6e 65 54 65 73 74 20 52 0d 0a 20 20 20   doneTest R..   
cb30: 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a   }] 0]..  }]....
cb40: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
cb50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cb60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cb70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cb80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
cb90: 0a 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20  .  #            
cba0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cbb0: 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 39 20 28    WORKLOAD #19 (
cbc0: 53 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20  S)              
cbd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23                 #
cbe0: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23  ..  ############
cbf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cc00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cc10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cc20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cc30: 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c  #....  set workl
cc40: 6f 61 64 28 31 39 29 20 5b 6c 69 73 74 20 5c 0d  oad(19) [list \.
cc50: 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63  .      [list src
cc60: 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65  FileName dstFile
cc70: 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74  Name table count
cc80: 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 20  1 count2 count3 
cc90: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 63  \..            c
cca0: 6f 75 6e 74 34 20 63 6f 75 6e 74 35 20 63 6f 75  ount4 count5 cou
ccb0: 6e 74 36 20 63 6f 75 6e 74 37 5d 20 7b 0d 0a 20  nt6 count7] {.. 
ccc0: 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45     #..    # NOTE
ccd0: 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 39 2c 20  : Workload #19, 
cce0: 72 61 70 69 64 6c 79 20 6f 70 65 6e 2f 63 6c 6f  rapidly open/clo
ccf0: 73 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 73 2c 20  se connections, 
cd00: 74 68 72 65 61 64 20 23 31 2e 0d 0a 20 20 20 20  thread #1...    
cd10: 23 0d 0a 20 20 20 20 77 61 69 74 54 65 73 74 20  #..    waitTest 
cd20: 53 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a  S..    lappend :
cd30: 3a 74 69 6d 65 73 28 31 39 29 20 5b 6c 69 6e 64  :times(19) [lind
cd40: 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20  ex [time {..    
cd50: 20 20 69 6e 69 74 54 65 73 74 20 53 0d 0a 20 20    initTest S..  
cd60: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64      for {set ind
cd70: 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d  ex 1} {$index <=
cd80: 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20   $count1} {incr 
cd90: 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20  index} {..      
cda0: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a    if {[catch {..
cdb0: 20 20 20 20 20 20 20 20 20 20 73 65 74 75 70 57            setupW
cdc0: 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64  orkloadFileDb $d
cdd0: 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 0d 0a 20  stFileName db.. 
cde0: 20 20 20 20 20 20 20 20 20 63 6c 65 61 6e 75 70           cleanup
cdf0: 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 20  Db $dstFileName 
ce00: 64 62 20 66 61 6c 73 65 20 74 72 75 65 20 66 61  db false true fa
ce10: 6c 73 65 0d 0a 20 20 20 20 20 20 20 20 20 20 73  lse..          s
ce20: 68 6f 77 54 65 73 74 20 53 0d 0a 20 20 20 20 20  howTest S..     
ce30: 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65     } error]} the
ce40: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69  n {..          i
ce50: 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72  f {[isExpectedEr
ce60: 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65  ror $error]} the
ce70: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
ce80: 20 73 68 6f 77 54 65 73 74 20 73 0d 0a 20 20 20   showTest s..   
ce90: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d         } else {.
cea0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69  .            fai
ceb0: 6c 54 65 73 74 20 73 20 24 65 72 72 6f 72 0d 0a  lTest s $error..
cec0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
ced0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d       }..      }.
cee0: 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20  .      doneTest 
cef0: 53 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20  S..    }] 0]..  
cf00: 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23  }]....  ########
cf10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cf20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cf30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cf40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cf50: 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20  #####..  #      
cf60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cf70: 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44          WORKLOAD
cf80: 20 23 32 30 20 28 54 29 20 20 20 20 20 20 20 20   #20 (T)        
cf90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
cfa0: 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23       #..  ######
cfb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cfc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cfd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cfe0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
cff0: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74  #######....  set
d000: 20 77 6f 72 6b 6c 6f 61 64 28 32 30 29 20 5b 6c   workload(20) [l
d010: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ist \..      [li
d020: 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64  st srcFileName d
d030: 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65  stFileName table
d040: 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63   count1 count2 c
d050: 6f 75 6e 74 33 20 5c 0d 0a 20 20 20 20 20 20 20  ount3 \..       
d060: 20 20 20 20 20 63 6f 75 6e 74 34 20 63 6f 75 6e       count4 coun
d070: 74 35 20 63 6f 75 6e 74 36 20 63 6f 75 6e 74 37  t5 count6 count7
d080: 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  ] {..    #..    
d090: 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64  # NOTE: Workload
d0a0: 20 23 32 30 2c 20 72 61 70 69 64 6c 79 20 6f 70   #20, rapidly op
d0b0: 65 6e 2f 63 6c 6f 73 65 20 63 6f 6e 6e 65 63 74  en/close connect
d0c0: 69 6f 6e 73 2c 20 74 68 72 65 61 64 20 23 32 2e  ions, thread #2.
d0d0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 77 61 69  ..    #..    wai
d0e0: 74 54 65 73 74 20 54 0d 0a 20 20 20 20 6c 61 70  tTest T..    lap
d0f0: 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 32 30 29  pend ::times(20)
d100: 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b   [lindex [time {
d110: 0d 0a 20 20 20 20 20 20 69 6e 69 74 54 65 73 74  ..      initTest
d120: 20 54 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73   T..      for {s
d130: 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e  et index 1} {$in
d140: 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20  dex <= $count1} 
d150: 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a  {incr index} {..
d160: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74          if {[cat
d170: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  ch {..          
d180: 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c  setupWorkloadFil
d190: 65 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d 65  eDb $dstFileName
d1a0: 20 64 62 0d 0a 20 20 20 20 20 20 20 20 20 20 63   db..          c
d1b0: 6c 65 61 6e 75 70 44 62 20 24 64 73 74 46 69 6c  leanupDb $dstFil
d1c0: 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 65 20 74  eName db false t
d1d0: 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 20 20 20  rue false..     
d1e0: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 54 0d       showTest T.
d1f0: 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72  .        } error
d200: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
d210: 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65       if {[isExpe
d220: 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72  ctedError $error
d230: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
d240: 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20         showTest 
d250: 74 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65  t..          } e
d260: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
d270: 20 20 20 66 61 69 6c 54 65 73 74 20 74 20 24 65     failTest t $e
d280: 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20  rror..          
d290: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
d2a0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 64 6f 6e      }..      don
d2b0: 65 54 65 73 74 20 54 0d 0a 20 20 20 20 7d 5d 20  eTest T..    }] 
d2c0: 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23  0]..  }]....  ##
d2d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d2e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d2f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d310: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23  ###########..  #
d320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
d330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 4f                WO
d340: 52 4b 4c 4f 41 44 20 23 32 31 20 28 55 29 20 20  RKLOAD #21 (U)  
d350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
d360: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
d370: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d380: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d390: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d3a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d3b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
d3c0: 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28  .  set workload(
d3d0: 32 31 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20  21) [list \..   
d3e0: 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c 65     [list srcFile
d3f0: 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d 65  Name dstFileName
d400: 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f   table count1 co
d410: 75 6e 74 32 20 63 6f 75 6e 74 33 20 5c 0d 0a 20  unt2 count3 \.. 
d420: 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74             count
d430: 34 20 63 6f 75 6e 74 35 20 63 6f 75 6e 74 36 20  4 count5 count6 
d440: 63 6f 75 6e 74 37 5d 20 7b 0d 0a 20 20 20 20 23  count7] {..    #
d450: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f  ..    # NOTE: Wo
d460: 72 6b 6c 6f 61 64 20 23 32 31 2c 20 72 61 70 69  rkload #21, rapi
d470: 64 6c 79 20 74 72 79 20 74 6f 20 72 65 6c 65 61  dly try to relea
d480: 73 65 20 61 6c 6c 20 6e 6f 6e 2d 65 73 73 65 6e  se all non-essen
d490: 74 69 61 6c 20 6d 65 6d 6f 72 79 2e 0d 0a 20 20  tial memory...  
d4a0: 20 20 23 0d 0a 20 20 20 20 77 61 69 74 54 65 73    #..    waitTes
d4b0: 74 20 55 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64  t U..    lappend
d4c0: 20 3a 3a 74 69 6d 65 73 28 32 31 29 20 5b 6c 69   ::times(21) [li
d4d0: 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20  ndex [time {..  
d4e0: 20 20 20 20 69 6e 69 74 54 65 73 74 20 55 0d 0a      initTest U..
d4f0: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69        for {set i
d500: 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20  ndex 1} {$index 
d510: 3c 3d 20 24 63 6f 75 6e 74 35 7d 20 7b 69 6e 63  <= $count5} {inc
d520: 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20  r index} {..    
d530: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
d540: 0d 0a 20 20 20 20 20 20 20 20 20 20 72 65 6c 65  ..          rele
d550: 61 73 65 4d 65 6d 20 2d 31 0d 0a 20 20 20 20 20  aseMem -1..     
d560: 20 20 20 20 20 73 68 6f 77 54 65 73 74 57 69 74       showTestWit
d570: 68 44 65 6c 61 79 20 55 20 30 20 24 63 6f 75 6e  hDelay U 0 $coun
d580: 74 36 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 72  t6..        } er
d590: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
d5a0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45          if {[isE
d5b0: 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 72  xpectedError $er
d5c0: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
d5d0: 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65            showTe
d5e0: 73 74 20 75 0d 0a 20 20 20 20 20 20 20 20 20 20  st u..          
d5f0: 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20  } else {..      
d600: 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 20 75        failTest u
d610: 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20   $error..       
d620: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d     }..        }.
d630: 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20  .      }..      
d640: 64 6f 6e 65 54 65 73 74 20 55 0d 0a 20 20 20 20  doneTest U..    
d650: 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20  }] 0]..  }].... 
d660: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23   ###############
d670: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d680: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d690: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d6a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
d6b0: 20 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20    #             
d6c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
d6d0: 20 57 4f 52 4b 4c 4f 41 44 20 23 32 32 20 28 56   WORKLOAD #22 (V
d6e0: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  )               
d6f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 0d                #.
d700: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
d710: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d720: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d730: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d740: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
d750: 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f  ....  set worklo
d760: 61 64 28 32 32 29 20 5b 6c 69 73 74 20 5c 0d 0a  ad(22) [list \..
d770: 20 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46        [list srcF
d780: 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e  ileName dstFileN
d790: 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31  ame table count1
d7a0: 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 20 5c   count2 count3 \
d7b0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 63 6f  ..            co
d7c0: 75 6e 74 34 20 63 6f 75 6e 74 35 20 63 6f 75 6e  unt4 count5 coun
d7d0: 74 36 20 63 6f 75 6e 74 37 5d 20 7b 0d 0a 20 20  t6 count7] {..  
d7e0: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a    #..    # NOTE:
d7f0: 20 57 6f 72 6b 6c 6f 61 64 20 23 32 32 2c 20 72   Workload #22, r
d800: 61 70 69 64 6c 79 20 74 72 79 20 74 6f 20 63 68  apidly try to ch
d810: 61 6e 67 65 20 74 68 65 20 64 65 66 61 75 6c 74  ange the default
d820: 20 63 61 63 68 65 20 73 69 7a 65 2e 0d 0a 20 20   cache size...  
d830: 20 20 23 0d 0a 20 20 20 20 77 61 69 74 54 65 73    #..    waitTes
d840: 74 20 56 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64  t V..    lappend
d850: 20 3a 3a 74 69 6d 65 73 28 32 32 29 20 5b 6c 69   ::times(22) [li
d860: 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20  ndex [time {..  
d870: 20 20 20 20 69 6e 69 74 54 65 73 74 20 56 0d 0a      initTest V..
d880: 20 20 20 20 20 20 73 65 74 75 70 57 6f 72 6b 6c        setupWorkl
d890: 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74 46 69  oadFileDb $dstFi
d8a0: 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20 20 20 20  leName db..     
d8b0: 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20   for {set index 
d8c0: 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63  1} {$index <= $c
d8d0: 6f 75 6e 74 35 7d 20 7b 69 6e 63 72 20 69 6e 64  ount5} {incr ind
d8e0: 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69  ex} {..        i
d8f0: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20  f {[catch {..   
d900: 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75         sql execu
d910: 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72  te $db [appendAr
d920: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  gs \..          
d930: 20 20 20 20 22 50 52 41 47 4d 41 20 64 65 66 61      "PRAGMA defa
d940: 75 6c 74 5f 63 61 63 68 65 5f 73 69 7a 65 3d 22  ult_cache_size="
d950: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
d960: 20 20 5b 65 78 70 72 20 7b 69 6e 74 28 72 61 6e    [expr {int(ran
d970: 64 28 29 20 2a 20 24 63 6f 75 6e 74 37 29 7d 5d  d() * $count7)}]
d980: 20 5c 3b 5d 0d 0a 20 20 20 20 20 20 20 20 20 20   \;]..          
d990: 73 68 6f 77 54 65 73 74 57 69 74 68 44 65 6c 61  showTestWithDela
d9a0: 79 20 56 20 30 20 24 63 6f 75 6e 74 36 0d 0a 20  y V 0 $count6.. 
d9b0: 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d         } error]}
d9c0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
d9d0: 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74     if {[isExpect
d9e0: 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d  edError $error]}
d9f0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
da00: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 76 0d       showTest v.
da10: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73  .          } els
da20: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e {..           
da30: 20 66 61 69 6c 54 65 73 74 20 76 20 24 65 72 72   failTest v $err
da40: 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  or..          }.
da50: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
da60: 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e    }..      clean
da70: 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d  upDb $dstFileNam
da80: 65 20 64 62 20 66 61 6c 73 65 20 74 72 75 65 20  e db false true 
da90: 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e  false..      don
daa0: 65 54 65 73 74 20 56 0d 0a 20 20 20 20 7d 5d 20  eTest V..    }] 
dab0: 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23  0]..  }]....  ##
dac0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
dad0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
dae0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
daf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
db00: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23  ###########..  #
db10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
db20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 4f                WO
db30: 52 4b 4c 4f 41 44 20 23 32 33 20 28 57 29 20 20  RKLOAD #23 (W)  
db40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
db50: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
db60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
db70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
db80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
db90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
dba0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
dbb0: 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28  .  set workload(
dbc0: 32 33 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20  23) [list \..   
dbd0: 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c 65     [list srcFile
dbe0: 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d 65  Name dstFileName
dbf0: 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f   table count1 co
dc00: 75 6e 74 32 20 63 6f 75 6e 74 33 20 5c 0d 0a 20  unt2 count3 \.. 
dc10: 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 74             count
dc20: 34 20 63 6f 75 6e 74 35 20 63 6f 75 6e 74 36 20  4 count5 count6 
dc30: 63 6f 75 6e 74 37 5d 20 7b 0d 0a 20 20 20 20 23  count7] {..    #
dc40: 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f  ..    # NOTE: Wo
dc50: 72 6b 6c 6f 61 64 20 23 32 33 2c 20 22 62 69 67  rkload #23, "big
dc60: 22 20 49 4e 53 45 52 54 20 61 6e 64 20 44 45 4c  " INSERT and DEL
dc70: 45 54 45 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d  ETE statements..
dc80: 0a 20 20 20 20 23 0d 0a 20 20 20 20 77 61 69 74  .    #..    wait
dc90: 54 65 73 74 20 57 0d 0a 20 20 20 20 6c 61 70 70  Test W..    lapp
dca0: 65 6e 64 20 3a 3a 74 69 6d 65 73 28 32 33 29 20  end ::times(23) 
dcb0: 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d  [lindex [time {.
dcc0: 0a 20 20 20 20 20 20 69 6e 69 74 54 65 73 74 20  .      initTest 
dcd0: 57 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f  W..      setupWo
dce0: 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73  rkloadFileDb $ds
dcf0: 74 46 69 6c 65 4e 61 6d 65 20 64 62 0d 0a 20 20  tFileName db..  
dd00: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64      for {set ind
dd10: 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d  ex 1} {$index <=
dd20: 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20   $count1} {incr 
dd30: 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20  index} {..      
dd40: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a    if {[catch {..
dd50: 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 54            beginT
dd60: 72 61 6e 73 61 63 74 69 6f 6e 20 24 64 62 0d 0a  ransaction $db..
dd70: 20 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78            sql ex
dd80: 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e  ecute $db [appen
dd90: 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 20  dArgs \..       
dda0: 20 20 20 20 20 20 20 22 57 49 54 48 20 73 28 69         "WITH s(i
ddb0: 29 20 41 53 20 22 20 5c 0d 0a 20 20 20 20 20 20  ) AS " \..      
ddc0: 20 20 20 20 20 20 20 20 22 28 53 45 4c 45 43 54          "(SELECT
ddd0: 20 31 20 55 4e 49 4f 4e 20 41 4c 4c 20 53 45 4c   1 UNION ALL SEL
dde0: 45 43 54 20 69 2b 31 20 46 52 4f 4d 20 73 20 57  ECT i+1 FROM s W
ddf0: 48 45 52 45 20 69 3c 22 20 5c 0d 0a 20 20 20 20  HERE i<" \..    
de00: 20 20 20 20 20 20 20 20 20 20 24 63 6f 75 6e 74            $count
de10: 35 20 22 29 20 49 4e 53 45 52 54 20 49 4e 54 4f  5 ") INSERT INTO
de20: 20 74 32 20 53 45 4c 45 43 54 20 52 41 4e 44 4f   t2 SELECT RANDO
de30: 4d 42 4c 4f 42 28 22 20 24 63 6f 75 6e 74 33 20  MBLOB(" $count3 
de40: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
de50: 20 22 29 20 46 52 4f 4d 20 73 3b 20 57 49 54 48   ") FROM s; WITH
de60: 20 73 28 69 29 20 41 53 20 22 20 5c 0d 0a 20 20   s(i) AS " \..  
de70: 20 20 20 20 20 20 20 20 20 20 20 20 22 28 53 45              "(SE
de80: 4c 45 43 54 20 31 20 55 4e 49 4f 4e 20 41 4c 4c  LECT 1 UNION ALL
de90: 20 53 45 4c 45 43 54 20 69 2b 31 20 46 52 4f 4d   SELECT i+1 FROM
dea0: 20 73 20 57 48 45 52 45 20 69 3c 22 20 5c 0d 0a   s WHERE i<" \..
deb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 63                $c
dec0: 6f 75 6e 74 35 20 22 29 20 49 4e 53 45 52 54 20  ount5 ") INSERT 
ded0: 49 4e 54 4f 20 74 33 20 53 45 4c 45 43 54 20 52  INTO t3 SELECT R
dee0: 41 4e 44 4f 4d 42 4c 4f 42 28 22 20 24 63 6f 75  ANDOMBLOB(" $cou
def0: 6e 74 33 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  nt3 \..         
df00: 20 20 20 20 20 22 29 20 46 52 4f 4d 20 73 3b 20       ") FROM s; 
df10: 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 33 3b 22  DELETE FROM t3;"
df20: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64  ]..          end
df30: 54 72 61 6e 73 61 63 74 69 6f 6e 20 24 64 62 0d  Transaction $db.
df40: 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54  .          showT
df50: 65 73 74 20 57 0d 0a 20 20 20 20 20 20 20 20 7d  est W..        }
df60: 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d   error]} then {.
df70: 0a 20 20 20 20 20 20 20 20 20 20 63 61 74 63 68  .          catch
df80: 20 7b 65 72 72 6f 72 54 72 61 6e 73 61 63 74 69   {errorTransacti
df90: 6f 6e 20 24 64 62 7d 0d 0a 20 20 20 20 20 20 20  on $db}..       
dfa0: 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74     if {[isExpect
dfb0: 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d  edError $error]}
dfc0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
dfd0: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 77 0d       showTest w.
dfe0: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73  .          } els
dff0: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e {..           
e000: 20 66 61 69 6c 54 65 73 74 20 77 20 24 65 72 72   failTest w $err
e010: 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  or..          }.
e020: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
e030: 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e    }..      clean
e040: 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d  upDb $dstFileNam
e050: 65 20 64 62 20 66 61 6c 73 65 20 74 72 75 65 20  e db false true 
e060: 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e  false..      don
e070: 65 54 65 73 74 20 57 0d 0a 20 20 20 20 7d 5d 20  eTest W..    }] 
e080: 30 5d 0d 0a 20 20 7d 5d 0d 0a 7d 20 2d 62 6f 64  0]..  }]..} -bod
e090: 79 20 7b 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c  y {..  set workl
e0a0: 6f 61 64 4e 61 6d 65 73 28 61 6c 6c 29 20 5b 61  oadNames(all) [a
e0b0: 72 72 61 79 20 6e 61 6d 65 73 20 77 6f 72 6b 6c  rray names workl
e0c0: 6f 61 64 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20  oad]....  tputs 
e0d0: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  $test_channel [a
e0e0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
e0f0: 20 20 20 22 2d 2d 2d 2d 20 74 68 65 72 65 20 61     "---- there a
e100: 72 65 20 22 20 5b 6c 6c 65 6e 67 74 68 20 24 77  re " [llength $w
e110: 6f 72 6b 6c 6f 61 64 4e 61 6d 65 73 28 61 6c 6c  orkloadNames(all
e120: 29 5d 20 5c 0d 0a 20 20 20 20 20 20 22 20 74 6f  )] \..      " to
e130: 74 61 6c 20 77 6f 72 6b 6c 6f 61 64 73 2c 20 74  tal workloads, t
e140: 68 65 69 72 20 6e 61 6d 65 73 20 61 72 65 3a 20  heir names are: 
e150: 22 20 24 77 6f 72 6b 6c 6f 61 64 4e 61 6d 65 73  " $workloadNames
e160: 28 61 6c 6c 29 20 5c 6e 5d 0d 0a 0d 0a 20 20 73  (all) \n]....  s
e170: 65 74 20 77 6f 72 6b 6c 6f 61 64 4e 61 6d 65 73  et workloadNames
e180: 28 65 6e 61 62 6c 65 64 29 20 5b 6c 69 73 74 5d  (enabled) [list]
e190: 0d 0a 0d 0a 20 20 66 6f 72 65 61 63 68 20 69 6e  ....  foreach in
e1a0: 64 65 78 28 30 29 20 5b 6c 73 6f 72 74 20 2d 69  dex(0) [lsort -i
e1b0: 6e 74 65 67 65 72 20 24 77 6f 72 6b 6c 6f 61 64  nteger $workload
e1c0: 4e 61 6d 65 73 28 61 6c 6c 29 5d 20 7b 0d 0a 20  Names(all)] {.. 
e1d0: 20 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20     if {[lsearch 
e1e0: 2d 65 78 61 63 74 20 24 6e 6f 57 6f 72 6b 6c 6f  -exact $noWorklo
e1f0: 61 64 20 24 69 6e 64 65 78 28 30 29 5d 20 3d 3d  ad $index(0)] ==
e200: 20 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20   -1} then {..   
e210: 20 20 20 6c 61 70 70 65 6e 64 20 77 6f 72 6b 6c     lappend workl
e220: 6f 61 64 4e 61 6d 65 73 28 65 6e 61 62 6c 65 64  oadNames(enabled
e230: 29 20 24 69 6e 64 65 78 28 30 29 0d 0a 20 20 20  ) $index(0)..   
e240: 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 74 70 75   }..  }....  tpu
e250: 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c  ts $test_channel
e260: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
e270: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 74 68 65 72        "---- ther
e280: 65 20 61 72 65 20 22 20 5b 6c 6c 65 6e 67 74 68  e are " [llength
e290: 20 24 77 6f 72 6b 6c 6f 61 64 4e 61 6d 65 73 28   $workloadNames(
e2a0: 65 6e 61 62 6c 65 64 29 5d 20 5c 0d 0a 20 20 20  enabled)] \..   
e2b0: 20 20 20 22 20 65 6e 61 62 6c 65 64 20 77 6f 72     " enabled wor
e2c0: 6b 6c 6f 61 64 73 2c 20 74 68 65 69 72 20 6e 61  kloads, their na
e2d0: 6d 65 73 20 61 72 65 3a 20 22 20 24 77 6f 72 6b  mes are: " $work
e2e0: 6c 6f 61 64 4e 61 6d 65 73 28 65 6e 61 62 6c 65  loadNames(enable
e2f0: 64 29 20 5c 6e 5d 0d 0a 0d 0a 20 20 74 70 75 74  d) \n]....  tput
e300: 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20  s $test_channel 
e310: 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20  [appendArgs \.. 
e320: 20 20 20 20 20 22 3d 3d 3d 3d 20 57 41 52 4e 49       "==== WARNI
e330: 4e 47 3a 20 74 68 69 73 20 73 74 72 65 73 73 20  NG: this stress 
e340: 74 65 73 74 20 6d 61 79 20 74 61 6b 65 20 73 65  test may take se
e350: 76 65 72 61 6c 20 6d 69 6e 75 74 65 73 2e 2e 2e  veral minutes...
e360: 5c 6e 22 5d 0d 0a 0d 0a 20 20 66 6f 72 20 7b 73  \n"]....  for {s
e370: 65 74 20 69 6e 64 65 78 28 30 29 20 31 7d 20 7b  et index(0) 1} {
e380: 24 69 6e 64 65 78 28 30 29 20 3c 3d 20 24 63 6f  $index(0) <= $co
e390: 75 6e 74 28 30 29 7d 20 7b 69 6e 63 72 20 69 6e  unt(0)} {incr in
e3a0: 64 65 78 28 30 29 7d 20 7b 0d 0a 20 20 20 20 69  dex(0)} {..    i
e3b0: 66 20 7b 24 69 6e 64 65 78 28 30 29 20 3e 20 31  f {$index(0) > 1
e3c0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
e3d0: 23 0d 0a 20 20 20 20 20 20 23 20 4e 4f 54 45 3a  #..      # NOTE:
e3e0: 20 41 64 76 61 6e 63 65 20 6f 75 74 70 75 74 20   Advance output 
e3f0: 74 6f 20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65  to the next line
e400: 20 64 75 65 20 74 6f 20 74 68 65 20 77 6f 72 6b   due to the work
e410: 6c 6f 61 64 0d 0a 20 20 20 20 20 20 23 20 20 20  load..      #   
e420: 20 20 20 20 69 74 65 72 61 74 69 6f 6e 20 70 72      iteration pr
e430: 6f 67 72 65 73 73 20 69 6e 64 69 63 61 74 6f 72  ogress indicator
e440: 73 20 66 72 6f 6d 20 74 68 65 20 70 72 65 76 69  s from the previ
e450: 6f 75 73 20 72 75 6e 2e 0d 0a 20 20 20 20 20 20  ous run...      
e460: 23 0d 0a 20 20 20 20 20 20 74 70 75 74 73 20 24  #..      tputs $
e470: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 6e 0d  test_channel \n.
e480: 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 74 70  .    }....    tp
e490: 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65  uts $test_channe
e4a0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
e4b0: 0a 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20 73  .        "---- s
e4c0: 74 61 72 74 69 6e 67 20 77 6f 72 6b 6c 6f 61 64  tarting workload
e4d0: 20 72 75 6e 20 23 22 20 24 69 6e 64 65 78 28 30   run #" $index(0
e4e0: 29 20 2e 2e 2e 5c 6e 5d 0d 0a 0d 0a 20 20 20 20  ) ...\n]....    
e4f0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
e500: 6e 20 74 68 72 65 61 64 20 73 74 61 74 75 73 3b  n thread status;
e510: 20 64 6f 6e 65 54 65 73 74 0d 0a 0d 0a 20 20 20   doneTest....   
e520: 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 73 72   sql execute $sr
e530: 63 44 62 20 22 43 52 45 41 54 45 20 54 41 42 4c  cDb "CREATE TABL
e540: 45 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20  E IF NOT EXISTS 
e550: 74 31 28 78 20 50 52 49 4d 41 52 59 20 4b 45 59  t1(x PRIMARY KEY
e560: 2c 20 79 2c 20 7a 29 3b 22 0d 0a 20 20 20 20 73  , y, z);"..    s
e570: 71 6c 20 65 78 65 63 75 74 65 20 24 73 72 63 44  ql execute $srcD
e580: 62 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20  b "CREATE TABLE 
e590: 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 74 32  IF NOT EXISTS t2
e5a0: 28 78 29 3b 22 0d 0a 20 20 20 20 73 71 6c 20 65  (x);"..    sql e
e5b0: 78 65 63 75 74 65 20 24 73 72 63 44 62 20 22 43  xecute $srcDb "C
e5c0: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e  REATE TABLE IF N
e5d0: 4f 54 20 45 58 49 53 54 53 20 74 33 28 78 29 3b  OT EXISTS t3(x);
e5e0: 22 0d 0a 20 20 20 20 73 71 6c 20 65 78 65 63 75  "..    sql execu
e5f0: 74 65 20 24 64 62 20 22 43 52 45 41 54 45 20 54  te $db "CREATE T
e600: 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49 53  ABLE IF NOT EXIS
e610: 54 53 20 74 31 28 78 20 50 52 49 4d 41 52 59 20  TS t1(x PRIMARY 
e620: 4b 45 59 2c 20 79 2c 20 7a 29 3b 22 0d 0a 20 20  KEY, y, z);"..  
e630: 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 64    sql execute $d
e640: 62 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20  b "CREATE TABLE 
e650: 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 74 32  IF NOT EXISTS t2
e660: 28 78 29 3b 22 0d 0a 20 20 20 20 73 71 6c 20 65  (x);"..    sql e
e670: 78 65 63 75 74 65 20 24 64 62 20 22 43 52 45 41  xecute $db "CREA
e680: 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f 54 20  TE TABLE IF NOT 
e690: 45 58 49 53 54 53 20 74 33 28 78 29 3b 22 0d 0a  EXISTS t3(x);"..
e6a0: 0d 0a 20 20 20 20 73 71 6c 20 65 78 65 63 75 74  ..    sql execut
e6b0: 65 20 24 73 72 63 44 62 20 22 43 52 45 41 54 45  e $srcDb "CREATE
e6c0: 20 49 4e 44 45 58 20 49 46 20 4e 4f 54 20 45 58   INDEX IF NOT EX
e6d0: 49 53 54 53 20 69 31 20 4f 4e 20 74 31 28 79 29  ISTS i1 ON t1(y)
e6e0: 3b 22 0d 0a 20 20 20 20 73 71 6c 20 65 78 65 63  ;"..    sql exec
e6f0: 75 74 65 20 24 64 62 20 22 43 52 45 41 54 45 20  ute $db "CREATE 
e700: 49 4e 44 45 58 20 49 46 20 4e 4f 54 20 45 58 49  INDEX IF NOT EXI
e710: 53 54 53 20 69 31 20 4f 4e 20 74 31 28 79 29 3b  STS i1 ON t1(y);
e720: 22 0d 0a 0d 0a 20 20 20 20 66 6f 72 65 61 63 68  "....    foreach
e730: 20 69 6e 64 65 78 28 31 29 20 5b 6c 73 6f 72 74   index(1) [lsort
e740: 20 2d 69 6e 74 65 67 65 72 20 24 77 6f 72 6b 6c   -integer $workl
e750: 6f 61 64 4e 61 6d 65 73 28 65 6e 61 62 6c 65 64  oadNames(enabled
e760: 29 5d 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20  )] {..      set 
e770: 77 6f 72 6b 6c 6f 61 64 43 61 6c 6c 62 61 63 6b  workloadCallback
e780: 73 28 24 69 6e 64 65 78 28 31 29 29 20 5b 6c 69  s($index(1)) [li
e790: 73 74 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  st \..          
e7a0: 61 70 70 6c 79 20 24 77 6f 72 6b 6c 6f 61 64 28  apply $workload(
e7b0: 24 69 6e 64 65 78 28 31 29 29 20 24 66 69 6c 65  $index(1)) $file
e7c0: 4e 61 6d 65 28 31 29 20 24 66 69 6c 65 4e 61 6d  Name(1) $fileNam
e7d0: 65 28 32 29 20 74 31 20 5c 0d 0a 20 20 20 20 20  e(2) t1 \..     
e7e0: 20 20 20 20 20 24 63 6f 75 6e 74 28 31 29 20 24       $count(1) $
e7f0: 63 6f 75 6e 74 28 33 29 20 24 63 6f 75 6e 74 28  count(3) $count(
e800: 34 29 20 24 63 6f 75 6e 74 28 35 29 20 24 63 6f  4) $count(5) $co
e810: 75 6e 74 28 36 29 20 24 63 6f 75 6e 74 28 37 29  unt(6) $count(7)
e820: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 24 63   \..          $c
e830: 6f 75 6e 74 28 38 29 5d 0d 0a 0d 0a 20 20 20 20  ount(8)]....    
e840: 20 20 73 65 74 20 74 68 72 65 61 64 28 24 69 6e    set thread($in
e850: 64 65 78 28 31 29 29 20 5b 63 72 65 61 74 65 54  dex(1)) [createT
e860: 68 72 65 61 64 20 24 77 6f 72 6b 6c 6f 61 64 43  hread $workloadC
e870: 61 6c 6c 62 61 63 6b 73 28 24 69 6e 64 65 78 28  allbacks($index(
e880: 31 29 29 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  1)) \..         
e890: 20 66 61 6c 73 65 20 31 30 34 38 35 37 36 5d 0d   false 1048576].
e8a0: 0a 0d 0a 20 20 20 20 20 20 24 74 68 72 65 61 64  ...      $thread
e8b0: 28 24 69 6e 64 65 78 28 31 29 29 20 4e 61 6d 65  ($index(1)) Name
e8c0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
e8d0: 20 20 20 20 20 20 20 20 20 20 5b 66 69 6c 65 20            [file 
e8e0: 72 6f 6f 74 6e 61 6d 65 20 5b 66 69 6c 65 20 74  rootname [file t
e8f0: 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65 28 32 29  ail $fileName(2)
e900: 5d 5d 20 22 20 23 22 20 24 69 6e 64 65 78 28 31  ]] " #" $index(1
e910: 29 5d 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b  )]....      if {
e920: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 70 72 69  [info exists pri
e930: 6f 72 69 74 79 28 24 69 6e 64 65 78 28 31 29 29  ority($index(1))
e940: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
e950: 20 20 20 24 74 68 72 65 61 64 28 24 69 6e 64 65     $thread($inde
e960: 78 28 31 29 29 20 50 72 69 6f 72 69 74 79 20 24  x(1)) Priority $
e970: 70 72 69 6f 72 69 74 79 28 24 69 6e 64 65 78 28  priority($index(
e980: 31 29 29 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20  1))..      }..  
e990: 20 20 7d 0d 0a 0d 0a 20 20 20 20 66 6f 72 65 61    }....    forea
e9a0: 63 68 20 69 6e 64 65 78 28 31 29 20 5b 61 72 72  ch index(1) [arr
e9b0: 61 79 20 6e 61 6d 65 73 20 74 68 72 65 61 64 5d  ay names thread]
e9c0: 20 7b 0d 0a 20 20 20 20 20 20 73 74 61 72 74 54   {..      startT
e9d0: 68 72 65 61 64 20 24 74 68 72 65 61 64 28 24 69  hread $thread($i
e9e0: 6e 64 65 78 28 31 29 29 0d 0a 20 20 20 20 7d 0d  ndex(1))..    }.
e9f0: 0a 0d 0a 20 20 20 20 24 65 76 65 6e 74 20 53 65  ...    $event Se
ea00: 74 3b 20 23 20 47 4f 0d 0a 0d 0a 20 20 20 20 66  t; # GO....    f
ea10: 6f 72 65 61 63 68 20 69 6e 64 65 78 28 31 29 20  oreach index(1) 
ea20: 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 74 68 72  [array names thr
ea30: 65 61 64 5d 20 7b 0d 0a 20 20 20 20 20 20 24 74  ead] {..      $t
ea40: 68 72 65 61 64 28 24 69 6e 64 65 78 28 31 29 29  hread($index(1))
ea50: 20 4a 6f 69 6e 0d 0a 20 20 20 20 7d 0d 0a 0d 0a   Join..    }....
ea60: 20 20 20 20 66 6f 72 65 61 63 68 20 69 6e 64 65      foreach inde
ea70: 78 28 31 29 20 5b 61 72 72 61 79 20 6e 61 6d 65  x(1) [array name
ea80: 73 20 74 68 72 65 61 64 5d 20 7b 0d 0a 20 20 20  s thread] {..   
ea90: 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69     if {[info exi
eaa0: 73 74 73 20 74 68 72 65 61 64 28 24 69 6e 64 65  sts thread($inde
eab0: 78 28 31 29 29 5d 20 26 26 20 5c 0d 0a 20 20 20  x(1))] && \..   
eac0: 20 20 20 20 20 20 20 5b 63 6c 65 61 6e 75 70 54         [cleanupT
ead0: 68 72 65 61 64 20 24 74 68 72 65 61 64 28 24 69  hread $thread($i
eae0: 6e 64 65 78 28 31 29 29 5d 7d 20 74 68 65 6e 20  ndex(1))]} then 
eaf0: 7b 0d 0a 20 20 20 20 20 20 20 20 75 6e 73 65 74  {..        unset
eb00: 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 68 72   -nocomplain thr
eb10: 65 61 64 28 24 69 6e 64 65 78 28 31 29 29 0d 0a  ead($index(1))..
eb20: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 0d 0a        }..    }..
eb30: 0d 0a 20 20 20 20 75 6e 73 65 74 20 2d 6e 6f 63  ..    unset -noc
eb40: 6f 6d 70 6c 61 69 6e 20 74 68 72 65 61 64 20 73  omplain thread s
eb50: 74 61 74 75 73 3b 20 64 6f 6e 65 54 65 73 74 0d  tatus; doneTest.
eb60: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23  .  }....  ######
eb70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
eb80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
eb90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
eba0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ebb0: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 66 6f 72  #######....  for
ebc0: 65 61 63 68 20 69 6e 64 65 78 28 30 29 20 5b 73  each index(0) [s
ebd0: 70 6c 69 74 20 24 69 6e 64 69 63 61 74 6f 72 73  plit $indicators
ebe0: 20 22 22 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20   ""] {..    #.. 
ebf0: 20 20 20 23 20 4e 4f 54 45 3a 20 53 65 65 20 69     # NOTE: See i
ec00: 66 20 74 68 69 73 20 77 6f 72 6b 6c 6f 61 64 20  f this workload 
ec10: 69 74 65 72 61 74 69 6f 6e 20 72 61 69 73 65 64  iteration raised
ec20: 20 61 6e 20 65 72 72 6f 72 2e 20 20 49 66 20 73   an error.  If s
ec30: 6f 2c 20 74 68 65 0d 0a 20 20 20 20 23 20 20 20  o, the..    #   
ec40: 20 20 20 20 69 6e 64 69 63 61 74 6f 72 20 6c 65      indicator le
ec50: 74 74 65 72 20 77 69 6c 6c 20 62 65 20 69 6e 20  tter will be in 
ec60: 6c 6f 77 65 72 20 63 61 73 65 3b 20 6f 74 68 65  lower case; othe
ec70: 72 77 69 73 65 2c 20 69 74 20 77 69 6c 6c 0d 0a  rwise, it will..
ec80: 20 20 20 20 23 20 20 20 20 20 20 20 62 65 20 69      #       be i
ec90: 6e 20 75 70 70 65 72 20 63 61 73 65 2e 0d 0a 20  n upper case... 
eca0: 20 20 20 23 0d 0a 20 20 20 20 73 65 74 20 69 6e     #..    set in
ecb0: 64 65 78 28 31 29 20 5b 73 74 72 69 6e 67 20 69  dex(1) [string i
ecc0: 73 20 75 70 70 65 72 20 2d 73 74 72 69 63 74 20  s upper -strict 
ecd0: 24 69 6e 64 65 78 28 30 29 5d 0d 0a 0d 0a 20 20  $index(0)]....  
ece0: 20 20 73 65 74 20 69 6e 64 65 78 28 32 29 20 5b    set index(2) [
ecf0: 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 6f 72  expr {[string or
ed00: 64 69 6e 61 6c 20 24 69 6e 64 65 78 28 30 29 20  dinal $index(0) 
ed10: 30 5d 20 2d 20 5c 0d 0a 20 20 20 20 20 20 20 20  0] - \..        
ed20: 5b 73 74 72 69 6e 67 20 6f 72 64 69 6e 61 6c 20  [string ordinal 
ed30: 5b 65 78 70 72 20 7b 24 69 6e 64 65 78 28 31 29  [expr {$index(1)
ed40: 20 3f 20 22 41 22 20 3a 20 22 61 22 7d 5d 20 30   ? "A" : "a"}] 0
ed50: 5d 20 2b 20 31 7d 5d 0d 0a 0d 0a 20 20 20 20 73  ] + 1}]....    s
ed60: 65 74 20 69 6e 64 65 78 28 33 29 20 5b 65 78 70  et index(3) [exp
ed70: 72 20 7b 24 69 6e 64 65 78 28 31 29 20 3f 20 22  r {$index(1) ? "
ed80: 6f 6b 22 20 3a 20 22 65 72 72 6f 72 22 7d 5d 0d  ok" : "error"}].
ed90: 0a 0d 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66  ...    if {![inf
eda0: 6f 20 65 78 69 73 74 73 20 69 74 65 72 61 74 69  o exists iterati
edb0: 6f 6e 73 28 24 69 6e 64 65 78 28 32 29 2c 24 69  ons($index(2),$i
edc0: 6e 64 65 78 28 33 29 29 5d 7d 20 74 68 65 6e 20  ndex(3))]} then 
edd0: 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 69 74 65  {..      set ite
ede0: 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 28 32  rations($index(2
edf0: 29 2c 24 69 6e 64 65 78 28 33 29 29 20 30 0d 0a  ),$index(3)) 0..
ee00: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 66 20      }....    if 
ee10: 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 69  {![info exists i
ee20: 74 65 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 78  terations($index
ee30: 28 32 29 2c 74 6f 74 61 6c 29 5d 7d 20 74 68 65  (2),total)]} the
ee40: 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 69  n {..      set i
ee50: 74 65 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 78  terations($index
ee60: 28 32 29 2c 74 6f 74 61 6c 29 20 30 0d 0a 20 20  (2),total) 0..  
ee70: 20 20 7d 0d 0a 0d 0a 20 20 20 20 69 6e 63 72 20    }....    incr 
ee80: 69 74 65 72 61 74 69 6f 6e 73 28 24 69 6e 64 65  iterations($inde
ee90: 78 28 32 29 2c 24 69 6e 64 65 78 28 33 29 29 0d  x(2),$index(3)).
eea0: 0a 20 20 20 20 69 6e 63 72 20 69 74 65 72 61 74  .    incr iterat
eeb0: 69 6f 6e 73 28 24 69 6e 64 65 78 28 32 29 2c 74  ions($index(2),t
eec0: 6f 74 61 6c 29 0d 0a 20 20 7d 0d 0a 0d 0a 20 20  otal)..  }....  
eed0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
eee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
eef0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ef00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ef10: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
ef20: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
ef30: 41 64 76 61 6e 63 65 20 6f 75 74 70 75 74 20 74  Advance output t
ef40: 6f 20 74 68 65 20 6e 65 78 74 20 6c 69 6e 65 20  o the next line 
ef50: 64 75 65 20 74 6f 20 74 68 65 20 77 6f 72 6b 6c  due to the workl
ef60: 6f 61 64 0d 0a 20 20 23 20 20 20 20 20 20 20 69  oad..  #       i
ef70: 74 65 72 61 74 69 6f 6e 20 70 72 6f 67 72 65 73  teration progres
ef80: 73 20 69 6e 64 69 63 61 74 6f 72 73 20 66 72 6f  s indicators fro
ef90: 6d 20 74 68 65 20 66 69 6e 61 6c 20 72 75 6e 2e  m the final run.
efa0: 0d 0a 20 20 23 0d 0a 20 20 74 70 75 74 73 20 24  ..  #..  tputs $
efb0: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5c 6e 0d  test_channel \n.
efc0: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
efd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
efe0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
eff0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f010: 23 23 0d 0a 0d 0a 20 20 66 6f 72 65 61 63 68 20  ##....  foreach 
f020: 69 6e 64 65 78 28 30 29 20 5b 6c 73 6f 72 74 20  index(0) [lsort 
f030: 2d 69 6e 74 65 67 65 72 20 24 77 6f 72 6b 6c 6f  -integer $worklo
f040: 61 64 4e 61 6d 65 73 28 65 6e 61 62 6c 65 64 29  adNames(enabled)
f050: 5d 20 7b 0d 0a 20 20 20 20 74 70 75 74 73 20 24  ] {..    tputs $
f060: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 66 6f  test_channel [fo
f070: 72 6d 61 74 57 6f 72 6b 6c 6f 61 64 52 65 73 75  rmatWorkloadResu
f080: 6c 74 20 24 69 6e 64 65 78 28 30 29 5d 0d 0a 20  lt $index(0)].. 
f090: 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23   }....  ########
f0a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f0b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f0c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f0d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f0e0: 23 23 23 23 23 0d 0a 0d 0a 20 20 66 6f 72 65 61  #####....  forea
f0f0: 63 68 20 69 6e 64 65 78 28 30 29 20 5b 6c 73 6f  ch index(0) [lso
f100: 72 74 20 2d 69 6e 74 65 67 65 72 20 5b 61 72 72  rt -integer [arr
f110: 61 79 20 6e 61 6d 65 73 20 74 69 6d 65 73 5d 5d  ay names times]]
f120: 20 7b 0d 0a 20 20 20 20 74 70 75 74 73 20 24 74   {..    tputs $t
f130: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 66 6f 72  est_channel [for
f140: 6d 61 74 57 6f 72 6b 6c 6f 61 64 54 69 6d 65 20  matWorkloadTime 
f150: 24 69 6e 64 65 78 28 30 29 5d 0d 0a 20 20 7d 0d  $index(0)]..  }.
f160: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
f170: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f180: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f1a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f1b0: 23 23 0d 0a 0d 0a 20 20 73 65 74 20 72 65 73 75  ##....  set resu
f1c0: 6c 74 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20  lt [sql execute 
f1d0: 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20  -execute scalar 
f1e0: 24 73 72 63 44 62 20 22 50 52 41 47 4d 41 20 69  $srcDb "PRAGMA i
f1f0: 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 3b 22  ntegrity_check;"
f200: 5d 0d 0a 0d 0a 20 20 69 66 20 7b 24 72 65 73 75  ]....  if {$resu
f210: 6c 74 20 65 71 20 22 6f 6b 22 7d 20 74 68 65 6e  lt eq "ok"} then
f220: 20 7b 0d 0a 20 20 20 20 74 70 75 74 73 20 24 74   {..    tputs $t
f230: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d  est_channel "---
f240: 2d 20 69 6e 74 65 67 72 69 74 79 20 63 68 65 63  - integrity chec
f250: 6b 20 6f 6b 20 28 73 72 63 44 62 29 5c 6e 22 0d  k ok (srcDb)\n".
f260: 0a 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20  .  } else {..   
f270: 20 65 72 72 6f 72 20 5b 61 70 70 65 6e 64 41 72   error [appendAr
f280: 67 73 20 22 69 6e 74 65 67 72 69 74 79 20 63 68  gs "integrity ch
f290: 65 63 6b 20 66 61 69 6c 65 64 20 28 73 72 63 44  eck failed (srcD
f2a0: 62 29 3a 20 22 20 24 72 65 73 75 6c 74 5d 0d 0a  b): " $result]..
f2b0: 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23    }....  #######
f2c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f2d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f2e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f2f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f300: 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20  ######....  set 
f310: 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63  result [sql exec
f320: 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61  ute -execute sca
f330: 6c 61 72 20 24 64 62 20 22 50 52 41 47 4d 41 20  lar $db "PRAGMA 
f340: 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 3b  integrity_check;
f350: 22 5d 0d 0a 0d 0a 20 20 69 66 20 7b 24 72 65 73  "]....  if {$res
f360: 75 6c 74 20 65 71 20 22 6f 6b 22 7d 20 74 68 65  ult eq "ok"} the
f370: 6e 20 7b 0d 0a 20 20 20 20 74 70 75 74 73 20 24  n {..    tputs $
f380: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 22 2d 2d  test_channel "--
f390: 2d 2d 20 69 6e 74 65 67 72 69 74 79 20 63 68 65  -- integrity che
f3a0: 63 6b 20 6f 6b 20 28 64 62 29 5c 6e 22 0d 0a 20  ck ok (db)\n".. 
f3b0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 65   } else {..    e
f3c0: 72 72 6f 72 20 5b 61 70 70 65 6e 64 41 72 67 73  rror [appendArgs
f3d0: 20 22 69 6e 74 65 67 72 69 74 79 20 63 68 65 63   "integrity chec
f3e0: 6b 20 66 61 69 6c 65 64 20 28 64 62 29 3a 20 22  k failed (db): "
f3f0: 20 24 72 65 73 75 6c 74 5d 0d 0a 20 20 7d 0d 0a   $result]..  }..
f400: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23  ..  ############
f410: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f420: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f430: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f440: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
f450: 23 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f  #....  #..  # NO
f460: 54 45 3a 20 54 68 65 20 6f 76 65 72 61 6c 6c 20  TE: The overall 
f470: 74 65 73 74 20 72 65 73 75 6c 74 20 69 73 20 74  test result is t
f480: 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20  he total number 
f490: 6f 66 20 66 61 69 6c 75 72 65 73 20 28 69 2e 65  of failures (i.e
f4a0: 2e 0d 0a 20 20 23 20 20 20 20 20 20 20 22 75 6e  ...  #       "un
f4b0: 65 78 70 65 63 74 65 64 20 65 72 72 6f 72 73 22  expected errors"
f4c0: 29 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 64 75  ) encountered du
f4d0: 72 69 6e 67 20 61 20 77 6f 72 6b 6c 6f 61 64 20  ring a workload 
f4e0: 69 74 65 72 61 74 69 6f 6e 2e 0d 0a 20 20 23 0d  iteration...  #.
f4f0: 0a 20 20 65 78 70 72 20 7b 5b 61 72 72 61 79 20  .  expr {[array 
f500: 73 69 7a 65 20 66 61 69 6c 75 72 65 73 5d 20 3e  size failures] >
f510: 20 30 20 3f 20 5c 0d 0a 20 20 20 20 20 20 5b 65   0 ? \..      [e
f520: 78 70 72 20 5b 6a 6f 69 6e 20 5b 61 72 72 61 79  xpr [join [array
f530: 20 76 61 6c 75 65 73 20 66 61 69 6c 75 72 65 73   values failures
f540: 5d 20 2b 5d 5d 20 3a 20 30 7d 0d 0a 7d 20 2d 63  ] +]] : 0}..} -c
f550: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 66 6f 72 65  leanup {..  fore
f560: 61 63 68 20 69 6e 64 65 78 28 30 29 20 5b 61 72  ach index(0) [ar
f570: 72 61 79 20 6e 61 6d 65 73 20 74 68 72 65 61 64  ray names thread
f580: 5d 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e  ] {..    if {[in
f590: 66 6f 20 65 78 69 73 74 73 20 74 68 72 65 61 64  fo exists thread
f5a0: 28 24 69 6e 64 65 78 28 30 29 29 5d 20 26 26 20  ($index(0))] && 
f5b0: 5c 0d 0a 20 20 20 20 20 20 20 20 5b 63 6c 65 61  \..        [clea
f5c0: 6e 75 70 54 68 72 65 61 64 20 24 74 68 72 65 61  nupThread $threa
f5d0: 64 28 24 69 6e 64 65 78 28 30 29 29 5d 7d 20 74  d($index(0))]} t
f5e0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 75 6e 73  hen {..      uns
f5f0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74  et -nocomplain t
f600: 68 72 65 61 64 28 24 69 6e 64 65 78 28 30 29 29  hread($index(0))
f610: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a  ..    }..  }....
f620: 20 20 72 65 6e 61 6d 65 20 72 65 6c 65 61 73 65    rename release
f630: 4d 65 6d 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65  Mem ""..  rename
f640: 20 66 72 65 65 4d 65 6d 20 22 22 0d 0a 20 20 72   freeMem ""..  r
f650: 65 6e 61 6d 65 20 75 73 65 4d 65 6d 20 22 22 0d  ename useMem "".
f660: 0a 20 20 72 65 6e 61 6d 65 20 61 6c 6c 6f 63 4d  .  rename allocM
f670: 65 6d 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20  em ""..  rename 
f680: 66 61 69 6c 54 65 73 74 20 22 22 0d 0a 20 20 72  failTest ""..  r
f690: 65 6e 61 6d 65 20 64 6f 6e 65 54 65 73 74 20 22  ename doneTest "
f6a0: 22 0d 0a 20 20 72 65 6e 61 6d 65 20 73 68 6f 77  "..  rename show
f6b0: 54 65 73 74 57 69 74 68 44 65 6c 61 79 20 22 22  TestWithDelay ""
f6c0: 0d 0a 20 20 72 65 6e 61 6d 65 20 73 68 6f 77 54  ..  rename showT
f6d0: 65 73 74 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65  est ""..  rename
f6e0: 20 77 61 69 74 54 65 73 74 20 22 22 0d 0a 20 20   waitTest ""..  
f6f0: 72 65 6e 61 6d 65 20 64 65 6c 61 79 54 65 73 74  rename delayTest
f700: 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 69 6e   ""..  rename in
f710: 69 74 54 65 73 74 20 22 22 0d 0a 20 20 72 65 6e  itTest ""..  ren
f720: 61 6d 65 20 69 73 45 78 70 65 63 74 65 64 45 72  ame isExpectedEr
f730: 72 6f 72 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65  ror ""..  rename
f740: 20 66 6f 72 6d 61 74 57 6f 72 6b 6c 6f 61 64 54   formatWorkloadT
f750: 69 6d 65 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65  ime ""..  rename
f760: 20 66 6f 72 6d 61 74 57 6f 72 6b 6c 6f 61 64 52   formatWorkloadR
f770: 65 73 75 6c 74 20 22 22 0d 0a 20 20 72 65 6e 61  esult ""..  rena
f780: 6d 65 20 65 72 72 6f 72 54 72 61 6e 73 61 63 74  me errorTransact
f790: 69 6f 6e 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65  ion ""..  rename
f7a0: 20 65 6e 64 54 72 61 6e 73 61 63 74 69 6f 6e 20   endTransaction 
f7b0: 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 62 65 67  ""..  rename beg
f7c0: 69 6e 54 72 61 6e 73 61 63 74 69 6f 6e 20 22 22  inTransaction ""
f7d0: 0d 0a 20 20 72 65 6e 61 6d 65 20 73 65 74 75 70  ..  rename setup
f7e0: 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 22  WorkloadFileDb "
f7f0: 22 0d 0a 20 20 72 65 6e 61 6d 65 20 73 65 74 75  "..  rename setu
f800: 70 57 6f 72 6b 6c 6f 61 64 4d 65 6d 44 62 20 22  pWorkloadMemDb "
f810: 22 0d 0a 0d 0a 20 20 63 61 74 63 68 20 7b 0d 0a  "....  catch {..
f820: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
f830: 45 3a 20 57 65 20 6d 75 73 74 20 63 6c 65 61 72  E: We must clear
f840: 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20   the connection 
f850: 70 6f 6f 6c 20 6e 6f 77 20 62 65 63 61 75 73 65  pool now because
f860: 20 77 65 20 69 6e 74 65 6e 64 0d 0a 20 20 20 20   we intend..    
f870: 23 20 20 20 20 20 20 20 74 6f 20 64 65 6c 65 74  #       to delet
f880: 65 20 74 68 65 20 64 61 74 61 62 61 73 65 73 20  e the databases 
f890: 66 6f 72 20 74 68 69 73 20 74 65 73 74 2e 0d 0a  for this test...
f8a0: 20 20 20 20 23 0d 0a 20 20 20 20 6f 62 6a 65 63      #..    objec
f8b0: 74 20 69 6e 76 6f 6b 65 20 53 79 73 74 65 6d 2e  t invoke System.
f8c0: 44 61 74 61 2e 53 51 4c 69 74 65 2e 53 51 4c 69  Data.SQLite.SQLi
f8d0: 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 43 6c 65  teConnection Cle
f8e0: 61 72 41 6c 6c 50 6f 6f 6c 73 0d 0a 20 20 7d 0d  arAllPools..  }.
f8f0: 0a 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20 24  ...  cleanupDb $
f900: 66 69 6c 65 4e 61 6d 65 28 32 29 0d 0a 20 20 63  fileName(2)..  c
f910: 6c 65 61 6e 75 70 44 62 20 24 66 69 6c 65 4e 61  leanupDb $fileNa
f920: 6d 65 28 31 29 20 73 72 63 44 62 0d 0a 0d 0a 20  me(1) srcDb.... 
f930: 20 66 6f 72 65 61 63 68 20 69 6e 64 65 78 28 30   foreach index(0
f940: 29 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 77  ) [array names w
f950: 6f 72 6b 6c 6f 61 64 43 61 6c 6c 62 61 63 6b 73  orkloadCallbacks
f960: 5d 20 7b 0d 0a 20 20 20 20 63 61 74 63 68 20 7b  ] {..    catch {
f970: 0d 0a 20 20 20 20 20 20 6f 62 6a 65 63 74 20 72  ..      object r
f980: 65 6d 6f 76 65 63 61 6c 6c 62 61 63 6b 20 24 77  emovecallback $w
f990: 6f 72 6b 6c 6f 61 64 43 61 6c 6c 62 61 63 6b 73  orkloadCallbacks
f9a0: 28 24 69 6e 64 65 78 28 30 29 29 0d 0a 20 20 20  ($index(0))..   
f9b0: 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 66 72 65   }..  }....  fre
f9c0: 65 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 0d 0a 0d  eDbConnection...
f9d0: 0a 20 20 69 66 20 7b 21 24 6e 6f 54 72 61 63 65  .  if {!$noTrace
f9e0: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 63 6c  } then {..    cl
f9f0: 65 61 6e 75 70 4c 6f 67 67 69 6e 67 20 24 6c 6f  eanupLogging $lo
fa00: 67 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 7d 0d 0a  gFileName..  }..
fa10: 0d 0a 20 20 72 65 6e 61 6d 65 20 63 6c 65 61 6e  ..  rename clean
fa20: 75 70 4c 6f 67 67 69 6e 67 20 22 22 0d 0a 20 20  upLogging ""..  
fa30: 72 65 6e 61 6d 65 20 73 65 74 75 70 4c 6f 67 67  rename setupLogg
fa40: 69 6e 67 20 22 22 0d 0a 0d 0a 20 20 75 6e 73 65  ing ""....  unse
fa50: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65  t -nocomplain re
fa60: 73 75 6c 74 20 74 68 72 65 61 64 20 69 6e 64 65  sult thread inde
fa70: 78 20 77 6f 72 6b 6c 6f 61 64 20 70 72 69 6f 72  x workload prior
fa80: 69 74 79 20 6a 6f 75 72 6e 61 6c 4d 6f 64 65 20  ity journalMode 
fa90: 5c 0d 0a 20 20 20 20 20 20 70 61 67 65 53 69 7a  \..      pageSiz
faa0: 65 20 6e 6f 57 6f 72 6b 6c 6f 61 64 20 70 72 69  e noWorkload pri
fab0: 6f 72 69 74 69 65 73 20 73 72 63 44 62 20 64 62  orities srcDb db
fac0: 20 66 69 6c 65 4e 61 6d 65 20 63 6f 6d 70 69 6c   fileName compil
fad0: 65 64 20 6f 70 74 69 6f 6e 73 20 5c 0d 0a 20 20  ed options \..  
fae0: 20 20 20 20 63 6f 75 6e 74 20 74 69 6d 65 73 20      count times 
faf0: 6c 6f 67 46 69 6c 65 4e 61 6d 65 20 6c 6f 67 4c  logFileName logL
fb00: 69 73 74 65 6e 65 72 20 65 76 65 6e 74 20 74 69  istener event ti
fb10: 6d 65 6f 75 74 20 63 6f 6e 6e 65 63 74 69 6f 6e  meout connection
fb20: 20 5c 0d 0a 20 20 20 20 20 20 69 6e 64 69 63 61   \..      indica
fb30: 74 6f 72 73 20 69 74 65 72 61 74 69 6f 6e 73 20  tors iterations 
fb40: 65 78 69 74 4f 6e 46 61 69 6c 20 63 6f 54 61 73  exitOnFail coTas
fb50: 6b 4d 65 6d 20 6e 6f 54 72 61 63 65 20 62 65 67  kMem noTrace beg
fb60: 69 6e 54 72 61 6e 73 61 63 74 69 6f 6e 20 5c 0d  inTransaction \.
fb70: 0a 20 20 20 20 20 20 65 6e 64 54 72 61 6e 73 61  .      endTransa
fb80: 63 74 69 6f 6e 20 65 72 72 6f 72 54 72 61 6e 73  ction errorTrans
fb90: 61 63 74 69 6f 6e 20 66 61 69 6c 75 72 65 73 20  action failures 
fba0: 73 74 61 74 75 73 20 77 6f 72 6b 6c 6f 61 64 4e  status workloadN
fbb0: 61 6d 65 73 20 5c 0d 0a 20 20 20 20 20 20 77 6f  ames \..      wo
fbc0: 72 6b 6c 6f 61 64 43 61 6c 6c 62 61 63 6b 73 0d  rkloadCallbacks.
fbd0: 0a 7d 20 2d 74 69 6d 65 20 74 72 75 65 20 2d 63  .} -time true -c
fbe0: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 65 61 67 6c  onstraints {eagl
fbf0: 65 20 63 6f 6d 6d 61 6e 64 2e 6f 62 6a 65 63 74  e command.object
fc00: 20 6d 6f 6e 6f 42 75 67 34 30 20 63 6f 6d 6d 61   monoBug40 comma
fc10: 6e 64 2e 73 71 6c 5c 0d 0a 63 6f 6d 70 69 6c 65  nd.sql\..compile
fc20: 2e 44 41 54 41 20 53 51 4c 69 74 65 20 53 79 73  .DATA SQLite Sys
fc30: 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65 20  tem.Data.SQLite 
fc40: 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 7d 20 2d  compileCSharp} -
fc50: 72 65 73 75 6c 74 20 7b 30 7d 7d 0d 0a 0d 0a 23  result {0}}....#
fc60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fc70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fc80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fc90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fca0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
fcb0: 0d 0a 23 0d 0a 23 20 4e 4f 54 45 3a 20 52 65 70  ..#..# NOTE: Rep
fcc0: 6f 72 74 20 61 66 74 65 72 20 74 65 73 74 2e 0d  ort after test..
fcd0: 0a 23 0d 0a 63 68 65 63 6b 46 6f 72 53 51 4c 69  .#..checkForSQLi
fce0: 74 65 44 69 72 65 63 74 6f 72 69 65 73 20 24 74  teDirectories $t
fcf0: 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 67 65 74  est_channel..get
fd00: 53 51 4c 69 74 65 48 61 6e 64 6c 65 43 6f 75 6e  SQLiteHandleCoun
fd10: 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c  ts $test_channel
fd20: 0d 0a 72 65 70 6f 72 74 53 51 4c 69 74 65 52 65  ..reportSQLiteRe
fd30: 73 6f 75 72 63 65 73 20 24 74 65 73 74 5f 63 68  sources $test_ch
fd40: 61 6e 6e 65 6c 0d 0a 0d 0a 23 23 23 23 23 23 23  annel....#######
fd50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
fd90: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 53  ########....runS
fda0: 51 4c 69 74 65 54 65 73 74 45 70 69 6c 6f 67 75  QLiteTestEpilogu
fdb0: 65 0d 0a 72 75 6e 54 65 73 74 45 70 69 6c 6f 67  e..runTestEpilog
fdc0: 75 65 0d 0a                                      ue..