Unicode-Collate: synch with CPAN version 1.31

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

diff --git a/cpan/Unicode-Collate/t/loc_as.t b/cpan/Unicode-Collate/t/loc_as.t
index cbc87e4..110f116 100644 (file)
--- a/cpan/Unicode-Collate/t/loc_as.t
+++ b/cpan/Unicode-Collate/t/loc_as.t
@@ -1,13 +1,5 @@
 
 BEGIN {
-    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}) {
        chdir('t') if -d 't';
        @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
@@ -31,6 +23,9 @@ use Unicode::Collate::Locale;
 
 ok(1);
 
+sub _pack_U   { Unicode::Collate::pack_U(@_) }
+sub _unpack_U { Unicode::Collate::unpack_U(@_) }
+
 #########################
 
 my $objAs = Unicode::Collate::Locale->
@@ -42,7 +37,7 @@ $objAs->change(level => 1);
 
 for my $h (0, 1) {
     no warnings 'utf8';
-    my $t = $h ? pack('U', 0xFFFF) : 'z';
+    my $t = $h ? _pack_U(0xFFFF) : 'z';
 
     ok($objAs->lt("\x{993}$t", "\x{994}"));
     ok($objAs->lt("\x{994}$t", "\x{982}"));