From 24b5d5ccc3bc7535f387e48d7e29656751ae98a5 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 11 Apr 2002 19:19:36 +0000
Subject: ZWNJ, ZWJ.  Any further convenience aliasing should consider using
 the NamesList.

p4raw-id: //depot/perl@15867
---
 lib/charnames.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib/charnames.t')

diff --git a/lib/charnames.t b/lib/charnames.t
index 6a961c6b74..3c92d04248 100644
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -12,7 +12,7 @@ BEGIN {
 
 $| = 1;
 
-print "1..39\n";
+print "1..41\n";
 
 use charnames ':full';
 
@@ -226,3 +226,9 @@ print "ok 38\n";
     print "ok 39\n";
 }
 
+
+print "not " unless ord("\N{ZWNJ}") == 0x200C;
+print "ok 40\n";
+
+print "not " unless ord("\N{ZWJ}") == 0x200D;
+print "ok 41\n";
-- 
cgit v1.2.1