trunk/t/20-response.t

#!/usr/bin/perl
use strict;
use warnings;

my $debug = shift @ARGV;

use Test::More tests => 7;
use Data::Dump qw/dump/;
use blib;

BEGIN {
        use_ok('CWMP::Response');
}

#ok( my $xml = join("",<DATA>), 'xml' );
#diag $xml if $debug;

ok( my $response = CWMP::Response->new({ debug => $debug }), 'new' );
isa_ok( $response, 'CWMP::Response' );

sub is_like {
        my ( $command, $template_xml ) = @_;

        ok( my $xml = $response->$command({ ID => 42 }), $command );
        diag $xml if $debug;
        chomp( $xml );
        chomp( $template_xml );
        like( $xml, qr{^\Q$template_xml\E$}, $command . ' xml' );
}

is_like( 'Inform', <<__SOAP__
<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/">
  <soap:Header>
    <cwmp:ID mustUnderstand="1">42</cwmp:ID>
  </soap:Header>
  <soap:Body>
    <cwmp:InformResponse>
      <cwmp:MaxEnvelopes>1</cwmp:MaxEnvelopes>
    </cwmp:InformResponse>
  </soap:Body>
</soap:Envelope>
__SOAP__
);

is_like( 'GetRPCMethods', <<__SOAP__
<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/">
  <soap:Header>
    <cwmp:ID mustUnderstand="1">42</cwmp:ID>
  </soap:Header>
  <soap:Body>
    <GetRPCMethods />
  </soap:Body>
</soap:Envelope>
__SOAP__
);
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	my $debug = shift @ARGV;
6
7	use Test::More tests => 7;
8	use Data::Dump qw/dump/;
9	use blib;
10
11	BEGIN {
12	use_ok('CWMP::Response');
13	}
14
15	#ok( my $xml = join("",<DATA>), 'xml' );
16	#diag $xml if $debug;
17
18	ok( my $response = CWMP::Response->new({ debug => $debug }), 'new' );
19	isa_ok( $response, 'CWMP::Response' );
20
21	sub is_like {
22	my ( $command, $template_xml ) = @_;
23
24	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	);