t/uni/case.pl: Allow overridden simple maps in input

Future commits are planned to change the base list in various
mapping tables to include the simple maps which are now suppressed
when there are full maps that override them.

The current test blindly tests all the simple maps, which would
start to fail because the core uses the full maps when available.
So, simply don't test the overridden ones.

1 files changed, 6 insertions, 1 deletions

diff --git a/t/uni/case.pl b/t/uni/case.pl
index 8a2f752459..8bd115b479 100644
--- a/t/uni/case.pl
+++ b/t/uni/case.pl
@@ -25,7 +25,12 @@ sub casetest {
     my %simple;
     for my $i (split(/\n/, $simple)) {
 	my ($k, $v) = split(' ', $i);
-	$simple{$k} = $v;
+
+        # Add the simple mapping to the simples test list, except the input
+        # may include code points that the specials override, so don't add
+        # those to the test list.  The specials keys are the code points,
+        # encoded in utf8,, but without the utf8 flag on, so pack with C0.
+	$simple{$k} = $v unless exists $spec->{pack("C0U", hex $k)};
     }
     my %seen;