X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/5762b7f0f8d33eda021da908b6ddced684a2ba05..1259672feb4fcad189d413a341745990a844feda:/client-libraries/perl/scripts/redis-benchmark.pl?ds=inline

diff --git a/client-libraries/perl/scripts/redis-benchmark.pl b/client-libraries/perl/scripts/redis-benchmark.pl
deleted file mode 100755
index 74759b06..00000000
--- a/client-libraries/perl/scripts/redis-benchmark.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/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' ) },
-});