diff options
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 |