import SOAP-WSDL 2.00_25 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_25 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_25.tar.gz
This commit is contained in:
1 parent
84b53d9261
commit
a9033164e6
177 files changed
+3449
-2063
No files matched your search
@@ -11,7 +11,8 @@ use_ok(qw/SOAP::WSDL::Transport::Test/);
|
||||
$soap = SOAP::WSDL::Client->new();
|
||||
$soap->set_proxy('http://somewhere.over.the.rainbow');
|
||||
|
||||
ok( $soap->get_transport->set_base_dir( join '/', $base_dir, 'acceptance' ) );
|
||||
$soap->get_transport->set_base_dir( join '/', $base_dir, 'acceptance' );
|
||||
ok $soap->get_transport->get_base_dir();
|
||||
|
||||
{
|
||||
local $SIG{__WARN__} = sub {};
|
||||
|
||||
@@ -11,10 +11,10 @@ ok $transport->code(200);
|
||||
ok $transport->status('200 OK');
|
||||
ok $transport->message('OK');
|
||||
|
||||
$transport->send_receive(envelope => 'Test', action => 'foo');
|
||||
my $result = $transport->send_receive(envelope => 'Test', action => 'foo');
|
||||
|
||||
ok ! $transport->is_success();
|
||||
|
||||
$transport->send_receive(encoding => 'utf8', envelope => 'ÄÖÜ',
|
||||
$result = $transport->send_receive(encoding => 'utf8', envelope => 'ÄÖÜ',
|
||||
action => 'foo');
|
||||
ok ! $transport->is_success();
|
||||
Reference in new issue
Block a user