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
|
#!perl
use 5.00800;
use strict;
use warnings;
use Test::More tests => 33;
our $VERSION = '1.4.0';
my $plugin_name;
if ( eval { require Monitoring::Plugin } ) {
$plugin_name = 'Monitoring::Plugin';
}
else {
$plugin_name = 'Nagios::Plugin';
}
use_ok($plugin_name);
can_ok( $plugin_name, 'new' );
can_ok( $plugin_name, 'nagios_exit' );
can_ok( $plugin_name, 'add_perfdata' );
can_ok( $plugin_name, 'perfdata' );
use_ok( $plugin_name . '::Getopt' );
can_ok( $plugin_name . '::Getopt', 'new' );
can_ok( $plugin_name . '::Getopt', 'arg' );
can_ok( $plugin_name . '::Getopt', 'getopts' );
can_ok( $plugin_name . '::Getopt', 'get' );
use_ok( $plugin_name . '::Threshold' );
can_ok( $plugin_name . '::Threshold', 'new' );
can_ok( $plugin_name . '::Threshold', 'set_thresholds' );
use_ok('IO::Select');
can_ok( 'IO::Select', 'new' );
can_ok( 'IO::Select', 'count' );
can_ok( 'IO::Select', 'can_read' );
can_ok( 'IO::Select', 'remove' );
can_ok( 'IO::Select', 'handles' );
use_ok('Net::DNS::Resolver');
can_ok( 'Net::DNS::Resolver', 'new' );
can_ok( 'Net::DNS::Resolver', 'can' );
can_ok( 'Net::DNS::Resolver', 'bgsend' );
can_ok( 'Net::DNS::Resolver', 'bgread' );
use_ok('English');
use_ok('Readonly');
use_ok('Net::IP');
can_ok( 'Net::IP', 'ip_expand_address' );
use_ok('Data::Validate::Domain');
can_ok( 'Data::Validate::Domain', 'is_hostname' );
use_ok('Data::Validate::IP');
can_ok( 'Data::Validate::IP', 'is_ipv4' );
can_ok( 'Data::Validate::IP', 'is_ipv6' );
|
