This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
charnames.t: Test that can have string "0x..."
authorKarl Williamson <khw@khw-desktop.(none)>
Sun, 11 Jul 2010 17:44:46 +0000 (11:44 -0600)
committerKarl Williamson <khw@khw-desktop.(none)>
Tue, 13 Jul 2010 23:12:33 +0000 (17:12 -0600)
The form "0x..." is supposed to evaluate as if it weren't a string.
Make sure that is tested

lib/charnames.t

index 5be1c47..485926d 100644 (file)
@@ -52,7 +52,7 @@ EOE
 
 {
 
-    use charnames ':full', ":alias" => { mychar1 => 0xE8000,
+    use charnames ':full', ":alias" => { mychar1 => "0xE8000",
                                          mychar2 => 983040,  # U+F0000
                                          mychar3 => "U+100000",
                                          myctrl => 0x80,