a9033164e6
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
86 lines
2.9 KiB
Perl
86 lines
2.9 KiB
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 5;
|
|
use lib 't/lib';
|
|
use lib '../lib';
|
|
use lib 'lib';
|
|
|
|
use SOAP::WSDL::Expat::MessageParser;
|
|
use Cwd;
|
|
|
|
use SOAP::WSDL;
|
|
use SOAP::WSDL::XSD::Typelib::Builtin;
|
|
my $path = cwd;
|
|
$path =~s|\/t\/?$||; # allow running from t/ and above (Build test)
|
|
|
|
my $parser;
|
|
|
|
ok $parser = SOAP::WSDL::Expat::MessageParser->new({
|
|
class_resolver => FakeResolver->new(),
|
|
}), "Object creation";
|
|
ok $parser->class_resolver()->isa('FakeResolver');
|
|
ok $parser->class_resolver('FakeResolver');
|
|
|
|
# TODO factor out into bool test
|
|
|
|
$parser->parse( xml() );
|
|
|
|
if($parser->get_data()->get_MMessage()->get_MDeliveryReportRecipientURI()) {
|
|
pass "bool context overloading";
|
|
}
|
|
else
|
|
{
|
|
fail "bool context overloading"
|
|
}
|
|
|
|
# TODO factor out into different test
|
|
|
|
my $soap = SOAP::WSDL->new(
|
|
wsdl => 'file:///' . $path .'/t/acceptance/wsdl/006_sax_client.wsdl',
|
|
)->wsdlinit();
|
|
|
|
$soap->servicename('MessageGateway');
|
|
|
|
ok( $soap->no_dispatch( 1 ) , "Set no_dispatch" );
|
|
|
|
sub xml {
|
|
q{<SOAP-ENV:Envelope
|
|
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
|
|
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
|
|
xmlns:tns="http://www.example.org/MessageGateway2/"
|
|
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
|
|
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >
|
|
<SOAP-ENV:Body ><EnqueueMessage><MMessage>
|
|
<MRecipientURI>mailto:test@example.com</MRecipientURI>
|
|
<MMessageContent>TestContent for Message</MMessageContent>
|
|
<MMessageContent>TestContent for Message 2</MMessageContent>
|
|
<MSenderAddress>martin.kutter@example.com</MSenderAddress>
|
|
<MDeliveryReportRecipientURI>mailto:test@example.com</MDeliveryReportRecipientURI>
|
|
</MMessage></EnqueueMessage></SOAP-ENV:Body></SOAP-ENV:Envelope>};
|
|
}
|
|
|
|
# data classes reside in t/lib/Typelib/
|
|
BEGIN {
|
|
package FakeResolver;
|
|
{
|
|
my %class_list = (
|
|
'EnqueueMessage' => 'Typelib::TEnqueueMessage',
|
|
'EnqueueMessage/MMessage' => 'Typelib::TMessage',
|
|
'EnqueueMessage/MMessage/MRecipientURI' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
|
|
'EnqueueMessage/MMessage/MMessageContent' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
|
'EnqueueMessage/MMessage/MSenderAddress' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
|
'EnqueueMessage/MMessage/MMessageContent' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
|
'EnqueueMessage/MMessage/MDeliveryReportRecipientURI' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
|
|
);
|
|
|
|
sub new { return bless {}, 'FakeResolver' };
|
|
sub get_typemap { return \%class_list };
|
|
sub get_class {
|
|
my $name = join('/', @{ $_[1] });
|
|
return ($class_list{ $name }) ? $class_list{ $name }
|
|
: warn "no class found for $name";
|
|
};
|
|
};
|
|
};
|