ignore gcc warning about write() return code not checked. It is esplicitily this...

[redis.git] / client-libraries / perl / scripts / redis-benchmark.pl

#!/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' ) },
});