Commit | Line | Data |
827da6a3 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | require './test.pl'; |
7 | } |
8 | |
9 | use strict; |
10 | |
11 | plan 2; |
12 | |
13 | my($dev_tty, $dev_null) = qw(/dev/tty /dev/null); |
14 | ($dev_tty, $dev_null) = qw(con nul ) if $^O =~ /^(MSWin32|os2)$/; |
15 | ($dev_tty, $dev_null) = qw(TT: _NLA0: ) if $^O eq "VMS"; |
16 | |
17 | SKIP: { |
18 | open(my $tty, "<", $dev_tty) |
19 | or skip("Can't open terminal '$dev_tty': $!"); |
2dba5d60 |
20 | if ($^O eq 'VMS') { |
21 | # TT might be a mailbox or other non-terminal device |
22 | my $tt_dev = VMS::Filespec::vmspath('TT'); |
23 | skip("'$tt_dev' is probably not a terminal") if $tt_dev !~ m/^_(tt|ft|rt)/i; |
24 | } |
25 | ok(-t $tty, "'$dev_tty' is a TTY"); |
827da6a3 |
26 | } |
27 | SKIP: { |
28 | open(my $null, "<", $dev_null) |
29 | or skip("Can't open null device '$dev_null': $!"); |
2dba5d60 |
30 | ok(!-t $null, "'$dev_null' is not a TTY"); |
827da6a3 |
31 | } |