Retracting \N{U+HHHH}.

p4raw-id: //depot/perl@9025

1 files changed, 3 insertions, 12 deletions

diff --git a/t/lib/charnames.t b/t/lib/charnames.t
index 8ad098e52a..6a8a8be32d 100644
--- a/t/lib/charnames.t
+++ b/t/lib/charnames.t
@@ -8,7 +8,7 @@ BEGIN {
 }
 
 $| = 1;
-print "1..16\n";
+print "1..15\n";
 
 use charnames ':full';
 
@@ -63,7 +63,6 @@ sub to_bytes {
 
 {
     use charnames ':full';
-
     print "not " unless "\x{263a}" eq "\N{WHITE SMILING FACE}";
     print "ok 6\n";
     print "not " unless length("\x{263a}") == 1;
@@ -82,6 +81,7 @@ sub to_bytes {
 
 {
    use charnames qw(:full);
+   use utf8;
    
     my $x = "\x{221b}";
     my $named = "\N{CUBE ROOT}";
@@ -92,7 +92,7 @@ sub to_bytes {
 
 {
    use charnames qw(:full);
-
+   use utf8;
    print "not " unless "\x{100}\N{CENT SIGN}" eq "\x{100}"."\N{CENT SIGN}";
    print "ok 14\n";
 }
@@ -106,12 +106,3 @@ sub to_bytes {
 
 }
 
-
-{
-  use charnames ':full';
-
-  print "not "
-      unless "\N{U+263A}" eq "\N{WHITE SMILING FACE}";
-  print "ok 16\n";
-}
-