0cbf981665
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_33 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_33.tar.gz
94 lines
3.1 KiB
Perl
94 lines
3.1 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;
|
|
use File::Basename;
|
|
use File::Spec;
|
|
|
|
my $path = File::Spec->rel2abs( dirname __FILE__ );
|
|
my ($volume, $dir) = File::Spec->splitpath($path, 1);
|
|
my @dir_from = File::Spec->splitdir($dir);
|
|
unshift @dir_from, $volume if $volume;
|
|
my $url = join '/', @dir_from;
|
|
|
|
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://' . $url .'/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/"
|
|
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
|
|
>
|
|
<SOAP-ENV:Body ><EnqueueMessage><MMessage>
|
|
<MRecipientURI>mailto:test@example.com</MRecipientURI>
|
|
<MMessageContent>TestContent for Message</MMessageContent>
|
|
<MMessageContent xsi:nil="true"></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";
|
|
};
|
|
};
|
|
};
|