diff options
| author | Craig A. Berry <craigberry@mac.com> | 2009-12-19 09:33:32 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-12-19 09:33:32 -0600 |
| commit | d1585ceaf66a98c6f5f3520ecf3dec4ccc98a1d6 (patch) | |
| tree | b480417f010173c35b503a4af3d65b7ca18ddc52 /t/op/filetest_t.t | |
| parent | 3bc3c5beacd5fac2157b8441ce88ad169a9bc6b0 (diff) | |
| download | perl-d1585ceaf66a98c6f5f3520ecf3dec4ccc98a1d6.tar.gz | |
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:.
Diffstat (limited to 't/op/filetest_t.t')
| -rwxr-xr-x | t/op/filetest_t.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/filetest_t.t b/t/op/filetest_t.t index 47e0387663..d9071570fb 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: { |