Add Array->each_n.

[gitmo/Moose-Autobox.git] / t / 011_each_n.t

diff --git a/t/011_each_n.t b/t/011_each_n.t
new file mode 100644 (file)
index 0000000..396f446
--- /dev/null
+++ b/t/011_each_n.t
@@ -0,0 +1,29 @@
+use strict;
+use warnings;
+use Test::More;
+
+use Moose::Autobox;
+
+{
+    my @array = ('a' .. 'z');
+
+    my $aref = [ @array ];
+
+    {
+        my @vals;
+        @array->each_n(2, sub { push @vals, [@_] });
+        is(scalar @vals, 13);
+        is(scalar @$_, 2) for @vals;
+        is_deeply(@vals->map(sub { @{ $_ } }), [@array]);
+    }
+
+    {
+        my @vals;
+        $aref->each_n(2, sub { push @vals, [@_] });
+        is(scalar @vals, 13);
+        is(scalar @$_, 2) for @vals;
+        is_deeply(@vals->map(sub { @{ $_ } }), $aref);
+    }
+}
+
+done_testing;