diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-09-12 09:50:15 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-25 00:47:01 -0700 |
| commit | a2cfe56dbcb3330a37926b668c136f00360986a0 (patch) | |
| tree | b08c3df99d68c6cf9f152bef295ff034176ecf67 /lib/charnames.t | |
| parent | 35a5ace5b48bd7ca4aef7f20f0f5843da3365ec3 (diff) | |
| download | perl-a2cfe56dbcb3330a37926b668c136f00360986a0.tar.gz | |
charnames.t: Add output message
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 8dfb383ea5..66be9a3916 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -163,7 +163,7 @@ sub to_bytes { is(charnames::vianame("U+10330"), "\x{10330}", "Verify vianame \\N{U+hex} returns a chr"); use warnings; my $warning_count = @WARN; - ok (! defined charnames::vianame("NONE SUCH")); + ok (! defined charnames::vianame("NONE SUCH"), "Verify vianame returns undef for an undefined name"); cmp_ok($warning_count, '==', scalar @WARN, "Verify vianame doesn't warn on unknown names"); use bytes; |