Correct test descriptions

This commit is contained in:
Eric A. Miller
2018-04-11 19:56:36 -04:00
parent aceed9cc52
commit d13adfee80
19 changed files with 19 additions and 19 deletions

View File

@@ -73,7 +73,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'allied', q(Vendor returns 'allied'));
is($test->{info}->os(), 'allied', q(OS returns 'allied'));
}
sub os_ver : Tests(3) {

View File

@@ -67,7 +67,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'bay_hub', q(Vendor returns 'bay_hub'));
is($test->{info}->os(), 'bay_hub', q(OS returns 'bay_hub'));
}
sub vendor : Tests(2) {

View File

@@ -139,7 +139,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok( $test->{info}, 'os' );
is( $test->{info}->os(), 'avocent', q(Vendor returns 'avocent') );
is( $test->{info}->os(), 'avocent', q(OS returns 'avocent') );
}
sub os_ver : Tests(6) {

View File

@@ -66,7 +66,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'synoptics', q(Vendor returns 'synoptics'));
is($test->{info}->os(), 'synoptics', q(OS returns 'synoptics'));
}
sub vendor : Tests(2) {

View File

@@ -56,7 +56,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), '3Com', q(Vendor returns '3Com'));
is($test->{info}->os(), '3Com', q(OS returns '3Com'));
}
sub serial : Tests(3) {

View File

@@ -61,7 +61,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'cisco', q(Vendor returns 'cisco'));
is($test->{info}->os(), 'cisco', q(OS returns 'cisco'));
}
sub vendor : Tests(2) {

View File

@@ -63,7 +63,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'allied', q(Vendor returns 'allied'));
is($test->{info}->os(), 'allied', q(OS returns 'allied'));
}
sub vendor : Tests(2) {

View File

@@ -62,7 +62,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'boss', q(Vendor returns 'boss'));
is($test->{info}->os(), 'boss', q(OS returns 'boss'));
}
sub vendor : Tests(2) {

View File

@@ -113,7 +113,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'catalyst', q(Vendor returns 'catalyst'));
is($test->{info}->os(), 'catalyst', q(OS returns 'catalyst'));
}
sub os_ver : Tests(3) {

View File

@@ -130,7 +130,7 @@ sub i_speed_admin : Tests(3) {
my $expected = {2 => 'auto', 3 => 'auto', 26 => '100 Mbps'};
cmp_deeply($test->{info}->i_speed_admin(),
$expected, q(Interfaces have expected duplex admin values));
$expected, q(Interfaces have expected speed admin values));
$test->{info}->clear_cache();
cmp_deeply($test->{info}->i_speed_admin(),

View File

@@ -88,7 +88,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'catalyst', q(Vendor returns 'catalyst'));
is($test->{info}->os(), 'catalyst', q(OS returns 'catalyst'));
}
sub os_ver : Tests(3) {

View File

@@ -61,7 +61,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'centillion', q(Vendor returns 'centillion'));
is($test->{info}->os(), 'centillion', q(OS returns 'centillion'));
}
sub vendor : Tests(2) {

View File

@@ -60,7 +60,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'ros', q(Vendor returns 'ros'));
is($test->{info}->os(), 'ros', q(OS returns 'ros'));
}
sub vendor : Tests(2) {

View File

@@ -60,7 +60,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'hp', q(Vendor returns 'hp'));
is($test->{info}->os(), 'hp', q(OS returns 'hp'));
}
sub vendor : Tests(2) {

View File

@@ -61,7 +61,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'hp', q(Vendor returns 'hp'));
is($test->{info}->os(), 'hp', q(OS returns 'hp'));
}
sub vendor : Tests(2) {

View File

@@ -54,7 +54,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'hpvc', q(Vendor returns 'hpvc'));
is($test->{info}->os(), 'hpvc', q(OS returns 'hpvc'));
}
sub vendor : Tests(2) {

View File

@@ -52,7 +52,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'Kentrox', q(Vendor returns 'Kentrox'));
is($test->{info}->os(), 'Kentrox', q(OS returns 'Kentrox'));
}
sub os_ver : Tests(3) {

View File

@@ -61,7 +61,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'aironet', q(Vendor returns 'aironet'));
is($test->{info}->os(), 'aironet', q(OS returns 'aironet'));
}
sub vendor : Tests(2) {

View File

@@ -63,7 +63,7 @@ sub os : Tests(2) {
my $test = shift;
can_ok($test->{info}, 'os');
is($test->{info}->os(), 'EOS', q(Vendor returns 'EOS'));
is($test->{info}->os(), 'EOS', q(OS returns 'EOS'));
}
sub vendor : Tests(2) {