4 |
|
|
5 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
6 |
|
|
7 |
use Test::More tests => 9; |
use Test::More tests => 11; |
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
use blib; |
use blib; |
10 |
|
|
67 |
</soap:Body> |
</soap:Body> |
68 |
</soap:Envelope> |
</soap:Envelope> |
69 |
__SOAP__ |
__SOAP__ |
70 |
|
); |
71 |
|
|
72 |
|
is_like( 'GetParameterNames', <<__SOAP__ |
73 |
|
<soap:Envelope xmlns:cwmp="urn:dslforum-org:cwmp-1-0" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> |
74 |
|
<soap:Header> |
75 |
|
<cwmp:ID mustUnderstand="1">42</cwmp:ID> |
76 |
|
<cwmp:NoMoreRequests>0</cwmp:NoMoreRequests> |
77 |
|
</soap:Header> |
78 |
|
<soap:Body> |
79 |
|
<cwmp:GetParameterNames> |
80 |
|
<cwmp:ParameterPath></cwmp:ParameterPath> |
81 |
|
<cwmp:NextLevel>0</cwmp:NextLevel> |
82 |
|
</cwmp:GetParameterNames> |
83 |
|
</soap:Body> |
84 |
|
</soap:Envelope> |
85 |
|
__SOAP__ |
86 |
); |
); |