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
|
use warnings;
use strict;
use Test::More;
use IO::Stream;
my @exports = qw(
RESOLVED CONNECTED IN EOF OUT SENT
EINBUFLIMIT
ETORESOLVE ETOCONNECT ETOWRITE
EDNS EDNSNXDOMAIN EDNSNODATA
EREQINBUFLIMIT EREQINEOF
);
my @not_exports = qw(
BUFSIZE
TOCONNECT TOWRITE
);
plan +(@exports + @not_exports)
? ( tests => @exports + @not_exports )
: ( skip_all => q{This module doesn't export anything} )
;
for my $export (@exports) {
can_ok( __PACKAGE__, $export );
}
for my $not_export (@not_exports) {
ok( ! __PACKAGE__->can($not_export) );
}
|
