diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2011-01-18 23:14:55 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2011-01-18 23:44:59 +0000 |
| commit | cac3df65afe2fed9ad80147a24b5ae6ea601a609 (patch) | |
| tree | 5d10def5c4948b70c5897fb6474d490e260165fc /cpan/Unicode-Collate/t | |
| parent | d981ef2485de59a9de4d1fe1ddfbd76889abe0b9 (diff) | |
| download | perl-cac3df65afe2fed9ad80147a24b5ae6ea601a609.tar.gz | |
Update Unicode-Collate to CPAN version 0.71
[DELTA]
0.71 Tue Jan 18 22:29:44 2011
- t/loc_test.t should not fail without Unicode::Normalize.
Diffstat (limited to 'cpan/Unicode-Collate/t')
| -rw-r--r-- | cpan/Unicode-Collate/t/loc_test.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/cpan/Unicode-Collate/t/loc_test.t b/cpan/Unicode-Collate/t/loc_test.t index 60c9773af3..8d7d74a816 100644 --- a/cpan/Unicode-Collate/t/loc_test.t +++ b/cpan/Unicode-Collate/t/loc_test.t @@ -130,7 +130,8 @@ ok("@sortFr" eq "@listFr"); { my $keyXS = '__useXS'; # see Unicode::Collate internal - my $UseXS = ref Unicode::Collate->new->{$keyXS}; + 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); |