diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-05-29 13:29:53 -0600 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2010-06-28 19:49:10 -0400 |
| commit | c8002005105721beeeefa9e31bed53e376f4c7ae (patch) | |
| tree | 308d5c5afb05ce74ce8fd2280ae6733a12d7cee3 /lib/charnames.t | |
| parent | a0d8d8c515a8d9a056392064d46fc9031f20e178 (diff) | |
| download | perl-c8002005105721beeeefa9e31bed53e376f4c7ae.tar.gz | |
Fix charnames::viacode not accepting U+... param
The commit e10d7780a27dcfeb9c50ab28b66f2df8763d8016 introduced a bug in
which a parameter to viacode of the form U+... no longer worked. This
is fixed, as well as tests added.
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index f9bbdbcae7..9efd07ab5b 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -16,7 +16,7 @@ require File::Spec; $| = 1; -plan(83); +plan(85); use charnames ':full'; @@ -196,7 +196,10 @@ is("\N{U+263A}", "\N{WHITE SMILING FACE}"); ok(! defined charnames::viacode(0x110000)); ok(! grep { /you asked for U+110000/ } @WARN); -is("NULL", charnames::viacode(0)); +is(charnames::viacode(0), "NULL"); +is(charnames::viacode("BE"), "VULGAR FRACTION THREE QUARTERS"); +is(charnames::viacode("U+00000000000FEED"), "ARABIC LETTER WAW ISOLATED FORM"); + # ---- Alias extensions |