From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 19 Dec 2009 15:33:32 +0000 (-0600)
Subject: TT is not a terminal for non-interactive processes.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1585ceaf66a98c6f5f3520ecf3dec4ccc98a1d6;p=p5sagit%2Fp5-mst-13.2.git

TT is not a terminal for non-interactive processes.

-t correctly does not report true in this case, but the test was
assuming it would.  Since there is no equivalent to F$MODE() in
Perl, rely on the fact that in batch TT is a logical name pointing
to _NLA0:.
---

diff --git a/t/op/filetest_t.t b/t/op/filetest_t.t
index 47e0387..d907157 100755
--- a/t/op/filetest_t.t
+++ b/t/op/filetest_t.t
@@ -17,6 +17,8 @@ my($dev_tty, $dev_null) = qw(/dev/tty /dev/null);
 SKIP: {
     open(my $tty, "<", $dev_tty)
 	or skip("Can't open terminal '$dev_tty': $!");
+    skip("Probably batch mode since TT is _NLA0:") 
+        if $^O eq 'VMS' && lc(VMS::Filespec::vmspath('TT')) eq '_nla0:';
     ok(-t $tty);
 }
 SKIP: {