repetition-exhaustive.t

use Test;

plan 5;

=begin description

The C<:ex> and C<:x($count)> modifiers are orthogonal, and therefore
can be combined.

Still lacking are tests for C<$/>, since the specs are not clear
how the C<$/> looks like with the C<:x($count)> modifier.

=end description

#L<S05/Modifiers/"If followed by an x, it means repetition.">
#L<S05/Modifiers/"With the new :ex">

my $str = "abbb";
my regex rx { a b+ };

ok($str  ~~ m:ex:x(2)/<rx>/, "Simple combination of :x(2) and :exhaustive");
# https://github.com/Raku/old-issue-tracker/issues/4227
#?rakudo todo 'exhaustive capture too greedy RT #125133'
is(~$/[0],  "ab", 'First entry of prev. genenerated $/');
is(~$/[1], "abb", 'Second entry of prev. genenerated $/');
ok($str  ~~ m:ex:x(3)/<rx>/, "Simple combination of :x(3) and :exhaustive");
ok($str !~~ m:ex:x(4)/<rx>/, "Simple combination of :x(4) and :exhaustive");


# vim: expandtab shiftwidth=4