add test for GetParameterValues

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

diff --git a/t/20-response.t b/t/20-response.t
index f3dea36..2e69fdc 100755 (executable)
--- a/t/20-response.t
+++ b/t/20-response.t
@@ -4,7 +4,7 @@ use warnings;
 
 my $debug = shift @ARGV;
 
-use Test::More tests => 12;
+use Test::More tests => 14;
 use Data::Dump qw/dump/;
 use Cwd qw/abs_path/;
 use File::Slurp;
@@ -41,3 +41,4 @@ check_response( 'InformResponse' );
 check_response( 'GetRPCMethods' );
 check_response( 'Reboot' );
 check_response( 'GetParameterNames' );
+check_response( 'GetParameterValues' );

diff --git a/t/response/GetParameterValues.xml b/t/response/GetParameterValues.xml
new file mode 100644 (file)
index 0000000..54246b6
--- /dev/null
+++ b/t/response/GetParameterValues.xml
@@ -0,0 +1,14 @@
+<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
+               xmlns:cwmp="urn:dslforum-org:cwmp-1-0"
+               soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+  <soap:Header>
+    <cwmp:ID mustUnderstand="1">42</cwmp:ID>
+    <cwmp:NoMoreRequests>0</cwmp:NoMoreRequests>
+  </soap:Header>
+  <soap:Body>
+    <cwmp:GetParameterValues>
+      <cwmp:ParameterPath></cwmp:ParameterPath>
+      <cwmp:NextLevel>0</cwmp:NextLevel>
+    </cwmp:GetParameterValues>
+  </soap:Body>
+</soap:Envelope>
\ No newline at end of file