supress 'Code object coerced to string' warning

Raku · Aug 17, 2014 · 5127dd1 · 5127dd1
1 parent de0bc28
commit 5127dd1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/integration/advent2010-day22.t b/integration/advent2010-day22.t
@@ -7,11 +7,11 @@ my $rat-atts = join(', ', Rat.^attributes);
 ok ($rat-atts ~~ /'$!numerator'<wb>/ && $rat-atts ~~ /'$!denominator'<wb>/), 'Rat $!numerator $!denominator& attributes'
    or diag "Rat attributes: $rat-atts";
 
-my $rat-methods = join ', ', Rat.^methods(:local);
+my $rat-methods = join ', ', Rat.^methods(:local).map({.name});
 ok ($rat-methods ~~ /<wb>'Str'<wb>/ && $rat-methods ~~ /<wb>'round'<wb>/), 'Rat Str and round methods'
    or diag "Rat methods: $rat-methods";
 
-ok Rat.^methods(:local).grep('log').[0].signature.perl, 'log signature';
+ok Rat.^methods(:local).grep({.name eq 'log'}).[0].signature.perl, 'log signature';
 
 # sub log-calls($obj, Role $r) { ... } 
 # wrapper example omitted - see RT121967