This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
TT is not a terminal for non-interactive processes.
authorCraig A. Berry <craigberry@mac.com>
Sat, 19 Dec 2009 15:33:32 +0000 (09:33 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sat, 19 Dec 2009 15:33:32 +0000 (09:33 -0600)
-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:.

t/op/filetest_t.t

index 47e0387..d907157 100755 (executable)
@@ -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: {