135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use cmp_deeply versus is_deeply for better diagnostics

Browse Source
This commit is contained in:
Eric A. Miller
2018-04-01 20:44:17 -04:00
parent 63cac2a3a8
commit 585d01895b
3 changed files with 60 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
xt/lib/Test/SNMP/Info/Layer1/Allied.pm
View File

@@ -76,7 +76,6 @@ sub os : Tests(2) {
is($test->{info}->os(), 'allied', q(Vendor returns 'allied'));
}
sub os_ver : Tests(3) {
my $test = shift;
@@ -92,19 +91,19 @@ sub model : Tests(3) {
can_ok($test->{info}, 'model');
is($test->{info}->model(), 'AT-1234T', q(Model is expected value));
$test->{info}->clear_cache();
is($test->{info}->model(), undef, q(No description returns undef model));
is($test->{info}->model(), undef, q(No description returns undef model));
}
sub i_name : Tests(3) {
sub i_name : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'i_name');
my $expected = {'1' => '1 Port Name', '1.2' => '1.2 Port Name',};
is_deeply($test->{info}->i_name(),
cmp_deeply($test->{info}->i_name(),
$expected, q(Interface names have expected values));
}
@@ -115,7 +114,7 @@ sub i_up : Tests(2) {
my $expected = {'1' => 'up', '1.1' => 'up', '1.2' => 'up', '1.3' => 'down'};
is_deeply($test->{info}->i_up(),
cmp_deeply($test->{info}->i_up(),
$expected, q(Interface operational statuses have expected values));
}