1 files changed, 45 insertions, 0 deletions
diff --git a/ext/arybase/t/aeach.t b/ext/arybase/t/aeach.t
new file mode 100644
index 0000000000..f56d39e246
--- /dev/null
+++ b/ext/arybase/t/aeach.t
@@ -0,0 +1,45 @@
+use warnings;
+use strict;
+
+BEGIN {
+	if("$]" < 5.011) {
+		require Test::More;
+		Test::More::plan(skip_all => "no array each on this Perl");
+	}
+}
+
+use Test::More tests => 2;
+
+our @activity;
+
+$[ = 3;
+
+our @t0 = qw(a b c);
+@activity = ();
+foreach(0..5) {
+	push @activity, [ each(@t0) ];
+}
+is_deeply \@activity, [
+	[ 3, "a" ],
+	[ 4, "b" ],
+	[ 5, "c" ],
+	[],
+	[ 3, "a" ],
+	[ 4, "b" ],
+];
+
+our @t1 = qw(a b c);
+@activity = ();
+foreach(0..5) {
+	push @activity, [ scalar each(@t1) ];
+}
+is_deeply \@activity, [
+	[ 3 ],
+	[ 4 ],
+	[ 5 ],
+	[ undef ],
+	[ 3 ],
+	[ 4 ],
+];
+
+1;