import SOAP-WSDL 2.00_29 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
This commit is contained in:
1 parent
2bad767211
commit
874251225f
402 files changed
+30230
-2406
No files matched your search
@@ -0,0 +1,27 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
package TestResolver;
|
||||
sub get_typemap { {} };
|
||||
|
||||
package main;
|
||||
use Test::More tests => 8;
|
||||
|
||||
use SOAP::WSDL::Deserializer::XSD;
|
||||
|
||||
my $obj;
|
||||
|
||||
ok $obj = SOAP::WSDL::Deserializer::XSD->new();
|
||||
ok $obj = SOAP::WSDL::Deserializer::XSD->new({
|
||||
class_resolver => 'TestResolver',
|
||||
some_other_option => 'ignored',
|
||||
});
|
||||
|
||||
my $fault = $obj->generate_fault();
|
||||
|
||||
is $fault->get_faultstring(), 'Unknown error';
|
||||
is $fault->get_faultactor(), 'urn:localhost';
|
||||
is $fault->get_faultcode(), 'soap:Client';
|
||||
|
||||
isa_ok $obj->deserialize('rubbeldiekatz'), 'SOAP::WSDL::SOAP::Typelib::Fault11';
|
||||
isa_ok $obj->deserialize('<zumsel></zumsel>'), 'SOAP::WSDL::SOAP::Typelib::Fault11';
|
||||
isa_ok $obj->deserialize('<Envelope xmlns="huchmampf"></Envelope>'), 'SOAP::WSDL::SOAP::Typelib::Fault11';
|
||||
Reference in new issue
Block a user