From: Michael G. Schwern <schwern@pobox.com>
Date: Fri, 7 Dec 2001 19:12:44 +0000 (-0500)
Subject: Declaring -t STDIN w/pipe TODO
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28e8237b03720c59ee4c0e0274bc786567b8dbf1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;