my $debug = shift @ARGV;
-use Test::More tests => 16;
+use Test::More tests => 18;
use Data::Dump qw/dump/;
use Cwd qw/abs_path/;
use File::Slurp;
use blib;
+use Devel::LeakTrace::Fast;
+
BEGIN {
use_ok('CWMP::Methods');
}
};
diag "check_method $command",dump( 'state', @_ ) if $debug;
- ok( my $xml = $method->$command( $state, @_ ), "generate method $command" . dump(@_) );
+ ok( my $xml = $method->$command( $state, shift ), "generate method $command" . dump(@_) );
my $file = "$abs_path/methods/$command.xml";
check_method( 'InformResponse' );
check_method( 'GetRPCMethods' );
check_method( 'Reboot' );
-check_method( 'SetParameterValues',
+check_method( 'SetParameterValues', {
'InternetGatewayDevice.DeviceInfo.ProvisioningCode' => 'test provision',
'InternetGatewayDevice.DeviceInfo.X_000E50_Country' => 42,
-);
-check_method( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber' );
-check_method( 'GetParameterValues',
+});
+check_method( 'GetParameterNames', [ 'InternetGatewayDevice.DeviceInfo.SerialNumber' ] );
+check_method( 'GetParameterValues', [
'InternetGatewayDevice.DeviceInfo.SerialNumber',
'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
-);
+]);
+check_method( 'GetParameterAttributes', [
+ 'InternetGatewayDevice.DeviceInfo.SerialNumber'
+]);