Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

ignore UUV warnings.

  • Loading branch information...
commit e3dd0ee6f61cd35bb9d7dfa5c71040dbedf56a2a 1 parent 3a22f39
tokuhirom authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  t/charnames.t
View
1  t/charnames.t
@@ -51,6 +51,7 @@ BEGIN {
{
my $x = "\N{UNKNOWN CHARACTER}";
$x = vianame('DoCoMo Foo');
+ @WARN = grep !/^Use of uninitialized value/, @WARN; # remove UUV warnings
is scalar(@WARN), 2, 'check warn num';
like $WARN[0], qr{Unknown charname 'UNKNOWN CHARACTER'}, 'wanrings when unkown character';
like $WARN[1], qr{unknown charnames: Foo}, 'warning when unkown character';
Please sign in to comment.
Something went wrong with that request. Please try again.