Changeset 539

Show
Ignore:
Timestamp:
05/04/07 02:30:06 (2 years ago)
Author:
hachi
Message:

Make benchmarking a little more dynamic, and spit out some basic statistics at the end, sorta like bonnie.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/api/xs/memtest.pl

    r533 r539  
    5858} 
    5959 
    60 my $gets = 1000; #1000 
     60my $gets = 1000; 
    6161my $max_key = 1000; 
     62my $data_min = 2000; 
     63my $data_max = 12_000; 
     64 
    6265die unless GetOptions( 
    63                       'gets' => \$gets, 
     66                      'gets=i' => \$gets, 
    6467                      'maxkey=i' => \$max_key, 
     68                      'data_min=i' => \$data_min, 
     69                      'data_max=i' => \$data_max, 
    6570); 
    6671 
    …… 
    7176 
    7277my %correct; 
    73 srand (1); 
     78my $data_delta = $data_max - $data_min; 
     79 
    7480for my $k (1..$max_key) { 
    75     my $val = join('', map { chr(64 + int rand (60)) } (1..(2000 + int rand 10_000))); 
     81    my $val = join('', map { chr(64 + int rand (60)) } (1..($data_min + int rand $data_delta))); 
    7682    $correct{$k} = $val; 
    7783    my $rv = $memd->set($k, $val) 
    …… 
    114120warn "$bad bad results\n"; 
    115121 
    116 warn "elapsed times: $elapsed wallclock, $cpu_user user, $cpu_sys system\n" 
     122warn "elapsed times: $elapsed wallclock, $cpu_user user, $cpu_sys system\n"; 
     123 
     124print "$data_min, $data_max, $elapsed, $cpu_user, $cpu_sys\n";