diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-11 19:19:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-11 19:19:36 +0000 |
| commit | 24b5d5ccc3bc7535f387e48d7e29656751ae98a5 (patch) | |
| tree | 01ced12fd47c62329dfcce975ae617645985dce8 /lib/charnames.t | |
| parent | 026a9d8a2e74ab543e0da0fdfcc025431d79ff07 (diff) | |
| download | perl-24b5d5ccc3bc7535f387e48d7e29656751ae98a5.tar.gz | |
ZWNJ, ZWJ. Any further convenience aliasing should
consider using the NamesList.
p4raw-id: //depot/perl@15867
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 8 |
1 files changed, 7 insertions, 1 deletions
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"; |