Test a function: Difference between revisions

Content added Content deleted
No edit summary
(→‎{{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 =