Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[spec] first simple tests for :sameaccent regex modifier

git-svn-id: http://svn.pugscode.org/pugs@20811 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit b694631f2d99c3f1a58bbc5f8a7f00f55aa7e2da 1 parent f7c5811
moritz authored
Showing with 31 additions and 0 deletions.
  1. +31 −0 S05-modifier/sameaccent.t
View
31 S05-modifier/sameaccent.t
@@ -0,0 +1,31 @@
+use v6;
+use Test;
+plan 6;
+
+=begin description
+
+Testing the C<:aa> or C<:sameaccent> modifier - as always, need more tests
+
+=end description
+
+{
+ my $s = 'äaä';
+ ok $s ~~ s:aa/aaa/ooo/, ':aa implies :a';
+ is $s, 'öoö',
+ ':aa transported accent information from source to destination';
+}
+
+{
+ my $s = 'äa';
+ ok $s ~~ s:aa/a+/oooo/, ':aa works with quantified atoms';
+ is $s, 'öooo', ':aa transported case information to longer substitution string';
+}
+
+{
+ my $s = '';
+ ok $s ~~ s:aa/a+/oooo/, ':aa works with quantified atoms';
+ is $s, 'oööö', ':aa transported case information to longer substitution string';
+}
+
+
+# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.