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 (executable)
--- 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: {