summaryrefslogtreecommitdiff
path: root/cpan/Unicode-Collate/t/loc_haw.t
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2010-11-23 19:12:21 +0000
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2010-11-23 19:14:22 +0000
commit68adb2b0c592afeb71b5a6a4f15af308d54a0db4 (patch)
treeefad211919b5983309ef8c9beff5be20d6eea0cb /cpan/Unicode-Collate/t/loc_haw.t
parent0f8e99e6b6437e33cba24699aefea8b17ce0bfc6 (diff)
downloadperl-68adb2b0c592afeb71b5a6a4f15af308d54a0db4.tar.gz
Update Unicode-Collate to CPAN version 0.68
[DELTA] 0.68 Tue Nov 23 20:17:22 2010 - doc: clarified about (backwards => [ ]) and (backwards => undef). - separated t/backwds.t from t/test.t. - added cjk_b5.t, cjk_gb.t, cjk_ja.t, cjk_ko.t, cjk_py.t, cjk_st.t in t for CJK/*.pm without Locale.pm.
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_haw.t')
-rw-r--r--cpan/Unicode-Collate/t/loc_haw.t23
1 files changed, 19 insertions, 4 deletions
diff --git a/cpan/Unicode-Collate/t/loc_haw.t b/cpan/Unicode-Collate/t/loc_haw.t
index ad0f1b1b43..3194da4605 100644
--- a/cpan/Unicode-Collate/t/loc_haw.t
+++ b/cpan/Unicode-Collate/t/loc_haw.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 => 49 };
+
use strict;
use warnings;
use Unicode::Collate::Locale;
-use Test;
-plan tests => 49;
+ok(1);
+
+#########################
my $objHaw = Unicode::Collate::Locale->
new(locale => 'HAW', normalization => undef);
-ok(1);
ok($objHaw->getlocale, 'haw');
$objHaw->change(level => 1);