Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

90 lines (70 sloc) 2.531 kb
use v6;
use Test;
=begin pod
This file was originally derived from the perl5 CPAN module Perl6::Rules,
version 0.3 (12 Apr 2004), file t/overlapping.t.
It probably needs a few syntax updates to remove p5isms
=end pod
plan 21;
#?pugs emit force_todo(2,3,5,6,10);
# should be: L<S05/Modifiers/With the new C<:ov> (C<:overlap>) modifier,>
# L<S05/Modifiers/match at all possible character positions>
my $str = "abrAcadAbbra";
my @expected = (
[ 0, 'abrAcadAbbra' ],
[ 3, 'AcadAbbra' ],
[ 5, 'adAbbra' ],
[ 7, 'Abbra' ],
);
#?rakudo skip "m:overlap// NYI"
{
for (1..2) -> $rep {
ok($str ~~ m:i:overlap/ a .+ a /, "Repeatable overlapping match ($rep)" );
ok(@$/ == @expected, "Correct number of matches ($rep)" );
my %expected; %expected{map {$_[1]}, @expected} = (1) x @expected;
my %position; %position{map {$_[1]}, @expected} = map {$_[0]}, @expected;
for (@$/) {
ok( %expected{$_}, "Matched '$_' ($rep)" );
ok( %position{$_} == $_.to, "At correct position of '$_' ($rep)" );
%expected{$_} :delete;
}
ok(%expected.keys == 0, "No matches missed ($rep)" );
}
}
#?rakudo skip "m:overlap// NYI"
{
ok(!( "abcdefgh" ~~ m:overlap/ a .+ a / ), 'Failed overlapping match');
ok(@$/ == 0, 'No matches');
ok($str ~~ m:i:overlap/ a (.+) a /, 'Capturing overlapping match');
ok(@$/ == @expected, 'Correct number of capturing matches');
my %expected; %expected{@expected} = (1) x @expected;
for (@$/) {
my %expected; %expected{map {$_[1]}, @expected} = (1) x @expected;
ok( $_[1] = substr($_[0],1,-1), "Captured within '$_'" );
%expected{$_} :delete;
}
}
{
# $str eq abrAcadAbbra
my @match = $str.match(/a .* a/, :ov).list;
is +@match, 2, "Two matches found";
is ~@match[0], "abrAcadAbbra", "First is abrAcadAbbra";
is ~@match[1], "adAbbra", "Second is adAbbra";
}
{
# $str eq abrAcadAbbra
my @match = $str.match(/a .* a/, :overlap).list;
is +@match, 2, "Two matches found";
is ~@match[0], "abrAcadAbbra", "First is abrAcadAbbra";
is ~@match[1], "adAbbra", "Second is adAbbra";
}
{
my @match = "aababcabcd".match(/a .*/, :ov).list;
is +@match, 4, "Four matches found";
is ~@match[0], "aababcabcd", "First is aababcabcd";
is ~@match[1], "ababcabcd", "Second is ababcabcd";
is ~@match[2], "abcabcd", "Third is abcabcd";
is ~@match[3], "abcd", "Last is abcd";
}
done;
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.