diff options
| -rwxr-xr-x | t/op/filetest_t.t | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/t/op/filetest_t.t b/t/op/filetest_t.t index d9071570fb..350856411d 100755 --- a/t/op/filetest_t.t +++ b/t/op/filetest_t.t @@ -17,12 +17,15 @@ 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); + if ($^O eq 'VMS') { + # TT might be a mailbox or other non-terminal device + my $tt_dev = VMS::Filespec::vmspath('TT'); + skip("'$tt_dev' is probably not a terminal") if $tt_dev !~ m/^_(tt|ft|rt)/i; + } + ok(-t $tty, "'$dev_tty' is a TTY"); } SKIP: { open(my $null, "<", $dev_null) or skip("Can't open null device '$dev_null': $!"); - ok(!-t $null); + ok(!-t $null, "'$dev_null' is not a TTY"); } |