Permalink
Browse files

[t/spec] test Junction matchers with .grep

git-svn-id: http://svn.pugscode.org/pugs@30311 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 47924fb commit 6939ae53cb11d26ef4a999e3f414060b17765730 moritz committed Apr 5, 2010
Showing with 7 additions and 0 deletions.
  1. +7 −0 S32-list/grep.t
View
@@ -119,6 +119,13 @@ my @list = (1 .. 10);
is (grep { $^a == $^b }, @in), (1, 1, 4, 4), 'grep takes two at a time';
}
+{
+ my @a = <a b c>;
+ my @b = <b c d>;
+ is @a.grep(any(@b)).join('|'), 'b|c', 'Junction matcher';
+
+}
+
done_testing;
# vim: ft=perl6

0 comments on commit 6939ae5

Please sign in to comment.