Martin KutterandMichael G. Schwern
bfc3247583
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.07 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.07.tar.gz
39 lines
1.1 KiB
Perl
39 lines
1.1 KiB
Perl
use Test::More tests => 8;
|
|
use strict;
|
|
use utf8;
|
|
|
|
use SOAP::WSDL::Transport::HTTP;
|
|
|
|
my $transport = SOAP::WSDL::Transport::HTTP->new();
|
|
|
|
ok $transport->is_success(1);
|
|
ok $transport->code(200);
|
|
ok $transport->status('200 OK');
|
|
ok $transport->message('OK');
|
|
|
|
my $result = $transport->send_receive(envelope => 'Test', action => 'foo');
|
|
|
|
ok ! $transport->is_success();
|
|
|
|
$result = $transport->send_receive(encoding => 'utf-8', envelope => 'ÄÖÜ',
|
|
action => 'foo');
|
|
ok ! $transport->is_success();
|
|
|
|
$result = $transport->send_receive(encoding => 'utf-8', envelope => 'ÄÖÜ',
|
|
action => 'foo', content_type => 'application/xml');
|
|
ok ! $transport->is_success();
|
|
|
|
{
|
|
no warnings qw(redefine);
|
|
my $request_sub =\&LWP::UserAgent::request;
|
|
*LWP::UserAgent::request = sub {
|
|
my $self = shift;
|
|
my $request = shift;
|
|
is $request->header('Content-Type'), 'text/xml; charset=utf-8';
|
|
return HTTP::Response->new( 200 );
|
|
};
|
|
|
|
$result = $transport->send_receive(envelope => 'Test', action => 'foo');
|
|
*LWP::UserAgent::request = $request_sub;
|
|
}
|