Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: a7483bec00
Fetching contributors…

Cannot retrieve contributors at this time

file 40 lines (30 sloc) 0.89 kb
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
use v6;
use Test;
plan 8;

=begin description

Testing the C<:mm> or C<:samemark> modifier - as always, need more tests

# L<S05/Modifiers/:samemark>

=end description

#?pugs 999 skip feature
{
    my $s = 'äaä';
    ok $s ~~ s:mm/aaa/ooo/, ':mm implies :m';
    is $s, 'öoö',
       ':mm transported mark information from source to destination';
}

{
    my $s = 'äa';
    ok $s ~~ s:mm/a+/oooo/, ':mm works with quantified atoms';
    is $s, 'öooo', ':mm transported case information to longer substitution string';
}

{
    my $s = 'aä';
    ok $s ~~ s:mm/a+/oooo/, ':mm works with quantified atoms';
    is $s, 'oööö', ':mm transported case information to longer substitution string';
}

{
    my $s = 'aäää oööö';
    ok $s ~~ s:mm:s/a+ o+/OOO UU/, 'combined :mm and :s match';
    is $s, 'OÖÖ UÜ', ':mm :s carry marks on a word-by-word base';
}


# vim: ft=perl6
Something went wrong with that request. Please try again.