This is an automatically generated mail to inform you that tests are now
available in t/spec/S32-list/grep.t
commit 9e8d559e42aab9e93ffaae46c99d71821421de83
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Mon Jan 11 17:00:57 2010 +0000
[t/spec] Test for RT 71754: grep arity sensitivity different from map
git-svn-id: http://svn.pugscode.org/p...@29521
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S32-list/grep.t b/t/spec/S32-list/grep.t
index 4eeb6b9..3c63eba 100644
--- a/t/spec/S32-list/grep.t
+++ b/t/spec/S32-list/grep.t
@@ -9,7 +9,7 @@ built-in grep tests
=end pod
-plan 38;
+plan *;
my @list = (1 .. 10);
@@ -107,4 +107,18 @@ my @list = (1 .. 10);
'2,4,5', "grep() with non-Code matcher";
}
+# RT 71544
+{
+ my @in = ( 1, 1, 2, 3, 4, 4 );
+
+# This test passes, but it's disabled because it doesn't belong here.
+# It just kind of clarifies the test that follows.
+# is (map { $^a == $^b }, @in), (?1, ?0, ?1), 'map takes two at a time';
+
+ #?rakudo skip 'RT 71754: grep arity sensitivity different from map'
+ is (grep { $^a == $^b }, @in), (1, 1, 4, 4), 'grep takes two at a time';
+}
+
+done_testing;
+
# vim: ft=perl6
