--- t/01-Redis.t 2009/03/23 09:22:30 44 +++ t/01-Redis.t 2009/03/23 10:42:29 45 @@ -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 @@ 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 ) {