diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-01 12:54:24 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-01 12:54:24 +0000 |
| commit | dbc0d4f2f139c3775c592bb9d20ada906e3aa68e (patch) | |
| tree | bd9ee5e86f271d0c274ac2e292d05fb991390291 /lib/charnames.t | |
| parent | f76b0f6998c929fc8d564ca3ed8728a19879ebc7 (diff) | |
| download | perl-dbc0d4f2f139c3775c592bb9d20ada906e3aa68e.tar.gz | |
Provide the \N{U+HHHH} syntax before we forget.
p4raw-id: //depot/perl@16302
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 6 |
1 files changed, 5 insertions, 1 deletions
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"; + |