import SOAP-WSDL 2.00.01 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.01 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.01.tar.gz
This commit is contained in:
1 parent
0cbf981665
commit
745ce925c1
111 files changed
+1106
-673
No files matched your search
@@ -12,13 +12,13 @@ use_ok qw(SOAP::WSDL::Generator::Visitor::Typemap);
|
||||
my $visitor;
|
||||
ok $visitor = SOAP::WSDL::Generator::Visitor::Typemap->new({
|
||||
resolver => SOAP::WSDL::Generator::Template::Plugin::XSD->new({
|
||||
prefix_resolver=> SOAP::WSDL::Generator::PrefixResolver->new({
|
||||
prefix_resolver=> SOAP::WSDL::Generator::PrefixResolver->new({
|
||||
prefix => {
|
||||
type => 'TestTypes',
|
||||
element => 'TestElements',
|
||||
typemap => 'TestTypemap',
|
||||
}
|
||||
}),
|
||||
}
|
||||
}),
|
||||
})
|
||||
}), 'constructor';
|
||||
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
use Test::More tests => 49;
|
||||
use Test::More tests => 51;
|
||||
use File::Basename qw(dirname);
|
||||
use File::Spec;
|
||||
use File::Path;
|
||||
@@ -14,7 +14,6 @@ my $parser = SOAP::WSDL::Expat::WSDLParser->new();
|
||||
|
||||
my $definitions = $parser->parse_file(
|
||||
"$path/../../../acceptance/wsdl/generator_test.wsdl"
|
||||
#"$path/../../../acceptance/wsdl/elementAtomicComplexType.xml"
|
||||
);
|
||||
|
||||
my $generator = SOAP::WSDL::Generator::Template::XSD->new({
|
||||
@@ -33,8 +32,6 @@ $generator->generate_typelib();
|
||||
ok !$@;
|
||||
print $@ if $@;
|
||||
}
|
||||
# print $code;
|
||||
|
||||
|
||||
$generator->set_type_prefix('MyTypes');
|
||||
$generator->set_element_prefix('MyElements');
|
||||
@@ -182,6 +179,10 @@ $obj->attr({ testAttr => 'bar' });
|
||||
|
||||
is $obj->serialize({ name => 'baz'}), q{<baz testAttr="bar">foo</baz>};
|
||||
|
||||
use_ok qw(MyAttributes::TestAttribute);
|
||||
ok $obj = MyAttributes::TestAttribute->new({ value => 'foo' });
|
||||
|
||||
|
||||
SKIP: {
|
||||
eval { require Test::Pod::Content; }
|
||||
or skip 'Cannot test pod content without Test::Pod::Content', 1;
|
||||
|
||||
Reference in new issue
Block a user