view release on metacpan or  search on metacpan

benchmarks/test-connect  view on Meta::CPAN

22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
# By changing the variable '$opt_loop_count' value you can make this test
# easier/harderto your computer to execute. You can also change this value
# by using option --loop_value='what_ever_you_like'.
##################### Standard benchmark inits ##############################
 
use DBI;
use Benchmark;
 
$opt_loop_count=1000;   # Change this to make test harder/easier
$str_length=65000;      # This is the length of blob strings in PART:5
$max_test=20;           # How many times to test if the server is busy
 
chomp($pwd = `pwd`); $pwd = "." if ($pwd eq '');
require "$pwd/bench-init.pl" || die "Can't read Configuration file: $!\n";
 
# This is the length of blob strings in PART:5
$str_length=min($limits->{'max_text_size'},$limits->{'query_size'}-30,$str_length);
 
if ($opt_small_test)
{
  $opt_loop_count/=100;