diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-09-05 17:53:23 +0100 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-09-05 17:54:13 +0100 |
commit | f1a7422f0978079a8d0d4faf7e794e0305d7ed39 (patch) | |
tree | 91164fe288a375287d53419745c365e600153f85 /cpan/Unicode-Collate/t/loc_et.t | |
parent | 2f64805b37aa2413a5886cc97c696506d5100d69 (diff) | |
download | perl-f1a7422f0978079a8d0d4faf7e794e0305d7ed39.tar.gz |
Update Unicode-Collate to CPAN version 0.59
[DELTA]
0.59 Sun Sep 5 17:03:52 2010
- U::C::Locale newly supports locales: az, fil, ha, lt, mt, tr, wo, yo.
- precomposites of a-uml, o-uml, and u-uml are tailored as well.
(affected locales: da, et, fi, fo, is, kl, nb, nn, sk, sv)
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_et.t')
-rw-r--r-- | cpan/Unicode-Collate/t/loc_et.t | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/cpan/Unicode-Collate/t/loc_et.t b/cpan/Unicode-Collate/t/loc_et.t index d1526bfb1c..0fad62d5e0 100644 --- a/cpan/Unicode-Collate/t/loc_et.t +++ b/cpan/Unicode-Collate/t/loc_et.t @@ -4,7 +4,7 @@ use warnings; use Unicode::Collate::Locale; use Test; -plan tests => 41; +plan tests => 53; my $objEt = Unicode::Collate::Locale-> new(locale => 'ET', normalization => undef); @@ -62,9 +62,21 @@ ok($objEt->eq("o\x{303}", pack('U', 0xF5))); ok($objEt->eq("O\x{303}", pack('U', 0xD5))); ok($objEt->eq("a\x{308}", pack('U', 0xE4))); ok($objEt->eq("A\x{308}", pack('U', 0xC4))); +ok($objEt->eq("a\x{308}\x{304}", "\x{1DF}")); +ok($objEt->eq("A\x{308}\x{304}", "\x{1DE}")); ok($objEt->eq("o\x{308}", pack('U', 0xF6))); ok($objEt->eq("O\x{308}", pack('U', 0xD6))); +ok($objEt->eq("o\x{308}\x{304}", "\x{22B}")); +ok($objEt->eq("O\x{308}\x{304}", "\x{22A}")); ok($objEt->eq("u\x{308}", pack('U', 0xFC))); ok($objEt->eq("U\x{308}", pack('U', 0xDC))); +ok($objEt->eq("u\x{308}\x{300}", "\x{1DC}")); +ok($objEt->eq("U\x{308}\x{300}", "\x{1DB}")); +ok($objEt->eq("u\x{308}\x{301}", "\x{1D8}")); +ok($objEt->eq("U\x{308}\x{301}", "\x{1D7}")); +ok($objEt->eq("u\x{308}\x{304}", "\x{1D6}")); +ok($objEt->eq("U\x{308}\x{304}", "\x{1D5}")); +ok($objEt->eq("u\x{308}\x{30C}", "\x{1DA}")); +ok($objEt->eq("U\x{308}\x{30C}", "\x{1D9}")); -# 41 +# 53 |