From dbc0d4f2f139c3775c592bb9d20ada906e3aa68e Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 1 May 2002 12:54:24 +0000
Subject: Provide the \N{U+HHHH} syntax before we forget.

p4raw-id: //depot/perl@16302
---
 lib/charnames.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lib/charnames.t')

diff --git a/lib/charnames.t b/lib/charnames.t
index 3c92d04248..669f6e813d 100644
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -12,7 +12,7 @@ BEGIN {
 
 $| = 1;
 
-print "1..41\n";
+print "1..42\n";
 
 use charnames ':full';
 
@@ -232,3 +232,7 @@ print "ok 40\n";
 
 print "not " unless ord("\N{ZWJ}") == 0x200D;
 print "ok 41\n";
+
+print "not " unless "\N{U+263A}" eq "\N{WHITE SMILING FACE}";
+print "ok 42\n";
+
-- 
cgit v1.2.1