Update Unicode-Collate to CPAN version 1.00
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 27 Oct 2013 22:06:43 +0000 (22:06 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 27 Oct 2013 22:06:43 +0000 (22:06 +0000)
  [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.

130 files changed:
Porting/Maintainers.pl
cpan/Unicode-Collate/Collate.pm
cpan/Unicode-Collate/mkheader
cpan/Unicode-Collate/t/altern.t
cpan/Unicode-Collate/t/backwds.t
cpan/Unicode-Collate/t/cjk_b5.t
cpan/Unicode-Collate/t/cjk_gb.t
cpan/Unicode-Collate/t/cjk_ja.t
cpan/Unicode-Collate/t/cjk_ko.t
cpan/Unicode-Collate/t/cjk_py.t
cpan/Unicode-Collate/t/cjk_st.t
cpan/Unicode-Collate/t/cjk_zy.t
cpan/Unicode-Collate/t/cjkrange.t
cpan/Unicode-Collate/t/compatui.t
cpan/Unicode-Collate/t/contract.t
cpan/Unicode-Collate/t/default.t
cpan/Unicode-Collate/t/hangtype.t
cpan/Unicode-Collate/t/hangul.t
cpan/Unicode-Collate/t/ident.t
cpan/Unicode-Collate/t/iglevel2.t
cpan/Unicode-Collate/t/ignor.t
cpan/Unicode-Collate/t/illegal.t
cpan/Unicode-Collate/t/illegalp.t
cpan/Unicode-Collate/t/index.t
cpan/Unicode-Collate/t/loc_af.t
cpan/Unicode-Collate/t/loc_ar.t
cpan/Unicode-Collate/t/loc_as.t
cpan/Unicode-Collate/t/loc_az.t
cpan/Unicode-Collate/t/loc_be.t
cpan/Unicode-Collate/t/loc_bg.t
cpan/Unicode-Collate/t/loc_bn.t
cpan/Unicode-Collate/t/loc_bs.t
cpan/Unicode-Collate/t/loc_bscy.t
cpan/Unicode-Collate/t/loc_ca.t
cpan/Unicode-Collate/t/loc_cjk.t
cpan/Unicode-Collate/t/loc_cjkc.t
cpan/Unicode-Collate/t/loc_cs.t
cpan/Unicode-Collate/t/loc_cy.t
cpan/Unicode-Collate/t/loc_cyrl.t
cpan/Unicode-Collate/t/loc_da.t
cpan/Unicode-Collate/t/loc_de.t
cpan/Unicode-Collate/t/loc_deph.t
cpan/Unicode-Collate/t/loc_ee.t
cpan/Unicode-Collate/t/loc_eo.t
cpan/Unicode-Collate/t/loc_es.t
cpan/Unicode-Collate/t/loc_estr.t
cpan/Unicode-Collate/t/loc_et.t
cpan/Unicode-Collate/t/loc_fa.t
cpan/Unicode-Collate/t/loc_fi.t
cpan/Unicode-Collate/t/loc_fil.t
cpan/Unicode-Collate/t/loc_fiph.t
cpan/Unicode-Collate/t/loc_fo.t
cpan/Unicode-Collate/t/loc_fr.t
cpan/Unicode-Collate/t/loc_gu.t
cpan/Unicode-Collate/t/loc_ha.t
cpan/Unicode-Collate/t/loc_haw.t
cpan/Unicode-Collate/t/loc_hi.t
cpan/Unicode-Collate/t/loc_hr.t
cpan/Unicode-Collate/t/loc_hu.t
cpan/Unicode-Collate/t/loc_hy.t
cpan/Unicode-Collate/t/loc_ig.t
cpan/Unicode-Collate/t/loc_is.t
cpan/Unicode-Collate/t/loc_ja.t
cpan/Unicode-Collate/t/loc_jait.t
cpan/Unicode-Collate/t/loc_japr.t
cpan/Unicode-Collate/t/loc_kk.t
cpan/Unicode-Collate/t/loc_kl.t
cpan/Unicode-Collate/t/loc_kn.t
cpan/Unicode-Collate/t/loc_ko.t
cpan/Unicode-Collate/t/loc_kok.t
cpan/Unicode-Collate/t/loc_ln.t
cpan/Unicode-Collate/t/loc_lt.t
cpan/Unicode-Collate/t/loc_lv.t
cpan/Unicode-Collate/t/loc_mk.t
cpan/Unicode-Collate/t/loc_ml.t
cpan/Unicode-Collate/t/loc_mr.t
cpan/Unicode-Collate/t/loc_mt.t
cpan/Unicode-Collate/t/loc_nb.t
cpan/Unicode-Collate/t/loc_nn.t
cpan/Unicode-Collate/t/loc_nso.t
cpan/Unicode-Collate/t/loc_om.t
cpan/Unicode-Collate/t/loc_or.t
cpan/Unicode-Collate/t/loc_pa.t
cpan/Unicode-Collate/t/loc_pl.t
cpan/Unicode-Collate/t/loc_ro.t
cpan/Unicode-Collate/t/loc_ru.t
cpan/Unicode-Collate/t/loc_sa.t
cpan/Unicode-Collate/t/loc_se.t
cpan/Unicode-Collate/t/loc_si.t
cpan/Unicode-Collate/t/loc_sidt.t
cpan/Unicode-Collate/t/loc_sk.t
cpan/Unicode-Collate/t/loc_sl.t
cpan/Unicode-Collate/t/loc_sq.t
cpan/Unicode-Collate/t/loc_sr.t
cpan/Unicode-Collate/t/loc_srla.t
cpan/Unicode-Collate/t/loc_sv.t
cpan/Unicode-Collate/t/loc_svrf.t
cpan/Unicode-Collate/t/loc_sw.t
cpan/Unicode-Collate/t/loc_ta.t
cpan/Unicode-Collate/t/loc_te.t
cpan/Unicode-Collate/t/loc_test.t
cpan/Unicode-Collate/t/loc_th.t
cpan/Unicode-Collate/t/loc_tn.t
cpan/Unicode-Collate/t/loc_to.t
cpan/Unicode-Collate/t/loc_tr.t
cpan/Unicode-Collate/t/loc_uk.t
cpan/Unicode-Collate/t/loc_ur.t
cpan/Unicode-Collate/t/loc_vi.t
cpan/Unicode-Collate/t/loc_wae.t
cpan/Unicode-Collate/t/loc_wo.t
cpan/Unicode-Collate/t/loc_yo.t
cpan/Unicode-Collate/t/loc_zh.t
cpan/Unicode-Collate/t/loc_zhb5.t
cpan/Unicode-Collate/t/loc_zhgb.t
cpan/Unicode-Collate/t/loc_zhpy.t
cpan/Unicode-Collate/t/loc_zhst.t
cpan/Unicode-Collate/t/loc_zhzy.t
cpan/Unicode-Collate/t/nonchar.t
cpan/Unicode-Collate/t/normal.t
cpan/Unicode-Collate/t/notable.t
cpan/Unicode-Collate/t/overcjk0.t
cpan/Unicode-Collate/t/overcjk1.t
cpan/Unicode-Collate/t/override.t
cpan/Unicode-Collate/t/rearrang.t
cpan/Unicode-Collate/t/rewrite.t
cpan/Unicode-Collate/t/test.t
cpan/Unicode-Collate/t/trailwt.t
cpan/Unicode-Collate/t/variable.t
cpan/Unicode-Collate/t/version.t
cpan/Unicode-Collate/t/view.t

index 17f7370..859275c 100755 (executable)
@@ -1241,7 +1241,7 @@ use File::Glob qw(:case);
     },
 
     'Unicode::Collate' => {
-        'DISTRIBUTION' => 'SADAHIRO/Unicode-Collate-0.99.tar.gz',
+        'DISTRIBUTION' => 'SADAHIRO/Unicode-Collate-1.00.tar.gz',
         'FILES'        => q[cpan/Unicode-Collate],
         'EXCLUDED'     => [
             qr{N$},
index 48840ec..75a3560 100644 (file)
@@ -4,6 +4,9 @@ BEGIN {
     unless ("A" eq pack('U', 0x41)) {
        die "Unicode::Collate cannot stringify a Unicode code point\n";
     }
+    unless (0x41 == unpack('U', 'A')) {
+       die "Unicode::Collate cannot get a Unicode code point\n";
+    }
 }
 
 use 5.006;
@@ -14,7 +17,7 @@ use File::Spec;
 
 no warnings 'utf8';
 
-our $VERSION = '0.99';
+our $VERSION = '1.00';
 our $PACKAGE = __PACKAGE__;
 
 ### begin XS only ###
@@ -608,6 +611,7 @@ sub _pack_override ($$$) {
     } elsif (defined $r) {
        return pack(VCE_TEMPLATE, NON_VAR, $r, Min2Wt, Min3Wt, $u);
     } else {
+       $u = 0xFFFD if 0x10FFFF < $u;
        return $der->($u);
     }
 }
@@ -1500,19 +1504,21 @@ If a false value (including C<undef>) is passed, C<overrideOut>
 has no effect.
 C<$Collator-E<gt>change(overrideOut =E<gt> 0)> resets the old one.
 
+B<NOTE ABOUT U+FFFD:>
+
 UCA recommends that out-of-range values should not be ignored for security
 reasons. Say, C<"pe\x{110000}rl"> should not be equal to C<"perl">.
 However, C<U+FFFD> is wrongly mapped to a variable collation element
 in DUCET for Unicode 6.0.0 to 6.2.0, that means out-of-range values will be
 ignored when C<variable> isn't C<Non-ignorable>.
 
-Unicode 6.3.0 will correct the mapping of C<U+FFFD>.
-see L<http://www.unicode.org/reports/tr10/tr10-27.html#Trailing_Weights>.
-Such a correction is reproduced by this.
+The mapping of C<U+FFFD> is corrected in Unicode 6.3.0.
+see L<http://www.unicode.org/reports/tr10/tr10-28.html#Trailing_Weights>
+(7.1.4 Trailing Weights). Such a correction is reproduced by this.
 
   overrideOut => sub { 0xFFFD }, # CODEREF returning a very large integer
 
-Since Unicode 6.3.0, C<(overrideOut =E<gt> sub { 0xFFFD })> may be unnecesssary.
+This workaround is unnecessary since Unicode 6.3.0.
 
 =item preprocess
 
index c3d0ebf..a575f43 100644 (file)
@@ -22,6 +22,9 @@ BEGIN {
     unless ("A" eq pack('U', 0x41)) {
        die "Unicode::Collate cannot stringify a Unicode code point\n";
     }
+    unless (0x41 == unpack('U', 'A')) {
+       die "Unicode::Collate cannot get a Unicode code point\n";
+    }
 }
 
 use constant TRUE  => 1;
index d87795c..8db8f7f 100644 (file)
@@ -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}) {
index 02309fd..765acac 100644 (file)
@@ -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}) {
index 6039b71..666a063 100644 (file)
@@ -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}) {
index 768faa3..08d2365 100644 (file)
@@ -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}) {
index 9edd5e0..0ca453c 100644 (file)
@@ -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}) {
index 8773c44..3deabf6 100644 (file)
@@ -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}) {
index e0802f1..78e0f7c 100644 (file)
@@ -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}) {
index 0b232af..a9952fa 100644 (file)
@@ -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}) {
index 8d8e5e0..2d17a4a 100644 (file)
@@ -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}) {
index e3d4f38..0acc379 100644 (file)
@@ -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}) {
index 822743e..fd64d7f 100644 (file)
@@ -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}) {
index da7e967..d659562 100644 (file)
@@ -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}) {
index 14a9693..bdc46db 100644 (file)
@@ -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}) {
index 5aa7d49..cb0391e 100644 (file)
@@ -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}) {
index 9df2344..364bf37 100644 (file)
@@ -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}) {
index 4f132d4..0b5ddb3 100644 (file)
@@ -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}) {
index ff519aa..f56a5ac 100644 (file)
@@ -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}) {
index 6e4a4e8..f1606ae 100644 (file)
@@ -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}) {
index 7fa81e4..905f4f6 100644 (file)
@@ -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}) {
@@ -25,7 +28,7 @@ BEGIN {
 
 use strict;
 use warnings;
-BEGIN { $| = 1; print "1..127\n"; } # 77 + 5 x @Versions
+BEGIN { $| = 1; print "1..131\n"; } # 81 + 5 x @Versions
 my $count = 0;
 sub ok ($;$) {
     my $p = my $r = shift;
@@ -222,3 +225,9 @@ $out->change(overrideOut => 0);
 ok($out->lt('',         "\x{123456}"));
 ok($out->eq("\x{FFFD}", "\x{123456}"));
 
+$out->change(overrideOut => sub { undef });
+ok($out->lt('',         "\x{123456}"));
+ok($out->eq("\x{FFFD}", "\x{123456}"));
+ok($out->eq("\x{FFFD}", "\x{21FFFFF}"));
+ok($out->eq("\x{FFFD}", "\x{2200000}"));
+
index 2cdd590..04c1d1c 100644 (file)
@@ -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}) {
index 11cf618..51dd0ae 100644 (file)
@@ -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}) {
index 7756c04..51176c9 100644 (file)
@@ -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}) {
index ada2ba3..0ce7950 100644 (file)
@@ -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}) {
index e188f64..2d28f90 100644 (file)
@@ -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}) {
index 5f9374a..855e6bc 100644 (file)
@@ -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}) {
index 22a045c..5d1dfee 100644 (file)
@@ -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}) {
index a17ef54..792b4b1 100644 (file)
@@ -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}) {
index f0fd826..385cf5b 100644 (file)
@@ -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}) {
index 9325f75..f798734 100644 (file)
@@ -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}) {
index b2283dd..ce3457f 100644 (file)
@@ -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}) {
index f574595..80923ff 100644 (file)
@@ -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}) {
index 79f0d6d..2466787 100644 (file)
@@ -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}) {
index 4f9f9e9..f7ae272 100644 (file)
@@ -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}) {
index 0c27c8b..4f309ee 100644 (file)
@@ -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}) {
index 9daf661..5c90162 100644 (file)
@@ -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}) {
index 47cb27d..d625d5d 100644 (file)
@@ -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}) {
index 48639e2..cb25a55 100644 (file)
@@ -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}) {
index 402be02..a1f191c 100644 (file)
@@ -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}) {
index a9c9d2b..4a11df4 100644 (file)
@@ -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}) {
index 3b0ea27..475e194 100644 (file)
@@ -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}) {
index 997a045..3ab8890 100644 (file)
@@ -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}) {
index 81665ac..8ee72a4 100644 (file)
@@ -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}) {
index 4489230..45b7797 100644 (file)
@@ -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}) {
index 5a6a774..2c0e60b 100644 (file)
@@ -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}) {
index 94bcede..7cc4678 100644 (file)
@@ -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}) {
index d460532..ab18818 100644 (file)
@@ -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}) {
index 379d285..77f0eac 100644 (file)
@@ -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}) {
index ba08bcb..1b8c578 100644 (file)
@@ -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}) {
index c0aa761..bfb50aa 100644 (file)
@@ -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}) {
index 66eff34..f080eb3 100644 (file)
@@ -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}) {
index 4b8732a..f9c4b21 100644 (file)
@@ -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}) {
index 17af493..3740881 100644 (file)
@@ -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}) {
index 660cb09..c2e43ac 100644 (file)
@@ -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}) {
index 847722d..9a6b678 100644 (file)
@@ -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}) {
index 7d49e6b..c539bbe 100644 (file)
@@ -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}) {
index c8ef8d3..37c87e4 100644 (file)
@@ -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}) {
index 3ff93e3..a728266 100644 (file)
@@ -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}) {
index 1c0f74b..3d07700 100644 (file)
@@ -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}) {
index c4cd2b4..6b0eadd 100644 (file)
@@ -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}) {
index c4353d6..7fa7125 100644 (file)
@@ -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}) {
index 70d7b57..558f3d1 100644 (file)
@@ -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}) {
index 4b7b67b..e02a76d 100644 (file)
@@ -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}) {
index ef8b7d4..294e974 100644 (file)
@@ -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}) {
index 3e1197e..6a9b176 100644 (file)
@@ -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}) {
index 8d2f39e..3c27325 100644 (file)
@@ -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}) {
index 2fb0da7..daa5e58 100644 (file)
@@ -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}) {
index 4581bdc..0b87dcb 100644 (file)
@@ -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}) {
index b3e46fa..d472e6b 100644 (file)
@@ -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}) {
index b2340f6..ff1840c 100644 (file)
@@ -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}) {
index f859334..04f949c 100644 (file)
@@ -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}) {
index c0f75b5..df57584 100644 (file)
@@ -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}) {
index fca789f..ac25fe5 100644 (file)
@@ -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}) {
index 8c601f0..0761fe8 100644 (file)
@@ -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}) {
index f582acc..0f7268b 100644 (file)
@@ -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}) {
index c3bc54a..1ca04d1 100644 (file)
@@ -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}) {
index 671eff7..4133f75 100644 (file)
@@ -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}) {
index f455c67..935f8b2 100644 (file)
@@ -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}) {
index 74e6ce5..91e78bb 100644 (file)
@@ -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}) {
index f29e615..4fffaef 100644 (file)
@@ -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}) {
index 6c13e40..af5b528 100644 (file)
@@ -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}) {
index ba4fb7e..5797b7d 100644 (file)
@@ -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}) {
index ff21398..c920858 100644 (file)
@@ -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}) {
index 0ee7fe3..fb7f3f4 100644 (file)
@@ -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}) {
index 41f344e..0420f58 100644 (file)
@@ -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}) {
index 5e46a21..0908e80 100644 (file)
@@ -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}) {
index adbb401..fab3882 100644 (file)
@@ -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}) {
index f5cbc54..5bd122a 100644 (file)
@@ -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}) {
index 1367076..5bcf24f 100644 (file)
@@ -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}) {
index 56dee60..5d577e6 100644 (file)
@@ -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}) {
index 3582d3e..03d48c2 100644 (file)
@@ -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}) {
index 1b03104..8eea66a 100644 (file)
@@ -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}) {
index c30ae69..b118555 100644 (file)
@@ -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}) {
index 0d250f5..daccc68 100644 (file)
@@ -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}) {
index 38a47c2..b1d587d 100644 (file)
@@ -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}) {
index 74d6710..8ede629 100644 (file)
@@ -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}) {
index fa84bd8..e9a85ee 100644 (file)
@@ -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}) {
index be11514..44a66db 100644 (file)
@@ -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}) {
index 1913344..30c9120 100644 (file)
@@ -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}) {
index 727b706..246b3ff 100644 (file)
@@ -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}) {
index b0944c1..bf6c352 100644 (file)
@@ -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}) {
index 8fddb91..c7e78c1 100644 (file)
@@ -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}) {
index c6102ed..252c85b 100644 (file)
@@ -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}) {
index 9867049..de1cc37 100644 (file)
@@ -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}) {
index e9093e5..9a4c464 100644 (file)
@@ -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}) {
index a0e8969..265c2ee 100644 (file)
@@ -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}) {
index 882b112..bf765f7 100644 (file)
@@ -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}) {
index ece0f34..7cf2212 100644 (file)
@@ -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}) {
index 6c37bb8..f3f4753 100644 (file)
@@ -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}) {
index f6f767d..65ca65a 100644 (file)
@@ -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}) {
index 789cfb6..cddec6f 100644 (file)
@@ -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}) {
index 9046468..dd0fa10 100644 (file)
@@ -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}) {
index 1481dee..4e9ff24 100644 (file)
@@ -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}) {
index 5c35f2a..2f8b106 100644 (file)
@@ -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}) {
index bbbf41f..7c816eb 100644 (file)
@@ -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}) {
index 2b47b28..8a2a7e6 100644 (file)
@@ -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}) {
index 8de502e..f018513 100644 (file)
@@ -1,7 +1,10 @@
 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}) {
index 1243517..f9baf8a 100644 (file)
@@ -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}) {
index 081f57b..544f71a 100644 (file)
@@ -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}) {
index 7bee176..c7216cc 100644 (file)
@@ -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}) {
index 025a369..ab6b8f6 100644 (file)
@@ -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}) {
index dd48af8..6782938 100644 (file)
@@ -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}) {
index 7c58e16..0ac0aae 100644 (file)
@@ -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}) {
index 00feead..37f795d 100644 (file)
@@ -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}) {
index 1a6966e..74991e7 100644 (file)
@@ -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}) {
index 02cc728..82a8877 100644 (file)
@@ -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}) {
index 2f0ab99..03cf44d 100644 (file)
@@ -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}) {
index 4759533..bf5c113 100644 (file)
@@ -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}) {