google/t/20-response.t

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

my $debug = shift @ARGV;

use Test::More tests => 5;
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' );

ok( my $inform = $response->Inform({ ID => 42 }), 'Inform' );

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/">
  <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>\E}, 'xml');

diag $inform if $debug;
1	dpavlin	32	#!/usr/bin/perl
2			use strict;
3			use warnings;
4
5			my $debug = shift @ARGV;
6
7	dpavlin	45	use Test::More tests => 5;
8	dpavlin	32	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	dpavlin	38	ok( my $inform = $response->Inform({ ID => 42 }), 'Inform' );
22	dpavlin	32
23	dpavlin	45	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	dpavlin	33	diag $inform if $debug;