X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=blobdiff_plain;f=scripts%2Fredis-benchmark.pl;h=74759b06f2e2fc502749ce6743a8cbc497a36e8b;hp=e827817f0cedeb587d88d6cc523f3f95c8d96b5c;hb=eee28c05a37edb8220fc9ab7828a73ff014bc77d;hpb=24aed6f30fef226076cf963d6407151e6eb082e5

diff --git a/scripts/redis-benchmark.pl b/scripts/redis-benchmark.pl
index e827817..74759b0 100755
--- a/scripts/redis-benchmark.pl
+++ b/scripts/redis-benchmark.pl
@@ -8,11 +8,17 @@ use Redis;
 
 my $r = Redis->new;
 
+my $i = 0;
+
 timethese( 100000, {
-	'ping'  => sub { $r->ping },
-	'set'   => sub { $r->set( 'bench-' . rand(), rand() ) },
-	'get'   => sub { $r->get( 'bench-' . rand() ) },
-	'incr'  => sub { $r->incr( 'bench-incr' ) },
-	'lpush' => sub { $r->lpush( 'bench-lpush', rand() ) },
-	'lpop'  => sub { $r->lpop( 'bench-lpop' ) },
+	'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' ) },
 });