1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#!perl -T
BEGIN {
if ($ENV{PERL_CORE}) {
chdir 't';
@INC = '../lib';
}
use Config;
use Test::More;
plan skip_all => "POSIX is unavailable"
if $Config{'extensions'} !~ m!\bPOSIX\b!;
}
use strict;
use POSIX;
BEGIN {
plan skip_all => "POSIX::Termios not implemented"
if !eval "POSIX::Termios->new;1"
and $@=~/not implemented/;
}
my @getters = qw(getcflag getiflag getispeed getlflag getoflag getospeed);
plan tests => 3 + 2 * (3 + NCCS() + @getters);
my $r;
# create a new object
my $termios = eval { POSIX::Termios->new };
is( $@, '', "calling POSIX::Termios->new" );
ok( defined $termios, "\tchecking if the object is defined" );
isa_ok( $termios, "POSIX::Termios", "\tchecking the type of the object" );
# testing getattr()
SKIP: {
-t STDIN or skip("STDIN not a tty", 2);
$r = eval { $termios->getattr(0) };
is( $@, '', "calling getattr(0)" );
ok( defined $r, "\tchecking if the returned value is defined: $r" );
}
SKIP: {
-t STDOUT or skip("STDOUT not a tty", 2);
$r = eval { $termios->getattr(1) };
is( $@, '', "calling getattr(1)" );
ok( defined $r, "\tchecking if the returned value is defined: $r" );
}
SKIP: {
-t STDERR or skip("STDERR not a tty", 2);
$r = eval { $termios->getattr(2) };
is( $@, '', "calling getattr(2)" );
ok( defined $r, "\tchecking if the returned value is defined: $r" );
}
# testing getcc()
for my $i (0..NCCS()-1) {
$r = eval { $termios->getcc($i) };
is( $@, '', "calling getcc($i)" );
ok( defined $r, "\tchecking if the returned value is defined: $r" );
}
# testing getcflag()
for my $method (@getters) {
$r = eval { $termios->$method() };
is( $@, '', "calling $method()" );
ok( defined $r, "\tchecking if the returned value is defined: $r" );
}
|
