t/02-Redis-multibulk-mget-mset.t

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use Test::More tests => 5;
   7
   8 use lib 'lib';
   9
  10 BEGIN {
  11         use_ok( 'Redis' );
  12 }
  13
  14 ok( my $o = Redis->new(), 'new' );
  15
  16 ok( $o->ping, 'ping' );
  17
  18 ok( $o = Redis->new( server => 'localhost:6379' ), 'new with server' );
  19
  20 diag "Multi-bulk mget and mset commands";
  21
  22 my $l = 5;
  23
  24 my @k = map { "key $_" } 1..$l;
  25 my @v = map { "value $_" } 1..$l;
  26
  27 my @kv = map { $k[$_], $v[$_] } 0..$l-1;
  28
  29 $o->mset(@kv);
  30 my @got_v = $o->mget(@k);
  31
  32 ok( eq_array(\@got_v, \@v), "mgot $l values: " . join(', ', @got_v) );