diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-03-26 21:23:45 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-02 08:29:14 -0600 |
| commit | 869ae7827732501e20a56906ccd75f38d58a29b3 (patch) | |
| tree | c9252c77697bb9ca6e8c9d450cdd638f8935ce31 /lib/charnames.t | |
| parent | b67abedff220a81fbd72e6f9ca7b8d0fec0536e8 (diff) | |
| download | perl-869ae7827732501e20a56906ccd75f38d58a29b3.tar.gz | |
charnames.t: Skip hangul syllable testing for early Unicodes
If the Unicode release doesn't contain hangul syllables, just skip those
tests
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 599b705458..b7a04ea5ab 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -1053,6 +1053,8 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}", 'V } close $fh; + use Unicode::UCD; + if (pack("C*", split /\./, Unicode::UCD::UnicodeVersion()) gt v1.1.5) { # The Hangul syllable names aren't in the file above; their names # are algorithmically determinable, but to avoid perpetuating any # programming errors, this file contains the complete list, gathered @@ -1066,6 +1068,7 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}", 'V my $block = $decimal >> $block_size_bits; $algorithmic_names_count[$block] = 1; } + } open $fh, "<", "../../lib/unicore/NameAliases.txt" or die "Can't open ../../lib/unicore/NameAliases.txt: $!"; |