From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 28 Oct 2007 12:21:53 +0000 (+0000)
Subject: check response with parametars
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=5802eb442fb59fe3df1c865cf2d7683f650afe8d

check response with parametars

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@167 836a5e1a-633d-0410-964b-294494ad4392
---

diff --git a/t/20-response.t b/t/20-response.t
index 2e69fdc..c3ec6f2 100755
--- a/t/20-response.t
+++ b/t/20-response.t
@@ -23,7 +23,11 @@ isa_ok( $response, 'CWMP::Response' );
 sub check_response {
 	my $command = shift || die "no command?";
 
-	ok( my $xml = $response->$command({ ID => 42 }), "generate response for $command" );
+	my $state = {
+		ID => 42,
+	};
+
+	ok( my $xml = $response->$command( $state, @_ ), "generate response $command" . dump(@_) );
 
 	my $file = "$abs_path/response/$command.xml";
 
@@ -40,5 +44,5 @@ sub check_response {
 check_response( 'InformResponse' );
 check_response( 'GetRPCMethods' );
 check_response( 'Reboot' );
-check_response( 'GetParameterNames' );
+check_response( 'GetParameterNames', 'InternetGatewayDevice.DeviceInfo.SerialNumber', 0 );
 check_response( 'GetParameterValues' );
diff --git a/t/response/GetParameterNames.xml b/t/response/GetParameterNames.xml
index 90cd0eb..3f7165c 100644
--- a/t/response/GetParameterNames.xml
+++ b/t/response/GetParameterNames.xml
@@ -7,7 +7,7 @@
   </soap:Header>
   <soap:Body>
     <cwmp:GetParameterNames>
-      <cwmp:ParameterPath></cwmp:ParameterPath>
+      <cwmp:ParameterPath>InternetGatewayDevice.DeviceInfo.SerialNumber</cwmp:ParameterPath>
       <cwmp:NextLevel>0</cwmp:NextLevel>
     </cwmp:GetParameterNames>
   </soap:Body>