Add tests for case changes when we have Prepend codepoints

Raku · Sep 12, 2017 · 00554cc · 00554cc
1 parent aa2ea1a
commit 00554cc
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/S15-nfg/case-change.t b/S15-nfg/case-change.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 52;
+plan 72;
 
 # LATIN CAPITAL LETTER D, COMBINING DOT BELOW, COMBINING DOT ABOVE
 {
@@ -97,3 +97,14 @@ plan 52;
     isnt $x.fc, $x, 'fc gives identity';
     is $x.fc.NFD.list, (0x0066, 0x0323, 0x0066), 'fc gives correct NFD';
 }
+
+{
+    my $Prepend = "\c[ARABIC NUMBER SIGN]";
+    my $Extend  = "\c[COMBINING CARON]";
+    for ^10 {
+        my $lower = "{$Prepend x $_}á{$Extend x (9 - $_)}";
+        my $upper = "{$Prepend x $_}Á{$Extend x (9 - $_)}";
+        is-deeply $lower.uc, $upper, "Prepend + á + Extend casechange is correct: .uc: (Prepend x $_ ~ 'á' ~ Extend x {9 - $_}).uc";
+        is-deeply $upper.lc, $lower, "Prepend + Á + Extend casechange is correct: .lc: (Prepend x $_ ~ 'á' ~ Extend x {9 - $_}).lc";
+    }
+}