From 320101d00ceb081c61bc9605aaf7419ad4f34915 Mon Sep 17 00:00:00 2001
From: rns <rns123@ukr.net>
Date: Wed, 18 Aug 2010 11:41:42 +0300
Subject: [PATCH] mset and mget using multibulk protocol

---
 t/02-Redis-multibulk-mget-mset.t | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 t/02-Redis-multibulk-mget-mset.t

diff --git a/t/02-Redis-multibulk-mget-mset.t b/t/02-Redis-multibulk-mget-mset.t
new file mode 100644
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) );
-- 
2.20.1