/[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 32 by dpavlin, Mon Jun 18 23:52:41 2007 UTC revision 46 by dpavlin, Tue Jun 19 19:50:29 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 => 7;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use blib;  use blib;
10    
# Line 18  BEGIN { Line 18  BEGIN {
18  ok( my $response = CWMP::Response->new({ debug => $debug }), 'new' );  ok( my $response = CWMP::Response->new({ debug => $debug }), 'new' );
19  isa_ok( $response, 'CWMP::Response' );  isa_ok( $response, 'CWMP::Response' );
20    
21  ok( my $inform = $response->Inform, 'Inform' );  sub is_like {
22            my ( $command, $template_xml ) = @_;
23    
24  diag $inform;          ok( my $xml = $response->$command({ ID => 42 }), $command );
25            diag $xml if $debug;
26            chomp( $xml );
27            chomp( $template_xml );
28            like( $xml, qr{^\Q$template_xml\E$}, $command . ' xml' );
29    }
30    
31    is_like( 'Inform', <<__SOAP__
32    <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/">
33      <soap:Header>
34        <cwmp:ID mustUnderstand="1">42</cwmp:ID>
35      </soap:Header>
36      <soap:Body>
37        <cwmp:InformResponse>
38          <cwmp:MaxEnvelopes>1</cwmp:MaxEnvelopes>
39        </cwmp:InformResponse>
40      </soap:Body>
41    </soap:Envelope>
42    __SOAP__
43    );
44    
45    is_like( 'GetRPCMethods', <<__SOAP__
46    <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/">
47      <soap:Header>
48        <cwmp:ID mustUnderstand="1">42</cwmp:ID>
49      </soap:Header>
50      <soap:Body>
51        <GetRPCMethods />
52      </soap:Body>
53    </soap:Envelope>
54    __SOAP__
55    );
Legend:
Removed from v.32  
changed lines
  Added in v.46
  ViewVC Help
Powered by ViewVC 1.1.26