Declaring -t STDIN w/pipe TODO

Message-ID: <20011208001244.GB642@blackrider>

p4raw-id: //depot/perl@13528

diff --git a/t/op/stat.t b/t/op/stat.t
index b99734b..4f16b70 100755 (executable)
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -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;