Change 35015 by [EMAIL PROTECTED] on 2008/12/05 00:04:16
Integrate:
[ 34042]
Subject: [EMAIL PROTECTED] VMS passes these t/io/open.t tests now.
From: "John E. Malmberg" <[EMAIL PROTECTED]>
Message-id: <[EMAIL PROTECTED]>
Date: Tue, 10 Jun 2008 23:17:46 -0500
Affected files ...
... //depot/maint-5.10/perl/t/io/open.t#3 integrate
Differences ...
==== //depot/maint-5.10/perl/t/io/open.t#3 (xtext) ====
Index: perl/t/io/open.t
--- perl/t/io/open.t#2~34273~ 2008-09-05 06:59:17.000000000 -0700
+++ perl/t/io/open.t 2008-12-04 16:04:16.000000000 -0800
@@ -9,7 +9,6 @@
$| = 1;
use warnings;
use Config;
-$Is_VMS = $^O eq 'VMS';
$Is_MacOS = $^O eq 'MacOS';
plan tests => 108;
@@ -76,10 +75,7 @@
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
@@ -88,7 +84,6 @@
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;
@@ -172,9 +167,7 @@
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
End of Patch.
