r250@brr: dpavlin | 2007-11-20 14:09:59 +0100

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

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