diff options
| author |   afresh1 <afresh1@openbsd.org> | 2014-11-17 20:52:31 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2014-11-17 20:52:31 +0000 |
| commit | 6fb12b7054efc6b436584db6cef9c2f85c0d7e27 (patch) | |
| tree | aa09a524574ec7ae2f521a24573deeecb78ff66a /gnu/usr.bin/perl/cpan/Unicode-Collate/t/index.t | |
| parent | Add the Cammelia cipher to libcrypto. (diff) | |
| download | wireguard-openbsd-6fb12b7054efc6b436584db6cef9c2f85c0d7e27.tar.xz wireguard-openbsd-6fb12b7054efc6b436584db6cef9c2f85c0d7e27.zip | |
Import perl-5.20.1
Diffstat (limited to 'gnu/usr.bin/perl/cpan/Unicode-Collate/t/index.t')
| -rwxr-xr-x | gnu/usr.bin/perl/cpan/Unicode-Collate/t/index.t | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/cpan/Unicode-Collate/t/index.t b/gnu/usr.bin/perl/cpan/Unicode-Collate/t/index.t index 11cf618f5a5..51dd0ae5bdf 100755 --- a/gnu/usr.bin/perl/cpan/Unicode-Collate/t/index.t +++ b/gnu/usr.bin/perl/cpan/Unicode-Collate/t/index.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}) { |