diff options
| author | Philip Newton <pne@cpan.org> | 2002-03-28 21:03:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-29 01:38:10 +0000 |
| commit | 51e9e896dac578201e3ff6f3afd2c809bebc4c7d (patch) | |
| tree | bb2827112ddd8e746015b4508fb5634dd4f3aa87 | |
| parent | 347a28376189da3691afc4a35abb2306ca1b1ec6 (diff) | |
| download | perl-51e9e896dac578201e3ff6f3afd2c809bebc4c7d.tar.gz | |
NEXT LINE --> NEL
Message-ID: <6q07au0eh4rp6493h756mjerp9r5l97th1@4ax.com>
p4raw-id: //depot/perl@15588
| -rw-r--r-- | lib/charnames.pm | 2 | ||||
| -rw-r--r-- | lib/charnames.t | 23 |
2 files changed, 17 insertions, 8 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index 6471d18058..2217f6fa2a 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -17,7 +17,7 @@ my %alias1 = ( 'LF' => 'LINE FEED (LF)', 'FF' => 'FORM FEED (FF)', 'CR' => 'CARRIAGE RETURN (LF)', - 'NEL' => 'NEXT LINE (NEXT LINE)', + 'NEL' => 'NEXT LINE (NEL)', 'BOM' => 'BYTE ORDER MARK', ); diff --git a/lib/charnames.t b/lib/charnames.t index a8a063f096..87e4125004 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -12,7 +12,7 @@ BEGIN { $| = 1; -print "1..34\n"; +print "1..37\n"; use charnames ':full'; @@ -181,27 +181,36 @@ print "ok 27\n"; print "not " unless "\N{LF}" eq "\n"; print "ok 28\n"; -print "not " unless "\N{BYTE ORDER MARK}" eq chr(0xFFFE); +print "not " unless "\N{NEXT LINE (NEL)}" eq chr(0x85); print "ok 29\n"; -print "not " unless "\N{BOM}" eq chr(0xFFFE); +print "not " unless "\N{NEXT LINE}" eq chr(0x85); print "ok 30\n"; +print "not " unless "\N{NEL}" eq chr(0x85); +print "ok 31\n"; + +print "not " unless "\N{BYTE ORDER MARK}" eq chr(0xFFFE); +print "ok 32\n"; + +print "not " unless "\N{BOM}" eq chr(0xFFFE); +print "ok 33\n"; + { use warnings 'deprecated'; print "not " unless "\N{HORIZONTAL TABULATION}" eq "\t"; - print "ok 31\n"; + print "ok 34\n"; print "not " unless grep { /"HORIZONTAL TABULATION" is deprecated/ } @WARN; - print "ok 32\n"; + print "ok 35\n"; no warnings 'deprecated'; print "not " unless "\N{VERTICAL TABULATION}" eq "\013"; - print "ok 33\n"; + print "ok 36\n"; print "not " if grep { /"VERTICAL TABULATION" is deprecated/ } @WARN; - print "ok 34\n"; + print "ok 37\n"; } |