mget

[perl-Redis.git] / t / 01-Redis.t

diff --git a/t/01-Redis.t b/t/01-Redis.t
index 85e9c93..7c9ec64 100755 (executable)
--- a/t/01-Redis.t
+++ b/t/01-Redis.t
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 94;
+use Test::More tests => 95;
 
 use lib 'lib';
 
@@ -45,6 +45,8 @@ my $key_next = 3;
 
 ok( $o->set('key-left' => $key_next), 'key-left' );
 
+is_deeply( [ $o->mget( 'foo', 'key-next', 'key-left' ) ], [ 'baz', 0, 3 ], 'mget' );
+
 my @keys;
 
 foreach ( 0 .. $key_next ) {