mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-23 16:48:27 -05:00
25 lines
632 B
Perl
25 lines
632 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use Benchmark qw/:all/;
|
||
|
|
use lib 'lib';
|
||
|
|
use Redis;
|
||
|
|
|
||
|
|
my $r = Redis->new;
|
||
|
|
|
||
|
|
my $i = 0;
|
||
|
|
|
||
|
|
timethese( 100000, {
|
||
|
|
'00_ping' => sub { $r->ping },
|
||
|
|
'10_set' => sub { $r->set( 'foo', $i++ ) },
|
||
|
|
'11_set_r' => sub { $r->set( 'bench-' . rand(), rand() ) },
|
||
|
|
'20_get' => sub { $r->get( 'foo' ) },
|
||
|
|
'21_get_r' => sub { $r->get( 'bench-' . rand() ) },
|
||
|
|
'30_incr' => sub { $r->incr( 'counter' ) },
|
||
|
|
'30_incr_r' => sub { $r->incr( 'bench-' . rand() ) },
|
||
|
|
'40_lpush' => sub { $r->lpush( 'mylist', 'bar' ) },
|
||
|
|
'40_lpush' => sub { $r->lpush( 'mylist', 'bar' ) },
|
||
|
|
'50_lpop' => sub { $r->lpop( 'mylist' ) },
|
||
|
|
});
|