diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-10-27 22:06:43 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-10-27 22:06:43 +0000 |
| commit | d8e4b4ea5f6bacfe838c2320064e9a286cc61411 (patch) | |
| tree | 3ccea13022c1f58fd8a6977d4556eb1005ca34c9 /cpan/Unicode-Collate/t/loc_fi.t | |
| parent | 63dc8a94deaa9937caf38077e5dc129624128d08 (diff) | |
| download | perl-d8e4b4ea5f6bacfe838c2320064e9a286cc61411.tar.gz | |
Update Unicode-Collate to CPAN version 1.00
[DELTA]
1.00 Sun Oct 27 13:22:17 2013
- When a subroutine by 'overrideOut' taking a out-of-range value and
returning undef, now the value is treated as if it were U+FFFD.
* 0.99 wrongly calculates implicit weights based on out-of-range values.
- Assertion using unpack 'U' is added. If not only pack('U') but also
unpack('U') of CORE:: don't work as expected, this module will die.
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_fi.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/loc_fi.t | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/cpan/Unicode-Collate/t/loc_fi.t b/cpan/Unicode-Collate/t/loc_fi.t index d4605329d2..ab1881803b 100644 --- a/cpan/Unicode-Collate/t/loc_fi.t +++ b/cpan/Unicode-Collate/t/loc_fi.t @@ -1,8 +1,11 @@ BEGIN { - unless ("A" eq pack('U', 0x41)) { - print "1..0 # Unicode::Collate " . - "cannot stringify a Unicode code point\n"; + unless ('A' eq pack('U', 0x41)) { + print "1..0 # Unicode::Collate cannot pack a Unicode code point\n"; + exit 0; + } + unless (0x41 == unpack('U', 'A')) { + print "1..0 # Unicode::Collate cannot get a Unicode code point\n"; exit 0; } if ($ENV{PERL_CORE}) { |