4 |
|
|
5 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
6 |
|
|
7 |
use Test::More tests => 16; |
use Test::More tests => 18; |
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
10 |
use File::Slurp; |
use File::Slurp; |
54 |
'InternetGatewayDevice.DeviceInfo.SerialNumber', |
'InternetGatewayDevice.DeviceInfo.SerialNumber', |
55 |
'InternetGatewayDevice.DeviceInfo.VendorConfigFile.', |
'InternetGatewayDevice.DeviceInfo.VendorConfigFile.', |
56 |
]); |
]); |
57 |
|
check_method( 'GetParameterAttributes', [ |
58 |
|
'InternetGatewayDevice.DeviceInfo.SerialNumber' |
59 |
|
]); |