X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=blobdiff_plain;f=t%2F20-methods.t;h=27f96709e71506c8b52a618c151eb05926fa9f1a;hp=9d260c379cf664d332e9ec4038476b6fac2f48b9;hb=refs%2Fheads%2Fmaster;hpb=6ae55ee7caaa8c33a10a983dcc3b50928eb52914

diff --git a/t/20-methods.t b/t/20-methods.t
index 9d260c3..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');
 }
@@ -54,3 +56,6 @@ check_method( 'GetParameterValues', [
 	'InternetGatewayDevice.DeviceInfo.SerialNumber',
 	'InternetGatewayDevice.DeviceInfo.VendorConfigFile.',
 ]);
+check_method( 'GetParameterAttributes', [
+	'InternetGatewayDevice.DeviceInfo.SerialNumber'
+]);