t/011_each_n.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use Moose::Autobox;
   6
   7 {
   8     my @array = ('a' .. 'z');
   9
  10     my $aref = [ @array ];
  11
  12     {
  13         my @vals;
  14         @array->each_n(2, sub { push @vals, [@_] });
  15         is(scalar @vals, 13);
  16         is(scalar @$_, 2) for @vals;
  17         is_deeply(@vals->map(sub { @{ $_ } }), [@array]);
  18     }
  19
  20     {
  21         my @vals;
  22         $aref->each_n(2, sub { push @vals, [@_] });
  23         is(scalar @vals, 13);
  24         is(scalar @$_, 2) for @vals;
  25         is_deeply(@vals->map(sub { @{ $_ } }), $aref);
  26     }
  27 }
  28
  29 done_testing;