Permalink
Browse files

[t/spec]: Refudge test in S32-list/grep.t .

git-svn-id: http://svn.pugscode.org/pugs@27783 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent adee881 commit dae7348fad4d895e05e0bea06d03bf513a4300c9 pmichaud committed Jul 28, 2009
Showing with 2 additions and 1 deletion.
  1. +2 −1 S32-list/grep.t
View
@@ -80,7 +80,8 @@ my @list = (1 .. 10);
{
my @array = <a b c d>;
- is ~(try { @array.grep: { $_ ~= "c"; 1 } }), "ac bc cc dc",
+ #?rakudo 2 skip 'test error -- is $_ rw here?'
+ is ~(@array.grep({ $_ ~= "c"; 1 })), "ac bc cc dc",
'mutating $_ in grep works (1)';
is ~@array, "ac bc cc dc",
'mutating $_ in grep works (2)';

0 comments on commit dae7348

Please sign in to comment.