import SOAP-WSDL 2.00.02 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.02 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.02.tar.gz
This commit is contained in:
1 parent
745ce925c1
commit
915ee03cbe
153 files changed
+3289
-2513
No files matched your search
@@ -0,0 +1,24 @@
|
||||
use Test::More tests => 7;
|
||||
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 => 'utf8', envelope => 'ÄÖÜ',
|
||||
action => 'foo');
|
||||
ok ! $transport->is_success();
|
||||
|
||||
$result = $transport->send_receive(encoding => 'utf8', envelope => 'ÄÖÜ',
|
||||
action => 'foo', content_type => 'application/xml');
|
||||
ok ! $transport->is_success();
|
||||
Reference in new issue
Block a user