Commit | Line | Data |
---|---|---|
827da6a3 JD |
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 CB |
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 JD |
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 | } |