From 00554ccbd90d0063e8cfc199889715517ec60f7f Mon Sep 17 00:00:00 2001 From: Samantha McVey Date: Tue, 12 Sep 2017 08:11:36 -0700 Subject: [PATCH] Add tests for case changes when we have Prepend codepoints --- S15-nfg/case-change.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/S15-nfg/case-change.t b/S15-nfg/case-change.t index 531fceedcd..f9bf9b86c8 100644 --- 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"; + } +}