Fix bogus tests wrt to { /a/ }

see http://irclog.perlgeek.de/perl6/2015-09-23#i_11262007
Raku · Sep 23, 2015 · b8cd2e8 · b8cd2e8
1 parent 579fc71
commit b8cd2e8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/integration/advent2010-day10.t b/integration/advent2010-day10.t
@@ -23,5 +23,5 @@ my @result;
 }
 
 my @rakudo-people = <scott patrick carl moritz jonathan jerry stephen>;
-@rakudo-people ==> grep { /at/ } ==> map { .tc } ==> my @who-it's-at;
+@rakudo-people ==> grep /at/ ==> map { .tc } ==> my @who-it's-at;
 is ~@who-it's-at, 'Patrick Jonathan', 'right feed';
diff --git a/integration/advent2011-day23.t b/integration/advent2011-day23.t
@@ -106,7 +106,7 @@ my @squares = map { $_ * $_ }, @a;
 is-deeply [@squares], [1, 4, 9], 'my @squares = map { $_ * $_ }, @a;';
 
 @a = 10, 20, 'dog', 30, 'cat', 'dog', 20, '40';
-my @starts_with_number = grep { /^\d/ }, @a;
+my @starts_with_number = grep /^\d/, @a;
 is-deeply [@starts_with_number], [10, 20, 30, 20, '40'], '@starts_with_number = grep { /^\d/ }, @a;';
 
 # Magic diamond