This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
charnames.t: Clarify value is hex
authorKarl Williamson <public@khwilliamson.com>
Sat, 11 Sep 2010 19:11:44 +0000 (13:11 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 25 Sep 2010 07:47:01 +0000 (00:47 -0700)
lib/charnames.t

index 11fe818..c211f65 100644 (file)
@@ -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