X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=t%2F20-methods.t;h=27f96709e71506c8b52a618c151eb05926fa9f1a;hp=f81805cfc22a4209cc9e04ebd1076bad2c47072d;hb=154531e14a8fdafceb312dc3eec3eff1ed5676a9;hpb=71ebbb506367ad5efe47a8730eb42963e24f8483

diff --git a/t/20-methods.t b/t/20-methods.t
index f81805c..27f9670 100755
--- a/t/20-methods.t
+++ b/t/20-methods.t
@@ -4,12 +4,14 @@ use warnings;
 
 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');
 }
@@ -28,7 +30,7 @@ sub check_method {
 	};
 
 	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";
 
@@ -45,12 +47,15 @@ sub check_method {
 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'
+]);