diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-08 08:41:38 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-08 11:27:21 +0200 |
| commit | 7b903762ad0ebd5d0459692ad5c081c69a3c0808 (patch) | |
| tree | 6e64cf76feca7527bf3a0b2ab962572023e5887e /lib/charnames.t | |
| parent | a34ce875bf70f00f7af4a549f8c1ff0f4469f7fb (diff) | |
| download | perl-7b903762ad0ebd5d0459692ad5c081c69a3c0808.tar.gz | |
Remove code specific to MacOS Classic from core tests
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 30 |
1 files changed, 6 insertions, 24 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index b3e4a461d8..f74453ded7 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -176,28 +176,14 @@ print "ok 24\n"; print "not " unless "\N{NULL}" eq "\c@"; print "ok 25\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{LINE FEED (LF)}" eq "\n"; +print "ok 26\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$/; @@ -302,10 +288,6 @@ for (@prgs) { $res =~ s/\n%[A-Z]+-[SIWEF]-.*$// # clip off DCL status msg if $^O eq "VMS"; $exp =~ s/[\r\n]+$//; - if ($^O eq "MacOS") { - $exp =~ s{(\./)?abc\.pm}{:abc.pm}g; - $exp =~ s{./abc} {:abc}g; - } my $pfx = ($res =~ s/^PREFIX\n//); my $rexp = qr{^$exp}; if ($res =~ s/^SKIPPED\n//) { |