From f58b9ef133ec1792309e75435d4b73428cef3ea2 Mon Sep 17 00:00:00 2001 From: Chris 'BinGOs' Williams Date: Sun, 23 Jan 2011 16:48:32 +0000 Subject: Update Unicode-Collate to CPAN version 0.72 Second attempt to integrate the XS version of Unicode::Collate into core. [DELTA] 0.72 Sat Jan 22 17:28:32 2011 - xs: fix mixing char* and U8*. 0.71 Tue Jan 18 22:29:44 2011 - t/loc_test.t should not fail without Unicode::Normalize. 0.70 Sun Jan 16 20:31:07 2011 - Now U::C::Locale->new will use the compiled DUCET via XS if available. added some tests in t/loc_test.t. 0.69 Sat Jan 15 19:41:11 2011 - clarified about XSUB. revised INSTALL in README. - xs: flag passed to utf8n_to_uvuni(). - doc and comments: [perl #81876] Fix typos by Peter J. Acklam. --- cpan/Unicode-Collate/t/loc_test.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'cpan/Unicode-Collate/t') diff --git a/cpan/Unicode-Collate/t/loc_test.t b/cpan/Unicode-Collate/t/loc_test.t index d1b5b4a1e4..8d7d74a816 100644 --- a/cpan/Unicode-Collate/t/loc_test.t +++ b/cpan/Unicode-Collate/t/loc_test.t @@ -12,7 +12,7 @@ BEGIN { } use Test; -BEGIN { plan tests => 116 }; +BEGIN { plan tests => 120 }; use strict; use warnings; @@ -127,3 +127,14 @@ our @sortFr = $objFr->sort(@randFr); ok("@sortFr" eq "@listFr"); # 116 + +{ + my $keyXS = '__useXS'; # see Unicode::Collate internal + my $noLoc = Unicode::Collate->new(normalization => undef); + my $UseXS = ref($noLoc->{$keyXS}); + ok(ref($Collator->{$keyXS}), $UseXS); + ok(ref($objFr ->{$keyXS}), $UseXS); + ok(ref($objEs ->{$keyXS}), $UseXS); + ok(ref($objEsT ->{$keyXS}), $UseXS); +} +# 120 -- cgit v1.2.1