try different testing
This commit is contained in:
@@ -43,7 +43,7 @@ sub setup : Tests(setup) {
|
|||||||
# Example walk had no sysServices returned
|
# Example walk had no sysServices returned
|
||||||
#'_layers' => 1,
|
#'_layers' => 1,
|
||||||
'_description' => 'HiveAP121, HiveOS 6.2r1 release build1924',
|
'_description' => 'HiveAP121, HiveOS 6.2r1 release build1924',
|
||||||
'_serial' => '12345678',
|
'_ahSystemSerial' => '12345678',
|
||||||
|
|
||||||
# AH-SMI-MIB::ahProduct
|
# AH-SMI-MIB::ahProduct
|
||||||
'_id' => '.1.3.6.1.4.1.26928.1',
|
'_id' => '.1.3.6.1.4.1.26928.1',
|
||||||
@@ -132,6 +132,17 @@ sub model : Tests(4) {
|
|||||||
is($test->{info}->model(), undef, q(No description returns undef model));
|
is($test->{info}->model(), undef, q(No description returns undef model));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub serial : Tests(3) {
|
||||||
|
my $test = shift;
|
||||||
|
|
||||||
|
can_ok($test->{info}, 'serial');
|
||||||
|
is($test->{info}->serial(), '12345678', q(Serial is expected value));
|
||||||
|
|
||||||
|
$test->{info}->clear_cache();
|
||||||
|
is($test->{info}->serial(), undef,
|
||||||
|
q(No serial returns undef));
|
||||||
|
}
|
||||||
|
|
||||||
sub i_ssidlist : Tests(3) {
|
sub i_ssidlist : Tests(3) {
|
||||||
my $test = shift;
|
my $test = shift;
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user