summaryrefslogtreecommitdiff
path: root/cpan/Unicode-Collate/t/loc_et.t
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2010-09-05 17:53:23 +0100
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2010-09-05 17:54:13 +0100
commitf1a7422f0978079a8d0d4faf7e794e0305d7ed39 (patch)
tree91164fe288a375287d53419745c365e600153f85 /cpan/Unicode-Collate/t/loc_et.t
parent2f64805b37aa2413a5886cc97c696506d5100d69 (diff)
downloadperl-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.t16
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