Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 40 lines (29 sloc) 0.866 kb
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
1 use v6;
2 use Test;
620da0b [spec] some more :sameaccent and :ignoreaccent tests
moritz authored
3 plan 8;
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
4
5 =begin description
6
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
7 Testing the C<:mm> or C<:samemark> modifier - as always, need more tests
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
8
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
9 # L<S05/Modifiers/:samemark>
26cb83b [t/spec] more smartlinks; simplified subrule.t a bit
moritz authored
10
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
11 =end description
12
13 {
14 my $s = 'äaä';
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
15 ok $s ~~ s:mm/aaa/ooo/, ':mm implies :m';
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
16 is $s, 'öoö',
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
17 ':mm transported mark information from source to destination';
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
18 }
19
20 {
21 my $s = 'äa';
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
22 ok $s ~~ s:mm/a+/oooo/, ':mm works with quantified atoms';
23 is $s, 'öooo', ':mm transported case information to longer substitution string';
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
24 }
25
26 {
27 my $s = '';
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
28 ok $s ~~ s:mm/a+/oooo/, ':mm works with quantified atoms';
29 is $s, 'oööö', ':mm transported case information to longer substitution string';
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
30 }
31
620da0b [spec] some more :sameaccent and :ignoreaccent tests
moritz authored
32 {
33 my $s = 'aäää oööö';
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
34 ok $s ~~ s:mm:s/a+ o+/OOO UU/, 'combined :mm and :s match';
35 is $s, 'OÖÖ UÜ', ':mm :s carry marks on a word-by-word base';
620da0b [spec] some more :sameaccent and :ignoreaccent tests
moritz authored
36 }
37
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
38
39 # vim: ft=perl6
Something went wrong with that request. Please try again.