diff options
Diffstat (limited to 'cpan/Unicode-Collate/t/trailwt.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/trailwt.t | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/cpan/Unicode-Collate/t/trailwt.t b/cpan/Unicode-Collate/t/trailwt.t index e987f8f509..de2d92cd1f 100644 --- a/cpan/Unicode-Collate/t/trailwt.t +++ b/cpan/Unicode-Collate/t/trailwt.t @@ -1,3 +1,4 @@ + BEGIN { unless ("A" eq pack('U', 0x41)) { print "1..0 # Unicode::Collate " . @@ -17,10 +18,10 @@ use strict; use warnings; use Unicode::Collate; -######################### - ok(1); +######################### + # a standard collator (3.1.1) my $Collator = Unicode::Collate->new( level => 1, @@ -222,5 +223,3 @@ ok($Collator->eq("\x{1100}\x{1161}A", "\x{326E}A")); ok($Collator->eq("\x{1100}\x{1161}\x{3042}", "\x{326E}\x{3042}")); ok($Collator->eq("\x{1100}\x{1161}\x{4E00}", "\x{326E}\x{4E00}")); -1; -__END__ |