Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 41 lines (30 sloc) 0.89 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
620da0b [spec] some more :sameaccent and :ignoreaccent tests
moritz authored
13 #?pugs 999 skip feature
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
14 {
15 my $s = 'äaä';
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
16 ok $s ~~ s:mm/aaa/ooo/, ':mm implies :m';
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
17 is $s, 'öoö',
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
18 ':mm transported mark information from source to destination';
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
19 }
20
21 {
22 my $s = 'äa';
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
23 ok $s ~~ s:mm/a+/oooo/, ':mm works with quantified atoms';
24 is $s, 'öooo', ':mm transported case information to longer substitution string';
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
25 }
26
27 {
28 my $s = '';
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
29 ok $s ~~ s:mm/a+/oooo/, ':mm works with quantified atoms';
30 is $s, 'oööö', ':mm transported case information to longer substitution string';
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
31 }
32
620da0b [spec] some more :sameaccent and :ignoreaccent tests
moritz authored
33 {
34 my $s = 'aäää oööö';
384c821 @TimToady :a and :aa changed to :m and :mm long ago
TimToady authored
35 ok $s ~~ s:mm:s/a+ o+/OOO UU/, 'combined :mm and :s match';
36 is $s, 'OÖÖ UÜ', ':mm :s carry marks on a word-by-word base';
620da0b [spec] some more :sameaccent and :ignoreaccent tests
moritz authored
37 }
38
b694631 [spec] first simple tests for :sameaccent regex modifier
moritz authored
39
40 # vim: ft=perl6
Something went wrong with that request. Please try again.