-
Notifications
You must be signed in to change notification settings - Fork 135
/
overlapping.t
89 lines (70 loc) · 2.47 KB
/
overlapping.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
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