fix CWMP::Vendor->vendor_config

[perl-cwmp.git] / t / 20-methods.t

diff --git a/t/20-methods.t b/t/20-methods.t
index 9d260c3..27f9670 100755 (executable)
--- 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'
+]);