dinislage/SOAP-WSDL
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

import SOAP-WSDL 2.00_33 from CPAN

Browse Source 
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
This commit is contained in:
Martin Kutter authored and Michael G. Schwern committed 2009-12-12 19:48:28 -08:00
1 parent 51db446428
commit 0cbf981665
146 files changed
+3364 -1280
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

t/SOAP/WSDL/Generator/Visitor/Typemap.t
+28 -7
View File
@@ -4,11 +4,23 @@ use Test::More tests => 5;
use File::Basename;
use File::Spec;
my $path = File::Spec->rel2abs( dirname __FILE__ );
use SOAP::WSDL::Generator::Template::Plugin::XSD;
use SOAP::WSDL::Generator::Iterator::WSDL11;
use SOAP::WSDL::Generator::PrefixResolver;
use_ok qw(SOAP::WSDL::Generator::Visitor::Typemap);
my $visitor;
ok $visitor = SOAP::WSDL::Generator::Visitor::Typemap->new(), 'constructor';
ok $visitor = SOAP::WSDL::Generator::Visitor::Typemap->new({
resolver => SOAP::WSDL::Generator::Template::Plugin::XSD->new({
prefix_resolver=> SOAP::WSDL::Generator::PrefixResolver->new({
prefix => {
type => 'TestTypes',
element => 'TestElements',
typemap => 'TestTypemap',
}
}),
})
}), 'constructor';
use SOAP::WSDL::Expat::WSDLParser;
@@ -24,12 +36,21 @@ $parser->parse_file(
my $definitions = $parser->get_data();
$definitions->_accept( $visitor );
my $iter = SOAP::WSDL::Generator::Iterator::WSDL11->new({
definitions => $definitions
});
$visitor->set_definitions($definitions);
$iter->init();
while (my $node = $iter->get_next()) {
$node->_accept( $visitor );
};
my $typemap = $visitor->get_typemap();
is $typemap->{'EnqueueMessage/MMessage/MKeepalive'}, 'MyTypes::TKeepalive', 'content';
is $typemap->{'EnqueueMessageResponse'}, 'MyElements::EnqueueMessageResponse', 'content';
is $typemap->{'KeepaliveMessageResponse'}, 'MyElements::KeepaliveMessageResponse', 'content';
is $typemap->{'EnqueueMessage/MMessage/MKeepalive'}, 'TestTypes::TKeepalive', 'content';
is $typemap->{'EnqueueMessageResponse'}, 'TestElements::EnqueueMessageResponse', 'content';
is $typemap->{'KeepaliveMessageResponse'}, 'TestElements::KeepaliveMessageResponse', 'content';
use Data::Dumper;
print Dumper $typemap;
sub wsdl {
q{<?xml version="1.0" encoding="UTF-8"?>
@@ -137,4 +158,4 @@ xmlns="http://schemas.xmlsoap.org/wsdl/">
</service>
</definitions>
}
}
}