/[cwmp]/google/trunk/t/20-response.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/t/20-response.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 38 by dpavlin, Tue Jun 19 09:43:57 2007 UTC revision 45 by dpavlin, Tue Jun 19 19:36:21 2007 UTC
# Line 4  use warnings; Line 4  use warnings;
4    
5  my $debug = shift @ARGV;  my $debug = shift @ARGV;
6    
7  use Test::More tests => 4;  use Test::More tests => 5;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use blib;  use blib;
10    
# Line 20  isa_ok( $response, 'CWMP::Response' ); Line 20  isa_ok( $response, 'CWMP::Response' );
20    
21  ok( my $inform = $response->Inform({ ID => 42 }), 'Inform' );  ok( my $inform = $response->Inform({ ID => 42 }), 'Inform' );
22    
23    like( $inform, qr{\Q<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/">
24      <soap:Header>
25        <cwmp:ID mustUnderstand="1">42</cwmp:ID>
26      </soap:Header>
27      <soap:Body>
28        <cwmp:InformResponse>
29          <cwmp:MaxEnvelopes>1</cwmp:MaxEnvelopes>
30        </cwmp:InformResponse>
31      </soap:Body>
32    </soap:Envelope>\E}, 'xml');
33    
34  diag $inform if $debug;  diag $inform if $debug;
Legend:
Removed from v.38  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26