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 /t/io/open.t | |
| parent | a34ce875bf70f00f7af4a549f8c1ff0f4469f7fb (diff) | |
| download | perl-7b903762ad0ebd5d0459692ad5c081c69a3c0808.tar.gz | |
Remove code specific to MacOS Classic from core tests
Diffstat (limited to 't/io/open.t')
| -rw-r--r-- | t/io/open.t | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/t/io/open.t b/t/io/open.t index 325d637e9e..1a5832747d 100644 --- a/t/io/open.t +++ b/t/io/open.t @@ -9,7 +9,6 @@ BEGIN { $| = 1; use warnings; use Config; -$Is_MacOS = $^O eq 'MacOS'; plan tests => 108; @@ -84,9 +83,7 @@ EOC is( scalar @rows, 2, ' readline, list context' ); ok( close($f), ' close' ); } -SKIP: { - skip "Output for |- doesn't go to shell on MacOS", 5 if $Is_MacOS; - +{ ok( open(my $f, '|-', <<EOC), 'open |-' ); $Perl -pe "s/^not //" EOC @@ -177,9 +174,7 @@ EOC ok( close($f), ' close' ); } -SKIP: { - skip "Output for |- doesn't go to shell on MacOS", 5 if $Is_MacOS; - +{ ok( open(local $f, '|-', <<EOC), 'open local $f, "|-", ...' ); $Perl -pe "s/^not //" EOC |