This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
TODO long-failing argv.t tests on VMS.
authorCraig A. Berry <craigberry@mac.com>
Sat, 23 Jan 2016 19:15:42 +0000 (13:15 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sat, 23 Jan 2016 19:15:42 +0000 (13:15 -0600)
This has to do with the fact that redirection is handled by Perl,
not by DCL.

t/io/argv.t

index a9da09f..3a768b2 100644 (file)
@@ -60,18 +60,21 @@ is($x, "1a line\n2a line\n", '<> from two files');
     );
     is($x, "Io_argv1.tmp,a line\nIo_argv2.tmp,another line\n", '$ARGV is the file name');
 
-    $x = runperl(
-       prog    => 'print $ARGV while <>',
-       stdin   => "foo\nbar\n",
-        args           => [ '-' ],
-    );
-    is($x, "--", '$ARGV is - for explicit STDIN');
-
-    $x = runperl(
-       prog    => 'print $ARGV while <>',
-       stdin   => "foo\nbar\n",
-    );
-    is($x, "--", '$ARGV is - for implicit STDIN');
+TODO: {
+        local $::TODO = "unrelated bug in redirection implementation" if $^O eq 'VMS';
+        $x = runperl(
+            prog       => 'print $ARGV while <>',
+            stdin      => "foo\nbar\n",
+            args       => [ '-' ],
+        );
+        is($x, "--", '$ARGV is - for explicit STDIN');
+
+        $x = runperl(
+            prog       => 'print $ARGV while <>',
+            stdin      => "foo\nbar\n",
+        );
+        is($x, "--", '$ARGV is - for implicit STDIN');
+    }
 }
 
 {
@@ -185,11 +188,14 @@ $x = runperl(
 );
 is($x, "foo\n", '<<>> from just STDIN (no argument)');
 
-$x = runperl(
-    prog       => 'print $ARGV.q/,/ for <<>>',
-    stdin      => "foo\nbar\n",
-);
-is($x, "-,-,", '$ARGV is - for STDIN with <<>>');
+TODO: {
+    local $::TODO = "unrelated bug in redirection implementation" if $^O eq 'VMS';
+    $x = runperl(
+        prog   => 'print $ARGV.q/,/ for <<>>',
+        stdin  => "foo\nbar\n",
+    );
+    is($x, "-,-,", '$ARGV is - for STDIN with <<>>');
+}
 
 $x = runperl(
     prog       => 'while (<<>>) { print $_; }',