diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2008-06-10 18:17:46 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-06-11 17:40:25 +0000 |
| commit | c0ed5c75679d185e8c0f26e6f3efcd090e1e3f70 (patch) | |
| tree | f9a6d3e96499b1a2da9900ace7893b9ad815c80d /t/io | |
| parent | 3d8721739eea799bd92b1ce19e310399925a685c (diff) | |
| download | perl-c0ed5c75679d185e8c0f26e6f3efcd090e1e3f70.tar.gz | |
[patch@34016] VMS passes these t/io/open.t tests now.
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <484F51EA.6050005@qsl.net>
Date: Tue, 10 Jun 2008 23:17:46 -0500
p4raw-id: //depot/perl@34042
Diffstat (limited to 't/io')
| -rwxr-xr-x | t/io/open.t | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/t/io/open.t b/t/io/open.t index f08eed50a4..68b828a511 100755 --- a/t/io/open.t +++ b/t/io/open.t @@ -9,7 +9,6 @@ BEGIN { $| = 1; use warnings; use Config; -$Is_VMS = $^O eq 'VMS'; $Is_MacOS = $^O eq 'MacOS'; plan tests => 108; @@ -75,10 +74,7 @@ my $Perl = which_perl(); unlink("afile"); } - -SKIP: { - skip "open -| busted and noisy on VMS", 3 if $Is_VMS; - +{ ok( open(my $f, '-|', <<EOC), 'open -|' ); $Perl -e "print qq(a row\\n); print qq(another row\\n)" EOC @@ -87,7 +83,6 @@ 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; @@ -171,9 +166,7 @@ ok( -s 'afile' < 20, ' -s' ); unlink("afile"); } -SKIP: { - skip "open -| busted and noisy on VMS", 3 if $Is_VMS; - +{ ok( open(local $f, '-|', <<EOC), 'open local $f, "-|", ...' ); $Perl -e "print qq(a row\\n); print qq(another row\\n)" EOC |