This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Declaring -t STDIN w/pipe TODO
[perl5.git] / t / op / stat.t
index b99734b..4f16b70 100755 (executable)
@@ -284,7 +284,11 @@ SKIP: {
         close(TTY);
     }
     ok(! -t TTY,    '!-t on closed TTY filehandle');
-    ok(-t,          '-t on STDIN');
+
+    {
+        local $TODO = 'STDIN not a tty when output is to pipe' if $Is_VMS;
+        ok(-t,          '-t on STDIN');
+    }
 }
 
 my $Null = File::Spec->devnull;