4 |
|
|
5 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
6 |
|
|
7 |
use Test::More tests => 7; |
use Test::More tests => 9; |
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
use blib; |
use blib; |
10 |
|
|
54 |
</soap:Body> |
</soap:Body> |
55 |
</soap:Envelope> |
</soap:Envelope> |
56 |
__SOAP__ |
__SOAP__ |
57 |
|
); |
58 |
|
|
59 |
|
is_like( 'Reboot', <<__SOAP__ |
60 |
|
<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/"> |
61 |
|
<soap:Header> |
62 |
|
<cwmp:ID mustUnderstand="1">42</cwmp:ID> |
63 |
|
<cwmp:NoMoreRequests>0</cwmp:NoMoreRequests> |
64 |
|
</soap:Header> |
65 |
|
<soap:Body> |
66 |
|
<Reboot /> |
67 |
|
</soap:Body> |
68 |
|
</soap:Envelope> |
69 |
|
__SOAP__ |
70 |
); |
); |