From 9dae4ccfedb1f25201f4f627227a16c7ffa2b58b Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 13 Jul 2011 10:46:04 -0600 Subject: [PATCH] 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. --- t/uni/case.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/uni/case.pl b/t/uni/case.pl index 8a2f752..8bd115b 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; -- 2.7.4