System.Data.SQLite
Hex Artifact Content
Not logged in

Artifact 47296217bcb1cf4263dcdde8a9a37883d413af54:


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: 4d 61 6b 65 20 73 75 72 65 20 74 68 61 74 20 53  Make sure that S
0280: 51 4c 69 74 65 20 63 6f 72 65 20 6c 69 62 72 61  QLite core libra
0290: 72 79 20 69 73 20 63 6f 6d 70 6c 65 74 65 6c 79  ry is completely
02a0: 20 73 68 75 74 64 6f 77 6e 20 70 72 69 6f 72 20   shutdown prior 
02b0: 74 6f 0d 0a 23 20 20 20 20 20 20 20 73 74 61 72  to..#       star
02c0: 74 69 6e 67 20 61 6e 79 20 6f 66 20 74 68 65 20  ting any of the 
02d0: 74 65 73 74 73 20 69 6e 20 74 68 69 73 20 66 69  tests in this fi
02e0: 6c 65 2e 0d 0a 23 0d 0a 73 68 75 74 64 6f 77 6e  le...#..shutdown
02f0: 53 51 4c 69 74 65 20 24 74 65 73 74 5f 63 68 61  SQLite $test_cha
0300: 6e 6e 65 6c 0d 0a 0d 0a 23 23 23 23 23 23 23 23  nnel....########
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 0d 0a 0d 0a 72 75 6e 54 65  #######....runTe
0360: 73 74 20 7b 74 65 73 74 20 73 74 72 65 73 73 2d  st {test stress-
0370: 31 2e 31 20 7b 6d 75 6c 74 69 74 68 72 65 61 64  1.1 {multithread
0380: 65 64 20 73 74 72 65 73 73 20 74 65 73 74 69 6e  ed stress testin
0390: 67 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 75  g} -setup {..  u
03a0: 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e  nset -nocomplain
03b0: 20 72 65 73 75 6c 74 20 74 68 72 65 61 64 20 69   result thread i
03c0: 6e 64 65 78 20 77 6f 72 6b 6c 6f 61 64 20 70 72  ndex workload pr
03d0: 69 6f 72 69 74 79 20 6e 6f 57 6f 72 6b 6c 6f 61  iority noWorkloa
03e0: 64 20 5c 0d 0a 20 20 20 20 20 20 70 72 69 6f 72  d \..      prior
03f0: 69 74 69 65 73 20 73 72 63 44 62 20 64 62 20 66  ities srcDb db f
0400: 69 6c 65 4e 61 6d 65 20 63 6f 6d 70 69 6c 65 64  ileName compiled
0410: 20 6f 70 74 69 6f 6e 73 20 63 6f 75 6e 74 20 74   options count t
0420: 69 6d 65 73 20 6c 6f 67 46 69 6c 65 4e 61 6d 65  imes logFileName
0430: 20 5c 0d 0a 20 20 20 20 20 20 6c 6f 67 4c 69 73   \..      logLis
0440: 74 65 6e 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e  tener connection
0450: 20 69 6e 64 69 63 61 74 6f 72 73 20 69 74 65 72   indicators iter
0460: 61 74 69 6f 6e 73 20 65 78 69 74 4f 6e 46 61 69  ations exitOnFai
0470: 6c 20 63 6f 54 61 73 6b 4d 65 6d 20 5c 0d 0a 20  l coTaskMem \.. 
0480: 20 20 20 20 20 6e 6f 54 72 61 63 65 20 66 61 69       noTrace fai
0490: 6c 75 72 65 73 20 73 74 61 74 75 73 0d 0a 0d 0a  lures status....
04a0: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
04b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
04c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
04d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
04e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
04f0: 0a 0d 0a 20 20 70 72 6f 63 20 73 65 74 75 70 57  ...  proc setupW
0500: 6f 72 6b 6c 6f 61 64 4d 65 6d 44 62 20 7b 20 66  orkloadMemDb { f
0510: 69 6c 65 4e 61 6d 65 20 7b 76 61 72 4e 61 6d 65  ileName {varName
0520: 20 64 62 7d 20 7d 20 7b 0d 0a 20 20 20 20 23 0d   db} } {..    #.
0530: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 68 69  .    # NOTE: Thi
0540: 73 20 73 68 6f 75 6c 64 20 62 65 20 61 6e 20 69  s should be an i
0550: 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73  n-memory databas
0560: 65 3b 20 74 68 65 72 65 66 6f 72 65 2c 20 73 6b  e; therefore, sk
0570: 69 70 20 61 74 74 65 6d 70 74 69 6e 67 0d 0a 20  ip attempting.. 
0580: 20 20 20 23 20 20 20 20 20 20 20 74 6f 20 64 65     #       to de
0590: 6c 65 74 65 20 74 68 65 20 75 6e 64 65 72 6c 79  lete the underly
05a0: 69 6e 67 20 64 61 74 61 62 61 73 65 20 66 69 6c  ing database fil
05b0: 65 20 61 73 20 74 68 61 74 20 77 6f 75 6c 64 20  e as that would 
05c0: 6e 6f 74 20 6d 61 6b 65 20 61 6e 79 0d 0a 20 20  not make any..  
05d0: 20 20 23 20 20 20 20 20 20 20 73 65 6e 73 65 2e    #       sense.
05e0: 20 20 41 6c 73 6f 2c 20 64 69 73 61 62 6c 65 20    Also, disable 
05f0: 75 73 65 20 6f 66 20 22 50 52 41 47 4d 41 20 74  use of "PRAGMA t
0600: 65 6d 70 5f 73 74 6f 72 65 5f 64 69 72 65 63 74  emp_store_direct
0610: 6f 72 79 22 20 77 68 65 6e 0d 0a 20 20 20 20 23  ory" when..    #
0620: 20 20 20 20 20 20 20 73 65 74 74 69 6e 67 20 75         setting u
0630: 70 20 74 68 65 20 6e 65 77 20 63 6f 6e 6e 65 63  p the new connec
0640: 74 69 6f 6e 20 62 65 63 61 75 73 65 20 69 74 20  tion because it 
0650: 69 73 20 6e 6f 74 20 74 68 72 65 61 64 2d 73 61  is not thread-sa
0660: 66 65 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  fe...    #..    
0670: 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 73 74 20  uplevel 1 [list 
0680: 73 65 74 75 70 44 62 20 24 66 69 6c 65 4e 61 6d  setupDb $fileNam
0690: 65 20 22 22 20 22 22 20 22 22 20 22 22 20 22 22  e "" "" "" "" ""
06a0: 20 66 61 6c 73 65 20 66 61 6c 73 65 20 74 72 75   false false tru
06b0: 65 20 66 61 6c 73 65 20 5c 0d 0a 20 20 20 20 20  e false \..     
06c0: 20 20 20 24 76 61 72 4e 61 6d 65 5d 0d 0a 20 20     $varName]..  
06d0: 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23  }....  #########
06e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
06f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0700: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0710: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0720: 23 23 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 73  ####....  proc s
0730: 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65  etupWorkloadFile
0740: 44 62 20 7b 20 66 69 6c 65 4e 61 6d 65 20 7b 76  Db { fileName {v
0750: 61 72 4e 61 6d 65 20 64 62 7d 20 7d 20 7b 0d 0a  arName db} } {..
0760: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
0770: 45 3a 20 53 6b 69 70 20 61 74 74 65 6d 70 74 69  E: Skip attempti
0780: 6e 67 20 74 6f 20 64 65 6c 65 74 65 20 74 68 65  ng to delete the
0790: 20 75 6e 64 65 72 6c 79 69 6e 67 20 64 61 74 61   underlying data
07a0: 62 61 73 65 20 66 69 6c 65 2e 20 20 41 6c 73 6f  base file.  Also
07b0: 2c 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 64  ,..    #       d
07c0: 69 73 61 62 6c 65 20 75 73 65 20 6f 66 20 22 50  isable use of "P
07d0: 52 41 47 4d 41 20 74 65 6d 70 5f 73 74 6f 72 65  RAGMA temp_store
07e0: 5f 64 69 72 65 63 74 6f 72 79 22 20 77 68 65 6e  _directory" when
07f0: 20 73 65 74 74 69 6e 67 20 75 70 0d 0a 20 20 20   setting up..   
0800: 20 23 20 20 20 20 20 20 20 74 68 65 20 6e 65 77   #       the new
0810: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 62 65 63 61   connection beca
0820: 75 73 65 20 69 74 20 69 73 20 6e 6f 74 20 74 68  use it is not th
0830: 72 65 61 64 2d 73 61 66 65 2e 0d 0a 20 20 20 20  read-safe...    
0840: 23 0d 0a 20 20 20 20 75 70 6c 65 76 65 6c 20 31  #..    uplevel 1
0850: 20 5b 6c 69 73 74 20 73 65 74 75 70 44 62 20 24   [list setupDb $
0860: 66 69 6c 65 4e 61 6d 65 20 22 22 20 22 22 20 22  fileName "" "" "
0870: 22 20 22 22 20 22 22 20 74 72 75 65 20 66 61 6c  " "" "" true fal
0880: 73 65 20 66 61 6c 73 65 20 66 61 6c 73 65 20 5c  se false false \
0890: 0d 0a 20 20 20 20 20 20 20 20 24 76 61 72 4e 61  ..        $varNa
08a0: 6d 65 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23  me]..  }....  ##
08b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
08f0: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20  ###########.... 
0900: 20 70 72 6f 63 20 66 6f 72 6d 61 74 57 6f 72 6b   proc formatWork
0910: 6c 6f 61 64 52 65 73 75 6c 74 20 7b 20 69 6e 64  loadResult { ind
0920: 65 78 20 7d 20 7b 0d 0a 20 20 20 20 73 65 74 20  ex } {..    set 
0930: 72 65 73 75 6c 74 20 5b 61 70 70 65 6e 64 41 72  result [appendAr
0940: 67 73 20 22 2d 2d 2d 2d 20 69 74 65 72 61 74 69  gs "---- iterati
0950: 6f 6e 73 20 66 6f 72 20 77 6f 72 6b 6c 6f 61 64  ons for workload
0960: 20 28 22 20 24 69 6e 64 65 78 20 22 29 3a 20 22   (" $index "): "
0970: 5d 0d 0a 0d 0a 20 20 20 20 61 70 70 65 6e 64 20  ]....    append 
0980: 72 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 69  result [expr {[i
0990: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 74 65  nfo exists ::ite
09a0: 72 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 2c 74  rations($index,t
09b0: 6f 74 61 6c 29 5d 20 3f 20 5c 0d 0a 20 20 20 20  otal)] ? \..    
09c0: 20 20 20 20 24 3a 3a 69 74 65 72 61 74 69 6f 6e      $::iteration
09d0: 73 28 24 69 6e 64 65 78 2c 74 6f 74 61 6c 29 20  s($index,total) 
09e0: 3a 20 30 7d 5d 20 22 20 74 6f 74 61 6c 2c 20 22  : 0}] " total, "
09f0: 0d 0a 0d 0a 20 20 20 20 61 70 70 65 6e 64 20 72  ....    append r
0a00: 65 73 75 6c 74 20 5b 65 78 70 72 20 7b 5b 69 6e  esult [expr {[in
0a10: 66 6f 20 65 78 69 73 74 73 20 3a 3a 69 74 65 72  fo exists ::iter
0a20: 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 2c 6f 6b  ations($index,ok
0a30: 29 5d 20 3f 20 5c 0d 0a 20 20 20 20 20 20 20 20  )] ? \..        
0a40: 24 3a 3a 69 74 65 72 61 74 69 6f 6e 73 28 24 69  $::iterations($i
0a50: 6e 64 65 78 2c 6f 6b 29 20 3a 20 30 7d 5d 20 22  ndex,ok) : 0}] "
0a60: 20 6f 6b 2c 20 22 0d 0a 0d 0a 20 20 20 20 61 70   ok, "....    ap
0a70: 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 65 78 70  pend result [exp
0a80: 72 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  r {[info exists 
0a90: 3a 3a 69 74 65 72 61 74 69 6f 6e 73 28 24 69 6e  ::iterations($in
0aa0: 64 65 78 2c 65 72 72 6f 72 29 5d 20 3f 20 5c 0d  dex,error)] ? \.
0ab0: 0a 20 20 20 20 20 20 20 20 24 3a 3a 69 74 65 72  .        $::iter
0ac0: 61 74 69 6f 6e 73 28 24 69 6e 64 65 78 2c 65 72  ations($index,er
0ad0: 72 6f 72 29 20 3a 20 30 7d 5d 20 22 20 65 72 72  ror) : 0}] " err
0ae0: 6f 72 2c 20 22 0d 0a 0d 0a 20 20 20 20 23 0d 0a  or, "....    #..
0af0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 54 72 61 6e      # NOTE: Tran
0b00: 73 6c 61 74 65 20 74 68 65 20 77 6f 72 6b 6c 6f  slate the worklo
0b10: 61 64 20 69 6e 64 65 78 20 74 6f 20 74 68 65 20  ad index to the 
0b20: 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 69 74  corresponding it
0b30: 65 72 61 74 69 6f 6e 0d 0a 20 20 20 20 23 20 20  eration..    #  
0b40: 20 20 20 20 20 65 72 72 6f 72 20 69 6e 64 69 63       error indic
0b50: 61 74 6f 72 20 73 6f 20 74 68 61 74 20 77 65 20  ator so that we 
0b60: 63 61 6e 20 65 61 73 69 6c 79 20 6c 6f 6f 6b 75  can easily looku
0b70: 70 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 0d  p the number of.
0b80: 0a 20 20 20 20 23 20 20 20 20 20 20 20 66 61 69  .    #       fai
0b90: 6c 75 72 65 73 20 28 69 2e 65 2e 20 22 75 6e 65  lures (i.e. "une
0ba0: 78 70 65 63 74 65 64 20 65 72 72 6f 72 73 22 29  xpected errors")
0bb0: 20 66 6f 72 20 74 68 65 20 77 6f 72 6b 6c 6f 61   for the workloa
0bc0: 64 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 73  d...    #..    s
0bd0: 65 74 20 69 6e 64 69 63 61 74 6f 72 20 5b 73 74  et indicator [st
0be0: 72 69 6e 67 20 63 68 61 72 61 63 74 65 72 20 5b  ring character [
0bf0: 65 78 70 72 20 7b 5b 73 74 72 69 6e 67 20 6f 72  expr {[string or
0c00: 64 69 6e 61 6c 20 61 20 30 5d 20 2b 20 24 69 6e  dinal a 0] + $in
0c10: 64 65 78 20 2d 20 31 7d 5d 5d 0d 0a 0d 0a 20 20  dex - 1}]]....  
0c20: 20 20 61 70 70 65 6e 64 20 72 65 73 75 6c 74 20    append result 
0c30: 5b 65 78 70 72 20 7b 5b 69 6e 66 6f 20 65 78 69  [expr {[info exi
0c40: 73 74 73 20 3a 3a 66 61 69 6c 75 72 65 73 28 24  sts ::failures($
0c50: 69 6e 64 69 63 61 74 6f 72 29 5d 20 3f 20 5c 0d  indicator)] ? \.
0c60: 0a 20 20 20 20 20 20 20 20 24 3a 3a 66 61 69 6c  .        $::fail
0c70: 75 72 65 73 28 24 69 6e 64 69 63 61 74 6f 72 29  ures($indicator)
0c80: 20 3a 20 30 7d 5d 20 22 20 66 61 69 6c 65 64 5c   : 0}] " failed\
0c90: 6e 22 0d 0a 0d 0a 20 20 20 20 72 65 74 75 72 6e  n"....    return
0ca0: 20 24 72 65 73 75 6c 74 0d 0a 20 20 7d 0d 0a 0d   $result..  }...
0cb0: 0a 20 20 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: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0cf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0d00: 0d 0a 0d 0a 20 20 70 72 6f 63 20 66 6f 72 6d 61  ....  proc forma
0d10: 74 57 6f 72 6b 6c 6f 61 64 54 69 6d 65 20 7b 20  tWorkloadTime { 
0d20: 69 6e 64 65 78 20 7d 20 7b 0d 0a 20 20 20 20 69  index } {..    i
0d30: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
0d40: 3a 3a 74 69 6d 65 73 28 24 69 6e 64 65 78 29 5d  ::times($index)]
0d50: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
0d60: 73 65 74 20 6c 65 6e 67 74 68 20 5b 6c 6c 65 6e  set length [llen
0d70: 67 74 68 20 24 3a 3a 74 69 6d 65 73 28 24 69 6e  gth $::times($in
0d80: 64 65 78 29 5d 0d 0a 0d 0a 20 20 20 20 20 20 69  dex)]....      i
0d90: 66 20 7b 24 6c 65 6e 67 74 68 20 3e 20 30 7d 20  f {$length > 0} 
0da0: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
0db0: 73 65 74 20 73 75 6d 20 5b 65 78 70 72 20 5b 6a  set sum [expr [j
0dc0: 6f 69 6e 20 24 3a 3a 74 69 6d 65 73 28 24 69 6e  oin $::times($in
0dd0: 64 65 78 29 20 2b 5d 5d 0d 0a 0d 0a 20 20 20 20  dex) +]]....    
0de0: 20 20 20 20 72 65 74 75 72 6e 20 5b 61 70 70 65      return [appe
0df0: 6e 64 41 72 67 73 20 22 2d 2d 2d 2d 20 61 76 65  ndArgs "---- ave
0e00: 72 61 67 65 20 74 69 6d 65 20 66 6f 72 20 77 6f  rage time for wo
0e10: 72 6b 6c 6f 61 64 20 28 22 20 24 69 6e 64 65 78  rkload (" $index
0e20: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
0e30: 22 29 20 69 73 20 61 62 6f 75 74 20 22 20 5b 65  ") is about " [e
0e40: 78 70 72 20 7b 69 6e 74 28 24 73 75 6d 20 2f 20  xpr {int($sum / 
0e50: 24 6c 65 6e 67 74 68 20 2f 20 31 30 30 30 2e 30  $length / 1000.0
0e60: 29 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  )}] \..         
0e70: 20 20 20 22 20 6d 69 6c 6c 69 73 65 63 6f 6e 64     " millisecond
0e80: 73 20 28 22 20 5b 65 78 70 72 20 7b 69 6e 74 28  s (" [expr {int(
0e90: 24 73 75 6d 20 2f 20 28 5b 69 6e 66 6f 20 65 78  $sum / ([info ex
0ea0: 69 73 74 73 20 5c 0d 0a 20 20 20 20 20 20 20 20  ists \..        
0eb0: 20 20 20 20 3a 3a 69 74 65 72 61 74 69 6f 6e 73      ::iterations
0ec0: 28 24 69 6e 64 65 78 2c 74 6f 74 61 6c 29 5d 20  ($index,total)] 
0ed0: 3f 20 24 3a 3a 69 74 65 72 61 74 69 6f 6e 73 28  ? $::iterations(
0ee0: 24 69 6e 64 65 78 2c 74 6f 74 61 6c 29 20 3a 20  $index,total) : 
0ef0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 24  \..            $
0f00: 6c 65 6e 67 74 68 29 20 2f 20 31 30 30 30 2e 30  length) / 1000.0
0f10: 29 7d 5d 20 22 20 6d 69 6c 6c 69 73 65 63 6f 6e  )}] " millisecon
0f20: 64 73 20 70 65 72 20 69 74 65 72 61 74 69 6f 6e  ds per iteration
0f30: 29 5c 6e 22 5d 0d 0a 20 20 20 20 20 20 7d 0d 0a  )\n"]..      }..
0f40: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 72 65 74      }....    ret
0f50: 75 72 6e 20 5b 61 70 70 65 6e 64 41 72 67 73 20  urn [appendArgs 
0f60: 22 2d 2d 2d 2d 20 6e 6f 20 74 69 6d 65 73 20 66  "---- no times f
0f70: 6f 72 20 77 6f 72 6b 6c 6f 61 64 20 28 22 20 24  or workload (" $
0f80: 69 6e 64 65 78 20 29 5c 6e 5d 0d 0a 20 20 7d 0d  index )\n]..  }.
0f90: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
0fa0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
0fe0: 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 69 73 45  ##....  proc isE
0ff0: 78 70 65 63 74 65 64 45 72 72 6f 72 20 7b 20 65  xpectedError { e
1000: 72 72 6f 72 20 7d 20 7b 0d 0a 20 20 20 20 72 65  rror } {..    re
1010: 74 75 72 6e 20 5b 65 78 70 72 20 7b 5b 72 65 67  turn [expr {[reg
1020: 65 78 70 20 2d 2d 20 7b 5c 73 6e 6f 20 73 75 63  exp -- {\sno suc
1030: 68 20 74 61 62 6c 65 3a 20 74 31 5c 73 7d 20 24  h table: t1\s} $
1040: 65 72 72 6f 72 5d 20 7c 7c 20 5c 0d 0a 20 20 20  error] || \..   
1050: 20 20 20 20 20 5b 72 65 67 65 78 70 20 2d 2d 20       [regexp -- 
1060: 7b 5c 73 64 61 74 61 62 61 73 65 20 69 73 20 6c  {\sdatabase is l
1070: 6f 63 6b 65 64 5c 73 7d 20 24 65 72 72 6f 72 5d  ocked\s} $error]
1080: 20 7c 7c 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b   || \..        [
1090: 72 65 67 65 78 70 20 2d 2d 20 7b 5c 73 64 61 74  regexp -- {\sdat
10a0: 61 62 61 73 65 20 74 61 62 6c 65 20 69 73 20 6c  abase table is l
10b0: 6f 63 6b 65 64 5c 73 7d 20 24 65 72 72 6f 72 5d  ocked\s} $error]
10c0: 7d 5d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23  }]..  }....  ###
10d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
10f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1100: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1110: 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20  ##########....  
1120: 70 72 6f 63 20 64 65 6c 61 79 54 65 73 74 20 7b  proc delayTest {
1130: 20 7b 65 78 74 72 61 20 30 7d 20 7d 20 7b 0d 0a   {extra 0} } {..
1140: 20 20 20 20 61 66 74 65 72 20 5b 65 78 70 72 20      after [expr 
1150: 7b 69 6e 74 28 28 72 61 6e 64 28 29 20 2a 20 31  {int((rand() * 1
1160: 30 30 30 29 20 2b 20 24 65 78 74 72 61 29 7d 5d  000) + $extra)}]
1170: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23  ..  }....  #####
1180: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1190: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
11c0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72  ########....  pr
11d0: 6f 63 20 73 68 6f 77 54 65 73 74 20 7b 20 69 6e  oc showTest { in
11e0: 64 69 63 61 74 6f 72 20 7d 20 7b 0d 0a 20 20 20  dicator } {..   
11f0: 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f 63   tputs $::test_c
1200: 68 61 6e 6e 65 6c 20 24 69 6e 64 69 63 61 74 6f  hannel $indicato
1210: 72 0d 0a 20 20 20 20 61 70 70 65 6e 64 20 3a 3a  r..    append ::
1220: 69 6e 64 69 63 61 74 6f 72 73 20 24 69 6e 64 69  indicators $indi
1230: 63 61 74 6f 72 0d 0a 20 20 20 20 64 65 6c 61 79  cator..    delay
1240: 54 65 73 74 20 24 3a 3a 63 6f 75 6e 74 28 32 29  Test $::count(2)
1250: 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23  ..  }....  #####
1260: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
12a0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 70 72  ########....  pr
12b0: 6f 63 20 64 6f 6e 65 54 65 73 74 20 7b 20 7b 69  oc doneTest { {i
12c0: 6e 64 69 63 61 74 6f 72 20 22 22 7d 20 7d 20 7b  ndicator ""} } {
12d0: 0d 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e  ..    if {[strin
12e0: 67 20 6c 65 6e 67 74 68 20 24 69 6e 64 69 63 61  g length $indica
12f0: 74 6f 72 5d 20 3e 20 30 7d 20 74 68 65 6e 20 7b  tor] > 0} then {
1300: 0d 0a 20 20 20 20 20 20 6c 61 70 70 65 6e 64 20  ..      lappend 
1310: 3a 3a 73 74 61 74 75 73 28 64 6f 6e 65 29 20 24  ::status(done) $
1320: 69 6e 64 69 63 61 74 6f 72 0d 0a 20 20 20 20 7d  indicator..    }
1330: 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20  ..    if {[info 
1340: 65 78 69 73 74 73 20 3a 3a 73 74 61 74 75 73 28  exists ::status(
1350: 64 6f 6e 65 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a  done)]} then {..
1360: 20 20 20 20 20 20 68 6f 73 74 20 74 69 74 6c 65        host title
1370: 20 24 3a 3a 73 74 61 74 75 73 28 64 6f 6e 65 29   $::status(done)
1380: 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a  ..    } else {..
1390: 20 20 20 20 20 20 68 6f 73 74 20 74 69 74 6c 65        host title
13a0: 20 22 22 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d   ""..    }..  }.
13b0: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
13c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
13d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
13e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
13f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1400: 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 66 61 69  ##....  proc fai
1410: 6c 54 65 73 74 20 7b 20 69 6e 64 69 63 61 74 6f  lTest { indicato
1420: 72 20 65 72 72 6f 72 20 7d 20 7b 0d 0a 20 20 20  r error } {..   
1430: 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20   #..    # NOTE: 
1440: 48 61 6c 74 20 61 6c 6c 20 74 65 73 74 69 6e 67  Halt all testing
1450: 20 61 6e 64 20 65 78 69 74 20 74 68 65 20 70 72   and exit the pr
1460: 6f 63 65 73 73 20 6e 6f 77 0d 0a 20 20 20 20 23  ocess now..    #
1470: 20 20 20 20 20 20 20 2d 4f 52 2d 20 6a 75 73 74         -OR- just
1480: 20 72 65 63 6f 72 64 20 74 68 65 20 66 61 69 6c   record the fail
1490: 75 72 65 20 61 6e 64 20 63 6f 6e 74 69 6e 75 65  ure and continue
14a0: 3f 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 69 66  ?..    #..    if
14b0: 20 7b 24 3a 3a 65 78 69 74 4f 6e 46 61 69 6c 7d   {$::exitOnFail}
14c0: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73   then {..      s
14d0: 65 74 20 6c 65 76 65 6c 20 5b 65 78 70 72 20 7b  et level [expr {
14e0: 5b 69 6e 66 6f 20 6c 65 76 65 6c 5d 20 2d 20 31  [info level] - 1
14f0: 7d 5d 0d 0a 0d 0a 20 20 20 20 20 20 74 70 75 74  }]....      tput
1500: 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e 65  s $::test_channe
1510: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
1520: 0a 20 20 20 20 20 20 20 20 20 20 5c 6e 20 5b 69  .          \n [i
1530: 6e 66 6f 20 6c 65 76 65 6c 20 24 6c 65 76 65 6c  nfo level $level
1540: 5d 20 22 3a 20 22 20 5c 6e 5c 74 20 24 65 72 72  ] ": " \n\t $err
1550: 6f 72 20 5c 6e 5d 0d 0a 0d 0a 20 20 20 20 20 20  or \n]....      
1560: 65 78 69 74 20 66 61 69 6c 75 72 65 0d 0a 20 20  exit failure..  
1570: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
1580: 20 20 74 70 75 74 73 20 24 3a 3a 74 65 73 74 5f    tputs $::test_
1590: 63 68 61 6e 6e 65 6c 20 24 69 6e 64 69 63 61 74  channel $indicat
15a0: 6f 72 0d 0a 0d 0a 20 20 20 20 20 20 69 66 20 7b  or....      if {
15b0: 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  ![info exists ::
15c0: 66 61 69 6c 75 72 65 73 28 24 69 6e 64 69 63 61  failures($indica
15d0: 74 6f 72 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  tor)]} then {.. 
15e0: 20 20 20 20 20 20 20 73 65 74 20 3a 3a 66 61 69         set ::fai
15f0: 6c 75 72 65 73 28 24 69 6e 64 69 63 61 74 6f 72  lures($indicator
1600: 29 20 30 0d 0a 20 20 20 20 20 20 7d 0d 0a 0d 0a  ) 0..      }....
1610: 20 20 20 20 20 20 69 6e 63 72 20 3a 3a 66 61 69        incr ::fai
1620: 6c 75 72 65 73 28 24 69 6e 64 69 63 61 74 6f 72  lures($indicator
1630: 29 0d 0a 20 20 20 20 20 20 64 65 6c 61 79 54 65  )..      delayTe
1640: 73 74 20 24 3a 3a 63 6f 75 6e 74 28 32 29 0d 0a  st $::count(2)..
1650: 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20      }..  }....  
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 23 23 23 23 23 23 23 23 23  ################
1690: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
16a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
16b0: 0a 20 20 70 72 6f 63 20 61 6c 6c 6f 63 4d 65 6d  .  proc allocMem
16c0: 20 7b 20 73 69 7a 65 20 7d 20 7b 0d 0a 20 20 20   { size } {..   
16d0: 20 69 66 20 7b 24 3a 3a 63 6f 54 61 73 6b 4d 65   if {$::coTaskMe
16e0: 6d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  m} then {..     
16f0: 20 72 65 74 75 72 6e 20 5b 6f 62 6a 65 63 74 20   return [object 
1700: 69 6e 76 6f 6b 65 20 2d 63 72 65 61 74 65 20 5c  invoke -create \
1710: 0d 0a 20 20 20 20 20 20 20 20 20 20 53 79 73 74  ..          Syst
1720: 65 6d 2e 52 75 6e 74 69 6d 65 2e 49 6e 74 65 72  em.Runtime.Inter
1730: 6f 70 53 65 72 76 69 63 65 73 2e 4d 61 72 73 68  opServices.Marsh
1740: 61 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  al \..          
1750: 41 6c 6c 6f 63 43 6f 54 61 73 6b 4d 65 6d 20 24  AllocCoTaskMem $
1760: 73 69 7a 65 5d 3b 20 23 20 74 68 72 6f 77 0d 0a  size]; # throw..
1770: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..  
1780: 20 20 20 20 73 65 74 20 70 74 72 20 5b 6f 62 6a      set ptr [obj
1790: 65 63 74 20 69 6e 76 6f 6b 65 20 2d 63 72 65 61  ect invoke -crea
17a0: 74 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e 50 75  te -flags +NonPu
17b0: 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20 20 20  blic \..        
17c0: 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51    System.Data.SQ
17d0: 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74 69 76  Lite.UnsafeNativ
17e0: 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20 20 20  eMethods \..    
17f0: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 6d 61        sqlite3_ma
1800: 6c 6c 6f 63 20 24 73 69 7a 65 5d 0d 0a 0d 0a 20  lloc $size].... 
1810: 20 20 20 20 20 69 66 20 7b 5b 6f 62 6a 65 63 74       if {[object
1820: 20 69 6e 76 6f 6b 65 20 24 70 74 72 20 54 6f 49   invoke $ptr ToI
1830: 6e 74 36 34 5d 20 21 3d 20 30 7d 20 74 68 65 6e  nt64] != 0} then
1840: 20 7b 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75   {..        retu
1850: 72 6e 20 24 70 74 72 0d 0a 20 20 20 20 20 20 7d  rn $ptr..      }
1860: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
1870: 20 65 72 72 6f 72 20 5b 61 70 70 65 6e 64 41 72   error [appendAr
1880: 67 73 20 22 73 71 6c 69 74 65 33 5f 6d 61 6c 6c  gs "sqlite3_mall
1890: 6f 63 28 22 20 24 73 69 7a 65 20 22 29 20 66 61  oc(" $size ") fa
18a0: 69 6c 65 64 22 5d 0d 0a 20 20 20 20 20 20 7d 0d  iled"]..      }.
18b0: 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20  .    }..  }.... 
18c0: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23   ###############
18d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
18f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1900: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a  ##############..
1910: 0d 0a 20 20 70 72 6f 63 20 75 73 65 4d 65 6d 20  ..  proc useMem 
1920: 7b 20 70 74 72 20 73 69 7a 65 20 7d 20 7b 0d 0a  { ptr size } {..
1930: 20 20 20 20 69 66 20 7b 21 5b 69 73 4d 6f 6e 6f      if {![isMono
1940: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
1950: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 2d   object invoke -
1960: 66 6c 61 67 73 20 2b 4e 6f 6e 50 75 62 6c 69 63  flags +NonPublic
1970: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 4d 69   \..          Mi
1980: 63 72 6f 73 6f 66 74 2e 57 69 6e 33 32 2e 57 69  crosoft.Win32.Wi
1990: 6e 33 32 4e 61 74 69 76 65 20 5a 65 72 6f 4d 65  n32Native ZeroMe
19a0: 6d 6f 72 79 20 5c 0d 0a 20 20 20 20 20 20 20 20  mory \..        
19b0: 20 20 24 70 74 72 20 24 73 69 7a 65 0d 0a 20 20    $ptr $size..  
19c0: 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23    }..  }....  ##
19d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
19e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
19f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1a00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1a10: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20  ###########.... 
1a20: 20 70 72 6f 63 20 66 72 65 65 4d 65 6d 20 7b 20   proc freeMem { 
1a30: 70 74 72 20 7d 20 7b 0d 0a 20 20 20 20 69 66 20  ptr } {..    if 
1a40: 7b 24 3a 3a 63 6f 54 61 73 6b 4d 65 6d 7d 20 74  {$::coTaskMem} t
1a50: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 6f 62 6a  hen {..      obj
1a60: 65 63 74 20 69 6e 76 6f 6b 65 20 53 79 73 74 65  ect invoke Syste
1a70: 6d 2e 52 75 6e 74 69 6d 65 2e 49 6e 74 65 72 6f  m.Runtime.Intero
1a80: 70 53 65 72 76 69 63 65 73 2e 4d 61 72 73 68 61  pServices.Marsha
1a90: 6c 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 46  l \..          F
1aa0: 72 65 65 43 6f 54 61 73 6b 4d 65 6d 20 24 70 74  reeCoTaskMem $pt
1ab0: 72 0d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d  r..    } else {.
1ac0: 0a 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e  .      object in
1ad0: 76 6f 6b 65 20 2d 66 6c 61 67 73 20 2b 4e 6f 6e  voke -flags +Non
1ae0: 50 75 62 6c 69 63 20 5c 0d 0a 20 20 20 20 20 20  Public \..      
1af0: 20 20 20 20 53 79 73 74 65 6d 2e 44 61 74 61 2e      System.Data.
1b00: 53 51 4c 69 74 65 2e 55 6e 73 61 66 65 4e 61 74  SQLite.UnsafeNat
1b10: 69 76 65 4d 65 74 68 6f 64 73 20 5c 0d 0a 20 20  iveMethods \..  
1b20: 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f          sqlite3_
1b30: 66 72 65 65 20 24 70 74 72 0d 0a 20 20 20 20 7d  free $ptr..    }
1b40: 0d 0a 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23  ....    #..    #
1b50: 20 4e 4f 54 45 3a 20 46 72 65 65 20 65 78 74 72   NOTE: Free extr
1b60: 61 20 6f 70 61 71 75 65 20 6f 62 6a 65 63 74 20  a opaque object 
1b70: 68 61 6e 64 6c 65 20 72 65 66 65 72 65 6e 63 65  handle reference
1b80: 20 61 64 64 65 64 20 62 79 20 74 68 65 0d 0a 20   added by the.. 
1b90: 20 20 20 23 20 20 20 20 20 20 20 5b 72 65 74 75     #       [retu
1ba0: 72 6e 5d 20 63 6f 6d 6d 61 6e 64 20 69 6e 20 5b  rn] command in [
1bb0: 61 6c 6c 6f 63 4d 65 6d 5d 2e 0d 0a 20 20 20 20  allocMem]...    
1bc0: 23 0d 0a 20 20 20 20 6f 62 6a 65 63 74 20 64 69  #..    object di
1bd0: 73 70 6f 73 65 20 24 70 74 72 0d 0a 20 20 7d 0d  spose $ptr..  }.
1be0: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
1bf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1c00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1c10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1c20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1c30: 23 23 0d 0a 0d 0a 20 20 70 72 6f 63 20 73 65 74  ##....  proc set
1c40: 75 70 4c 6f 67 67 69 6e 67 20 7b 20 66 69 6c 65  upLogging { file
1c50: 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 69 66  Name } {..    if
1c60: 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73 20   {![info exists 
1c70: 3a 3a 6c 6f 67 4c 69 73 74 65 6e 65 72 5d 7d 20  ::logListener]} 
1c80: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 73 65  then {..      se
1c90: 74 20 3a 3a 6c 6f 67 4c 69 73 74 65 6e 65 72 20  t ::logListener 
1ca0: 5b 6f 62 6a 65 63 74 20 63 72 65 61 74 65 20 2d  [object create -
1cb0: 61 6c 69 61 73 20 5c 0d 0a 20 20 20 20 20 20 20  alias \..       
1cc0: 20 20 20 53 79 73 74 65 6d 2e 44 69 61 67 6e 6f     System.Diagno
1cd0: 73 74 69 63 73 2e 54 65 78 74 57 72 69 74 65 72  stics.TextWriter
1ce0: 54 72 61 63 65 4c 69 73 74 65 6e 65 72 20 24 66  TraceListener $f
1cf0: 69 6c 65 4e 61 6d 65 5d 0d 0a 20 20 20 20 7d 0d  ileName]..    }.
1d00: 0a 0d 0a 20 20 20 20 6f 62 6a 65 63 74 20 69 6e  ...    object in
1d10: 76 6f 6b 65 20 53 79 73 74 65 6d 2e 44 69 61 67  voke System.Diag
1d20: 6e 6f 73 74 69 63 73 2e 54 72 61 63 65 2e 4c 69  nostics.Trace.Li
1d30: 73 74 65 6e 65 72 73 20 41 64 64 20 24 3a 3a 6c  steners Add $::l
1d40: 6f 67 4c 69 73 74 65 6e 65 72 0d 0a 20 20 20 20  ogListener..    
1d50: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 53 79  object invoke Sy
1d60: 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c 69 74 65  stem.Data.SQLite
1d70: 2e 53 51 4c 69 74 65 4c 6f 67 20 49 6e 69 74 69  .SQLiteLog Initi
1d80: 61 6c 69 7a 65 0d 0a 0d 0a 20 20 20 20 74 70 75  alize....    tpu
1d90: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e  ts $::test_chann
1da0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
1db0: 0d 0a 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20  ..        "---- 
1dc0: 65 6e 61 62 6c 65 64 20 53 51 4c 69 74 65 20 74  enabled SQLite t
1dd0: 72 61 63 65 20 6c 6f 67 67 69 6e 67 20 74 6f 20  race logging to 
1de0: 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e 61  file \"" $fileNa
1df0: 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 7d 0d 0a 0d  me \"\n]..  }...
1e00: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
1e10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
1e50: 0d 0a 0d 0a 20 20 70 72 6f 63 20 63 6c 65 61 6e  ....  proc clean
1e60: 75 70 4c 6f 67 67 69 6e 67 20 7b 20 66 69 6c 65  upLogging { file
1e70: 4e 61 6d 65 20 7d 20 7b 0d 0a 20 20 20 20 69 66  Name } {..    if
1e80: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
1e90: 3a 6c 6f 67 4c 69 73 74 65 6e 65 72 5d 7d 20 74  :logListener]} t
1ea0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 6f 62 6a  hen {..      obj
1eb0: 65 63 74 20 69 6e 76 6f 6b 65 20 53 79 73 74 65  ect invoke Syste
1ec0: 6d 2e 44 69 61 67 6e 6f 73 74 69 63 73 2e 54 72  m.Diagnostics.Tr
1ed0: 61 63 65 2e 4c 69 73 74 65 6e 65 72 73 20 52 65  ace.Listeners Re
1ee0: 6d 6f 76 65 20 24 3a 3a 6c 6f 67 4c 69 73 74 65  move $::logListe
1ef0: 6e 65 72 0d 0a 20 20 20 20 20 20 24 3a 3a 6c 6f  ner..      $::lo
1f00: 67 4c 69 73 74 65 6e 65 72 20 43 6c 6f 73 65 0d  gListener Close.
1f10: 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 23 0d  .    }....    #.
1f20: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 43 6f 70  .    # NOTE: Cop
1f30: 79 20 74 68 65 20 74 72 61 63 65 20 6c 69 73 74  y the trace list
1f40: 65 6e 65 72 20 6c 6f 67 20 66 69 6c 65 20 74 6f  ener log file to
1f50: 20 74 68 65 20 6d 61 69 6e 20 74 65 73 74 20 6c   the main test l
1f60: 6f 67 20 66 69 6c 65 2e 0d 0a 20 20 20 20 23 0d  og file...    #.
1f70: 0a 20 20 20 20 74 6c 6f 67 20 22 2d 2d 2d 2d 20  .    tlog "---- 
1f80: 42 45 47 49 4e 20 54 52 41 43 45 20 4c 49 53 54  BEGIN TRACE LIST
1f90: 45 4e 45 52 20 4f 55 54 50 55 54 5c 6e 22 0d 0a  ENER OUTPUT\n"..
1fa0: 20 20 20 20 74 6c 6f 67 20 5b 72 65 61 64 46 69      tlog [readFi
1fb0: 6c 65 20 24 66 69 6c 65 4e 61 6d 65 5d 0d 0a 20  le $fileName].. 
1fc0: 20 20 20 74 6c 6f 67 20 22 5c 6e 2d 2d 2d 2d 20     tlog "\n---- 
1fd0: 45 4e 44 20 54 52 41 43 45 20 4c 49 53 54 45 4e  END TRACE LISTEN
1fe0: 45 52 20 4f 55 54 50 55 54 5c 6e 22 0d 0a 0d 0a  ER OUTPUT\n"....
1ff0: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
2000: 45 3a 20 44 65 6c 65 74 65 20 74 68 65 20 74 72  E: Delete the tr
2010: 61 63 65 20 6c 69 73 74 65 6e 65 72 20 6c 6f 67  ace listener log
2020: 20 66 69 6c 65 20 62 65 63 61 75 73 65 20 69 74   file because it
2030: 73 20 63 6f 6e 74 65 6e 74 73 20 68 61 76 65 0d  s contents have.
2040: 0a 20 20 20 20 23 20 20 20 20 20 20 20 62 65 65  .    #       bee
2050: 6e 20 63 6f 70 69 65 64 20 74 6f 20 74 68 65 20  n copied to the 
2060: 6d 61 69 6e 20 74 65 73 74 20 6c 6f 67 20 66 69  main test log fi
2070: 6c 65 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  le...    #..    
2080: 63 6c 65 61 6e 75 70 46 69 6c 65 20 24 66 69 6c  cleanupFile $fil
2090: 65 4e 61 6d 65 0d 0a 0d 0a 20 20 20 20 74 70 75  eName....    tpu
20a0: 74 73 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e 6e  ts $::test_chann
20b0: 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c  el [appendArgs \
20c0: 0d 0a 20 20 20 20 20 20 20 20 22 2d 2d 2d 2d 20  ..        "---- 
20d0: 64 69 73 61 62 6c 65 64 20 53 51 4c 69 74 65 20  disabled SQLite 
20e0: 74 72 61 63 65 20 6c 6f 67 67 69 6e 67 20 74 6f  trace logging to
20f0: 20 66 69 6c 65 20 5c 22 22 20 24 66 69 6c 65 4e   file \"" $fileN
2100: 61 6d 65 20 5c 22 5c 6e 5d 0d 0a 20 20 7d 0d 0a  ame \"\n]..  }..
2110: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23  ..  ############
2120: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2130: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2140: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2150: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2160: 23 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f  #....  #..  # NO
2170: 54 45 3a 20 53 65 74 75 70 20 74 68 65 20 64 65  TE: Setup the de
2180: 66 61 75 6c 74 20 76 61 6c 75 65 73 20 66 6f 72  fault values for
2190: 20 74 68 65 20 74 75 6e 61 62 6c 65 20 77 6f 72   the tunable wor
21a0: 6b 6c 6f 61 64 20 70 61 72 61 6d 65 74 65 72 73  kload parameters
21b0: 2e 20 20 41 6e 79 2c 0d 0a 20 20 23 20 20 20 20  .  Any,..  #    
21c0: 20 20 20 61 6c 6c 2c 20 6f 72 20 6e 6f 6e 65 20     all, or none 
21d0: 6f 66 20 74 68 65 73 65 20 6d 61 79 20 62 65 20  of these may be 
21e0: 6f 76 65 72 72 69 64 65 6e 20 76 69 61 20 74 68  overriden via th
21f0: 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 2e 0d  e command line..
2200: 0a 20 20 23 0d 0a 20 20 73 65 74 20 63 6f 75 6e  .  #..  set coun
2210: 74 28 30 29 20 33 3b 20 20 20 20 20 20 20 20 20  t(0) 3;         
2220: 23 20 57 6f 72 6b 6c 6f 61 64 20 72 65 70 65 61  # Workload repea
2230: 74 20 63 6f 75 6e 74 20 28 69 2e 65 2e 20 74 6f  t count (i.e. to
2240: 74 61 6c 20 66 75 6c 6c 20 72 75 6e 73 29 2e 0d  tal full runs)..
2250: 0a 20 20 73 65 74 20 63 6f 75 6e 74 28 31 29 20  .  set count(1) 
2260: 35 3b 20 20 20 20 20 20 20 20 20 23 20 57 6f 72  5;         # Wor
2270: 6b 6c 6f 61 64 20 69 74 65 72 61 74 69 6f 6e 20  kload iteration 
2280: 63 6f 75 6e 74 20 28 69 2e 65 2e 20 77 69 74 68  count (i.e. with
2290: 69 6e 20 61 20 72 75 6e 29 2e 0d 0a 20 20 73 65  in a run)...  se
22a0: 74 20 63 6f 75 6e 74 28 32 29 20 32 30 30 3b 20  t count(2) 200; 
22b0: 20 20 20 20 20 20 23 20 57 6f 72 6b 6c 6f 61 64        # Workload
22c0: 20 69 74 65 72 61 74 69 6f 6e 20 64 65 6c 61 79   iteration delay
22d0: 2c 20 69 6e 20 6d 69 6c 6c 69 73 65 63 6f 6e 64  , in millisecond
22e0: 73 2e 0d 0a 20 20 73 65 74 20 63 6f 75 6e 74 28  s...  set count(
22f0: 33 29 20 35 37 3b 20 20 20 20 20 20 20 20 23 20  3) 57;        # 
2300: 57 6f 72 6b 6c 6f 61 64 20 22 73 6d 61 6c 6c 22  Workload "small"
2310: 20 64 61 74 61 20 63 68 75 6e 6b 20 73 69 7a 65   data chunk size
2320: 2c 20 69 6e 20 62 79 74 65 73 2e 0d 0a 20 20 73  , in bytes...  s
2330: 65 74 20 63 6f 75 6e 74 28 34 29 20 31 30 30 30  et count(4) 1000
2340: 30 3b 20 20 20 20 20 23 20 57 6f 72 6b 6c 6f 61  0;     # Workloa
2350: 64 20 22 62 69 67 22 20 64 61 74 61 20 63 68 75  d "big" data chu
2360: 6e 6b 20 73 69 7a 65 2c 20 69 6e 20 62 79 74 65  nk size, in byte
2370: 73 2e 0d 0a 20 20 73 65 74 20 63 6f 75 6e 74 28  s...  set count(
2380: 35 29 20 32 30 39 37 31 35 32 30 30 3b 20 23 20  5) 209715200; # 
2390: 4d 61 78 69 6d 75 6d 20 68 65 61 70 20 6d 65 6d  Maximum heap mem
23a0: 6f 72 79 20 74 6f 20 65 78 63 6c 75 64 65 20 61  ory to exclude a
23b0: 74 20 6f 6e 65 20 74 69 6d 65 2e 0d 0a 20 20 73  t one time...  s
23c0: 65 74 20 6e 6f 57 6f 72 6b 6c 6f 61 64 20 5b 6c  et noWorkload [l
23d0: 69 73 74 5d 3b 20 20 23 20 57 6f 72 6b 6c 6f 61  ist];  # Workloa
23e0: 64 73 20 74 6f 20 62 65 20 6f 6d 69 74 74 65 64  ds to be omitted
23f0: 20 66 72 6f 6d 20 74 68 65 20 72 75 6e 2c 20 62   from the run, b
2400: 79 20 69 6e 64 65 78 2e 0d 0a 20 20 73 65 74 20  y index...  set 
2410: 70 72 69 6f 72 69 74 69 65 73 20 5b 6c 69 73 74  priorities [list
2420: 5d 3b 20 20 23 20 44 69 63 74 69 6f 6e 61 72 79  ];  # Dictionary
2430: 20 6f 66 20 77 6f 72 6b 6c 6f 61 64 20 74 68 72   of workload thr
2440: 65 61 64 20 70 72 69 6f 72 69 74 69 65 73 2e 0d  ead priorities..
2450: 0a 20 20 73 65 74 20 65 78 69 74 4f 6e 46 61 69  .  set exitOnFai
2460: 6c 20 66 61 6c 73 65 3b 20 20 20 23 20 48 61 6c  l false;   # Hal
2470: 74 20 74 65 73 74 69 6e 67 20 61 6e 64 20 65 78  t testing and ex
2480: 69 74 20 70 72 6f 63 65 73 73 20 6f 6e 20 74 65  it process on te
2490: 73 74 20 66 61 69 6c 75 72 65 3f 0d 0a 20 20 73  st failure?..  s
24a0: 65 74 20 63 6f 54 61 73 6b 4d 65 6d 20 74 72 75  et coTaskMem tru
24b0: 65 3b 20 20 20 20 20 23 20 55 73 65 20 41 6c 6c  e;     # Use All
24c0: 6f 63 43 6f 54 61 73 6b 4d 65 6d 2f 46 72 65 65  ocCoTaskMem/Free
24d0: 43 6f 54 61 73 6b 4d 65 6d 20 66 6f 72 20 6d 65  CoTaskMem for me
24e0: 6d 6f 72 79 3f 0d 0a 20 20 73 65 74 20 6e 6f 54  mory?..  set noT
24f0: 72 61 63 65 20 66 61 6c 73 65 3b 20 20 20 20 20  race false;     
2500: 20 23 20 44 69 73 61 62 6c 65 20 53 51 4c 69 74   # Disable SQLit
2510: 65 20 74 72 61 63 65 20 6c 6f 67 67 69 6e 67 20  e trace logging 
2520: 74 6f 20 61 20 66 69 6c 65 3f 0d 0a 0d 0a 20 20  to a file?....  
2530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2550: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2570: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
2580: 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20  .  #..  # NOTE: 
2590: 49 66 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20  If command line 
25a0: 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 74 68 65  arguments to the
25b0: 20 74 65 73 74 20 73 75 69 74 65 20 61 72 65 20   test suite are 
25c0: 61 76 61 69 6c 61 62 6c 65 2c 20 70 72 6f 63 65  available, proce
25d0: 73 73 0d 0a 20 20 23 20 20 20 20 20 20 20 74 68  ss..  #       th
25e0: 65 6d 20 66 6f 72 20 61 6e 79 20 6f 70 74 69 6f  em for any optio
25f0: 6e 73 20 74 68 61 74 20 61 72 65 20 61 70 70 6c  ns that are appl
2600: 69 63 61 62 6c 65 20 74 6f 20 74 68 69 73 20 74  icable to this t
2610: 65 73 74 20 28 69 2e 65 2e 20 61 6e 79 20 6f 66  est (i.e. any of
2620: 0d 0a 20 20 23 20 20 20 20 20 20 20 74 68 65 20  ..  #       the 
2630: 74 75 6e 61 62 6c 65 20 77 6f 72 6b 6c 6f 61 64  tunable workload
2640: 20 70 61 72 61 6d 65 74 65 72 73 20 6c 69 73 74   parameters list
2650: 65 64 20 61 62 6f 76 65 29 2e 0d 0a 20 20 23 0d  ed above)...  #.
2660: 0a 20 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69  .  if {[info exi
2670: 73 74 73 20 61 72 67 76 5d 20 26 26 20 5b 6c 6c  sts argv] && [ll
2680: 65 6e 67 74 68 20 24 61 72 67 76 5d 20 3e 20 30  ength $argv] > 0
2690: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 70 61  } then {..    pa
26a0: 72 73 65 20 6f 70 74 69 6f 6e 73 20 2d 66 6c 61  rse options -fla
26b0: 67 73 20 5c 0d 0a 20 20 20 20 20 20 20 20 7b 2d  gs \..        {-
26c0: 53 74 6f 70 4f 6e 55 6e 6b 6e 6f 77 6e 4f 70 74  StopOnUnknownOpt
26d0: 69 6f 6e 20 2b 49 67 6e 6f 72 65 4f 6e 55 6e 6b  ion +IgnoreOnUnk
26e0: 6e 6f 77 6e 4f 70 74 69 6f 6e 20 53 6b 69 70 4f  nownOption SkipO
26f0: 6e 55 6e 6b 6e 6f 77 6e 4f 70 74 69 6f 6e 7d 20  nUnknownOption} 
2700: 2d 2d 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c  -- \..        [l
2710: 69 73 74 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d  ist [list null M
2720: 75 73 74 48 61 76 65 49 6e 74 65 67 65 72 56 61  ustHaveIntegerVa
2730: 6c 75 65 20 2d 31 20 2d 31 20 2d 63 6f 75 6e 74  lue -1 -1 -count
2740: 30 20 24 63 6f 75 6e 74 28 30 29 5d 20 5c 0d 0a  0 $count(0)] \..
2750: 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20 6e 75          [list nu
2760: 6c 6c 20 4d 75 73 74 48 61 76 65 49 6e 74 65 67  ll MustHaveInteg
2770: 65 72 56 61 6c 75 65 20 2d 31 20 2d 31 20 2d 63  erValue -1 -1 -c
2780: 6f 75 6e 74 31 20 24 63 6f 75 6e 74 28 31 29 5d  ount1 $count(1)]
2790: 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 73   \..        [lis
27a0: 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 49  t null MustHaveI
27b0: 6e 74 65 67 65 72 56 61 6c 75 65 20 2d 31 20 2d  ntegerValue -1 -
27c0: 31 20 2d 63 6f 75 6e 74 32 20 24 63 6f 75 6e 74  1 -count2 $count
27d0: 28 32 29 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20  (2)] \..        
27e0: 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d 75 73 74 48  [list null MustH
27f0: 61 76 65 49 6e 74 65 67 65 72 56 61 6c 75 65 20  aveIntegerValue 
2800: 2d 31 20 2d 31 20 2d 63 6f 75 6e 74 33 20 24 63  -1 -1 -count3 $c
2810: 6f 75 6e 74 28 33 29 5d 20 5c 0d 0a 20 20 20 20  ount(3)] \..    
2820: 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d      [list null M
2830: 75 73 74 48 61 76 65 49 6e 74 65 67 65 72 56 61  ustHaveIntegerVa
2840: 6c 75 65 20 2d 31 20 2d 31 20 2d 63 6f 75 6e 74  lue -1 -1 -count
2850: 34 20 24 63 6f 75 6e 74 28 34 29 5d 20 5c 0d 0a  4 $count(4)] \..
2860: 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20 6e 75          [list nu
2870: 6c 6c 20 4d 75 73 74 48 61 76 65 49 6e 74 65 67  ll MustHaveInteg
2880: 65 72 56 61 6c 75 65 20 2d 31 20 2d 31 20 2d 63  erValue -1 -1 -c
2890: 6f 75 6e 74 35 20 24 63 6f 75 6e 74 28 35 29 5d  ount5 $count(5)]
28a0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 73   \..        [lis
28b0: 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 4c  t null MustHaveL
28c0: 69 73 74 56 61 6c 75 65 20 2d 31 20 2d 31 20 2d  istValue -1 -1 -
28d0: 6e 6f 57 6f 72 6b 6c 6f 61 64 20 24 6e 6f 57 6f  noWorkload $noWo
28e0: 72 6b 6c 6f 61 64 5d 20 5c 0d 0a 20 20 20 20 20  rkload] \..     
28f0: 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d 75     [list null Mu
2900: 73 74 48 61 76 65 4c 69 73 74 56 61 6c 75 65 20  stHaveListValue 
2910: 2d 31 20 2d 31 20 2d 70 72 69 6f 72 69 74 69 65  -1 -1 -prioritie
2920: 73 20 24 70 72 69 6f 72 69 74 69 65 73 5d 20 5c  s $priorities] \
2930: 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 73 74 20  ..        [list 
2940: 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 42 6f 6f  null MustHaveBoo
2950: 6c 65 61 6e 56 61 6c 75 65 20 2d 31 20 2d 31 20  leanValue -1 -1 
2960: 2d 65 78 69 74 4f 6e 46 61 69 6c 20 24 65 78 69  -exitOnFail $exi
2970: 74 4f 6e 46 61 69 6c 5d 20 5c 0d 0a 20 20 20 20  tOnFail] \..    
2980: 20 20 20 20 5b 6c 69 73 74 20 6e 75 6c 6c 20 4d      [list null M
2990: 75 73 74 48 61 76 65 42 6f 6f 6c 65 61 6e 56 61  ustHaveBooleanVa
29a0: 6c 75 65 20 2d 31 20 2d 31 20 2d 63 6f 54 61 73  lue -1 -1 -coTas
29b0: 6b 4d 65 6d 20 24 63 6f 54 61 73 6b 4d 65 6d 5d  kMem $coTaskMem]
29c0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 5b 6c 69 73   \..        [lis
29d0: 74 20 6e 75 6c 6c 20 4d 75 73 74 48 61 76 65 42  t null MustHaveB
29e0: 6f 6f 6c 65 61 6e 56 61 6c 75 65 20 2d 31 20 2d  ooleanValue -1 -
29f0: 31 20 2d 6e 6f 54 72 61 63 65 20 24 6e 6f 54 72  1 -noTrace $noTr
2a00: 61 63 65 5d 5d 20 24 61 72 67 76 0d 0a 0d 0a 20  ace]] $argv.... 
2a10: 20 20 20 73 65 74 20 63 6f 75 6e 74 28 30 29 20     set count(0) 
2a20: 24 6f 70 74 69 6f 6e 73 28 2d 63 6f 75 6e 74 30  $options(-count0
2a30: 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20 73 65 74  ,value)..    set
2a40: 20 63 6f 75 6e 74 28 31 29 20 24 6f 70 74 69 6f   count(1) $optio
2a50: 6e 73 28 2d 63 6f 75 6e 74 31 2c 76 61 6c 75 65  ns(-count1,value
2a60: 29 0d 0a 20 20 20 20 73 65 74 20 63 6f 75 6e 74  )..    set count
2a70: 28 32 29 20 24 6f 70 74 69 6f 6e 73 28 2d 63 6f  (2) $options(-co
2a80: 75 6e 74 32 2c 76 61 6c 75 65 29 0d 0a 20 20 20  unt2,value)..   
2a90: 20 73 65 74 20 63 6f 75 6e 74 28 33 29 20 24 6f   set count(3) $o
2aa0: 70 74 69 6f 6e 73 28 2d 63 6f 75 6e 74 33 2c 76  ptions(-count3,v
2ab0: 61 6c 75 65 29 0d 0a 20 20 20 20 73 65 74 20 63  alue)..    set c
2ac0: 6f 75 6e 74 28 34 29 20 24 6f 70 74 69 6f 6e 73  ount(4) $options
2ad0: 28 2d 63 6f 75 6e 74 34 2c 76 61 6c 75 65 29 0d  (-count4,value).
2ae0: 0a 20 20 20 20 73 65 74 20 63 6f 75 6e 74 28 35  .    set count(5
2af0: 29 20 24 6f 70 74 69 6f 6e 73 28 2d 63 6f 75 6e  ) $options(-coun
2b00: 74 35 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20 73  t5,value)..    s
2b10: 65 74 20 6e 6f 57 6f 72 6b 6c 6f 61 64 20 24 6f  et noWorkload $o
2b20: 70 74 69 6f 6e 73 28 2d 6e 6f 57 6f 72 6b 6c 6f  ptions(-noWorklo
2b30: 61 64 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20 73  ad,value)..    s
2b40: 65 74 20 70 72 69 6f 72 69 74 69 65 73 20 24 6f  et priorities $o
2b50: 70 74 69 6f 6e 73 28 2d 70 72 69 6f 72 69 74 69  ptions(-prioriti
2b60: 65 73 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20 73  es,value)..    s
2b70: 65 74 20 65 78 69 74 4f 6e 46 61 69 6c 20 24 6f  et exitOnFail $o
2b80: 70 74 69 6f 6e 73 28 2d 65 78 69 74 4f 6e 46 61  ptions(-exitOnFa
2b90: 69 6c 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20 73  il,value)..    s
2ba0: 65 74 20 63 6f 54 61 73 6b 4d 65 6d 20 24 6f 70  et coTaskMem $op
2bb0: 74 69 6f 6e 73 28 2d 63 6f 54 61 73 6b 4d 65 6d  tions(-coTaskMem
2bc0: 2c 76 61 6c 75 65 29 0d 0a 20 20 20 20 73 65 74  ,value)..    set
2bd0: 20 6e 6f 54 72 61 63 65 20 24 6f 70 74 69 6f 6e   noTrace $option
2be0: 73 28 2d 6e 6f 54 72 61 63 65 2c 76 61 6c 75 65  s(-noTrace,value
2bf0: 29 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23  )..  }....  ####
2c00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2c10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2c20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2c30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2c40: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23  #########....  #
2c50: 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 4c 6f 61 64  ..  # NOTE: Load
2c60: 20 63 75 73 74 6f 6d 20 70 65 72 2d 75 73 65 72   custom per-user
2c70: 20 61 6e 64 2f 6f 72 20 70 65 72 2d 68 6f 73 74   and/or per-host
2c80: 20 74 65 73 74 20 73 65 74 74 69 6e 67 73 2e 20   test settings. 
2c90: 20 43 75 72 72 65 6e 74 6c 79 2c 20 74 68 69 73   Currently, this
2ca0: 0d 0a 20 20 23 20 20 20 20 20 20 20 69 73 20 64  ..  #       is d
2cb0: 6f 6e 65 20 61 66 74 65 72 20 70 72 6f 63 65 73  one after proces
2cc0: 73 69 6e 67 20 74 68 65 20 63 6f 6d 6d 61 6e 64  sing the command
2cd0: 20 6c 69 6e 65 20 6f 70 74 69 6f 6e 73 2e 20 20   line options.  
2ce0: 54 68 65 20 73 65 74 74 69 6e 67 73 20 66 69 6c  The settings fil
2cf0: 65 0d 0a 20 20 23 20 20 20 20 20 20 20 73 68 6f  e..  #       sho
2d00: 75 6c 64 20 74 61 6b 65 20 69 6e 74 6f 20 61 63  uld take into ac
2d10: 63 6f 75 6e 74 20 74 68 65 20 65 78 69 73 74 69  count the existi
2d20: 6e 67 20 77 6f 72 6b 6c 6f 61 64 20 70 61 72 61  ng workload para
2d30: 6d 65 74 65 72 73 20 61 6e 64 20 61 76 6f 69 64  meters and avoid
2d40: 0d 0a 20 20 23 20 20 20 20 20 20 20 63 68 61 6e  ..  #       chan
2d50: 67 69 6e 67 20 61 6e 79 20 74 68 61 74 20 6d 61  ging any that ma
2d60: 79 20 68 61 76 65 20 61 6c 72 65 61 64 79 20 62  y have already b
2d70: 65 65 6e 20 6f 76 65 72 72 69 64 64 65 6e 2e 0d  een overridden..
2d80: 0a 20 20 23 0d 0a 20 20 6c 6f 61 64 53 51 4c 69  .  #..  loadSQLi
2d90: 74 65 54 65 73 74 53 65 74 74 69 6e 67 73 20 24  teTestSettings $
2da0: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 0d 0a 0d 0a  test_channel....
2db0: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
2dc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2dd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2de0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
2df0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
2e00: 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f 54 45  ...  #..  # NOTE
2e10: 3a 20 54 68 65 20 74 72 61 63 65 20 6c 69 73 74  : The trace list
2e20: 65 6e 65 72 20 75 73 65 64 20 77 69 74 68 20 74  ener used with t
2e30: 68 65 20 53 51 4c 69 74 65 4c 6f 67 20 63 6c 61  he SQLiteLog cla
2e40: 73 73 20 74 6f 20 63 61 70 74 75 72 65 20 6f 75  ss to capture ou
2e50: 74 70 75 74 0d 0a 20 20 23 20 20 20 20 20 20 20  tput..  #       
2e60: 66 72 6f 6d 20 74 68 65 20 63 6f 72 65 20 53 51  from the core SQ
2e70: 4c 69 74 65 20 6c 69 62 72 61 72 79 20 72 65 71  Lite library req
2e80: 75 69 72 65 73 20 69 74 73 20 6f 77 6e 20 6c 6f  uires its own lo
2e90: 67 20 66 69 6c 65 20 62 65 63 61 75 73 65 20 74  g file because t
2ea0: 68 65 0d 0a 20 20 23 20 20 20 20 20 20 20 54 65  he..  #       Te
2eb0: 78 74 57 72 69 74 65 72 54 72 61 63 65 4c 69 73  xtWriterTraceLis
2ec0: 74 65 6e 65 72 20 63 6c 61 73 73 20 6f 70 65 6e  tener class open
2ed0: 73 20 61 6e 64 20 6c 6f 63 6b 73 20 74 68 65 20  s and locks the 
2ee0: 6c 6f 67 20 66 69 6c 65 20 69 74 20 75 73 65 73  log file it uses
2ef0: 0d 0a 20 20 23 20 20 20 20 20 20 20 61 73 20 74  ..  #       as t
2f00: 68 65 20 62 61 73 69 73 20 6f 66 20 74 68 65 20  he basis of the 
2f10: 6f 75 74 70 75 74 20 73 74 72 65 61 6d 2e 20 20  output stream.  
2f20: 42 65 66 6f 72 65 20 74 68 69 73 20 74 65 73 74  Before this test
2f30: 20 69 73 20 63 6f 6d 70 6c 65 74 65 2c 0d 0a 20   is complete,.. 
2f40: 20 23 20 20 20 20 20 20 20 74 68 65 20 65 6e 74   #       the ent
2f50: 69 72 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20  ire contents of 
2f60: 74 68 69 73 20 74 72 61 63 65 20 6c 6f 67 20 66  this trace log f
2f70: 69 6c 65 20 77 69 6c 6c 20 62 65 20 63 6f 70 69  ile will be copi
2f80: 65 64 20 69 6e 74 6f 20 74 68 65 0d 0a 20 20 23  ed into the..  #
2f90: 20 20 20 20 20 20 20 6d 61 69 6e 20 74 65 73 74         main test
2fa0: 20 6c 6f 67 20 66 69 6c 65 20 61 6e 64 20 74 68   log file and th
2fb0: 65 6e 20 64 65 6c 65 74 65 64 2e 0d 0a 20 20 23  en deleted...  #
2fc0: 0d 0a 20 20 69 66 20 7b 21 24 6e 6f 54 72 61 63  ..  if {!$noTrac
2fd0: 65 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 73  e} then {..    s
2fe0: 65 74 20 6c 6f 67 46 69 6c 65 4e 61 6d 65 20 5b  et logFileName [
2ff0: 61 70 70 65 6e 64 41 72 67 73 20 5b 66 69 6c 65  appendArgs [file
3000: 20 72 6f 6f 74 6e 61 6d 65 20 24 74 65 73 74 5f   rootname $test_
3010: 6c 6f 67 5d 20 2e 74 72 61 63 65 2e 6c 6f 67 5d  log] .trace.log]
3020: 0d 0a 20 20 20 20 73 65 74 75 70 4c 6f 67 67 69  ..    setupLoggi
3030: 6e 67 20 24 6c 6f 67 46 69 6c 65 4e 61 6d 65 0d  ng $logFileName.
3040: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23  .  }....  ######
3050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3060: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3070: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3080: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3090: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 74 70 75  #######....  tpu
30a0: 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c  ts $test_channel
30b0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
30c0: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 77 6f 72 6b        "---- work
30d0: 6c 6f 61 64 73 20 77 69 6c 6c 20 72 65 70 65 61  loads will repea
30e0: 74 20 22 20 24 63 6f 75 6e 74 28 30 29 20 22 20  t " $count(0) " 
30f0: 74 69 6d 65 28 73 29 5c 6e 22 5d 0d 0a 0d 0a 20  time(s)\n"].... 
3100: 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 61   tputs $test_cha
3110: 6e 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73  nnel [appendArgs
3120: 20 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d 2d 20   \..      "---- 
3130: 77 6f 72 6b 6c 6f 61 64 73 20 77 69 6c 6c 20 68  workloads will h
3140: 61 76 65 20 22 20 24 63 6f 75 6e 74 28 31 29 20  ave " $count(1) 
3150: 22 20 69 74 65 72 61 74 69 6f 6e 28 73 29 5c 6e  " iteration(s)\n
3160: 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20 24 74  "]....  tputs $t
3170: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
3180: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
3190: 20 22 2d 2d 2d 2d 20 77 6f 72 6b 6c 6f 61 64 73   "---- workloads
31a0: 20 77 69 6c 6c 20 77 61 69 74 20 61 74 20 6c 65   will wait at le
31b0: 61 73 74 20 22 20 24 63 6f 75 6e 74 28 32 29 20  ast " $count(2) 
31c0: 5c 0d 0a 20 20 20 20 20 20 22 20 6d 69 6c 6c 69  \..      " milli
31d0: 73 65 63 6f 6e 64 28 73 29 20 61 66 74 65 72 20  second(s) after 
31e0: 65 61 63 68 20 69 74 65 72 61 74 69 6f 6e 5c 6e  each iteration\n
31f0: 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20 24 74  "]....  tputs $t
3200: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
3210: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
3220: 20 22 2d 2d 2d 2d 20 73 6d 61 6c 6c 20 63 68 75   "---- small chu
3230: 6e 6b 20 73 69 7a 65 20 69 73 20 22 20 24 63 6f  nk size is " $co
3240: 75 6e 74 28 33 29 20 22 20 62 79 74 65 28 73 29  unt(3) " byte(s)
3250: 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20  \n"]....  tputs 
3260: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  $test_channel [a
3270: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
3280: 20 20 20 22 2d 2d 2d 2d 20 62 69 67 20 63 68 75     "---- big chu
3290: 6e 6b 20 73 69 7a 65 20 69 73 20 22 20 24 63 6f  nk size is " $co
32a0: 75 6e 74 28 34 29 20 22 20 62 79 74 65 28 73 29  unt(4) " byte(s)
32b0: 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20  \n"]....  tputs 
32c0: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  $test_channel [a
32d0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
32e0: 20 20 20 22 2d 2d 2d 2d 20 6d 61 78 69 6d 75 6d     "---- maximum
32f0: 20 65 78 63 6c 75 64 65 64 20 68 65 61 70 20 6d   excluded heap m
3300: 65 6d 6f 72 79 20 69 73 20 22 20 24 63 6f 75 6e  emory is " $coun
3310: 74 28 35 29 20 22 20 62 79 74 65 28 73 29 5c 6e  t(5) " byte(s)\n
3320: 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20 24 74  "]....  tputs $t
3330: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70  est_channel [app
3340: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
3350: 20 22 2d 2d 2d 2d 20 77 6f 72 6b 6c 6f 61 64 73   "---- workloads
3360: 20 74 6f 20 62 65 20 73 6b 69 70 70 65 64 2e 2e   to be skipped..
3370: 2e 20 22 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78  . " \..      [ex
3380: 70 72 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 6e 6f  pr {[llength $no
3390: 57 6f 72 6b 6c 6f 61 64 5d 20 3e 20 30 20 3f 20  Workload] > 0 ? 
33a0: 24 6e 6f 57 6f 72 6b 6c 6f 61 64 20 3a 20 22 6e  $noWorkload : "n
33b0: 6f 6e 65 22 7d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20  one"}] \n]....  
33c0: 74 70 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e  tputs $test_chan
33d0: 6e 65 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20  nel [appendArgs 
33e0: 5c 0d 0a 20 20 20 20 20 20 22 2d 2d 2d 2d 20 77  \..      "---- w
33f0: 6f 72 6b 6c 6f 61 64 73 20 70 72 69 6f 72 69 74  orkloads priorit
3400: 79 20 6f 76 65 72 72 69 64 65 73 2e 2e 2e 20 22  y overrides... "
3410: 20 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20   \..      [expr 
3420: 7b 5b 6c 6c 65 6e 67 74 68 20 24 70 72 69 6f 72  {[llength $prior
3430: 69 74 69 65 73 5d 20 3e 20 30 20 3f 20 24 70 72  ities] > 0 ? $pr
3440: 69 6f 72 69 74 69 65 73 20 3a 20 22 6e 6f 6e 65  iorities : "none
3450: 22 7d 5d 20 5c 6e 5d 0d 0a 0d 0a 20 20 74 70 75  "}] \n]....  tpu
3460: 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c  ts $test_channel
3470: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
3480: 20 20 20 20 20 20 22 2d 2d 2d 2d 20 75 6e 65 78        "---- unex
3490: 70 65 63 74 65 64 20 65 72 72 6f 72 73 20 22 20  pected errors " 
34a0: 5c 0d 0a 20 20 20 20 20 20 5b 65 78 70 72 20 7b  \..      [expr {
34b0: 24 65 78 69 74 4f 6e 46 61 69 6c 20 3f 20 22 77  $exitOnFail ? "w
34c0: 69 6c 6c 22 20 3a 20 22 77 69 6c 6c 20 6e 6f 74  ill" : "will not
34d0: 22 7d 5d 20 5c 0d 0a 20 20 20 20 20 20 22 20 68  "}] \..      " h
34e0: 61 6c 74 20 74 65 73 74 69 6e 67 20 61 6e 64 20  alt testing and 
34f0: 65 78 69 74 20 74 68 65 20 70 72 6f 63 65 73 73  exit the process
3500: 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70 75 74 73 20  \n"]....  tputs 
3510: 24 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61  $test_channel [a
3520: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
3530: 20 20 20 22 2d 2d 2d 2d 20 74 68 65 20 22 20 5b     "---- the " [
3540: 65 78 70 72 20 7b 24 63 6f 54 61 73 6b 4d 65 6d  expr {$coTaskMem
3550: 20 3f 20 22 43 6f 54 61 73 6b 4d 65 6d 22 20 3a   ? "CoTaskMem" :
3560: 20 22 53 51 4c 69 74 65 22 7d 5d 20 5c 0d 0a 20   "SQLite"}] \.. 
3570: 20 20 20 20 20 22 20 61 6c 6c 6f 63 61 74 6f 72       " allocator
3580: 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 74 6f   will be used to
3590: 20 65 78 63 6c 75 64 65 20 68 65 61 70 20 6d 65   exclude heap me
35a0: 6d 6f 72 79 5c 6e 22 5d 0d 0a 0d 0a 20 20 74 70  mory\n"]....  tp
35b0: 75 74 73 20 24 74 65 73 74 5f 63 68 61 6e 6e 65  uts $test_channe
35c0: 6c 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d  l [appendArgs \.
35d0: 0a 20 20 20 20 20 20 22 2d 2d 2d 2d 20 74 72 61  .      "---- tra
35e0: 63 65 20 6c 6f 67 67 69 6e 67 20 74 6f 20 61 20  ce logging to a 
35f0: 66 69 6c 65 20 69 73 20 22 20 5c 0d 0a 20 20 20  file is " \..   
3600: 20 20 20 5b 65 78 70 72 20 7b 24 6e 6f 54 72 61     [expr {$noTra
3610: 63 65 20 3f 20 22 64 69 73 61 62 6c 65 64 22 20  ce ? "disabled" 
3620: 3a 20 22 65 6e 61 62 6c 65 64 22 7d 5d 20 5c 6e  : "enabled"}] \n
3630: 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23  ]....  #########
3640: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23  ####....  #..  #
3690: 20 4e 4f 54 45 3a 20 43 72 65 61 74 65 20 74 68   NOTE: Create th
36a0: 65 20 77 6f 72 6b 6c 6f 61 64 20 70 72 69 6f 72  e workload prior
36b0: 69 74 79 20 61 72 72 61 79 20 62 61 73 65 64 20  ity array based 
36c0: 6f 6e 20 74 68 65 20 70 72 69 6f 72 69 74 79 20  on the priority 
36d0: 6c 69 73 74 20 73 65 65 6e 0d 0a 20 20 23 20 20  list seen..  #  
36e0: 20 20 20 20 20 6f 6e 20 74 68 65 20 63 6f 6d 6d       on the comm
36f0: 61 6e 64 20 6c 69 6e 65 2c 20 69 66 20 61 6e 79  and line, if any
3700: 2e 0d 0a 20 20 23 0d 0a 20 20 61 72 72 61 79 20  ...  #..  array 
3710: 73 65 74 20 70 72 69 6f 72 69 74 79 20 24 70 72  set priority $pr
3720: 69 6f 72 69 74 69 65 73 0d 0a 0d 0a 20 20 23 23  iorities....  ##
3730: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3740: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3750: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3760: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3770: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20  ###########.... 
3780: 20 23 0d 0a 20 20 23 20 4e 4f 54 45 3a 20 57 6f   #..  # NOTE: Wo
3790: 72 6b 6c 6f 61 64 73 20 23 31 32 20 61 6e 64 20  rkloads #12 and 
37a0: 23 31 33 20 63 6f 6e 74 61 69 6e 20 43 23 20 63  #13 contain C# c
37b0: 6f 64 65 20 74 68 61 74 20 73 68 6f 75 6c 64 20  ode that should 
37c0: 62 65 20 63 6f 6d 70 69 6c 65 64 2c 20 62 75 74  be compiled, but
37d0: 0d 0a 20 20 23 20 20 20 20 20 20 20 6f 6e 6c 79  ..  #       only
37e0: 20 6f 6e 63 65 2e 20 20 54 68 65 73 65 20 76 61   once.  These va
37f0: 72 69 61 62 6c 65 73 20 6b 65 65 70 20 74 72 61  riables keep tra
3800: 63 6b 20 6f 66 20 74 68 61 74 20 73 74 61 74 65  ck of that state
3810: 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0d 0a 20   information... 
3820: 20 23 20 20 20 20 20 20 20 41 6e 20 69 6e 74 65   #       An inte
3830: 67 65 72 20 76 61 6c 75 65 20 69 6e 20 6f 6e 65  ger value in one
3840: 20 6f 66 20 74 68 65 73 65 20 76 61 72 69 61 62   of these variab
3850: 6c 65 73 20 6d 65 61 6e 73 20 74 68 65 20 63 6f  les means the co
3860: 6d 70 69 6c 61 74 69 6f 6e 20 77 61 73 0d 0a 20  mpilation was.. 
3870: 20 23 20 20 20 20 20 20 20 63 6f 6d 70 6c 65 74   #       complet
3880: 65 64 20 61 6e 64 20 74 68 65 20 72 65 73 75 6c  ed and the resul
3890: 74 69 6e 67 20 63 6f 6d 70 69 6c 65 64 20 6d 65  ting compiled me
38a0: 74 68 6f 64 20 6d 61 79 20 62 65 20 69 6e 76 6f  thod may be invo
38b0: 6b 65 64 20 75 73 69 6e 67 20 74 68 65 0d 0a 20  ked using the.. 
38c0: 20 23 20 20 20 20 20 20 20 66 6f 6c 6c 6f 77 69   #       followi
38d0: 6e 67 20 63 6f 6d 6d 61 6e 64 20 28 77 68 65 72  ng command (wher
38e0: 65 20 24 7b 69 64 7d 20 69 73 20 74 68 65 20 76  e ${id} is the v
38f0: 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61 72 69  alue of the vari
3900: 61 62 6c 65 29 3a 0d 0a 20 20 23 0d 0a 20 20 23  able):..  #..  #
3910: 20 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63             objec
3920: 74 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69  t invoke _Dynami
3930: 63 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d  c${id}.Test${id}
3940: 20 42 61 63 6b 75 70 41 6e 64 47 65 74 44 61 74   BackupAndGetDat
3950: 61 0d 0a 20 20 23 0d 0a 20 20 73 65 74 20 63 6f  a..  #..  set co
3960: 6d 70 69 6c 65 64 28 31 32 29 20 22 22 0d 0a 20  mpiled(12) "".. 
3970: 20 73 65 74 20 63 6f 6d 70 69 6c 65 64 28 31 33   set compiled(13
3980: 29 20 22 22 0d 0a 0d 0a 20 20 23 23 23 23 23 23  ) ""....  ######
3990: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
39a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
39b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
39c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
39d0: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a  #######....  #..
39e0: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 69    # NOTE: This i
39f0: 73 20 61 6e 20 69 6e 2d 6d 65 6d 6f 72 79 20 64  s an in-memory d
3a00: 61 74 61 62 61 73 65 20 77 69 74 68 20 73 68 61  atabase with sha
3a10: 72 65 64 20 63 61 63 68 65 20 65 6e 61 62 6c 65  red cache enable
3a20: 64 2e 0d 0a 20 20 23 0d 0a 20 20 73 65 74 20 66  d...  #..  set f
3a30: 69 6c 65 4e 61 6d 65 28 31 29 20 66 69 6c 65 3a  ileName(1) file:
3a40: 3a 6d 65 6d 6f 72 79 3a 3f 63 61 63 68 65 3d 73  :memory:?cache=s
3a50: 68 61 72 65 64 0d 0a 0d 0a 20 20 23 23 23 23 23  hared....  #####
3a60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3a70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3a80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3a90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3aa0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d  ########....  #.
3ab0: 0a 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20  .  # NOTE: This 
3ac0: 69 73 20 61 20 6e 6f 72 6d 61 6c 20 6f 6e 2d 64  is a normal on-d
3ad0: 69 73 6b 20 64 61 74 61 62 61 73 65 2e 0d 0a 20  isk database... 
3ae0: 20 23 0d 0a 20 20 73 65 74 20 66 69 6c 65 4e 61   #..  set fileNa
3af0: 6d 65 28 32 29 20 5b 66 69 6c 65 20 6a 6f 69 6e  me(2) [file join
3b00: 20 5b 67 65 74 44 61 74 61 62 61 73 65 44 69 72   [getDatabaseDir
3b10: 65 63 74 6f 72 79 5d 20 5b 61 70 70 65 6e 64 41  ectory] [appendA
3b20: 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 73 74 72  rgs \..      str
3b30: 65 73 73 2d 20 5b 70 69 64 5d 20 2d 20 5b 73 74  ess- [pid] - [st
3b40: 72 69 6e 67 20 74 72 69 6d 20 5b 63 6c 6f 63 6b  ring trim [clock
3b50: 20 73 65 63 6f 6e 64 73 5d 20 2d 5d 20 2e 64 62   seconds] -] .db
3b60: 5d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23  ]]....  ########
3b70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3b80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3b90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3ba0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3bb0: 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 75 70  #####....  setup
3bc0: 57 6f 72 6b 6c 6f 61 64 4d 65 6d 44 62 20 24 66  WorkloadMemDb $f
3bd0: 69 6c 65 4e 61 6d 65 28 31 29 20 73 72 63 44 62  ileName(1) srcDb
3be0: 0d 0a 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61  ..  setupWorkloa
3bf0: 64 46 69 6c 65 44 62 20 24 66 69 6c 65 4e 61 6d  dFileDb $fileNam
3c00: 65 28 32 29 0d 0a 0d 0a 20 20 23 23 23 23 23 23  e(2)....  ######
3c10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3c20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3c30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3c40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3c50: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a  #######....  #..
3c60: 20 20 23 20 4e 4f 54 45 3a 20 54 68 69 73 20 73    # NOTE: This s
3c70: 65 72 76 65 73 20 74 77 6f 20 70 75 72 70 6f 73  erves two purpos
3c80: 65 73 2e 20 20 46 69 72 73 74 2c 20 69 74 20 61  es.  First, it a
3c90: 6c 6c 6f 77 73 20 75 73 20 74 6f 20 76 65 72 69  llows us to veri
3ca0: 66 79 20 74 68 65 20 74 72 61 63 65 0d 0a 20 20  fy the trace..  
3cb0: 23 20 20 20 20 20 20 20 6c 6f 67 67 69 6e 67 20  #       logging 
3cc0: 73 75 62 73 79 73 74 65 6d 20 69 73 20 77 6f 72  subsystem is wor
3cd0: 6b 69 6e 67 20 70 72 6f 70 65 72 6c 79 2e 20 20  king properly.  
3ce0: 53 65 63 6f 6e 64 2c 20 69 74 20 70 6c 61 63 65  Second, it place
3cf0: 73 20 74 68 65 20 66 69 6c 65 0d 0a 20 20 23 20  s the file..  # 
3d00: 20 20 20 20 20 20 6e 61 6d 65 20 66 6f 72 20 74        name for t
3d10: 68 65 20 61 73 73 6f 63 69 61 74 65 64 20 64 61  he associated da
3d20: 74 61 62 61 73 65 20 66 69 6c 65 20 69 6e 74 6f  tabase file into
3d30: 20 74 68 65 20 74 72 61 63 65 20 6c 6f 67 20 66   the trace log f
3d40: 69 6c 65 2e 0d 0a 20 20 23 0d 0a 20 20 73 65 74  ile...  #..  set
3d50: 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 5b 67 65 74   connection [get
3d60: 44 62 43 6f 6e 6e 65 63 74 69 6f 6e 5d 0d 0a 0d  DbConnection]...
3d70: 0a 20 20 24 63 6f 6e 6e 65 63 74 69 6f 6e 20 4c  .  $connection L
3d80: 6f 67 4d 65 73 73 61 67 65 20 30 20 5b 61 70 70  ogMessage 0 [app
3d90: 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20  endArgs \..     
3da0: 20 22 73 74 61 72 74 69 6e 67 20 73 74 72 65 73   "starting stres
3db0: 73 20 74 65 73 74 20 75 73 69 6e 67 20 64 61 74  s test using dat
3dc0: 61 62 61 73 65 20 5c 22 22 20 24 66 69 6c 65 4e  abase \"" $fileN
3dd0: 61 6d 65 28 32 29 20 5c 22 2e 2e 2e 5d 0d 0a 0d  ame(2) \"...]...
3de0: 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23  .  #############
3df0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3e00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3e10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3e20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3e30: 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20 20 20  ..  #           
3e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3e50: 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 20 28     WORKLOAD #1 (
3e60: 41 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20  A)              
3e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
3e80: 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  #..  ###########
3e90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3ea0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3eb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3ec0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
3ed0: 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b  ##....  set work
3ee0: 6c 6f 61 64 28 31 29 20 5b 6c 69 73 74 20 5c 0d  load(1) [list \.
3ef0: 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63  .      [list src
3f00: 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65  FileName dstFile
3f10: 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74  Name table count
3f20: 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 5d  1 count2 count3]
3f30: 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23   {..    #..    #
3f40: 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20   NOTE: Workload 
3f50: 23 31 2c 20 43 52 45 41 54 45 20 54 41 42 4c 45  #1, CREATE TABLE
3f60: 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20   statements...  
3f70: 20 20 23 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64    #..    lappend
3f80: 20 3a 3a 74 69 6d 65 73 28 31 29 20 5b 6c 69 6e   ::times(1) [lin
3f90: 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20  dex [time {..   
3fa0: 20 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64     setupWorkload
3fb0: 46 69 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e  FileDb $dstFileN
3fc0: 61 6d 65 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b  ame..      for {
3fd0: 73 65 74 20 69 6e 64 65 78 20 32 7d 20 7b 24 69  set index 2} {$i
3fe0: 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d  ndex <= $count1}
3ff0: 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d   {incr index} {.
4000: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61  .        if {[ca
4010: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  tch {..         
4020: 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 62   sql execute $db
4030: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
4040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 43                "C
4050: 52 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e  REATE TABLE IF N
4060: 4f 54 20 45 58 49 53 54 53 20 74 22 20 5c 0d 0a  OT EXISTS t" \..
4070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 69                $i
4080: 6e 64 65 78 20 22 28 78 20 50 52 49 4d 41 52 59  ndex "(x PRIMARY
4090: 20 4b 45 59 2c 20 79 2c 20 7a 29 3b 22 5d 0d 0a   KEY, y, z);"]..
40a0: 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65            showTe
40b0: 73 74 20 41 0d 0a 20 20 20 20 20 20 20 20 7d 20  st A..        } 
40c0: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a  error]} then {..
40d0: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69            if {[i
40e0: 73 45 78 70 65 63 74 65 64 45 72 72 6f 72 20 24  sExpectedError $
40f0: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a  error]} then {..
4100: 20 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 77              show
4110: 54 65 73 74 20 61 0d 0a 20 20 20 20 20 20 20 20  Test a..        
4120: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
4130: 20 20 20 20 20 20 20 20 66 61 69 6c 54 65 73 74          failTest
4140: 20 61 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20   a $error..     
4150: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
4160: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  }..      }..    
4170: 20 20 63 6c 65 61 6e 75 70 44 62 20 24 64 73 74    cleanupDb $dst
4180: 46 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c 73  FileName db fals
4190: 65 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20 20  e true false..  
41a0: 20 20 20 20 64 6f 6e 65 54 65 73 74 20 41 0d 0a      doneTest A..
41b0: 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d      }] 0]..  }].
41c0: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
41d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
41e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
41f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4200: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4210: 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20  ##..  #         
4220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4230: 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 32       WORKLOAD #2
4240: 20 28 42 29 20 20 20 20 20 20 20 20 20 20 20 20   (B)            
4250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4260: 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23    #..  #########
4270: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4280: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4290: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
42a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
42b0: 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f  ####....  set wo
42c0: 72 6b 6c 6f 61 64 28 32 29 20 5b 6c 69 73 74 20  rkload(2) [list 
42d0: 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73  \..      [list s
42e0: 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69  rcFileName dstFi
42f0: 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75  leName table cou
4300: 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74  nt1 count2 count
4310: 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20  3] {..    #..   
4320: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61   # NOTE: Workloa
4330: 64 20 23 32 2c 20 44 52 4f 50 20 54 41 42 4c 45  d #2, DROP TABLE
4340: 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20   statements...  
4350: 20 20 23 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64    #..    lappend
4360: 20 3a 3a 74 69 6d 65 73 28 32 29 20 5b 6c 69 6e   ::times(2) [lin
4370: 64 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20  dex [time {..   
4380: 20 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64     setupWorkload
4390: 46 69 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e  FileDb $dstFileN
43a0: 61 6d 65 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b  ame..      for {
43b0: 73 65 74 20 69 6e 64 65 78 20 32 7d 20 7b 24 69  set index 2} {$i
43c0: 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d  ndex <= $count1}
43d0: 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d   {incr index} {.
43e0: 0a 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61  .        if {[ca
43f0: 74 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  tch {..         
4400: 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 62   sql execute $db
4410: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
4420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 44                "D
4430: 52 4f 50 20 54 41 42 4c 45 20 49 46 20 45 58 49  ROP TABLE IF EXI
4440: 53 54 53 20 74 22 20 24 69 6e 64 65 78 20 5c 3b  STS t" $index \;
4450: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f  ]..          sho
4460: 77 54 65 73 74 20 42 0d 0a 20 20 20 20 20 20 20  wTest B..       
4470: 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20   } error]} then 
4480: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  {..          if 
4490: 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 6f  {[isExpectedErro
44a0: 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20  r $error]} then 
44b0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73  {..            s
44c0: 68 6f 77 54 65 73 74 20 62 0d 0a 20 20 20 20 20  howTest b..     
44d0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
44e0: 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 54             failT
44f0: 65 73 74 20 62 20 24 65 72 72 6f 72 0d 0a 20 20  est b $error..  
4500: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
4510: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20     }..      }.. 
4520: 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20 24       cleanupDb $
4530: 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20 66  dstFileName db f
4540: 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65 0d  alse true false.
4550: 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20  .      doneTest 
4560: 42 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20  B..    }] 0]..  
4570: 7d 5d 0d 0a 0d 0a 20 20 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: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
45a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
45b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
45c0: 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20  #####..  #      
45d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
45e0: 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44          WORKLOAD
45f0: 20 23 33 20 28 43 29 20 20 20 20 20 20 20 20 20   #3 (C)         
4600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4610: 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23       #..  ######
4620: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
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 0d 0a 0d 0a 20 20 73 65 74  #######....  set
4670: 20 77 6f 72 6b 6c 6f 61 64 28 33 29 20 5b 6c 69   workload(3) [li
4680: 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73  st \..      [lis
4690: 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73  t srcFileName ds
46a0: 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20  tFileName table 
46b0: 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f  count1 count2 co
46c0: 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a  unt3] {..    #..
46d0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b      # NOTE: Work
46e0: 6c 6f 61 64 20 23 33 2c 20 22 73 6d 61 6c 6c 22  load #3, "small"
46f0: 20 53 45 4c 45 43 54 20 73 74 61 74 65 6d 65 6e   SELECT statemen
4700: 74 73 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20  ts...    #..    
4710: 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28  lappend ::times(
4720: 33 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65  3) [lindex [time
4730: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57   {..      setupW
4740: 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64  orkloadFileDb $d
4750: 73 74 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20  stFileName..    
4760: 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78    for {set index
4770: 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24   1} {$index <= $
4780: 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e  count1} {incr in
4790: 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20  dex} {..        
47a0: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20  if {[catch {..  
47b0: 20 20 20 20 20 20 20 20 73 65 74 20 72 65 61 64          set read
47c0: 65 72 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20  er [sql execute 
47d0: 2d 65 78 65 63 75 74 65 20 72 65 61 64 65 72 20  -execute reader 
47e0: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  \..             
47f0: 20 2d 66 6f 72 6d 61 74 20 64 61 74 61 52 65 61   -format dataRea
4800: 64 65 72 20 2d 61 6c 69 61 73 20 24 64 62 20 5b  der -alias $db [
4810: 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20  appendArgs \..  
4820: 20 20 20 20 20 20 20 20 20 20 20 20 22 53 45 4c              "SEL
4830: 45 43 54 20 78 2c 20 79 20 46 52 4f 4d 20 22 20  ECT x, y FROM " 
4840: 24 74 61 62 6c 65 20 22 20 57 48 45 52 45 20 7a  $table " WHERE z
4850: 20 3d 20 27 73 6d 61 6c 6c 27 3b 22 5d 5d 0d 0a   = 'small';"]]..
4860: 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20            while 
4870: 7b 5b 24 72 65 61 64 65 72 20 52 65 61 64 5d 7d  {[$reader Read]}
4880: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
4890: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23  #..            #
48a0: 20 4e 4f 54 45 3a 20 44 6f 20 6e 6f 74 68 69 6e   NOTE: Do nothin
48b0: 67 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  g...            
48c0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  #..          }..
48d0: 20 20 20 20 20 20 20 20 20 20 75 6e 73 65 74 20            unset 
48e0: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 61 64  -nocomplain read
48f0: 65 72 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68  er..          sh
4900: 6f 77 54 65 73 74 20 43 0d 0a 20 20 20 20 20 20  owTest C..      
4910: 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e    } error]} then
4920: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66   {..          if
4930: 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72   {[isExpectedErr
4940: 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e  or $error]} then
4950: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
4960: 73 68 6f 77 54 65 73 74 20 63 0d 0a 20 20 20 20  showTest c..    
4970: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
4980: 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c              fail
4990: 54 65 73 74 20 63 20 24 65 72 72 6f 72 0d 0a 20  Test c $error.. 
49a0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
49b0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
49c0: 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20        cleanupDb 
49d0: 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20  $dstFileName db 
49e0: 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65  false true false
49f0: 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74  ..      doneTest
4a00: 20 43 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20   C..    }] 0].. 
4a10: 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23   }]....  #######
4a20: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4a30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4a40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4a50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4a60: 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20  ######..  #     
4a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4a80: 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41           WORKLOA
4a90: 44 20 23 34 20 28 44 29 20 20 20 20 20 20 20 20  D #4 (D)        
4aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4ab0: 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23        #..  #####
4ac0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ad0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ae0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4af0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4b00: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65  ########....  se
4b10: 74 20 77 6f 72 6b 6c 6f 61 64 28 34 29 20 5b 6c  t workload(4) [l
4b20: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ist \..      [li
4b30: 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64  st srcFileName d
4b40: 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65  stFileName table
4b50: 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63   count1 count2 c
4b60: 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d  ount3] {..    #.
4b70: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72  .    # NOTE: Wor
4b80: 6b 6c 6f 61 64 20 23 34 2c 20 22 62 69 67 22 20  kload #4, "big" 
4b90: 53 45 4c 45 43 54 20 73 74 61 74 65 6d 65 6e 74  SELECT statement
4ba0: 73 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c  s...    #..    l
4bb0: 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 34  append ::times(4
4bc0: 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20  ) [lindex [time 
4bd0: 7b 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f  {..      setupWo
4be0: 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73  rkloadFileDb $ds
4bf0: 74 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20  tFileName..     
4c00: 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20   for {set index 
4c10: 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63  1} {$index <= $c
4c20: 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64  ount1} {incr ind
4c30: 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69  ex} {..        i
4c40: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20  f {[catch {..   
4c50: 20 20 20 20 20 20 20 73 65 74 20 72 65 61 64 65         set reade
4c60: 72 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d  r [sql execute -
4c70: 65 78 65 63 75 74 65 20 72 65 61 64 65 72 20 5c  execute reader \
4c80: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
4c90: 2d 66 6f 72 6d 61 74 20 64 61 74 61 52 65 61 64  -format dataRead
4ca0: 65 72 20 2d 61 6c 69 61 73 20 24 64 62 20 5b 61  er -alias $db [a
4cb0: 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20  ppendArgs \..   
4cc0: 20 20 20 20 20 20 20 20 20 20 20 22 53 45 4c 45             "SELE
4cd0: 43 54 20 78 2c 20 79 20 46 52 4f 4d 20 22 20 24  CT x, y FROM " $
4ce0: 74 61 62 6c 65 20 22 20 57 48 45 52 45 20 7a 20  table " WHERE z 
4cf0: 3d 20 27 62 69 67 27 3b 22 5d 5d 0d 0a 20 20 20  = 'big';"]]..   
4d00: 20 20 20 20 20 20 20 77 68 69 6c 65 20 7b 5b 24         while {[$
4d10: 72 65 61 64 65 72 20 52 65 61 64 5d 7d 20 7b 0d  reader Read]} {.
4d20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a  .            #..
4d30: 20 20 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f              # NO
4d40: 54 45 3a 20 44 6f 20 6e 6f 74 68 69 6e 67 2e 0d  TE: Do nothing..
4d50: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a  .            #..
4d60: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
4d70: 20 20 20 20 20 20 20 75 6e 73 65 74 20 2d 6e 6f         unset -no
4d80: 63 6f 6d 70 6c 61 69 6e 20 72 65 61 64 65 72 0d  complain reader.
4d90: 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54  .          showT
4da0: 65 73 74 20 44 0d 0a 20 20 20 20 20 20 20 20 7d  est D..        }
4db0: 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d   error]} then {.
4dc0: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b  .          if {[
4dd0: 69 73 45 78 70 65 63 74 65 64 45 72 72 6f 72 20  isExpectedError 
4de0: 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d  $error]} then {.
4df0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 68 6f  .            sho
4e00: 77 54 65 73 74 20 64 0d 0a 20 20 20 20 20 20 20  wTest d..       
4e10: 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20     } else {..   
4e20: 20 20 20 20 20 20 20 20 20 66 61 69 6c 54 65 73           failTes
4e30: 74 20 64 20 24 65 72 72 6f 72 0d 0a 20 20 20 20  t d $error..    
4e40: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
4e50: 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20   }..      }..   
4e60: 20 20 20 63 6c 65 61 6e 75 70 44 62 20 24 64 73     cleanupDb $ds
4e70: 74 46 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c  tFileName db fal
4e80: 73 65 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20  se true false.. 
4e90: 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20 44 0d       doneTest D.
4ea0: 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d  .    }] 0]..  }]
4eb0: 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23  ....  ##########
4ec0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ed0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ee0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4ef0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4f00: 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20  ###..  #        
4f10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f20: 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23        WORKLOAD #
4f30: 35 20 28 45 29 20 20 20 20 20 20 20 20 20 20 20  5 (E)           
4f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
4f50: 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23     #..  ########
4f60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4f70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4f80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4f90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
4fa0: 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77  #####....  set w
4fb0: 6f 72 6b 6c 6f 61 64 28 35 29 20 5b 6c 69 73 74  orkload(5) [list
4fc0: 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20   \..      [list 
4fd0: 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46  srcFileName dstF
4fe0: 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f  ileName table co
4ff0: 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e  unt1 count2 coun
5000: 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20  t3] {..    #..  
5010: 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f    # NOTE: Worklo
5020: 61 64 20 23 35 2c 20 22 73 6d 61 6c 6c 22 20 49  ad #5, "small" I
5030: 4e 53 45 52 54 20 73 74 61 74 65 6d 65 6e 74 73  NSERT statements
5040: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c 61  ...    #..    la
5050: 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 35 29  ppend ::times(5)
5060: 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b   [lindex [time {
5070: 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f 72  ..      setupWor
5080: 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74  kloadFileDb $dst
5090: 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 20  FileName..      
50a0: 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31  for {set index 1
50b0: 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f  } {$index <= $co
50c0: 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65  unt1} {incr inde
50d0: 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  x} {..        if
50e0: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..    
50f0: 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 74        sql execut
5100: 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67  e $db [appendArg
5110: 73 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 22  s "INSERT INTO "
5120: 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20   $table \..     
5130: 20 20 20 20 20 20 20 20 20 22 28 78 2c 20 79 2c           "(x, y,
5140: 20 7a 29 20 56 41 4c 55 45 53 28 27 22 20 5b 66   z) VALUES('" [f
5150: 6f 72 6d 61 74 20 25 6c 58 20 5b 65 78 70 72 20  ormat %lX [expr 
5160: 7b 72 61 6e 64 6f 6d 28 29 7d 5d 5d 20 5c 0d 0a  {random()}]] \..
5170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 27                "'
5180: 2c 20 27 22 20 5b 62 61 73 65 36 34 20 65 6e 63  , '" [base64 enc
5190: 6f 64 65 20 2d 2d 20 5b 65 78 70 72 20 7b 72 61  ode -- [expr {ra
51a0: 6e 64 73 74 72 28 24 63 6f 75 6e 74 32 29 7d 5d  ndstr($count2)}]
51b0: 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ] \..           
51c0: 20 20 20 22 27 2c 20 27 73 6d 61 6c 6c 27 29 3b     "', 'small');
51d0: 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68  "]..          sh
51e0: 6f 77 54 65 73 74 20 45 0d 0a 20 20 20 20 20 20  owTest E..      
51f0: 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e    } error]} then
5200: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66   {..          if
5210: 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72   {[isExpectedErr
5220: 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e  or $error]} then
5230: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
5240: 73 68 6f 77 54 65 73 74 20 65 0d 0a 20 20 20 20  showTest e..    
5250: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a        } else {..
5260: 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c              fail
5270: 54 65 73 74 20 65 20 24 65 72 72 6f 72 0d 0a 20  Test e $error.. 
5280: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
5290: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
52a0: 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20        cleanupDb 
52b0: 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20  $dstFileName db 
52c0: 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65  false true false
52d0: 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74  ..      doneTest
52e0: 20 45 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20   E..    }] 0].. 
52f0: 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23   }]....  #######
5300: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5310: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5320: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5340: 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20  ######..  #     
5350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5360: 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41           WORKLOA
5370: 44 20 23 36 20 28 46 29 20 20 20 20 20 20 20 20  D #6 (F)        
5380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5390: 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23        #..  #####
53a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
53b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
53c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
53d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
53e0: 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65  ########....  se
53f0: 74 20 77 6f 72 6b 6c 6f 61 64 28 36 29 20 5b 6c  t workload(6) [l
5400: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ist \..      [li
5410: 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64  st srcFileName d
5420: 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65  stFileName table
5430: 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63   count1 count2 c
5440: 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d  ount3] {..    #.
5450: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72  .    # NOTE: Wor
5460: 6b 6c 6f 61 64 20 23 36 2c 20 22 62 69 67 22 20  kload #6, "big" 
5470: 49 4e 53 45 52 54 20 73 74 61 74 65 6d 65 6e 74  INSERT statement
5480: 73 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c  s...    #..    l
5490: 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 36  append ::times(6
54a0: 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20  ) [lindex [time 
54b0: 7b 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f  {..      setupWo
54c0: 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73  rkloadFileDb $ds
54d0: 74 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20  tFileName..     
54e0: 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20   for {set index 
54f0: 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63  1} {$index <= $c
5500: 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64  ount1} {incr ind
5510: 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69  ex} {..        i
5520: 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20  f {[catch {..   
5530: 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75         sql execu
5540: 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72  te $db [appendAr
5550: 67 73 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20  gs "INSERT INTO 
5560: 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20  " $table \..    
5570: 20 20 20 20 20 20 20 20 20 20 22 28 78 2c 20 79            "(x, y
5580: 2c 20 7a 29 20 56 41 4c 55 45 53 28 27 22 20 5b  , z) VALUES('" [
5590: 66 6f 72 6d 61 74 20 25 6c 58 20 5b 65 78 70 72  format %lX [expr
55a0: 20 7b 72 61 6e 64 6f 6d 28 29 7d 5d 5d 20 5c 0d   {random()}]] \.
55b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
55c0: 27 2c 20 52 41 4e 44 4f 4d 42 4c 4f 42 28 22 20  ', RANDOMBLOB(" 
55d0: 24 63 6f 75 6e 74 33 20 22 29 2c 20 27 62 69 67  $count3 "), 'big
55e0: 27 29 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20 20  ');"]..         
55f0: 20 73 68 6f 77 54 65 73 74 20 46 0d 0a 20 20 20   showTest F..   
5600: 20 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74       } error]} t
5610: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
5620: 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64   if {[isExpected
5630: 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74  Error $error]} t
5640: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
5650: 20 20 20 73 68 6f 77 54 65 73 74 20 66 0d 0a 20     showTest f.. 
5660: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20           } else 
5670: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 66  {..            f
5680: 61 69 6c 54 65 73 74 20 66 20 24 65 72 72 6f 72  ailTest f $error
5690: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
56a0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
56b0: 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e 75 70  }..      cleanup
56c0: 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 20  Db $dstFileName 
56d0: 64 62 20 66 61 6c 73 65 20 74 72 75 65 20 66 61  db false true fa
56e0: 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54  lse..      doneT
56f0: 65 73 74 20 46 0d 0a 20 20 20 20 7d 5d 20 30 5d  est F..    }] 0]
5700: 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23  ..  }]....  ####
5710: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5720: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5730: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5740: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5750: 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23 20 20  #########..  #  
5760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5770: 20 20 20 20 20 20 20 20 20 20 20 20 57 4f 52 4b              WORK
5780: 4c 4f 41 44 20 23 37 20 28 47 29 20 20 20 20 20  LOAD #7 (G)     
5790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
57a0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 23 23           #..  ##
57b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
57c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
57d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
57e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
57f0: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20  ###########.... 
5800: 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28 37 29   set workload(7)
5810: 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20 20   [list \..      
5820: 5b 6c 69 73 74 20 73 72 63 46 69 6c 65 4e 61 6d  [list srcFileNam
5830: 65 20 64 73 74 46 69 6c 65 4e 61 6d 65 20 74 61  e dstFileName ta
5840: 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74  ble count1 count
5850: 32 20 63 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20  2 count3] {..   
5860: 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20   #..    # NOTE: 
5870: 57 6f 72 6b 6c 6f 61 64 20 23 37 2c 20 22 73 6d  Workload #7, "sm
5880: 61 6c 6c 22 20 55 50 44 41 54 45 20 73 74 61 74  all" UPDATE stat
5890: 65 6d 65 6e 74 73 2e 0d 0a 20 20 20 20 23 0d 0a  ements...    #..
58a0: 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69      lappend ::ti
58b0: 6d 65 73 28 37 29 20 5b 6c 69 6e 64 65 78 20 5b  mes(7) [lindex [
58c0: 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 73 65  time {..      se
58d0: 74 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44  tupWorkloadFileD
58e0: 62 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 0d 0a  b $dstFileName..
58f0: 20 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69        for {set i
5900: 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20  ndex 1} {$index 
5910: 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63  <= $count1} {inc
5920: 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20  r index} {..    
5930: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b      if {[catch {
5940: 0d 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 20  ..          sql 
5950: 65 78 65 63 75 74 65 20 24 64 62 20 5b 61 70 70  execute $db [app
5960: 65 6e 64 41 72 67 73 20 22 55 50 44 41 54 45 20  endArgs "UPDATE 
5970: 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20  " $table \..    
5980: 20 20 20 20 20 20 20 20 20 20 22 20 53 45 54 20            " SET 
5990: 79 20 3d 20 27 22 20 5b 62 61 73 65 36 34 20 65  y = '" [base64 e
59a0: 6e 63 6f 64 65 20 2d 2d 20 5b 65 78 70 72 20 7b  ncode -- [expr {
59b0: 72 61 6e 64 73 74 72 28 24 63 6f 75 6e 74 32 29  randstr($count2)
59c0: 7d 5d 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20  }]] \..         
59d0: 20 20 20 20 20 22 27 20 57 48 45 52 45 20 78 20       "' WHERE x 
59e0: 4c 49 4b 45 20 27 22 20 5b 66 6f 72 6d 61 74 20  LIKE '" [format 
59f0: 25 58 20 24 69 6e 64 65 78 5d 20 22 25 27 20 41  %X $index] "%' A
5a00: 4e 44 20 7a 20 3d 20 27 73 6d 61 6c 6c 27 3b 22  ND z = 'small';"
5a10: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f  ]..          sho
5a20: 77 54 65 73 74 20 47 0d 0a 20 20 20 20 20 20 20  wTest G..       
5a30: 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20   } error]} then 
5a40: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  {..          if 
5a50: 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 6f  {[isExpectedErro
5a60: 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20  r $error]} then 
5a70: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73  {..            s
5a80: 68 6f 77 54 65 73 74 20 67 0d 0a 20 20 20 20 20  howTest g..     
5a90: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
5aa0: 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 54             failT
5ab0: 65 73 74 20 67 20 24 65 72 72 6f 72 0d 0a 20 20  est g $error..  
5ac0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
5ad0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20     }..      }.. 
5ae0: 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20 24       cleanupDb $
5af0: 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20 66  dstFileName db f
5b00: 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65 0d  alse true false.
5b10: 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20  .      doneTest 
5b20: 47 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20  G..    }] 0]..  
5b30: 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23  }]....  ########
5b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5b50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5b60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5b70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5b80: 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20  #####..  #      
5b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5ba0: 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44          WORKLOAD
5bb0: 20 23 38 20 28 48 29 20 20 20 20 20 20 20 20 20   #8 (H)         
5bc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5bd0: 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23       #..  ######
5be0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5bf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5c00: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5c10: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5c20: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74  #######....  set
5c30: 20 77 6f 72 6b 6c 6f 61 64 28 38 29 20 5b 6c 69   workload(8) [li
5c40: 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73  st \..      [lis
5c50: 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73  t srcFileName ds
5c60: 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20  tFileName table 
5c70: 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f  count1 count2 co
5c80: 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a  unt3] {..    #..
5c90: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b      # NOTE: Work
5ca0: 6c 6f 61 64 20 23 38 2c 20 22 62 69 67 22 20 55  load #8, "big" U
5cb0: 50 44 41 54 45 20 73 74 61 74 65 6d 65 6e 74 73  PDATE statements
5cc0: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c 61  ...    #..    la
5cd0: 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 38 29  ppend ::times(8)
5ce0: 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b   [lindex [time {
5cf0: 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f 72  ..      setupWor
5d00: 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74  kloadFileDb $dst
5d10: 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 20  FileName..      
5d20: 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31  for {set index 1
5d30: 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f  } {$index <= $co
5d40: 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65  unt1} {incr inde
5d50: 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  x} {..        if
5d60: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..    
5d70: 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 74        sql execut
5d80: 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67  e $db [appendArg
5d90: 73 20 22 55 50 44 41 54 45 20 22 20 24 74 61 62  s "UPDATE " $tab
5da0: 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  le \..          
5db0: 20 20 20 20 22 20 53 45 54 20 79 20 3d 20 52 41      " SET y = RA
5dc0: 4e 44 4f 4d 42 4c 4f 42 28 22 20 24 63 6f 75 6e  NDOMBLOB(" $coun
5dd0: 74 33 20 22 29 20 57 48 45 52 45 20 78 20 4c 49  t3 ") WHERE x LI
5de0: 4b 45 20 27 22 20 5c 0d 0a 20 20 20 20 20 20 20  KE '" \..       
5df0: 20 20 20 20 20 20 20 5b 66 6f 72 6d 61 74 20 25         [format %
5e00: 58 20 24 69 6e 64 65 78 5d 20 22 25 27 20 41 4e  X $index] "%' AN
5e10: 44 20 7a 20 3d 20 27 62 69 67 27 3b 22 5d 0d 0a  D z = 'big';"]..
5e20: 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65            showTe
5e30: 73 74 20 48 0d 0a 20 20 20 20 20 20 20 20 7d 20  st H..        } 
5e40: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a  error]} then {..
5e50: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69            if {[i
5e60: 73 45 78 70 65 63 74 65 64 45 72 72 6f 72 20 24  sExpectedError $
5e70: 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a  error]} then {..
5e80: 20 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 77              show
5e90: 54 65 73 74 20 68 0d 0a 20 20 20 20 20 20 20 20  Test h..        
5ea0: 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20    } else {..    
5eb0: 20 20 20 20 20 20 20 20 66 61 69 6c 54 65 73 74          failTest
5ec0: 20 68 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20   h $error..     
5ed0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
5ee0: 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  }..      }..    
5ef0: 20 20 63 6c 65 61 6e 75 70 44 62 20 24 64 73 74    cleanupDb $dst
5f00: 46 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c 73  FileName db fals
5f10: 65 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20 20  e true false..  
5f20: 20 20 20 20 64 6f 6e 65 54 65 73 74 20 48 0d 0a      doneTest H..
5f30: 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d      }] 0]..  }].
5f40: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
5f50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5f60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5f70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5f80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
5f90: 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20  ##..  #         
5fa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5fb0: 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 39       WORKLOAD #9
5fc0: 20 28 49 29 20 20 20 20 20 20 20 20 20 20 20 20   (I)            
5fd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
5fe0: 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23    #..  #########
5ff0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6000: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6030: 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f  ####....  set wo
6040: 72 6b 6c 6f 61 64 28 39 29 20 5b 6c 69 73 74 20  rkload(9) [list 
6050: 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73  \..      [list s
6060: 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69  rcFileName dstFi
6070: 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75  leName table cou
6080: 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74  nt1 count2 count
6090: 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20  3] {..    #..   
60a0: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61   # NOTE: Workloa
60b0: 64 20 23 39 2c 20 22 73 6d 61 6c 6c 22 20 44 45  d #9, "small" DE
60c0: 4c 45 54 45 20 73 74 61 74 65 6d 65 6e 74 73 2e  LETE statements.
60d0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c 61 70  ..    #..    lap
60e0: 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 39 29 20  pend ::times(9) 
60f0: 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0d  [lindex [time {.
6100: 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f 72 6b  .      setupWork
6110: 6c 6f 61 64 46 69 6c 65 44 62 20 24 64 73 74 46  loadFileDb $dstF
6120: 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 20 66  ileName..      f
6130: 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 7d  or {set index 1}
6140: 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75   {$index <= $cou
6150: 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78  nt1} {incr index
6160: 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20  } {..        if 
6170: 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20  {[catch {..     
6180: 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 74 65       sql execute
6190: 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73   $db [appendArgs
61a0: 20 22 44 45 4c 45 54 45 20 46 52 4f 4d 20 22 20   "DELETE FROM " 
61b0: 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20 20  $table \..      
61c0: 20 20 20 20 20 20 20 20 22 20 57 48 45 52 45 20          " WHERE 
61d0: 78 20 4c 49 4b 45 20 27 22 20 5b 66 6f 72 6d 61  x LIKE '" [forma
61e0: 74 20 25 58 20 24 69 6e 64 65 78 5d 20 22 25 27  t %X $index] "%'
61f0: 20 41 4e 44 20 7a 20 3d 20 27 73 6d 61 6c 6c 27   AND z = 'small'
6200: 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73  ;"]..          s
6210: 68 6f 77 54 65 73 74 20 49 0d 0a 20 20 20 20 20  howTest I..     
6220: 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65     } error]} the
6230: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69  n {..          i
6240: 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72  f {[isExpectedEr
6250: 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65  ror $error]} the
6260: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
6270: 20 73 68 6f 77 54 65 73 74 20 69 0d 0a 20 20 20   showTest i..   
6280: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d         } else {.
6290: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69  .            fai
62a0: 6c 54 65 73 74 20 69 20 24 65 72 72 6f 72 0d 0a  lTest i $error..
62b0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
62c0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d       }..      }.
62d0: 0a 20 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62  .      cleanupDb
62e0: 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62   $dstFileName db
62f0: 20 66 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73   false true fals
6300: 65 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73  e..      doneTes
6310: 74 20 49 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a  t I..    }] 0]..
6320: 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23    }]....  ######
6330: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6340: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6350: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6360: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6370: 23 23 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20  #######..  #    
6380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6390: 20 20 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f            WORKLO
63a0: 41 44 20 23 31 30 20 28 4a 29 20 20 20 20 20 20  AD #10 (J)      
63b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
63c0: 20 20 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23         #..  ####
63d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
63e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
63f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6400: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6410: 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73  #########....  s
6420: 65 74 20 77 6f 72 6b 6c 6f 61 64 28 31 30 29 20  et workload(10) 
6430: 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b  [list \..      [
6440: 6c 69 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65  list srcFileName
6450: 20 64 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62   dstFileName tab
6460: 6c 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32  le count1 count2
6470: 20 63 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20   count3] {..    
6480: 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57  #..    # NOTE: W
6490: 6f 72 6b 6c 6f 61 64 20 23 31 30 2c 20 22 62 69  orkload #10, "bi
64a0: 67 22 20 44 45 4c 45 54 45 20 73 74 61 74 65 6d  g" DELETE statem
64b0: 65 6e 74 73 2e 0d 0a 20 20 20 20 23 0d 0a 20 20  ents...    #..  
64c0: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65    lappend ::time
64d0: 73 28 31 30 29 20 5b 6c 69 6e 64 65 78 20 5b 74  s(10) [lindex [t
64e0: 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 73 65 74  ime {..      set
64f0: 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62  upWorkloadFileDb
6500: 20 24 64 73 74 46 69 6c 65 4e 61 6d 65 0d 0a 20   $dstFileName.. 
6510: 20 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 6e       for {set in
6520: 64 65 78 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c  dex 1} {$index <
6530: 3d 20 24 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72  = $count1} {incr
6540: 20 69 6e 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20   index} {..     
6550: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d     if {[catch {.
6560: 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c 20 65  .          sql e
6570: 78 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 65  xecute $db [appe
6580: 6e 64 41 72 67 73 20 22 44 45 4c 45 54 45 20 46  ndArgs "DELETE F
6590: 52 4f 4d 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a  ROM " $table \..
65a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20                " 
65b0: 57 48 45 52 45 20 78 20 4c 49 4b 45 20 27 22 20  WHERE x LIKE '" 
65c0: 5b 66 6f 72 6d 61 74 20 25 58 20 24 69 6e 64 65  [format %X $inde
65d0: 78 5d 20 22 25 27 20 41 4e 44 20 7a 20 3d 20 27  x] "%' AND z = '
65e0: 62 69 67 27 3b 22 5d 0d 0a 20 20 20 20 20 20 20  big';"]..       
65f0: 20 20 20 73 68 6f 77 54 65 73 74 20 4a 0d 0a 20     showTest J.. 
6600: 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d         } error]}
6610: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
6620: 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74     if {[isExpect
6630: 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d  edError $error]}
6640: 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20   then {..       
6650: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 6a 0d       showTest j.
6660: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73  .          } els
6670: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  e {..           
6680: 20 66 61 69 6c 54 65 73 74 20 6a 20 24 65 72 72   failTest j $err
6690: 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  or..          }.
66a0: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
66b0: 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e    }..      clean
66c0: 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d  upDb $dstFileNam
66d0: 65 20 64 62 20 66 61 6c 73 65 20 74 72 75 65 20  e db false true 
66e0: 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e  false..      don
66f0: 65 54 65 73 74 20 4a 0d 0a 20 20 20 20 7d 5d 20  eTest J..    }] 
6700: 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23  0]..  }]....  ##
6710: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6720: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6730: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6740: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6750: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23  ###########..  #
6760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 4f                WO
6780: 52 4b 4c 4f 41 44 20 23 31 31 20 28 4b 29 20 20  RKLOAD #11 (K)  
6790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
67a0: 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20             #..  
67b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
67c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
67d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
67e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
67f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d  #############...
6800: 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28  .  set workload(
6810: 31 31 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20  11) [list \..   
6820: 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69 6c 65     [list srcFile
6830: 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d 65  Name dstFileName
6840: 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f   table count1 co
6850: 75 6e 74 32 20 63 6f 75 6e 74 33 5d 20 7b 0d 0a  unt2 count3] {..
6860: 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54      #..    # NOT
6870: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 31 2c  E: Workload #11,
6880: 20 56 41 43 55 55 4d 20 73 74 61 74 65 6d 65 6e   VACUUM statemen
6890: 74 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c  t...    #..    l
68a0: 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 31  append ::times(1
68b0: 31 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65  1) [lindex [time
68c0: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57   {..      setupW
68d0: 6f 72 6b 6c 6f 61 64 46 69 6c 65 44 62 20 24 64  orkloadFileDb $d
68e0: 73 74 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20  stFileName..    
68f0: 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78    for {set index
6900: 20 31 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24   1} {$index <= $
6910: 63 6f 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e  count1} {incr in
6920: 64 65 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20  dex} {..        
6930: 69 66 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20  if {[catch {..  
6940: 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 65 63          sql exec
6950: 75 74 65 20 24 64 62 20 22 56 41 43 55 55 4d 3b  ute $db "VACUUM;
6960: 22 0d 0a 20 20 20 20 20 20 20 20 20 20 73 68 6f  "..          sho
6970: 77 54 65 73 74 20 4b 0d 0a 20 20 20 20 20 20 20  wTest K..       
6980: 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20   } error]} then 
6990: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  {..          if 
69a0: 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 6f  {[isExpectedErro
69b0: 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20  r $error]} then 
69c0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 73  {..            s
69d0: 68 6f 77 54 65 73 74 20 6b 0d 0a 20 20 20 20 20  howTest k..     
69e0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
69f0: 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 54             failT
6a00: 65 73 74 20 6b 20 24 65 72 72 6f 72 0d 0a 20 20  est k $error..  
6a10: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
6a20: 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20     }..      }.. 
6a30: 20 20 20 20 20 63 6c 65 61 6e 75 70 44 62 20 24       cleanupDb $
6a40: 64 73 74 46 69 6c 65 4e 61 6d 65 20 64 62 20 66  dstFileName db f
6a50: 61 6c 73 65 20 74 72 75 65 20 66 61 6c 73 65 0d  alse true false.
6a60: 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20  .      doneTest 
6a70: 4b 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20  K..    }] 0]..  
6a80: 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23  }]....  ########
6a90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6aa0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6ab0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6ac0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6ad0: 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20  #####..  #      
6ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6af0: 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44          WORKLOAD
6b00: 20 23 31 32 20 28 4c 29 20 20 20 20 20 20 20 20   #12 (L)        
6b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
6b20: 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23       #..  ######
6b30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6b40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6b50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6b60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
6b70: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74  #######....  set
6b80: 20 77 6f 72 6b 6c 6f 61 64 28 31 32 29 20 5b 6c   workload(12) [l
6b90: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ist \..      [li
6ba0: 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64  st srcFileName d
6bb0: 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65  stFileName table
6bc0: 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63   count1 count2 c
6bd0: 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d  ount3] {..    #.
6be0: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72  .    # NOTE: Wor
6bf0: 6b 6c 6f 61 64 20 23 31 32 2c 20 62 61 63 6b 75  kload #12, backu
6c00: 70 20 74 6f 20 69 6e 2d 6d 65 6d 6f 72 79 20 64  p to in-memory d
6c10: 61 74 61 62 61 73 65 2e 0d 0a 20 20 20 20 23 0d  atabase...    #.
6c20: 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74  .    lappend ::t
6c30: 69 6d 65 73 28 31 32 29 20 5b 6c 69 6e 64 65 78  imes(12) [lindex
6c40: 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20   [time {..      
6c50: 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31  for {set index 1
6c60: 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f  } {$index <= $co
6c70: 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65  unt1} {incr inde
6c80: 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  x} {..        if
6c90: 20 7b 5b 73 74 72 69 6e 67 20 69 73 20 69 6e 74   {[string is int
6ca0: 65 67 65 72 20 2d 73 74 72 69 63 74 20 24 3a 3a  eger -strict $::
6cb0: 63 6f 6d 70 69 6c 65 64 28 31 32 29 5d 7d 20 74  compiled(12)]} t
6cc0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
6cd0: 20 73 65 74 20 69 64 20 24 3a 3a 63 6f 6d 70 69   set id $::compi
6ce0: 6c 65 64 28 31 32 29 3b 20 23 20 4e 4f 54 45 3a  led(12); # NOTE:
6cf0: 20 41 6c 72 65 61 64 79 20 63 6f 6d 70 69 6c 65   Already compile
6d00: 64 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66  d...          if
6d10: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..    
6d20: 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69          object i
6d30: 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63 24 7b  nvoke _Dynamic${
6d40: 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20 42 61  id}.Test${id} Ba
6d50: 63 6b 75 70 41 6e 64 47 65 74 44 61 74 61 0d 0a  ckupAndGetData..
6d60: 20 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 77              show
6d70: 54 65 73 74 20 4c 0d 0a 20 20 20 20 20 20 20 20  Test L..        
6d80: 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e    } error]} then
6d90: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
6da0: 69 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45  if {[isExpectedE
6db0: 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68  rror $error]} th
6dc0: 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  en {..          
6dd0: 20 20 20 20 73 68 6f 77 54 65 73 74 20 6c 0d 0a      showTest l..
6de0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c              } el
6df0: 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  se {..          
6e00: 20 20 20 20 66 61 69 6c 54 65 73 74 20 6c 20 24      failTest l $
6e10: 65 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20  error..         
6e20: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
6e30: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73  }..        } els
6e40: 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73  e {..          s
6e50: 65 74 20 69 64 20 5b 6f 62 6a 65 63 74 20 69 6e  et id [object in
6e60: 76 6f 6b 65 20 49 6e 74 65 72 70 72 65 74 65 72  voke Interpreter
6e70: 2e 47 65 74 41 63 74 69 76 65 20 4e 65 78 74 49  .GetActive NextI
6e80: 64 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65  d]..          se
6e90: 74 20 63 6f 64 65 20 5b 63 6f 6d 70 69 6c 65 43  t code [compileC
6ea0: 53 68 61 72 70 57 69 74 68 20 5b 73 75 62 73 74  SharpWith [subst
6eb0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
6ec0: 75 73 69 6e 67 20 53 79 73 74 65 6d 3b 0d 0a 20  using System;.. 
6ed0: 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67             using
6ee0: 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51 4c   System.Data.SQL
6ef0: 69 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20  ite;..          
6f00: 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d 2e 54    using System.T
6f10: 65 78 74 3b 0d 0a 0d 0a 20 20 20 20 20 20 20 20  ext;....        
6f20: 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 5f 44      namespace _D
6f30: 79 6e 61 6d 69 63 24 7b 69 64 7d 0d 0a 20 20 20  ynamic${id}..   
6f40: 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20           {..    
6f50: 20 20 20 20 20 20 20 20 20 20 70 75 62 6c 69 63            public
6f60: 20 73 74 61 74 69 63 20 63 6c 61 73 73 20 54 65   static class Te
6f70: 73 74 24 7b 69 64 7d 0d 0a 20 20 20 20 20 20 20  st${id}..       
6f80: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
6f90: 20 20 20 20 20 20 20 20 20 20 70 75 62 6c 69 63            public
6fa0: 20 73 74 61 74 69 63 20 76 6f 69 64 20 42 61 63   static void Bac
6fb0: 6b 75 70 41 6e 64 47 65 74 44 61 74 61 28 29 0d  kupAndGetData().
6fc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
6fd0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
6fe0: 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51 4c        using (SQL
6ff0: 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 73 6f  iteConnection so
7000: 75 72 63 65 20 3d 20 6e 65 77 20 53 51 4c 69 74  urce = new SQLit
7010: 65 43 6f 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20  eConnection(..  
7020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7030: 20 20 20 20 22 46 75 6c 6c 55 72 69 3d 24 7b 64      "FullUri=${d
7040: 73 74 46 69 6c 65 4e 61 6d 65 7d 3b 22 29 29 0d  stFileName};")).
7050: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
7060: 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20     {..          
7070: 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65            source
7080: 2e 4f 70 65 6e 28 29 3b 0d 0a 20 20 20 20 20 20  .Open();..      
7090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73                us
70a0: 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e 65  ing (SQLiteConne
70b0: 63 74 69 6f 6e 20 64 65 73 74 69 6e 61 74 69 6f  ction destinatio
70c0: 6e 20 3d 20 6e 65 77 20 53 51 4c 69 74 65 43 6f  n = new SQLiteCo
70d0: 6e 6e 65 63 74 69 6f 6e 28 0d 0a 20 20 20 20 20  nnection(..     
70e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
70f0: 20 20 20 22 46 75 6c 6c 55 72 69 3d 24 7b 73 72     "FullUri=${sr
7100: 63 46 69 6c 65 4e 61 6d 65 7d 3b 22 29 29 0d 0a  cFileName};"))..
7110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7120: 20 20 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20      {..         
7130: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73               des
7140: 74 69 6e 61 74 69 6f 6e 2e 4f 70 65 6e 28 29 3b  tination.Open();
7150: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  ....            
7160: 20 20 20 20 20 20 20 20 20 20 73 6f 75 72 63 65            source
7170: 2e 42 61 63 6b 75 70 44 61 74 61 62 61 73 65 28  .BackupDatabase(
7180: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
7190: 20 20 20 20 20 20 20 20 20 20 20 20 64 65 73 74              dest
71a0: 69 6e 61 74 69 6f 6e 2c 20 22 6d 61 69 6e 22 2c  ination, "main",
71b0: 20 22 6d 61 69 6e 22 2c 20 2d 31 2c 20 6e 75 6c   "main", -1, nul
71c0: 6c 2c 20 30 29 3b 0d 0a 20 20 20 20 20 20 20 20  l, 0);..        
71d0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
71e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
71f0: 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   }..            
7200: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 20 20 20      }....       
7210: 20 20 20 20 20 20 20 20 20 2f 2f 2f 2f 2f 2f 2f           ///////
7220: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
7230: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
7240: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
7250: 2f 2f 2f 2f 2f 2f 2f 2f 0d 0a 0d 0a 20 20 20 20  ////////....    
7260: 20 20 20 20 20 20 20 20 20 20 20 20 70 75 62 6c              publ
7270: 69 63 20 73 74 61 74 69 63 20 76 6f 69 64 20 4d  ic static void M
7280: 61 69 6e 28 29 0d 0a 20 20 20 20 20 20 20 20 20  ain()..         
7290: 20 20 20 20 20 20 20 7b 0d 0a 20 20 20 20 20 20         {..      
72a0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 20 64              // d
72b0: 6f 20 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20  o nothing...    
72c0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
72d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a               }..
72e0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
72f0: 20 20 20 20 20 20 20 20 20 7d 5d 20 74 72 75 65           }] true
7300: 20 74 72 75 65 20 74 72 75 65 20 72 65 73 75 6c   true true resul
7310: 74 73 20 65 72 72 6f 72 73 20 53 79 73 74 65 6d  ts errors System
7320: 2e 44 61 74 61 2e 53 51 4c 69 74 65 2e 64 6c 6c  .Data.SQLite.dll
7330: 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20  ]..          if 
7340: 7b 24 63 6f 64 65 20 65 71 20 22 4f 6b 22 7d 20  {$code eq "Ok"} 
7350: 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20  then {..        
7360: 20 20 20 20 73 65 74 20 3a 3a 63 6f 6d 70 69 6c      set ::compil
7370: 65 64 28 31 32 29 20 24 69 64 3b 20 23 20 4e 4f  ed(12) $id; # NO
7380: 54 45 3a 20 43 6f 6d 70 69 6c 65 64 20 4f 4b 2e  TE: Compiled OK.
7390: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66  ..            if
73a0: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..    
73b0: 20 20 20 20 20 20 20 20 20 20 6f 62 6a 65 63 74            object
73c0: 20 69 6e 76 6f 6b 65 20 5f 44 79 6e 61 6d 69 63   invoke _Dynamic
73d0: 24 7b 69 64 7d 2e 54 65 73 74 24 7b 69 64 7d 20  ${id}.Test${id} 
73e0: 42 61 63 6b 75 70 41 6e 64 47 65 74 44 61 74 61  BackupAndGetData
73f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
7400: 73 68 6f 77 54 65 73 74 20 4c 0d 0a 20 20 20 20  showTest L..    
7410: 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72 5d          } error]
7420: 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20  } then {..      
7430: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73 45          if {[isE
7440: 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 65 72  xpectedError $er
7450: 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20  ror]} then {..  
7460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68                sh
7470: 6f 77 54 65 73 74 20 6c 0d 0a 20 20 20 20 20 20  owTest l..      
7480: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
7490: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
74a0: 20 20 66 61 69 6c 54 65 73 74 20 6c 20 24 65 72    failTest l $er
74b0: 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ror..           
74c0: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
74d0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d    }..          }
74e0: 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20   else {..       
74f0: 20 20 20 20 20 65 72 72 6f 72 20 24 65 72 72 6f       error $erro
7500: 72 73 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d  rs..          }.
7510: 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20  .        }..    
7520: 20 20 7d 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54    }..      doneT
7530: 65 73 74 20 4c 0d 0a 20 20 20 20 7d 5d 20 30 5d  est L..    }] 0]
7540: 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23  ..  }]....  ####
7550: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7570: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7580: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7590: 23 23 23 23 23 23 23 23 23 0d 0a 20 20 23 20 20  #########..  #  
75a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
75b0: 20 20 20 20 20 20 20 20 20 20 20 20 57 4f 52 4b              WORK
75c0: 4c 4f 41 44 20 23 31 33 20 28 4d 29 20 20 20 20  LOAD #13 (M)    
75d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
75e0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 23 23           #..  ##
75f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7600: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7610: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7620: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
7630: 23 23 23 23 23 23 23 23 23 23 23 0d 0a 0d 0a 20  ###########.... 
7640: 20 73 65 74 20 77 6f 72 6b 6c 6f 61 64 28 31 33   set workload(13
7650: 29 20 5b 6c 69 73 74 20 5c 0d 0a 20 20 20 20 20  ) [list \..     
7660: 20 5b 6c 69 73 74 20 73 72 63 46 69 6c 65 4e 61   [list srcFileNa
7670: 6d 65 20 64 73 74 46 69 6c 65 4e 61 6d 65 20 74  me dstFileName t
7680: 61 62 6c 65 20 63 6f 75 6e 74 31 20 63 6f 75 6e  able count1 coun
7690: 74 32 20 63 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20  t2 count3] {..  
76a0: 20 20 23 0d 0a 20 20 20 20 23 20 4e 4f 54 45 3a    #..    # NOTE:
76b0: 20 57 6f 72 6b 6c 6f 61 64 20 23 31 33 2c 20 62   Workload #13, b
76c0: 61 63 6b 75 70 20 66 72 6f 6d 20 61 6e 20 69 6e  ackup from an in
76d0: 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73 65  -memory database
76e0: 2e 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c 61  ...    #..    la
76f0: 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 31 33  ppend ::times(13
7700: 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20  ) [lindex [time 
7710: 7b 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65  {..      for {se
7720: 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64  t index 1} {$ind
7730: 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b  ex <= $count1} {
7740: 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20  incr index} {.. 
7750: 20 20 20 20 20 20 20 69 66 20 7b 5b 73 74 72 69         if {[stri
7760: 6e 67 20 69 73 20 69 6e 74 65 67 65 72 20 2d 73  ng is integer -s
7770: 74 72 69 63 74 20 24 3a 3a 63 6f 6d 70 69 6c 65  trict $::compile
7780: 64 28 31 33 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a  d(13)]} then {..
7790: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 69 64            set id
77a0: 20 24 3a 3a 63 6f 6d 70 69 6c 65 64 28 31 33 29   $::compiled(13)
77b0: 3b 20 23 20 4e 4f 54 45 3a 20 41 6c 72 65 61 64  ; # NOTE: Alread
77c0: 79 20 63 6f 6d 70 69 6c 65 64 2e 0d 0a 20 20 20  y compiled...   
77d0: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63         if {[catc
77e0: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  h {..           
77f0: 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 5f   object invoke _
7800: 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54 65 73  Dynamic${id}.Tes
7810: 74 24 7b 69 64 7d 20 42 61 63 6b 75 70 41 6e 64  t${id} BackupAnd
7820: 47 65 74 44 61 74 61 0d 0a 20 20 20 20 20 20 20  GetData..       
7830: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 4d 0d       showTest M.
7840: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 72 72  .          } err
7850: 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  or]} then {..   
7860: 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73           if {[is
7870: 45 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 65  ExpectedError $e
7880: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  rror]} then {.. 
7890: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 6f               sho
78a0: 77 54 65 73 74 20 6d 0d 0a 20 20 20 20 20 20 20  wTest m..       
78b0: 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20       } else {.. 
78c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69               fai
78d0: 6c 54 65 73 74 20 6d 20 24 65 72 72 6f 72 0d 0a  lTest m $error..
78e0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
78f0: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
7900: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20      } else {..  
7910: 20 20 20 20 20 20 20 20 73 65 74 20 69 64 20 5b          set id [
7920: 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65 20 49 6e  object invoke In
7930: 74 65 72 70 72 65 74 65 72 2e 47 65 74 41 63 74  terpreter.GetAct
7940: 69 76 65 20 4e 65 78 74 49 64 5d 0d 0a 20 20 20  ive NextId]..   
7950: 20 20 20 20 20 20 20 73 65 74 20 63 6f 64 65 20         set code 
7960: 5b 63 6f 6d 70 69 6c 65 43 53 68 61 72 70 57 69  [compileCSharpWi
7970: 74 68 20 5b 73 75 62 73 74 20 7b 0d 0a 20 20 20  th [subst {..   
7980: 20 20 20 20 20 20 20 20 20 75 73 69 6e 67 20 53           using S
7990: 79 73 74 65 6d 3b 0d 0a 20 20 20 20 20 20 20 20  ystem;..        
79a0: 20 20 20 20 75 73 69 6e 67 20 53 79 73 74 65 6d      using System
79b0: 2e 44 61 74 61 2e 53 51 4c 69 74 65 3b 0d 0a 20  .Data.SQLite;.. 
79c0: 20 20 20 20 20 20 20 20 20 20 20 75 73 69 6e 67             using
79d0: 20 53 79 73 74 65 6d 2e 54 65 78 74 3b 0d 0a 0d   System.Text;...
79e0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6e 61 6d  .            nam
79f0: 65 73 70 61 63 65 20 5f 44 79 6e 61 6d 69 63 24  espace _Dynamic$
7a00: 7b 69 64 7d 0d 0a 20 20 20 20 20 20 20 20 20 20  {id}..          
7a10: 20 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20    {..           
7a20: 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63     public static
7a30: 20 63 6c 61 73 73 20 54 65 73 74 24 7b 69 64 7d   class Test${id}
7a40: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
7a50: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
7a60: 20 20 20 70 75 62 6c 69 63 20 73 74 61 74 69 63     public static
7a70: 20 76 6f 69 64 20 42 61 63 6b 75 70 41 6e 64 47   void BackupAndG
7a80: 65 74 44 61 74 61 28 29 0d 0a 20 20 20 20 20 20  etData()..      
7a90: 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20 20 20            {..   
7aa0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75                 u
7ab0: 73 69 6e 67 20 28 53 51 4c 69 74 65 43 6f 6e 6e  sing (SQLiteConn
7ac0: 65 63 74 69 6f 6e 20 73 6f 75 72 63 65 20 3d 20  ection source = 
7ad0: 6e 65 77 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63  new SQLiteConnec
7ae0: 74 69 6f 6e 28 0d 0a 20 20 20 20 20 20 20 20 20  tion(..         
7af0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 46 75               "Fu
7b00: 6c 6c 55 72 69 3d 24 7b 73 72 63 46 69 6c 65 4e  llUri=${srcFileN
7b10: 61 6d 65 7d 3b 22 29 29 0d 0a 20 20 20 20 20 20  ame};"))..      
7b20: 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a 20              {.. 
7b30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7b40: 20 20 20 73 6f 75 72 63 65 2e 4f 70 65 6e 28 29     source.Open()
7b50: 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ;..             
7b60: 20 20 20 20 20 20 20 75 73 69 6e 67 20 28 53 51         using (SQ
7b70: 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f 6e 20 64  LiteConnection d
7b80: 65 73 74 69 6e 61 74 69 6f 6e 20 3d 20 6e 65 77  estination = new
7b90: 20 53 51 4c 69 74 65 43 6f 6e 6e 65 63 74 69 6f   SQLiteConnectio
7ba0: 6e 28 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  n(..            
7bb0: 20 20 20 20 20 20 20 20 20 20 20 20 22 46 75 6c              "Ful
7bc0: 6c 55 72 69 3d 24 7b 64 73 74 46 69 6c 65 4e 61  lUri=${dstFileNa
7bd0: 6d 65 7d 3b 22 29 29 0d 0a 20 20 20 20 20 20 20  me};"))..       
7be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 0d 0a               {..
7bf0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7c00: 20 20 20 20 20 20 64 65 73 74 69 6e 61 74 69 6f        destinatio
7c10: 6e 2e 4f 70 65 6e 28 29 3b 0d 0a 0d 0a 20 20 20  n.Open();....   
7c20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7c30: 20 20 20 73 6f 75 72 63 65 2e 42 61 63 6b 75 70     source.Backup
7c40: 44 61 74 61 62 61 73 65 28 0d 0a 20 20 20 20 20  Database(..     
7c50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7c60: 20 20 20 20 20 64 65 73 74 69 6e 61 74 69 6f 6e       destination
7c70: 2c 20 22 6d 61 69 6e 22 2c 20 22 6d 61 69 6e 22  , "main", "main"
7c80: 2c 20 2d 31 2c 20 6e 75 6c 6c 2c 20 30 29 3b 0d  , -1, null, 0);.
7c90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
7ca0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
7cb0: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
7cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a               }..
7cd0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
7ce0: 20 20 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f    //////////////
7cf0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
7d00: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
7d10: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
7d20: 2f 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20  /....           
7d30: 20 20 20 20 20 70 75 62 6c 69 63 20 73 74 61 74       public stat
7d40: 69 63 20 76 6f 69 64 20 4d 61 69 6e 28 29 0d 0a  ic void Main()..
7d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
7d60: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
7d70: 20 20 20 20 20 2f 2f 20 64 6f 20 6e 6f 74 68 69       // do nothi
7d80: 6e 67 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ng...           
7d90: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
7da0: 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20        }..       
7db0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
7dc0: 20 20 7d 5d 20 74 72 75 65 20 74 72 75 65 20 74    }] true true t
7dd0: 72 75 65 20 72 65 73 75 6c 74 73 20 65 72 72 6f  rue results erro
7de0: 72 73 20 53 79 73 74 65 6d 2e 44 61 74 61 2e 53  rs System.Data.S
7df0: 51 4c 69 74 65 2e 64 6c 6c 5d 0d 0a 20 20 20 20  QLite.dll]..    
7e00: 20 20 20 20 20 20 69 66 20 7b 24 63 6f 64 65 20        if {$code 
7e10: 65 71 20 22 4f 6b 22 7d 20 74 68 65 6e 20 7b 0d  eq "Ok"} then {.
7e20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 73 65 74  .            set
7e30: 20 3a 3a 63 6f 6d 70 69 6c 65 64 28 31 33 29 20   ::compiled(13) 
7e40: 24 69 64 3b 20 23 20 4e 4f 54 45 3a 20 43 6f 6d  $id; # NOTE: Com
7e50: 70 69 6c 65 64 20 4f 4b 2e 0d 0a 20 20 20 20 20  piled OK...     
7e60: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63         if {[catc
7e70: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  h {..           
7e80: 20 20 20 6f 62 6a 65 63 74 20 69 6e 76 6f 6b 65     object invoke
7e90: 20 5f 44 79 6e 61 6d 69 63 24 7b 69 64 7d 2e 54   _Dynamic${id}.T
7ea0: 65 73 74 24 7b 69 64 7d 20 42 61 63 6b 75 70 41  est${id} BackupA
7eb0: 6e 64 47 65 74 44 61 74 61 0d 0a 20 20 20 20 20  ndGetData..     
7ec0: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73           showTes
7ed0: 74 20 4d 0d 0a 20 20 20 20 20 20 20 20 20 20 20  t M..           
7ee0: 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20   } error]} then 
7ef0: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
7f00: 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64   if {[isExpected
7f10: 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74  Error $error]} t
7f20: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
7f30: 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20         showTest 
7f40: 6d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  m..             
7f50: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
7f60: 20 20 20 20 20 20 20 20 20 20 20 66 61 69 6c 54             failT
7f70: 65 73 74 20 6d 20 24 65 72 72 6f 72 0d 0a 20 20  est m $error..  
7f80: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20              }.. 
7f90: 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20             }..  
7fa0: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b          } else {
7fb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 72  ..            er
7fc0: 72 6f 72 20 24 65 72 72 6f 72 73 0d 0a 20 20 20  ror $errors..   
7fd0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
7fe0: 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20    }..      }..  
7ff0: 20 20 20 20 64 6f 6e 65 54 65 73 74 20 4d 0d 0a      doneTest M..
8000: 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d      }] 0]..  }].
8010: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
8020: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8030: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8040: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8050: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8060: 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20  ##..  #         
8070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8080: 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31       WORKLOAD #1
8090: 34 20 28 4e 29 20 20 20 20 20 20 20 20 20 20 20  4 (N)           
80a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
80b0: 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23    #..  #########
80c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
80d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
80e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
80f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8100: 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f  ####....  set wo
8110: 72 6b 6c 6f 61 64 28 31 34 29 20 5b 6c 69 73 74  rkload(14) [list
8120: 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20   \..      [list 
8130: 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46  srcFileName dstF
8140: 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f  ileName table co
8150: 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e  unt1 count2 coun
8160: 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20  t3] {..    #..  
8170: 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f    # NOTE: Worklo
8180: 61 64 20 23 31 34 2c 20 50 52 41 47 4d 41 20 69  ad #14, PRAGMA i
8190: 6e 74 65 67 72 69 74 79 20 63 68 65 63 6b 20 73  ntegrity check s
81a0: 74 61 74 65 6d 65 6e 74 2e 0d 0a 20 20 20 20 23  tatement...    #
81b0: 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a  ..    lappend ::
81c0: 74 69 6d 65 73 28 31 34 29 20 5b 6c 69 6e 64 65  times(14) [linde
81d0: 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20  x [time {..     
81e0: 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46 69   setupWorkloadFi
81f0: 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e 61 6d  leDb $dstFileNam
8200: 65 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73 65  e..      for {se
8210: 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e 64  t index 1} {$ind
8220: 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20 7b  ex <= $count1} {
8230: 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a 20  incr index} {.. 
8240: 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74 63         if {[catc
8250: 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 73  h {..          s
8260: 65 74 20 72 65 73 75 6c 74 20 5b 73 71 6c 20 65  et result [sql e
8270: 78 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20  xecute -execute 
8280: 73 63 61 6c 61 72 20 24 64 62 20 5c 0d 0a 20 20  scalar $db \..  
8290: 20 20 20 20 20 20 20 20 20 20 20 20 22 50 52 41              "PRA
82a0: 47 4d 41 20 69 6e 74 65 67 72 69 74 79 5f 63 68  GMA integrity_ch
82b0: 65 63 6b 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20  eck;"]..        
82c0: 20 20 69 66 20 7b 24 72 65 73 75 6c 74 20 6e 65    if {$result ne
82d0: 20 22 6f 6b 22 7d 20 74 68 65 6e 20 7b 0d 0a 20   "ok"} then {.. 
82e0: 20 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72             error
82f0: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 22 69 6e   [appendArgs "in
8300: 74 65 67 72 69 74 79 20 63 68 65 63 6b 20 66 61  tegrity check fa
8310: 69 6c 65 64 3a 20 22 20 24 72 65 73 75 6c 74 5d  iled: " $result]
8320: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
8330: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73           showTes
8340: 74 20 4e 0d 0a 20 20 20 20 20 20 20 20 7d 20 65  t N..        } e
8350: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  rror]} then {.. 
8360: 20 20 20 20 20 20 20 20 20 69 66 20 7b 5b 69 73           if {[is
8370: 45 78 70 65 63 74 65 64 45 72 72 6f 72 20 24 65  ExpectedError $e
8380: 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  rror]} then {.. 
8390: 20 20 20 20 20 20 20 20 20 20 20 73 68 6f 77 54             showT
83a0: 65 73 74 20 6e 0d 0a 20 20 20 20 20 20 20 20 20  est n..         
83b0: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 20   } else {..     
83c0: 20 20 20 20 20 20 20 66 61 69 6c 54 65 73 74 20         failTest 
83d0: 6e 20 24 65 72 72 6f 72 0d 0a 20 20 20 20 20 20  n $error..      
83e0: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 7d      }..        }
83f0: 0d 0a 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20  ..      }..     
8400: 20 63 6c 65 61 6e 75 70 44 62 20 24 64 73 74 46   cleanupDb $dstF
8410: 69 6c 65 4e 61 6d 65 20 64 62 20 66 61 6c 73 65  ileName db false
8420: 20 74 72 75 65 20 66 61 6c 73 65 0d 0a 20 20 20   true false..   
8430: 20 20 20 64 6f 6e 65 54 65 73 74 20 4e 0d 0a 20     doneTest N.. 
8440: 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a     }] 0]..  }]..
8450: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23  ..  ############
8460: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8470: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8480: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8490: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
84a0: 23 0d 0a 20 20 23 20 20 20 20 20 20 20 20 20 20  #..  #          
84b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
84c0: 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20 23 31 35      WORKLOAD #15
84d0: 20 28 4f 29 20 20 20 20 20 20 20 20 20 20 20 20   (O)            
84e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
84f0: 20 23 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23   #..  ##########
8500: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8510: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8520: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8540: 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20 77 6f 72  ###....  set wor
8550: 6b 6c 6f 61 64 28 31 35 29 20 5b 6c 69 73 74 20  kload(15) [list 
8560: 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73 74 20 73  \..      [list s
8570: 72 63 46 69 6c 65 4e 61 6d 65 20 64 73 74 46 69  rcFileName dstFi
8580: 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20 63 6f 75  leName table cou
8590: 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f 75 6e 74  nt1 count2 count
85a0: 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a 20 20 20  3] {..    #..   
85b0: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61   # NOTE: Workloa
85c0: 64 20 23 31 35 2c 20 66 6f 72 63 65 20 6d 61 6e  d #15, force man
85d0: 61 67 65 64 20 67 61 72 62 61 67 65 20 63 6f 6c  aged garbage col
85e0: 6c 65 63 74 69 6f 6e 0d 0a 20 20 20 20 23 0d 0a  lection..    #..
85f0: 20 20 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69      lappend ::ti
8600: 6d 65 73 28 31 35 29 20 5b 6c 69 6e 64 65 78 20  mes(15) [lindex 
8610: 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 66  [time {..      f
8620: 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 7d  or {set index 1}
8630: 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75   {$index <= $cou
8640: 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78  nt1} {incr index
8650: 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66 20  } {..        if 
8660: 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20 20  {[catch {..     
8670: 20 20 20 20 20 63 6f 6c 6c 65 63 74 47 61 72 62       collectGarb
8680: 61 67 65 20 24 3a 3a 74 65 73 74 5f 63 68 61 6e  age $::test_chan
8690: 6e 65 6c 0d 0a 20 20 20 20 20 20 20 20 20 20 73  nel..          s
86a0: 68 6f 77 54 65 73 74 20 4f 0d 0a 20 20 20 20 20  howTest O..     
86b0: 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74 68 65     } error]} the
86c0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69  n {..          i
86d0: 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72  f {[isExpectedEr
86e0: 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65  ror $error]} the
86f0: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20  n {..           
8700: 20 73 68 6f 77 54 65 73 74 20 6f 0d 0a 20 20 20   showTest o..   
8710: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0d         } else {.
8720: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 61 69  .            fai
8730: 6c 54 65 73 74 20 6f 20 24 65 72 72 6f 72 0d 0a  lTest o $error..
8740: 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20            }..   
8750: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d       }..      }.
8760: 0a 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20  .      doneTest 
8770: 4f 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20  O..    }] 0]..  
8780: 7d 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23  }]....  ########
8790: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
87a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
87b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
87c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
87d0: 23 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20  #####..  #      
87e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
87f0: 20 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44          WORKLOAD
8800: 20 23 31 36 20 28 50 29 20 20 20 20 20 20 20 20   #16 (P)        
8810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8820: 20 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23       #..  ######
8830: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8840: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8850: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8860: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8870: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74  #######....  set
8880: 20 77 6f 72 6b 6c 6f 61 64 28 31 36 29 20 5b 6c   workload(16) [l
8890: 69 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69  ist \..      [li
88a0: 73 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64  st srcFileName d
88b0: 73 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65  stFileName table
88c0: 20 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63   count1 count2 c
88d0: 6f 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d  ount3] {..    #.
88e0: 0a 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72  .    # NOTE: Wor
88f0: 6b 6c 6f 61 64 20 23 31 36 2c 20 61 6c 6c 6f 63  kload #16, alloc
8900: 61 74 65 20 28 65 78 63 6c 75 64 65 29 20 73 6f  ate (exclude) so
8910: 6d 65 20 6e 61 74 69 76 65 20 68 65 61 70 20 6d  me native heap m
8920: 65 6d 6f 72 79 0d 0a 20 20 20 20 23 0d 0a 20 20  emory..    #..  
8930: 20 20 6c 61 70 70 65 6e 64 20 3a 3a 74 69 6d 65    lappend ::time
8940: 73 28 31 36 29 20 5b 6c 69 6e 64 65 78 20 5b 74  s(16) [lindex [t
8950: 69 6d 65 20 7b 0d 0a 20 20 20 20 20 20 73 65 74  ime {..      set
8960: 20 6d 61 78 53 69 7a 65 20 24 3a 3a 63 6f 75 6e   maxSize $::coun
8970: 74 28 35 29 0d 0a 20 20 20 20 20 20 6f 62 6a 65  t(5)..      obje
8980: 63 74 20 69 6e 76 6f 6b 65 20 47 43 20 41 64 64  ct invoke GC Add
8990: 4d 65 6d 6f 72 79 50 72 65 73 73 75 72 65 20 24  MemoryPressure $
89a0: 6d 61 78 53 69 7a 65 0d 0a 20 20 20 20 20 20 74  maxSize..      t
89b0: 72 79 20 7b 0d 0a 20 20 20 20 20 20 20 20 66 6f  ry {..        fo
89c0: 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31 7d 20  r {set index 1} 
89d0: 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f 75 6e  {$index <= $coun
89e0: 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65 78 7d  t1} {incr index}
89f0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 69 66   {..          if
8a00: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..    
8a10: 20 20 20 20 20 20 20 20 73 65 74 20 73 69 7a 65          set size
8a20: 20 5b 65 78 70 72 20 7b 69 6e 74 28 6d 69 6e 28   [expr {int(min(
8a30: 24 6d 61 78 53 69 7a 65 2c 20 61 62 73 28 24 63  $maxSize, abs($c
8a40: 6f 75 6e 74 33 20 2a 20 24 69 6e 64 65 78 20 2a  ount3 * $index *
8a50: 20 35 2e 30 29 29 29 7d 5d 0d 0a 20 20 20 20 20   5.0)))}]..     
8a60: 20 20 20 20 20 20 20 73 65 74 20 70 74 72 20 5b         set ptr [
8a70: 61 6c 6c 6f 63 4d 65 6d 20 24 73 69 7a 65 5d 3b  allocMem $size];
8a80: 20 23 20 74 68 72 6f 77 0d 0a 20 20 20 20 20 20   # throw..      
8a90: 20 20 20 20 20 20 75 73 65 4d 65 6d 20 24 70 74        useMem $pt
8aa0: 72 20 24 73 69 7a 65 3b 20 64 65 6c 61 79 54 65  r $size; delayTe
8ab0: 73 74 20 24 63 6f 75 6e 74 32 0d 0a 20 20 20 20  st $count2..    
8ac0: 20 20 20 20 20 20 20 20 66 72 65 65 4d 65 6d 20          freeMem 
8ad0: 24 70 74 72 3b 20 75 6e 73 65 74 20 2d 6e 6f 63  $ptr; unset -noc
8ae0: 6f 6d 70 6c 61 69 6e 20 70 74 72 0d 0a 20 20 20  omplain ptr..   
8af0: 20 20 20 20 20 20 20 20 20 73 68 6f 77 54 65 73           showTes
8b00: 74 20 50 0d 0a 20 20 20 20 20 20 20 20 20 20 7d  t P..          }
8b10: 20 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20 7b 0d   error]} then {.
8b20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20  .            if 
8b30: 7b 5b 69 73 45 78 70 65 63 74 65 64 45 72 72 6f  {[isExpectedErro
8b40: 72 20 24 65 72 72 6f 72 5d 7d 20 74 68 65 6e 20  r $error]} then 
8b50: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
8b60: 20 73 68 6f 77 54 65 73 74 20 70 0d 0a 20 20 20   showTest p..   
8b70: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20           } else 
8b80: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  {..             
8b90: 20 66 61 69 6c 54 65 73 74 20 70 20 24 65 72 72   failTest p $err
8ba0: 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  or..            
8bb0: 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  }..          }..
8bc0: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20          }..     
8bd0: 20 7d 20 66 69 6e 61 6c 6c 79 20 7b 0d 0a 20 20   } finally {..  
8be0: 20 20 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20        if {[info 
8bf0: 65 78 69 73 74 73 20 70 74 72 5d 7d 20 74 68 65  exists ptr]} the
8c00: 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 66  n {..          f
8c10: 72 65 65 4d 65 6d 20 24 70 74 72 3b 20 75 6e 73  reeMem $ptr; uns
8c20: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 70  et -nocomplain p
8c30: 74 72 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20  tr..        }.. 
8c40: 20 20 20 20 20 20 20 6f 62 6a 65 63 74 20 69 6e         object in
8c50: 76 6f 6b 65 20 47 43 20 52 65 6d 6f 76 65 4d 65  voke GC RemoveMe
8c60: 6d 6f 72 79 50 72 65 73 73 75 72 65 20 24 6d 61  moryPressure $ma
8c70: 78 53 69 7a 65 0d 0a 20 20 20 20 20 20 7d 0d 0a  xSize..      }..
8c80: 20 20 20 20 20 20 64 6f 6e 65 54 65 73 74 20 50        doneTest P
8c90: 0d 0a 20 20 20 20 7d 5d 20 30 5d 0d 0a 20 20 7d  ..    }] 0]..  }
8ca0: 5d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23  ]....  #########
8cb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8cc0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8cd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8ce0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8cf0: 23 23 23 23 0d 0a 20 20 23 20 20 20 20 20 20 20  ####..  #       
8d00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8d10: 20 20 20 20 20 20 20 57 4f 52 4b 4c 4f 41 44 20         WORKLOAD 
8d20: 23 31 37 20 28 51 29 20 20 20 20 20 20 20 20 20  #17 (Q)         
8d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
8d40: 20 20 20 20 23 0d 0a 20 20 23 23 23 23 23 23 23      #..  #######
8d50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8d60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8d70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8d80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
8d90: 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20  ######....  set 
8da0: 77 6f 72 6b 6c 6f 61 64 28 31 37 29 20 5b 6c 69  workload(17) [li
8db0: 73 74 20 5c 0d 0a 20 20 20 20 20 20 5b 6c 69 73  st \..      [lis
8dc0: 74 20 73 72 63 46 69 6c 65 4e 61 6d 65 20 64 73  t srcFileName ds
8dd0: 74 46 69 6c 65 4e 61 6d 65 20 74 61 62 6c 65 20  tFileName table 
8de0: 63 6f 75 6e 74 31 20 63 6f 75 6e 74 32 20 63 6f  count1 count2 co
8df0: 75 6e 74 33 5d 20 7b 0d 0a 20 20 20 20 23 0d 0a  unt3] {..    #..
8e00: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b      # NOTE: Work
8e10: 6c 6f 61 64 20 23 31 37 2c 20 63 68 61 6e 67 65  load #17, change
8e20: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 6a 6f   the database jo
8e30: 75 72 6e 61 6c 20 6d 6f 64 65 0d 0a 20 20 20 20  urnal mode..    
8e40: 23 0d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 3a  #..    lappend :
8e50: 3a 74 69 6d 65 73 28 31 37 29 20 5b 6c 69 6e 64  :times(17) [lind
8e60: 65 78 20 5b 74 69 6d 65 20 7b 0d 0a 20 20 20 20  ex [time {..    
8e70: 20 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46    setupWorkloadF
8e80: 69 6c 65 44 62 20 24 64 73 74 46 69 6c 65 4e 61  ileDb $dstFileNa
8e90: 6d 65 0d 0a 20 20 20 20 20 20 66 6f 72 20 7b 73  me..      for {s
8ea0: 65 74 20 69 6e 64 65 78 20 31 7d 20 7b 24 69 6e  et index 1} {$in
8eb0: 64 65 78 20 3c 3d 20 24 63 6f 75 6e 74 31 7d 20  dex <= $count1} 
8ec0: 7b 69 6e 63 72 20 69 6e 64 65 78 7d 20 7b 0d 0a  {incr index} {..
8ed0: 20 20 20 20 20 20 20 20 69 66 20 7b 5b 63 61 74          if {[cat
8ee0: 63 68 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20  ch {..          
8ef0: 73 71 6c 20 65 78 65 63 75 74 65 20 24 64 62 20  sql execute $db 
8f00: 5b 61 70 70 65 6e 64 41 72 67 73 20 22 50 52 41  [appendArgs "PRA
8f10: 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  GMA journal_mode
8f20: 20 3d 20 5c 22 22 20 5c 0d 0a 20 20 20 20 20 20   = \"" \..      
8f30: 20 20 20 20 20 20 20 20 5b 65 78 70 72 20 7b 24          [expr {$
8f40: 69 6e 64 65 78 20 25 20 32 20 3d 3d 20 30 20 3f  index % 2 == 0 ?
8f50: 20 22 64 65 6c 65 74 65 22 20 3a 20 22 77 61 6c   "delete" : "wal
8f60: 22 7d 5d 20 5c 22 5c 3b 5d 0d 0a 20 20 20 20 20  "}] \"\;]..     
8f70: 20 20 20 20 20 73 68 6f 77 54 65 73 74 20 51 0d       showTest Q.
8f80: 0a 20 20 20 20 20 20 20 20 7d 20 65 72 72 6f 72  .        } error
8f90: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
8fa0: 20 20 20 20 20 69 66 20 7b 5b 69 73 45 78 70 65       if {[isExpe
8fb0: 63 74 65 64 45 72 72 6f 72 20 24 65 72 72 6f 72  ctedError $error
8fc0: 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20 20  ]} then {..     
8fd0: 20 20 20 20 20 20 20 73 68 6f 77 54 65 73 74 20         showTest 
8fe0: 71 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65  q..          } e
8ff0: 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  lse {..         
9000: 20 20 20 66 61 69 6c 54 65 73 74 20 71 20 24 65     failTest q $e
9010: 72 72 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20  rror..          
9020: 7d 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20  }..        }..  
9030: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 63 6c 65      }..      cle
9040: 61 6e 75 70 44 62 20 24 64 73 74 46 69 6c 65 4e  anupDb $dstFileN
9050: 61 6d 65 20 64 62 20 66 61 6c 73 65 20 74 72 75  ame db false tru
9060: 65 20 66 61 6c 73 65 0d 0a 20 20 20 20 20 20 64  e false..      d
9070: 6f 6e 65 54 65 73 74 20 51 0d 0a 20 20 20 20 7d  oneTest Q..    }
9080: 5d 20 30 5d 0d 0a 20 20 7d 5d 0d 0a 0d 0a 20 20  ] 0]..  }]....  
9090: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
90a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
90b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
90c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
90d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 0a 20  #############.. 
90e0: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20   #              
90f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9100: 57 4f 52 4b 4c 4f 41 44 20 23 31 38 20 28 52 29  WORKLOAD #18 (R)
9110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
9120: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 0d 0a               #..
9130: 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23    ##############
9140: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9150: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9160: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
9170: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d  ###############.
9180: 0a 0d 0a 20 20 73 65 74 20 77 6f 72 6b 6c 6f 61  ...  set workloa
9190: 64 28 31 38 29 20 5b 6c 69 73 74 20 5c 0d 0a 20  d(18) [list \.. 
91a0: 20 20 20 20 20 5b 6c 69 73 74 20 73 72 63 46 69       [list srcFi
91b0: 6c 65 4e 61 6d 65 20 64 73 74 46 69 6c 65 4e 61  leName dstFileNa
91c0: 6d 65 20 74 61 62 6c 65 20 63 6f 75 6e 74 31 20  me table count1 
91d0: 63 6f 75 6e 74 32 20 63 6f 75 6e 74 33 5d 20 7b  count2 count3] {
91e0: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e  ..    #..    # N
91f0: 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31  OTE: Workload #1
9200: 38 2c 20 65 78 65 63 75 74 65 20 71 75 65 72 69  8, execute queri
9210: 65 73 20 61 67 61 69 6e 73 74 20 74 68 65 20 69  es against the i
9220: 6e 2d 6d 65 6d 6f 72 79 20 64 61 74 61 62 61 73  n-memory databas
9230: 65 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 6c 61  e..    #..    la
9240: 70 70 65 6e 64 20 3a 3a 74 69 6d 65 73 28 31 38  ppend ::times(18
9250: 29 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20  ) [lindex [time 
9260: 7b 0d 0a 20 20 20 20 20 20 73 65 74 75 70 57 6f  {..      setupWo
9270: 72 6b 6c 6f 61 64 4d 65 6d 44 62 20 24 73 72 63  rkloadMemDb $src
9280: 46 69 6c 65 4e 61 6d 65 0d 0a 20 20 20 20 20 20  FileName..      
9290: 66 6f 72 20 7b 73 65 74 20 69 6e 64 65 78 20 31  for {set index 1
92a0: 7d 20 7b 24 69 6e 64 65 78 20 3c 3d 20 24 63 6f  } {$index <= $co
92b0: 75 6e 74 31 7d 20 7b 69 6e 63 72 20 69 6e 64 65  unt1} {incr inde
92c0: 78 7d 20 7b 0d 0a 20 20 20 20 20 20 20 20 69 66  x} {..        if
92d0: 20 7b 5b 63 61 74 63 68 20 7b 0d 0a 20 20 20 20   {[catch {..    
92e0: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
92f0: 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c     # NOTE: Workl
9300: 6f 61 64 20 23 31 38 2e 33 2c 20 22 73 6d 61 6c  oad #18.3, "smal
9310: 6c 22 20 53 45 4c 45 43 54 20 73 74 61 74 65 6d  l" SELECT statem
9320: 65 6e 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 20  ents...         
9330: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 65   #..          se
9340: 74 20 72 65 61 64 65 72 20 5b 73 71 6c 20 65 78  t reader [sql ex
9350: 65 63 75 74 65 20 2d 65 78 65 63 75 74 65 20 72  ecute -execute r
9360: 65 61 64 65 72 20 5c 0d 0a 20 20 20 20 20 20 20  eader \..       
9370: 20 20 20 20 20 20 20 2d 66 6f 72 6d 61 74 20 64         -format d
9380: 61 74 61 52 65 61 64 65 72 20 2d 61 6c 69 61 73  ataReader -alias
9390: 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73   $db [appendArgs
93a0: 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   \..            
93b0: 20 20 22 53 45 4c 45 43 54 20 78 2c 20 79 20 46    "SELECT x, y F
93c0: 52 4f 4d 20 22 20 24 74 61 62 6c 65 20 22 20 57  ROM " $table " W
93d0: 48 45 52 45 20 7a 20 3d 20 27 73 6d 61 6c 6c 27  HERE z = 'small'
93e0: 3b 22 5d 5d 0d 0a 20 20 20 20 20 20 20 20 20 20  ;"]]..          
93f0: 77 68 69 6c 65 20 7b 5b 24 72 65 61 64 65 72 20  while {[$reader 
9400: 52 65 61 64 5d 7d 20 7b 0d 0a 20 20 20 20 20 20  Read]} {..      
9410: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
9420: 20 20 20 20 20 23 20 4e 4f 54 45 3a 20 44 6f 20       # NOTE: Do 
9430: 6e 6f 74 68 69 6e 67 2e 0d 0a 20 20 20 20 20 20  nothing...      
9440: 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20        #..       
9450: 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20     }..          
9460: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
9470: 6e 20 72 65 61 64 65 72 0d 0a 20 20 20 20 20 20  n reader..      
9480: 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20      #..         
9490: 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61   # NOTE: Workloa
94a0: 64 20 23 31 38 2e 34 2c 20 22 62 69 67 22 20 53  d #18.4, "big" S
94b0: 45 4c 45 43 54 20 73 74 61 74 65 6d 65 6e 74 73  ELECT statements
94c0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
94d0: 20 20 20 20 20 20 20 20 20 20 73 65 74 20 72 65            set re
94e0: 61 64 65 72 20 5b 73 71 6c 20 65 78 65 63 75 74  ader [sql execut
94f0: 65 20 2d 65 78 65 63 75 74 65 20 72 65 61 64 65  e -execute reade
9500: 72 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  r \..           
9510: 20 20 20 2d 66 6f 72 6d 61 74 20 64 61 74 61 52     -format dataR
9520: 65 61 64 65 72 20 2d 61 6c 69 61 73 20 24 64 62  eader -alias $db
9530: 20 5b 61 70 70 65 6e 64 41 72 67 73 20 5c 0d 0a   [appendArgs \..
9540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53                "S
9550: 45 4c 45 43 54 20 78 2c 20 79 20 46 52 4f 4d 20  ELECT x, y FROM 
9560: 22 20 24 74 61 62 6c 65 20 22 20 57 48 45 52 45  " $table " WHERE
9570: 20 7a 20 3d 20 27 62 69 67 27 3b 22 5d 5d 0d 0a   z = 'big';"]]..
9580: 20 20 20 20 20 20 20 20 20 20 77 68 69 6c 65 20            while 
9590: 7b 5b 24 72 65 61 64 65 72 20 52 65 61 64 5d 7d  {[$reader Read]}
95a0: 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20   {..            
95b0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23  #..            #
95c0: 20 4e 4f 54 45 3a 20 44 6f 20 6e 6f 74 68 69 6e   NOTE: Do nothin
95d0: 67 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  g...            
95e0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a  #..          }..
95f0: 20 20 20 20 20 20 20 20 20 20 75 6e 73 65 74 20            unset 
9600: 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 72 65 61 64  -nocomplain read
9610: 65 72 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  er..          #.
9620: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
9630: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38 2e  E: Workload #18.
9640: 35 2c 20 22 73 6d 61 6c 6c 22 20 49 4e 53 45 52  5, "small" INSER
9650: 54 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20  T statements... 
9660: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
9670: 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 74        sql execut
9680: 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67  e $db [appendArg
9690: 73 20 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 22  s "INSERT INTO "
96a0: 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20   $table \..     
96b0: 20 20 20 20 20 20 20 20 20 22 28 78 2c 20 79 2c           "(x, y,
96c0: 20 7a 29 20 56 41 4c 55 45 53 28 27 22 20 5b 66   z) VALUES('" [f
96d0: 6f 72 6d 61 74 20 25 6c 58 20 5b 65 78 70 72 20  ormat %lX [expr 
96e0: 7b 72 61 6e 64 6f 6d 28 29 7d 5d 5d 20 5c 0d 0a  {random()}]] \..
96f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 27                "'
9700: 2c 20 27 22 20 5b 62 61 73 65 36 34 20 65 6e 63  , '" [base64 enc
9710: 6f 64 65 20 2d 2d 20 5b 65 78 70 72 20 7b 72 61  ode -- [expr {ra
9720: 6e 64 73 74 72 28 24 63 6f 75 6e 74 32 29 7d 5d  ndstr($count2)}]
9730: 5d 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ] \..           
9740: 20 20 20 22 27 2c 20 27 73 6d 61 6c 6c 27 29 3b     "', 'small');
9750: 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  "]..          #.
9760: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
9770: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38 2e  E: Workload #18.
9780: 36 2c 20 22 62 69 67 22 20 49 4e 53 45 52 54 20  6, "big" INSERT 
9790: 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20 20 20  statements...   
97a0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
97b0: 20 20 20 20 73 71 6c 20 65 78 65 63 75 74 65 20      sql execute 
97c0: 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67 73 20  $db [appendArgs 
97d0: 22 49 4e 53 45 52 54 20 49 4e 54 4f 20 22 20 24  "INSERT INTO " $
97e0: 74 61 62 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20  table \..       
97f0: 20 20 20 20 20 20 20 22 28 78 2c 20 79 2c 20 7a         "(x, y, z
9800: 29 20 56 41 4c 55 45 53 28 27 22 20 5b 66 6f 72  ) VALUES('" [for
9810: 6d 61 74 20 25 6c 58 20 5b 65 78 70 72 20 7b 72  mat %lX [expr {r
9820: 61 6e 64 6f 6d 28 29 7d 5d 5d 20 5c 0d 0a 20 20  andom()}]] \..  
9830: 20 20 20 20 20 20 20 20 20 20 20 20 22 27 2c 20              "', 
9840: 52 41 4e 44 4f 4d 42 4c 4f 42 28 22 20 24 63 6f  RANDOMBLOB(" $co
9850: 75 6e 74 33 20 22 29 2c 20 27 62 69 67 27 29 3b  unt3 "), 'big');
9860: 22 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d  "]..          #.
9870: 0a 20 20 20 20 20 20 20 20 20 20 23 20 4e 4f 54  .          # NOT
9880: 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23 31 38 2e  E: Workload #18.
9890: 37 2c 20 22 73 6d 61 6c 6c 22 20 55 50 44 41 54  7, "small" UPDAT
98a0: 45 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 0a 20  E statements... 
98b0: 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20           #..    
98c0: 20 20 20 20 20 20 73 71 6c 20 65 78 65 63 75 74        sql execut
98d0: 65 20 24 64 62 20 5b 61 70 70 65 6e 64 41 72 67  e $db [appendArg
98e0: 73 20 22 55 50 44 41 54 45 20 22 20 24 74 61 62  s "UPDATE " $tab
98f0: 6c 65 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  le \..          
9900: 20 20 20 20 22 20 53 45 54 20 79 20 3d 20 27 22      " SET y = '"
9910: 20 5b 62 61 73 65 36 34 20 65 6e 63 6f 64 65 20   [base64 encode 
9920: 2d 2d 20 5b 65 78 70 72 20 7b 72 61 6e 64 73 74  -- [expr {randst
9930: 72 28 24 63 6f 75 6e 74 32 29 7d 5d 5d 20 5c 0d  r($count2)}]] \.
9940: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22  .              "
9950: 27 20 57 48 45 52 45 20 78 20 4c 49 4b 45 20 27  ' WHERE x LIKE '
9960: 22 20 5b 66 6f 72 6d 61 74 20 25 58 20 24 69 6e  " [format %X $in
9970: 64 65 78 5d 20 22 25 27 20 41 4e 44 20 7a 20 3d  dex] "%' AND z =
9980: 20 27 73 6d 61 6c 6c 27 3b 22 5d 0d 0a 20 20 20   'small';"]..   
9990: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
99a0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b      # NOTE: Work
99b0: 6c 6f 61 64 20 23 31 38 2e 38 2c 20 22 62 69 67  load #18.8, "big
99c0: 22 20 55 50 44 41 54 45 20 73 74 61 74 65 6d 65  " UPDATE stateme
99d0: 6e 74 73 2e 0d 0a 20 20 20 20 20 20 20 20 20 20  nts...          
99e0: 23 0d 0a 20 20 20 20 20 20 20 20 20 20 73 71 6c  #..          sql
99f0: 20 65 78 65 63 75 74 65 20 24 64 62 20 5b 61 70   execute $db [ap
9a00: 70 65 6e 64 41 72 67 73 20 22 55 50 44 41 54 45  pendArgs "UPDATE
9a10: 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20 20   " $table \..   
9a20: 20 20 20 20 20 20 20 20 20 20 20 22 20 53 45 54             " SET
9a30: 20 79 20 3d 20 52 41 4e 44 4f 4d 42 4c 4f 42 28   y = RANDOMBLOB(
9a40: 22 20 24 63 6f 75 6e 74 33 20 22 29 20 57 48 45  " $count3 ") WHE
9a50: 52 45 20 78 20 4c 49 4b 45 20 27 22 20 5c 0d 0a  RE x LIKE '" \..
9a60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 66                [f
9a70: 6f 72 6d 61 74 20 25 58 20 24 69 6e 64 65 78 5d  ormat %X $index]
9a80: 20 22 25 27 20 41 4e 44 20 7a 20 3d 20 27 62 69   "%' AND z = 'bi
9a90: 67 27 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20 20  g';"]..         
9aa0: 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23 20   #..          # 
9ab0: 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20 23  NOTE: Workload #
9ac0: 31 38 2e 39 2c 20 22 73 6d 61 6c 6c 22 20 44 45  18.9, "small" DE
9ad0: 4c 45 54 45 20 73 74 61 74 65 6d 65 6e 74 73 2e  LETE statements.
9ae0: 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20  ..          #.. 
9af0: 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78 65           sql exe
9b00: 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e 64  cute $db [append
9b10: 41 72 67 73 20 22 44 45 4c 45 54 45 20 46 52 4f  Args "DELETE FRO
9b20: 4d 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20 20  M " $table \..  
9b30: 20 20 20 20 20 20 20 20 20 20 20 20 22 20 57 48              " WH
9b40: 45 52 45 20 78 20 4c 49 4b 45 20 27 22 20 5b 66  ERE x LIKE '" [f
9b50: 6f 72 6d 61 74 20 25 58 20 24 69 6e 64 65 78 5d  ormat %X $index]
9b60: 20 22 25 27 20 41 4e 44 20 7a 20 3d 20 27 73 6d   "%' AND z = 'sm
9b70: 61 6c 6c 27 3b 22 5d 0d 0a 20 20 20 20 20 20 20  all';"]..       
9b80: 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20     #..          
9b90: 23 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64  # NOTE: Workload
9ba0: 20 23 31 38 2e 31 30 2c 20 22 62 69 67 22 20 44   #18.10, "big" D
9bb0: 45 4c 45 54 45 20 73 74 61 74 65 6d 65 6e 74 73  ELETE statements
9bc0: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 23 0d 0a  ...          #..
9bd0: 20 20 20 20 20 20 20 20 20 20 73 71 6c 20 65 78            sql ex
9be0: 65 63 75 74 65 20 24 64 62 20 5b 61 70 70 65 6e  ecute $db [appen
9bf0: 64 41 72 67 73 20 22 44 45 4c 45 54 45 20 46 52  dArgs "DELETE FR
9c00: 4f 4d 20 22 20 24 74 61 62 6c 65 20 5c 0d 0a 20  OM " $table \.. 
9c10: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 57               " W
9c20: 48 45 52 45 20 78 20 4c 49 4b 45 20 27 22 20 5b  HERE x LIKE '" [
9c30: 66 6f 72 6d 61 74 20 25 58 20 24 69 6e 64 65 78  format %X $index
9c40: 5d 20 22 25 27 20 41 4e 44 20 7a 20 3d 20 27 62  ] "%' AND z = 'b
9c50: 69 67 27 3b 22 5d 0d 0a 20 20 20 20 20 20 20 20  ig';"]..        
9c60: 20 20 23 0d 0a 20 20 20 20 20 20 20 20 20 20 23    #..          #
9c70: 20 4e 4f 54 45 3a 20 57 6f 72 6b 6c 6f 61 64 20   NOTE: Workload 
9c80: 23 31 38 2e 31 31 2c 20 56 41 43 55 55 4d 20 73  #18.11, VACUUM s
9c90: 74 61 74 65 6d 65 6e 74 2e 0d 0a 20 20 20 20 20  tatement...     
9ca0: 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20 20 20       #..        
9cb0: 20 20 73 71 6c 20 65 78 65 63 75 74 65 20 24 64    sql execute $d
9cc0: 62 20 22 56 41 43 55 55 4d 3b 22 0d 0a 20 20 20  b "VACUUM;"..   
9cd0: 20 20 20 20 20 20 20 23 0d 0a 20 20 20 20 20 20         #..      
9ce0: 20 20 20 20 23 20 4e 4f 54 45 3a 20 57 6f 72 6b      # NOTE: Work
9cf0: 6c 6f 61 64 20 23 31 38 2e 31 34 2c 20 50 52 41  load #18.14, PRA
9d00: 47 4d 41 20 69 6e 74 65 67 72 69 74 79 20 63 68  GMA integrity ch
9d10: 65 63 6b 20 73 74 61 74 65 6d 65 6e 74 2e 0d 0a  eck statement...
9d20: 20 20 20 20 20 20 20 20 20 20 23 0d 0a 20 20 20            #..   
9d30: 20 20 20 20 20 20 20 73 65 74 20 72 65 73 75 6c         set resul
9d40: 74 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20 2d  t [sql execute -
9d50: 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20 24  execute scalar $
9d60: 64 62 20 5c 0d 0a 20 20 20 20 20 20 20 20 20 20  db \..          
9d70: 20 20 20 20 22 50 52 41 47 4d 41 20 69 6e 74 65      "PRAGMA inte
9d80: 67 72 69 74 79 5f 63 68 65 63 6b 3b 22 5d 0d 0a  grity_check;"]..
9d90: 20 20 20 20 20 20 20 20 20 20 69 66 20 7b 24 72            if {$r
9da0: 65 73 75 6c 74 20 6e 65 20 22 6f 6b 22 7d 20 74  esult ne "ok"} t
9db0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
9dc0: 20 20 20 65 72 72 6f 72 20 5b 61 70 70 65 6e 64     error [append
9dd0: 41 72 67 73 20 22 69 6e 74 65 67 72 69 74 79 20  Args "integrity 
9de0: 63 68 65 63 6b 20 66 61 69 6c 65 64 3a 20 22 20  check failed: " 
9df0: 24 72 65 73 75 6c 74 5d 0d 0a 20 20 20 20 20 20  $result]..      
9e00: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20      }..         
9e10: 20 73 68 6f 77 54 65 73 74 20 52 0d 0a 20 20 20   showTest R..   
9e20: 20 20 20 20 20 7d 20 65 72 72 6f 72 5d 7d 20 74       } error]} t
9e30: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
9e40: 20 69 66 20 7b 5b 69 73 45 78 70 65 63 74 65 64   if {[isExpected
9e50: 45 72 72 6f 72 20 24 65 72 72 6f 72 5d 7d 20 74  Error $error]} t
9e60: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 20 20 20  hen {..         
9e70: 20 20 20 73 68 6f 77 54 65 73 74 20 72 0d 0a 20     showTest r.. 
9e80: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20           } else 
9e90: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 66  {..            f
9ea0: 61 69 6c 54 65 73 74 20 72 20 24 65 72 72 6f 72  ailTest r $error
9eb0: 0d 0a 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 20  ..          }.. 
9ec0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
9ed0: 7d 0d 0a 20 20 20 20 20 20 63 6c 65 61 6e 75 70  }..      cleanup
9ee0: 44 62 20 24 73 72 63 46 69 6c 65 4e 61 6d 65 20  Db $srcFileName 
9ef0: 64 62 20 66 61 6c 73 65 20 74 72 75 65 20 66 61  db false true fa
9f00: 6c 73 65 0d 0a 20 20 20 20 20 20 64 6f 6e 65 54  lse..      doneT
9f10: 65 73 74 20 52 0d 0a 20 20 20 20 7d 5d 20 30 5d  est R..    }] 0]
9f20: 0d 0a 20 20 7d 5d 0d 0a 7d 20 2d 62 6f 64 79 20  ..  }]..} -body 
9f30: 7b 0d 0a 20 20 74 70 75 74 73 20 24 74 65 73 74  {..  tputs $test
9f40: 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65 6e 64  _channel [append
9f50: 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20 22 3d  Args \..      "=
9f60: 3d 3d 3d 20 57 41 52 4e 49 4e 47 3a 20 74 68 69  === WARNING: thi
9f70: 73 20 73 74 72 65 73 73 20 74 65 73 74 20 6d 61  s stress test ma
9f80: 79 20 74 61 6b 65 20 73 65 76 65 72 61 6c 20 6d  y take several m
9f90: 69 6e 75 74 65 73 2e 2e 2e 5c 6e 22 5d 0d 0a 0d  inutes...\n"]...
9fa0: 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 6e 64 65  .  for {set inde
9fb0: 78 28 30 29 20 31 7d 20 7b 24 69 6e 64 65 78 28  x(0) 1} {$index(
9fc0: 30 29 20 3c 3d 20 24 63 6f 75 6e 74 28 30 29 7d  0) <= $count(0)}
9fd0: 20 7b 69 6e 63 72 20 69 6e 64 65 78 28 30 29 7d   {incr index(0)}
9fe0: 20 7b 0d 0a 20 20 20 20 69 66 20 7b 24 69 6e 64   {..    if {$ind
9ff0: 65 78 28 30 29 20 3e 20 31 7d 20 74 68 65 6e 20  ex(0) > 1} then 
a000: 7b 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  {..      #..    
a010: 20 20 23 20 4e 4f 54 45 3a 20 41 64 76 61 6e 63    # NOTE: Advanc
a020: 65 20 6f 75 74 70 75 74 20 74 6f 20 74 68 65 20  e output to the 
a030: 6e 65 78 74 20 6c 69 6e 65 20 64 75 65 20 74 6f  next line due to
a040: 20 74 68 65 20 77 6f 72 6b 6c 6f 61 64 0d 0a 20   the workload.. 
a050: 20 20 20 20 20 23 20 20 20 20 20 20 20 69 74 65       #       ite
a060: 72 61 74 69 6f 6e 20 70 72 6f 67 72 65 73 73 20  ration progress 
a070: 69 6e 64 69 63 61 74 6f 72 73 20 66 72 6f 6d 20  indicators from 
a080: 74 68 65 20 70 72 65 76 69 6f 75 73 20 72 75 6e  the previous run
a090: 2e 0d 0a 20 20 20 20 20 20 23 0d 0a 20 20 20 20  ...      #..    
a0a0: 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 68    tputs $test_ch
a0b0: 61 6e 6e 65 6c 20 5c 6e 0d 0a 20 20 20 20 7d 0d  annel \n..    }.
a0c0: 0a 0d 0a 20 20 20 20 74 70 75 74 73 20 24 74 65  ...    tputs $te
a0d0: 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 61 70 70 65  st_channel [appe
a0e0: 6e 64 41 72 67 73 20 5c 0d 0a 20 20 20 20 20 20  ndArgs \..      
a0f0: 20 20 22 2d 2d 2d 2d 20 73 74 61 72 74 69 6e 67    "---- starting
a100: 20 77 6f 72 6b 6c 6f 61 64 20 72 75 6e 20 23 22   workload run #"
a110: 20 24 69 6e 64 65 78 28 30 29 20 2e 2e 2e 5c 6e   $index(0) ...\n
a120: 5d 0d 0a 0d 0a 20 20 20 20 75 6e 73 65 74 20 2d  ]....    unset -
a130: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74 68 72 65 61  nocomplain threa
a140: 64 20 73 74 61 74 75 73 3b 20 64 6f 6e 65 54 65  d status; doneTe
a150: 73 74 0d 0a 0d 0a 20 20 20 20 73 71 6c 20 65 78  st....    sql ex
a160: 65 63 75 74 65 20 24 73 72 63 44 62 20 22 43 52  ecute $srcDb "CR
a170: 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f  EATE TABLE IF NO
a180: 54 20 45 58 49 53 54 53 20 74 31 28 78 20 50 52  T EXISTS t1(x PR
a190: 49 4d 41 52 59 20 4b 45 59 2c 20 79 2c 20 7a 29  IMARY KEY, y, z)
a1a0: 3b 22 0d 0a 20 20 20 20 73 71 6c 20 65 78 65 63  ;"..    sql exec
a1b0: 75 74 65 20 24 64 62 20 22 43 52 45 41 54 45 20  ute $db "CREATE 
a1c0: 54 41 42 4c 45 20 49 46 20 4e 4f 54 20 45 58 49  TABLE IF NOT EXI
a1d0: 53 54 53 20 74 31 28 78 20 50 52 49 4d 41 52 59  STS t1(x PRIMARY
a1e0: 20 4b 45 59 2c 20 79 2c 20 7a 29 3b 22 0d 0a 0d   KEY, y, z);"...
a1f0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 69 6e 64  .    foreach ind
a200: 65 78 28 31 29 20 5b 6c 73 6f 72 74 20 2d 69 6e  ex(1) [lsort -in
a210: 74 65 67 65 72 20 5b 61 72 72 61 79 20 6e 61 6d  teger [array nam
a220: 65 73 20 77 6f 72 6b 6c 6f 61 64 5d 5d 20 7b 0d  es workload]] {.
a230: 0a 20 20 20 20 20 20 69 66 20 7b 5b 6c 73 65 61  .      if {[lsea
a240: 72 63 68 20 2d 65 78 61 63 74 20 24 6e 6f 57 6f  rch -exact $noWo
a250: 72 6b 6c 6f 61 64 20 24 69 6e 64 65 78 28 31 29  rkload $index(1)
a260: 5d 20 3d 3d 20 2d 31 7d 20 74 68 65 6e 20 7b 0d  ] == -1} then {.
a270: 0a 20 20 20 20 20 20 20 20 73 65 74 20 74 68 72  .        set thr
a280: 65 61 64 28 24 69 6e 64 65 78 28 31 29 29 20 5b  ead($index(1)) [
a290: 6f 62 6a 65 63 74 20 63 72 65 61 74 65 20 2d 61  object create -a
a2a0: 6c 69 61 73 20 53 79 73 74 65 6d 2e 54 68 72 65  lias System.Thre
a2b0: 61 64 69 6e 67 2e 54 68 72 65 61 64 20 5c 0d 0a  ading.Thread \..
a2c0: 20 20 20 20 20 20 20 20 20 20 20 20 5b 6c 69 73              [lis
a2d0: 74 20 61 70 70 6c 79 20 24 77 6f 72 6b 6c 6f 61  t apply $workloa
a2e0: 64 28 24 69 6e 64 65 78 28 31 29 29 20 24 66 69  d($index(1)) $fi
a2f0: 6c 65 4e 61 6d 65 28 31 29 20 24 66 69 6c 65 4e  leName(1) $fileN
a300: 61 6d 65 28 32 29 20 74 31 20 5c 0d 0a 20 20 20  ame(2) t1 \..   
a310: 20 20 20 20 20 20 20 20 20 24 63 6f 75 6e 74 28           $count(
a320: 31 29 20 24 63 6f 75 6e 74 28 33 29 20 24 63 6f  1) $count(3) $co
a330: 75 6e 74 28 34 29 5d 20 31 30 34 38 35 37 36 5d  unt(4)] 1048576]
a340: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 24 74 68 72  ....        $thr
a350: 65 61 64 28 24 69 6e 64 65 78 28 31 29 29 20 4e  ead($index(1)) N
a360: 61 6d 65 20 5b 61 70 70 65 6e 64 41 72 67 73 20  ame [appendArgs 
a370: 5c 0d 0a 20 20 20 20 20 20 20 20 20 20 5b 66 69  \..          [fi
a380: 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b 66 69 6c  le rootname [fil
a390: 65 20 74 61 69 6c 20 24 66 69 6c 65 4e 61 6d 65  e tail $fileName
a3a0: 28 32 29 5d 5d 20 22 20 23 22 20 24 69 6e 64 65  (2)]] " #" $inde
a3b0: 78 28 31 29 5d 0d 0a 0d 0a 20 20 20 20 20 20 20  x(1)]....       
a3c0: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
a3d0: 73 20 70 72 69 6f 72 69 74 79 28 24 69 6e 64 65  s priority($inde
a3e0: 78 28 31 29 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a  x(1))]} then {..
a3f0: 20 20 20 20 20 20 20 20 20 20 24 74 68 72 65 61            $threa
a400: 64 28 24 69 6e 64 65 78 28 31 29 29 20 50 72 69  d($index(1)) Pri
a410: 6f 72 69 74 79 20 24 70 72 69 6f 72 69 74 79 28  ority $priority(
a420: 24 69 6e 64 65 78 28 31 29 29 0d 0a 20 20 20 20  $index(1))..    
a430: 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 7d 0d 0a      }..      }..
a440: 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 66 6f 72      }....    for
a450: 65 61 63 68 20 69 6e 64 65 78 28 31 29 20 5b 6c  each index(1) [l
a460: 69 73 74 20 53 74 61 72 74 20 4a 6f 69 6e 5d 20  ist Start Join] 
a470: 7b 0d 0a 20 20 20 20 20 20 66 6f 72 65 61 63 68  {..      foreach
a480: 20 69 6e 64 65 78 28 32 29 20 5b 61 72 72 61 79   index(2) [array
a490: 20 6e 61 6d 65 73 20 74 68 72 65 61 64 5d 20 7b   names thread] {
a4a0: 0d 0a 20 20 20 20 20 20 20 20 24 74 68 72 65 61  ..        $threa
a4b0: 64 28 24 69 6e 64 65 78 28 32 29 29 20 24 69 6e  d($index(2)) $in
a4c0: 64 65 78 28 31 29 0d 0a 20 20 20 20 20 20 7d 0d  dex(1)..      }.
a4d0: 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20 66 6f  .    }....    fo
a4e0: 72 65 61 63 68 20 69 6e 64 65 78 28 31 29 20 5b  reach index(1) [
a4f0: 61 72 72 61 79 20 6e 61 6d 65 73 20 74 68 72 65  array names thre
a500: 61 64 5d 20 7b 0d 0a 20 20 20 20 20 20 69 66 20  ad] {..      if 
a510: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 74 68  {[info exists th
a520: 72 65 61 64 28 24 69 6e 64 65 78 28 31 29 29 5d  read($index(1))]
a530: 20 26 26 20 5c 0d 0a 20 20 20 20 20 20 20 20 20   && \..         
a540: 20 5b 63 6c 65 61 6e 75 70 54 68 72 65 61 64 20   [cleanupThread 
a550: 24 74 68 72 65 61 64 28 24 69 6e 64 65 78 28 31  $thread($index(1
a560: 29 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ))]} then {..   
a570: 20 20 20 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f       unset -noco
a580: 6d 70 6c 61 69 6e 20 74 68 72 65 61 64 28 24 69  mplain thread($i
a590: 6e 64 65 78 28 31 29 29 0d 0a 20 20 20 20 20 20  ndex(1))..      
a5a0: 7d 0d 0a 20 20 20 20 7d 0d 0a 0d 0a 20 20 20 20  }..    }....    
a5b0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
a5c0: 6e 20 74 68 72 65 61 64 20 73 74 61 74 75 73 3b  n thread status;
a5d0: 20 64 6f 6e 65 54 65 73 74 0d 0a 20 20 7d 0d 0a   doneTest..  }..
a5e0: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23  ..  ############
a5f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a600: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a610: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a620: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a630: 23 0d 0a 0d 0a 20 20 66 6f 72 65 61 63 68 20 69  #....  foreach i
a640: 6e 64 65 78 28 30 29 20 5b 73 70 6c 69 74 20 24  ndex(0) [split $
a650: 69 6e 64 69 63 61 74 6f 72 73 20 22 22 5d 20 7b  indicators ""] {
a660: 0d 0a 20 20 20 20 23 0d 0a 20 20 20 20 23 20 4e  ..    #..    # N
a670: 4f 54 45 3a 20 53 65 65 20 69 66 20 74 68 69 73  OTE: See if this
a680: 20 77 6f 72 6b 6c 6f 61 64 20 69 74 65 72 61 74   workload iterat
a690: 69 6f 6e 20 72 61 69 73 65 64 20 61 6e 20 65 72  ion raised an er
a6a0: 72 6f 72 2e 20 20 49 66 20 73 6f 2c 20 74 68 65  ror.  If so, the
a6b0: 0d 0a 20 20 20 20 23 20 20 20 20 20 20 20 69 6e  ..    #       in
a6c0: 64 69 63 61 74 6f 72 20 6c 65 74 74 65 72 20 77  dicator letter w
a6d0: 69 6c 6c 20 62 65 20 69 6e 20 6c 6f 77 65 72 20  ill be in lower 
a6e0: 63 61 73 65 3b 20 6f 74 68 65 72 77 69 73 65 2c  case; otherwise,
a6f0: 20 69 74 20 77 69 6c 6c 0d 0a 20 20 20 20 23 20   it will..    # 
a700: 20 20 20 20 20 20 62 65 20 69 6e 20 75 70 70 65        be in uppe
a710: 72 20 63 61 73 65 2e 0d 0a 20 20 20 20 23 0d 0a  r case...    #..
a720: 20 20 20 20 73 65 74 20 69 6e 64 65 78 28 31 29      set index(1)
a730: 20 5b 73 74 72 69 6e 67 20 69 73 20 75 70 70 65   [string is uppe
a740: 72 20 2d 73 74 72 69 63 74 20 24 69 6e 64 65 78  r -strict $index
a750: 28 30 29 5d 0d 0a 0d 0a 20 20 20 20 73 65 74 20  (0)]....    set 
a760: 69 6e 64 65 78 28 32 29 20 5b 65 78 70 72 20 7b  index(2) [expr {
a770: 5b 73 74 72 69 6e 67 20 6f 72 64 69 6e 61 6c 20  [string ordinal 
a780: 24 69 6e 64 65 78 28 30 29 20 30 5d 20 2d 20 5c  $index(0) 0] - \
a790: 0d 0a 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e  ..        [strin
a7a0: 67 20 6f 72 64 69 6e 61 6c 20 5b 65 78 70 72 20  g ordinal [expr 
a7b0: 7b 24 69 6e 64 65 78 28 31 29 20 3f 20 22 41 22  {$index(1) ? "A"
a7c0: 20 3a 20 22 61 22 7d 5d 20 30 5d 20 2b 20 31 7d   : "a"}] 0] + 1}
a7d0: 5d 0d 0a 0d 0a 20 20 20 20 73 65 74 20 69 6e 64  ]....    set ind
a7e0: 65 78 28 33 29 20 5b 65 78 70 72 20 7b 24 69 6e  ex(3) [expr {$in
a7f0: 64 65 78 28 31 29 20 3f 20 22 6f 6b 22 20 3a 20  dex(1) ? "ok" : 
a800: 22 65 72 72 6f 72 22 7d 5d 0d 0a 0d 0a 20 20 20  "error"}]....   
a810: 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73   if {![info exis
a820: 74 73 20 69 74 65 72 61 74 69 6f 6e 73 28 24 69  ts iterations($i
a830: 6e 64 65 78 28 32 29 2c 24 69 6e 64 65 78 28 33  ndex(2),$index(3
a840: 29 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20  ))]} then {..   
a850: 20 20 20 73 65 74 20 69 74 65 72 61 74 69 6f 6e     set iteration
a860: 73 28 24 69 6e 64 65 78 28 32 29 2c 24 69 6e 64  s($index(2),$ind
a870: 65 78 28 33 29 29 20 30 0d 0a 20 20 20 20 7d 0d  ex(3)) 0..    }.
a880: 0a 0d 0a 20 20 20 20 69 66 20 7b 21 5b 69 6e 66  ...    if {![inf
a890: 6f 20 65 78 69 73 74 73 20 69 74 65 72 61 74 69  o exists iterati
a8a0: 6f 6e 73 28 24 69 6e 64 65 78 28 32 29 2c 74 6f  ons($index(2),to
a8b0: 74 61 6c 29 5d 7d 20 74 68 65 6e 20 7b 0d 0a 20  tal)]} then {.. 
a8c0: 20 20 20 20 20 73 65 74 20 69 74 65 72 61 74 69       set iterati
a8d0: 6f 6e 73 28 24 69 6e 64 65 78 28 32 29 2c 74 6f  ons($index(2),to
a8e0: 74 61 6c 29 20 30 0d 0a 20 20 20 20 7d 0d 0a 0d  tal) 0..    }...
a8f0: 0a 20 20 20 20 69 6e 63 72 20 69 74 65 72 61 74  .    incr iterat
a900: 69 6f 6e 73 28 24 69 6e 64 65 78 28 32 29 2c 24  ions($index(2),$
a910: 69 6e 64 65 78 28 33 29 29 0d 0a 20 20 20 20 69  index(3))..    i
a920: 6e 63 72 20 69 74 65 72 61 74 69 6f 6e 73 28 24  ncr iterations($
a930: 69 6e 64 65 78 28 32 29 2c 74 6f 74 61 6c 29 0d  index(2),total).
a940: 0a 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23  .  }....  ######
a950: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a960: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a970: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a980: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
a990: 23 23 23 23 23 23 23 0d 0a 0d 0a 20 20 23 0d 0a  #######....  #..
a9a0: 20 20 23 20 4e 4f 54 45 3a 20 41 64 76 61 6e 63    # NOTE: Advanc
a9b0: 65 20 6f 75 74 70 75 74 20 74 6f 20 74 68 65 20  e output to the 
a9c0: 6e 65 78 74 20 6c 69 6e 65 20 64 75 65 20 74 6f  next line due to
a9d0: 20 74 68 65 20 77 6f 72 6b 6c 6f 61 64 0d 0a 20   the workload.. 
a9e0: 20 23 20 20 20 20 20 20 20 69 74 65 72 61 74 69   #       iterati
a9f0: 6f 6e 20 70 72 6f 67 72 65 73 73 20 69 6e 64 69  on progress indi
aa00: 63 61 74 6f 72 73 20 66 72 6f 6d 20 74 68 65 20  cators from the 
aa10: 66 69 6e 61 6c 20 72 75 6e 2e 0d 0a 20 20 23 0d  final run...  #.
aa20: 0a 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63  .  tputs $test_c
aa30: 68 61 6e 6e 65 6c 20 5c 6e 0d 0a 0d 0a 20 20 23  hannel \n....  #
aa40: 23 23 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 0d 0a 0d 0a  ############....
aa90: 20 20 66 6f 72 65 61 63 68 20 69 6e 64 65 78 28    foreach index(
aaa0: 30 29 20 5b 6c 73 6f 72 74 20 2d 69 6e 74 65 67  0) [lsort -integ
aab0: 65 72 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20  er [array names 
aac0: 77 6f 72 6b 6c 6f 61 64 5d 5d 20 7b 0d 0a 20 20  workload]] {..  
aad0: 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 2d    if {[lsearch -
aae0: 65 78 61 63 74 20 24 6e 6f 57 6f 72 6b 6c 6f 61  exact $noWorkloa
aaf0: 64 20 24 69 6e 64 65 78 28 30 29 5d 20 3d 3d 20  d $index(0)] == 
ab00: 2d 31 7d 20 74 68 65 6e 20 7b 0d 0a 20 20 20 20  -1} then {..    
ab10: 20 20 74 70 75 74 73 20 24 74 65 73 74 5f 63 68    tputs $test_ch
ab20: 61 6e 6e 65 6c 20 5b 66 6f 72 6d 61 74 57 6f 72  annel [formatWor
ab30: 6b 6c 6f 61 64 52 65 73 75 6c 74 20 24 69 6e 64  kloadResult $ind
ab40: 65 78 28 30 29 5d 0d 0a 20 20 20 20 7d 0d 0a 20  ex(0)]..    }.. 
ab50: 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23 23   }....  ########
ab60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ab70: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ab80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ab90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
aba0: 23 23 23 23 23 0d 0a 0d 0a 20 20 66 6f 72 65 61  #####....  forea
abb0: 63 68 20 69 6e 64 65 78 28 30 29 20 5b 6c 73 6f  ch index(0) [lso
abc0: 72 74 20 2d 69 6e 74 65 67 65 72 20 5b 61 72 72  rt -integer [arr
abd0: 61 79 20 6e 61 6d 65 73 20 74 69 6d 65 73 5d 5d  ay names times]]
abe0: 20 7b 0d 0a 20 20 20 20 74 70 75 74 73 20 24 74   {..    tputs $t
abf0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 5b 66 6f 72  est_channel [for
ac00: 6d 61 74 57 6f 72 6b 6c 6f 61 64 54 69 6d 65 20  matWorkloadTime 
ac10: 24 69 6e 64 65 78 28 30 29 5d 0d 0a 20 20 7d 0d  $index(0)]..  }.
ac20: 0a 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23  ...  ###########
ac30: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac60: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ac70: 23 23 0d 0a 0d 0a 20 20 73 65 74 20 72 65 73 75  ##....  set resu
ac80: 6c 74 20 5b 73 71 6c 20 65 78 65 63 75 74 65 20  lt [sql execute 
ac90: 2d 65 78 65 63 75 74 65 20 73 63 61 6c 61 72 20  -execute scalar 
aca0: 24 73 72 63 44 62 20 22 50 52 41 47 4d 41 20 69  $srcDb "PRAGMA i
acb0: 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 3b 22  ntegrity_check;"
acc0: 5d 0d 0a 0d 0a 20 20 69 66 20 7b 24 72 65 73 75  ]....  if {$resu
acd0: 6c 74 20 65 71 20 22 6f 6b 22 7d 20 74 68 65 6e  lt eq "ok"} then
ace0: 20 7b 0d 0a 20 20 20 20 74 70 75 74 73 20 24 74   {..    tputs $t
acf0: 65 73 74 5f 63 68 61 6e 6e 65 6c 20 22 2d 2d 2d  est_channel "---
ad00: 2d 20 69 6e 74 65 67 72 69 74 79 20 63 68 65 63  - integrity chec
ad10: 6b 20 6f 6b 20 28 73 72 63 44 62 29 5c 6e 22 0d  k ok (srcDb)\n".
ad20: 0a 20 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20  .  } else {..   
ad30: 20 65 72 72 6f 72 20 5b 61 70 70 65 6e 64 41 72   error [appendAr
ad40: 67 73 20 22 69 6e 74 65 67 72 69 74 79 20 63 68  gs "integrity ch
ad50: 65 63 6b 20 66 61 69 6c 65 64 20 28 73 72 63 44  eck failed (srcD
ad60: 62 29 3a 20 22 20 24 72 65 73 75 6c 74 5d 0d 0a  b): " $result]..
ad70: 20 20 7d 0d 0a 0d 0a 20 20 23 23 23 23 23 23 23    }....  #######
ad80: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ad90: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
ada0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
adb0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
adc0: 23 23 23 23 23 23 0d 0a 0d 0a 20 20 73 65 74 20  ######....  set 
add0: 72 65 73 75 6c 74 20 5b 73 71 6c 20 65 78 65 63  result [sql exec
ade0: 75 74 65 20 2d 65 78 65 63 75 74 65 20 73 63 61  ute -execute sca
adf0: 6c 61 72 20 24 64 62 20 22 50 52 41 47 4d 41 20  lar $db "PRAGMA 
ae00: 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 3b  integrity_check;
ae10: 22 5d 0d 0a 0d 0a 20 20 69 66 20 7b 24 72 65 73  "]....  if {$res
ae20: 75 6c 74 20 65 71 20 22 6f 6b 22 7d 20 74 68 65  ult eq "ok"} the
ae30: 6e 20 7b 0d 0a 20 20 20 20 74 70 75 74 73 20 24  n {..    tputs $
ae40: 74 65 73 74 5f 63 68 61 6e 6e 65 6c 20 22 2d 2d  test_channel "--
ae50: 2d 2d 20 69 6e 74 65 67 72 69 74 79 20 63 68 65  -- integrity che
ae60: 63 6b 20 6f 6b 20 28 64 62 29 5c 6e 22 0d 0a 20  ck ok (db)\n".. 
ae70: 20 7d 20 65 6c 73 65 20 7b 0d 0a 20 20 20 20 65   } else {..    e
ae80: 72 72 6f 72 20 5b 61 70 70 65 6e 64 41 72 67 73  rror [appendArgs
ae90: 20 22 69 6e 74 65 67 72 69 74 79 20 63 68 65 63   "integrity chec
aea0: 6b 20 66 61 69 6c 65 64 20 28 64 62 29 3a 20 22  k failed (db): "
aeb0: 20 24 72 65 73 75 6c 74 5d 0d 0a 20 20 7d 0d 0a   $result]..  }..
aec0: 0d 0a 20 20 23 23 23 23 23 23 23 23 23 23 23 23  ..  ############
aed0: 23 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 0d 0a 0d 0a 20 20 23 0d 0a 20 20 23 20 4e 4f  #....  #..  # NO
af20: 54 45 3a 20 54 68 65 20 6f 76 65 72 61 6c 6c 20  TE: The overall 
af30: 74 65 73 74 20 72 65 73 75 6c 74 20 69 73 20 74  test result is t
af40: 68 65 20 74 6f 74 61 6c 20 6e 75 6d 62 65 72 20  he total number 
af50: 6f 66 20 66 61 69 6c 75 72 65 73 20 28 69 2e 65  of failures (i.e
af60: 2e 0d 0a 20 20 23 20 20 20 20 20 20 20 22 75 6e  ...  #       "un
af70: 65 78 70 65 63 74 65 64 20 65 72 72 6f 72 73 22  expected errors"
af80: 29 20 65 6e 63 6f 75 6e 74 65 72 65 64 20 64 75  ) encountered du
af90: 72 69 6e 67 20 61 20 77 6f 72 6b 6c 6f 61 64 20  ring a workload 
afa0: 69 74 65 72 61 74 69 6f 6e 2e 0d 0a 20 20 23 0d  iteration...  #.
afb0: 0a 20 20 65 78 70 72 20 7b 5b 61 72 72 61 79 20  .  expr {[array 
afc0: 73 69 7a 65 20 66 61 69 6c 75 72 65 73 5d 20 3e  size failures] >
afd0: 20 30 20 3f 20 5c 0d 0a 20 20 20 20 20 20 5b 65   0 ? \..      [e
afe0: 78 70 72 20 5b 6a 6f 69 6e 20 5b 61 72 72 61 79  xpr [join [array
aff0: 20 76 61 6c 75 65 73 20 66 61 69 6c 75 72 65 73   values failures
b000: 5d 20 2b 5d 5d 20 3a 20 30 7d 0d 0a 7d 20 2d 63  ] +]] : 0}..} -c
b010: 6c 65 61 6e 75 70 20 7b 0d 0a 20 20 66 6f 72 65  leanup {..  fore
b020: 61 63 68 20 69 6e 64 65 78 28 30 29 20 5b 61 72  ach index(0) [ar
b030: 72 61 79 20 6e 61 6d 65 73 20 74 68 72 65 61 64  ray names thread
b040: 5d 20 7b 0d 0a 20 20 20 20 69 66 20 7b 5b 69 6e  ] {..    if {[in
b050: 66 6f 20 65 78 69 73 74 73 20 74 68 72 65 61 64  fo exists thread
b060: 28 24 69 6e 64 65 78 28 30 29 29 5d 20 26 26 20  ($index(0))] && 
b070: 5c 0d 0a 20 20 20 20 20 20 20 20 5b 63 6c 65 61  \..        [clea
b080: 6e 75 70 54 68 72 65 61 64 20 24 74 68 72 65 61  nupThread $threa
b090: 64 28 24 69 6e 64 65 78 28 30 29 29 5d 7d 20 74  d($index(0))]} t
b0a0: 68 65 6e 20 7b 0d 0a 20 20 20 20 20 20 75 6e 73  hen {..      uns
b0b0: 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 74  et -nocomplain t
b0c0: 68 72 65 61 64 28 24 69 6e 64 65 78 28 30 29 29  hread($index(0))
b0d0: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 0d 0a 0d 0a  ..    }..  }....
b0e0: 20 20 72 65 6e 61 6d 65 20 66 72 65 65 4d 65 6d    rename freeMem
b0f0: 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 75 73   ""..  rename us
b100: 65 4d 65 6d 20 22 22 0d 0a 20 20 72 65 6e 61 6d  eMem ""..  renam
b110: 65 20 61 6c 6c 6f 63 4d 65 6d 20 22 22 0d 0a 20  e allocMem "".. 
b120: 20 72 65 6e 61 6d 65 20 66 61 69 6c 54 65 73 74   rename failTest
b130: 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 64 6f   ""..  rename do
b140: 6e 65 54 65 73 74 20 22 22 0d 0a 20 20 72 65 6e  neTest ""..  ren
b150: 61 6d 65 20 73 68 6f 77 54 65 73 74 20 22 22 0d  ame showTest "".
b160: 0a 20 20 72 65 6e 61 6d 65 20 64 65 6c 61 79 54  .  rename delayT
b170: 65 73 74 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65  est ""..  rename
b180: 20 69 73 45 78 70 65 63 74 65 64 45 72 72 6f 72   isExpectedError
b190: 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 66 6f   ""..  rename fo
b1a0: 72 6d 61 74 57 6f 72 6b 6c 6f 61 64 54 69 6d 65  rmatWorkloadTime
b1b0: 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20 66 6f   ""..  rename fo
b1c0: 72 6d 61 74 57 6f 72 6b 6c 6f 61 64 52 65 73 75  rmatWorkloadResu
b1d0: 6c 74 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65 20  lt ""..  rename 
b1e0: 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 46 69 6c  setupWorkloadFil
b1f0: 65 44 62 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65  eDb ""..  rename
b200: 20 73 65 74 75 70 57 6f 72 6b 6c 6f 61 64 4d 65   setupWorkloadMe
b210: 6d 44 62 20 22 22 0d 0a 0d 0a 20 20 63 6c 65 61  mDb ""....  clea
b220: 6e 75 70 44 62 20 24 66 69 6c 65 4e 61 6d 65 28  nupDb $fileName(
b230: 32 29 0d 0a 20 20 63 6c 65 61 6e 75 70 44 62 20  2)..  cleanupDb 
b240: 24 66 69 6c 65 4e 61 6d 65 28 31 29 20 73 72 63  $fileName(1) src
b250: 44 62 0d 0a 0d 0a 20 20 66 6f 72 65 61 63 68 20  Db....  foreach 
b260: 69 6e 64 65 78 28 30 29 20 5b 61 72 72 61 79 20  index(0) [array 
b270: 6e 61 6d 65 73 20 77 6f 72 6b 6c 6f 61 64 5d 20  names workload] 
b280: 7b 0d 0a 20 20 20 20 63 61 74 63 68 20 7b 0d 0a  {..    catch {..
b290: 20 20 20 20 20 20 6f 62 6a 65 63 74 20 72 65 6d        object rem
b2a0: 6f 76 65 63 61 6c 6c 62 61 63 6b 20 5b 6c 69 73  ovecallback [lis
b2b0: 74 20 61 70 70 6c 79 20 24 77 6f 72 6b 6c 6f 61  t apply $workloa
b2c0: 64 28 24 69 6e 64 65 78 28 30 29 29 20 24 66 69  d($index(0)) $fi
b2d0: 6c 65 4e 61 6d 65 28 31 29 20 5c 0d 0a 20 20 20  leName(1) \..   
b2e0: 20 20 20 20 20 20 20 24 66 69 6c 65 4e 61 6d 65         $fileName
b2f0: 28 32 29 20 74 31 20 24 63 6f 75 6e 74 28 31 29  (2) t1 $count(1)
b300: 20 24 63 6f 75 6e 74 28 33 29 20 24 63 6f 75 6e   $count(3) $coun
b310: 74 28 34 29 5d 0d 0a 20 20 20 20 7d 0d 0a 20 20  t(4)]..    }..  
b320: 7d 0d 0a 0d 0a 20 20 66 72 65 65 44 62 43 6f 6e  }....  freeDbCon
b330: 6e 65 63 74 69 6f 6e 0d 0a 0d 0a 20 20 69 66 20  nection....  if 
b340: 7b 21 24 6e 6f 54 72 61 63 65 7d 20 74 68 65 6e  {!$noTrace} then
b350: 20 7b 0d 0a 20 20 20 20 63 6c 65 61 6e 75 70 4c   {..    cleanupL
b360: 6f 67 67 69 6e 67 20 24 6c 6f 67 46 69 6c 65 4e  ogging $logFileN
b370: 61 6d 65 0d 0a 20 20 7d 0d 0a 0d 0a 20 20 72 65  ame..  }....  re
b380: 6e 61 6d 65 20 63 6c 65 61 6e 75 70 4c 6f 67 67  name cleanupLogg
b390: 69 6e 67 20 22 22 0d 0a 20 20 72 65 6e 61 6d 65  ing ""..  rename
b3a0: 20 73 65 74 75 70 4c 6f 67 67 69 6e 67 20 22 22   setupLogging ""
b3b0: 0d 0a 0d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63  ....  unset -noc
b3c0: 6f 6d 70 6c 61 69 6e 20 72 65 73 75 6c 74 20 74  omplain result t
b3d0: 68 72 65 61 64 20 69 6e 64 65 78 20 77 6f 72 6b  hread index work
b3e0: 6c 6f 61 64 20 70 72 69 6f 72 69 74 79 20 6e 6f  load priority no
b3f0: 57 6f 72 6b 6c 6f 61 64 20 5c 0d 0a 20 20 20 20  Workload \..    
b400: 20 20 70 72 69 6f 72 69 74 69 65 73 20 73 72 63    priorities src
b410: 44 62 20 64 62 20 66 69 6c 65 4e 61 6d 65 20 63  Db db fileName c
b420: 6f 6d 70 69 6c 65 64 20 6f 70 74 69 6f 6e 73 20  ompiled options 
b430: 63 6f 75 6e 74 20 74 69 6d 65 73 20 6c 6f 67 46  count times logF
b440: 69 6c 65 4e 61 6d 65 20 5c 0d 0a 20 20 20 20 20  ileName \..     
b450: 20 6c 6f 67 4c 69 73 74 65 6e 65 72 20 63 6f 6e   logListener con
b460: 6e 65 63 74 69 6f 6e 20 69 6e 64 69 63 61 74 6f  nection indicato
b470: 72 73 20 69 74 65 72 61 74 69 6f 6e 73 20 65 78  rs iterations ex
b480: 69 74 4f 6e 46 61 69 6c 20 63 6f 54 61 73 6b 4d  itOnFail coTaskM
b490: 65 6d 20 5c 0d 0a 20 20 20 20 20 20 6e 6f 54 72  em \..      noTr
b4a0: 61 63 65 20 66 61 69 6c 75 72 65 73 20 73 74 61  ace failures sta
b4b0: 74 75 73 0d 0a 7d 20 2d 74 69 6d 65 20 74 72 75  tus..} -time tru
b4c0: 65 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b  e -constraints {
b4d0: 65 61 67 6c 65 20 6d 6f 6e 6f 42 75 67 32 38 20  eagle monoBug28 
b4e0: 63 6f 6d 6d 61 6e 64 2e 73 71 6c 20 63 6f 6d 70  command.sql comp
b4f0: 69 6c 65 2e 44 41 54 41 20 53 51 4c 69 74 65 5c  ile.DATA SQLite\
b500: 0d 0a 53 79 73 74 65 6d 2e 44 61 74 61 2e 53 51  ..System.Data.SQ
b510: 4c 69 74 65 7d 20 2d 72 65 73 75 6c 74 20 7b 30  Lite} -result {0
b520: 7d 7d 0d 0a 0d 0a 23 23 23 23 23 23 23 23 23 23  }}....##########
b530: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b540: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b550: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b560: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
b570: 23 23 23 23 23 0d 0a 0d 0a 72 75 6e 53 51 4c 69  #####....runSQLi
b580: 74 65 54 65 73 74 45 70 69 6c 6f 67 75 65 0d 0a  teTestEpilogue..
b590: 72 75 6e 54 65 73 74 45 70 69 6c 6f 67 75 65 0d  runTestEpilogue.
b5a0: 0a                                               .