Test a function: Difference between revisions
Content added Content deleted
No edit summary |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Include code to make a runnable example) |
||
Line 1,171: | Line 1,171: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
<lang perl6>use Test; |
<lang perl6>use Test; |
||
sub palin( Str $string) { so $string.lc.comb(/\w/) eq $string.flip.lc.comb(/\w/) } |
|||
my %tests = |
my %tests = |