Update Unicode-Collate to CPAN version 1.00

[perl5.git] / cpan / Unicode-Collate / t / cjkrange.t

diff --git a/cpan/Unicode-Collate/t/cjkrange.t b/cpan/Unicode-Collate/t/cjkrange.t
index e3d4f38..0acc379 100644 (file)
--- a/cpan/Unicode-Collate/t/cjkrange.t
+++ b/cpan/Unicode-Collate/t/cjkrange.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}) {