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) {
|
||||
|
||||
Reference in New Issue
Block a user