Test SNMP agent name change
This commit is contained in:
@@ -13,6 +13,7 @@ use Path::Class 'dir';
|
|||||||
|
|
||||||
my $info = SNMP::Info->new(
|
my $info = SNMP::Info->new(
|
||||||
AutoSpecify => 1,
|
AutoSpecify => 1,
|
||||||
|
Debug => 1,
|
||||||
DestHost => 'demo.snmplabs.com',
|
DestHost => 'demo.snmplabs.com',
|
||||||
Community => 'public',
|
Community => 'public',
|
||||||
Version => 2,
|
Version => 2,
|
||||||
@@ -25,7 +26,7 @@ my $info = SNMP::Info->new(
|
|||||||
ok($info, 'SNMP::Info instantiated');
|
ok($info, 'SNMP::Info instantiated');
|
||||||
ok((!defined $info->error()), 'No error on initial connection');
|
ok((!defined $info->error()), 'No error on initial connection');
|
||||||
|
|
||||||
is($info->name(), '25', 'name is "new system name"');
|
is($info->name(), '434', 'name is "new system name"');
|
||||||
is($info->class(), 'SNMP::Info::Layer3::NetSNMP', 'class is Layer3::NetSNMP');
|
is($info->class(), 'SNMP::Info::Layer3::NetSNMP', 'class is Layer3::NetSNMP');
|
||||||
|
|
||||||
done_testing;
|
done_testing;
|
||||||
|
|||||||
Reference in New Issue
Block a user