Change 13528: [PATCH t/op/stat.t] Declaring -t STDIN w/pipe TODO

[Jarkko Hietaniemi]

Change 13528 by jhi@alpha on 2001/12/07 23:47:26

        Subject: [PATCH t/op/stat.t] Declaring -t STDIN w/pipe TODO
        From: Michael G Schwern <[EMAIL PROTECTED]>       
        Date: Fri, 7 Dec 2001 19:12:44 -0500
        Message-ID: <20011208001244.GB642@blackrider>

Affected files ...

.... //depot/perl/t/op/stat.t#43 edit

Differences ...

==== //depot/perl/t/op/stat.t#43 (xtext) ====
Index: perl/t/op/stat.t
--- perl/t/op/stat.t.~1~        Fri Dec  7 17:00:05 2001
+++ perl/t/op/stat.t    Fri Dec  7 17:00:05 2001
@@ -284,7 +284,11 @@
         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;
End of Patch.