mset and mget using multibulk protocol

diff --git a/t/02-Redis-multibulk-mget-mset.t b/t/02-Redis-multibulk-mget-mset.t
new file mode 100644 (file)
index 0000000..e208a87
--- /dev/null
+++ b/t/02-Redis-multibulk-mget-mset.t
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use Test::More tests => 2;
+
+use lib 'lib';
+
+BEGIN {
+       use_ok( 'Redis' );
+}
+
+ok( my $o = Redis->new(), 'new' );
+
+ok( $o->ping, 'ping' );
+
+ok( $o = Redis->new( server => 'localhost:6379' ), 'new with server' );
+
+diag "Multi-bulk mget and mset commands";
+
+my $l = 5;
+
+my @k = map { "key $_" } 1..$l;
+my @v = map { "value $_" } 1..$l;
+
+my @kv = map { $k[$_], $v[$_] } 0..$l-1;
+
+$o->mset(@kv);
+my @got_v = $o->mget(@k);
+
+ok( eq_array(\@got_v, \@v), "mgot $l values: " . join(', ', @got_v) );