diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-30 14:07:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-30 14:07:30 +0000 |
| commit | eb380778361d9783746ab769632860ae78012d0f (patch) | |
| tree | 6a23037a1e8f4f65b65f86f70bf4b237becaf7ab /lib/charnames.t | |
| parent | 94ec6410737406e8f52c36270d784db8d61e0145 (diff) | |
| download | perl-eb380778361d9783746ab769632860ae78012d0f.tar.gz | |
charnames patch from Thomas Wegner.
p4raw-id: //depot/perl@16891
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 26 |
1 files changed, 20 insertions, 6 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index cfe7642a7c..29ee0f39a6 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -173,14 +173,28 @@ print "ok 24\n"; print "not " unless "\N{NULL}" eq "\c@"; print "ok 25\n"; -print "not " unless "\N{LINE FEED (LF)}" eq "\n"; -print "ok 26\n"; +if ($^O eq 'MacOS') +{ + print "not " unless "\N{CARRIAGE RETURN (CR)}" eq "\n"; + print "ok 26\n"; + + print "not " unless "\N{CARRIAGE RETURN}" eq "\n"; + print "ok 27\n"; + + print "not " unless "\N{CR}" eq "\n"; + print "ok 28\n"; +} +else +{ + print "not " unless "\N{LINE FEED (LF)}" eq "\n"; + print "ok 26\n"; -print "not " unless "\N{LINE FEED}" eq "\n"; -print "ok 27\n"; + print "not " unless "\N{LINE FEED}" eq "\n"; + print "ok 27\n"; -print "not " unless "\N{LF}" eq "\n"; -print "ok 28\n"; + print "not " unless "\N{LF}" eq "\n"; + print "ok 28\n"; +} my $nel = ord("A") == 193 ? qr/^(?:\x15|\x25)$/ : qr/^\x85$/; |