diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-27 20:52:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-27 20:52:19 +0000 |
| commit | 822ebcc8f363a229da6a08b4a4a413d4e93e0fb9 (patch) | |
| tree | e18532108d89dceb592233024472fc004346d54c /lib/charnames.t | |
| parent | 76cf0ca68553db84a3c6e061f5b753fd92739c1c (diff) | |
| download | perl-822ebcc8f363a229da6a08b4a4a413d4e93e0fb9.tar.gz | |
Start using the Unicode 3.2.0 data (NOTE: still
unofficial, but the data is unlikely to change much.
Doublecheck when 3.2.0 gets released.)
p4raw-id: //depot/perl@15552
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 607f4f3790..c800128efc 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -8,6 +8,7 @@ BEGIN { } $| = 1; + print "1..25\n"; use charnames ':full'; @@ -159,7 +160,7 @@ sub to_bytes { } -print "not " unless "\N{HORIZONTAL TABULATION}" eq "\t"; +print "not " unless "\N{CHARACTER TABULATION}" eq "\t"; print "ok 23\n"; print "not " unless "\N{ESCAPE}" eq "\e"; @@ -168,8 +169,6 @@ print "ok 24\n"; print "not " unless "\N{NULL}" eq "\c@"; print "ok 25\n"; -# TODO: when Unicode 3.2 comes along some names will change -# HORIZONTAL TABULATION -> CHARACTER TABULATION (since ISO 6429 -# has been updated), and some names will have shorter aliases -# LINEFEED (LF). Update the tests, and also update the charnames -# pragma to support the 3.1 names, and the shorter aliases. +# TODO: support 3.1 names, BOM. Generic aliasing? + + |