use Perl6::Rules;
use Test::Simple 'no_plan';

ok( "abcabcabcabcd" =~ m/[abc]<4>/, "Fixed exact repetition" );
ok( "abcabcabcabcd" !~ m/[abc]<5>/, "Fail fixed exact repetition" );
ok( "abcabcabcabcd" =~ m/[abc]<2,4>/, "Fixed range repetition" );
ok( "abcabcabcabcd" =~ m/[abc]<2,4>/, "Fixed range repetition" );
ok( "abc"           !~ m/[abc]<2,4>/, "Fail fixed range repetition" );
ok( "abcabcabcabcd" =~ m/[abc]<2,>/, "Open range repetition" );
ok( "abcd"          !~ m/[abc]<2,>/, "Fail open range repetition" );