Update Unicode-Collate to CPAN version 0.68

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

diff --git a/cpan/Unicode-Collate/t/loc_wo.t b/cpan/Unicode-Collate/t/loc_wo.t
index 48cb8df..3abbf10 100644 (file)
--- a/cpan/Unicode-Collate/t/loc_wo.t
+++ b/cpan/Unicode-Collate/t/loc_wo.t
@@ -1,15 +1,30 @@
-#!perl
+
+BEGIN {
+    unless ("A" eq pack('U', 0x41)) {
+       print "1..0 # Unicode::Collate " .
+           "cannot stringify a Unicode code point\n";
+       exit 0;
+    }
+    if ($ENV{PERL_CORE}) {
+       chdir('t') if -d 't';
+       @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
+    }
+}
+
+use Test;
+BEGIN { plan tests => 40 };
+

 use strict;
 use warnings;
 use Unicode::Collate::Locale;
 
 use strict;
 use warnings;
 use Unicode::Collate::Locale;
 

-use Test;
-plan tests => 40;
+ok(1);
+
+#########################

 
 my $objWo = Unicode::Collate::Locale->
     new(locale => 'WO', normalization => undef);
 
 
 my $objWo = Unicode::Collate::Locale->
     new(locale => 'WO', normalization => undef);
 

-ok(1);

 ok($objWo->getlocale, 'wo');
 
 $objWo->change(level => 1);
 ok($objWo->getlocale, 'wo');
 
 $objWo->change(level => 1);