diff options
Diffstat (limited to 'cpan/Unicode-Collate/t/variable.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/variable.t | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/cpan/Unicode-Collate/t/variable.t b/cpan/Unicode-Collate/t/variable.t index 02cc728e98..82a8877f9e 100644 --- a/cpan/Unicode-Collate/t/variable.t +++ b/cpan/Unicode-Collate/t/variable.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}) { |