Correct test descriptions
This commit is contained in:
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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(),
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
@@ -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) {
|
||||
|
||||
Reference in New Issue
Block a user