53 lines
1.2 KiB
Perl
53 lines
1.2 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
BEGIN {
|
|
unless ($ENV{AUTHOR_TESTING}) {
|
|
require Test::More;
|
|
Test::More::plan(skip_all => 'these tests require online access to be confirmed');
|
|
}
|
|
}
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More 1.302083;
|
|
|
|
use SNMP::Info;
|
|
use Path::Class 'dir';
|
|
|
|
# needed when running with Alien::SNMP::MAXTC
|
|
%SNMP::Info::MIBS = ('RFC1213-MIB' => 'sysName');
|
|
|
|
my $info = SNMP::Info->new(
|
|
AutoSpecify => 1,
|
|
DestHost => 'demo.snmplabs.com',
|
|
Community => 'public',
|
|
Version => 2,
|
|
MibDirs => [ _build_mibdirs() ],
|
|
IgnoreNetSNMPConf => 1,
|
|
Debug => 1,
|
|
# DebugSNMP => 1,
|
|
);
|
|
|
|
ok($info, 'SNMP::Info instantiated');
|
|
ok((!defined $info->error()), 'No error on initial connection');
|
|
|
|
like($info->name(), qr/\w+/, 'name is "new system name"');
|
|
is($info->class(), 'SNMP::Info::Layer3::NetSNMP', 'class is Layer3::NetSNMP');
|
|
|
|
is($info->snmp_connect_ip('demo.snmplabs.com', 2, 'public'),
|
|
1, 'Connect to demo.snmplabs.com returns 1');
|
|
|
|
done_testing;
|
|
|
|
sub _build_mibdirs {
|
|
my $home = dir($ENV{HOME}, 'netdisco-mibs');
|
|
return map { dir($home, $_)->stringify } @{ _get_mibdirs_content($home) };
|
|
}
|
|
|
|
sub _get_mibdirs_content {
|
|
my $home = shift;
|
|
my @list = map {s|$home/||; $_} grep {m/[a-z0-9]/} grep {-d} glob("$home/*");
|
|
return \@list;
|
|
}
|