diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-09-11 13:11:44 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-25 00:47:01 -0700 |
| commit | 34ee1bc7e38c47ad1d9c71d70c57deb3a31bcefa (patch) | |
| tree | edf9551996948b16c60b992e97b2097b3f2b7d34 /lib/charnames.t | |
| parent | 92a56f4b8cc8311af66b29cae4f69855ee059544 (diff) | |
| download | perl-34ee1bc7e38c47ad1d9c71d70c57deb3a31bcefa.tar.gz | |
charnames.t: Clarify value is hex
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 11fe818de9..c211f65d85 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -957,7 +957,7 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}"); # Otherwise, test that the name and code point map # correctly - $all_pass &= is(charnames::vianame($names[$i]), $i, "Verify vianame(\"$names[$i]\") is $hex"); + $all_pass &= is(charnames::vianame($names[$i]), $i, "Verify vianame(\"$names[$i]\") is 0x$hex"); $all_pass &= is(charnames::viacode($i), $names[$i], "Verify viacode(0x$hex) is \"$names[$i]\""); # And make sure that a non-algorithmically named code |