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

import SOAP-WSDL 2.00.06 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.06
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.06.tar.gz
This commit is contained in:
Martin Kutter
2009-12-12 19:48:54 -08:00
committed by Michael G. Schwern
parent c2ac24dd0f
commit 3de318be40
66 changed files with 758 additions and 342 deletions
Download Patch File Download Diff File Expand all files Collapse all files
t/SOAP/WSDL/Generator/XSD.t
+15 -2
View File
@@ -1,4 +1,4 @@
use Test::More tests => 68;
use Test::More tests => 71;
use File::Basename qw(dirname);
use File::Spec;
use File::Path;
@@ -51,6 +51,7 @@ my $generator = SOAP::WSDL::Generator::Template::XSD->new({
my $code = "";
$generator->set_output(\$code);
$generator->generate_typelib();
{
eval $code;
@@ -227,12 +228,24 @@ is q{<testAtomicRef xmlns="urn:Test"><in>foo</in></testAtomicRef>}
SKIP: {
eval { require Test::Pod::Content; }
or skip 'Cannot test pod content without Test::Pod::Content', 1;
or skip 'Cannot test pod content without Test::Pod::Content', 2;
Test::Pod::Content::pod_section_like(
'MyTypes::testComplexTypeSequenceWithAttribute',
'attr',
qr{Test \s Attribute \s good \s for \s nothing}x,
'Attribute POD');
Test::Pod::Content::pod_section_like(
'MyInterfaces::testService::testPort',
'testChoice',
qr{Returns \s a \s MyElements::testComplexTypeRestriction \s object\.}x,
'Interface POD contains response class name');
}
use_ok qw(MyTypes::finalComplexType);
{
no warnings qw(once);
ok *MyTypes::finalComplexType::get_Name, 'complexType inheritance flattened out';
}
ok $typemap = MyTypemaps::testService->get_typemap();
t/SOAP/WSDL/Generator/XSD_nested_complextype.t
+7 -1
View File
@@ -1,4 +1,4 @@
use Test::More tests => 14;
use Test::More tests => 17;
use File::Basename qw(dirname);
use File::Spec;
use File::Path;
@@ -115,4 +115,10 @@ sub xml {
</SOAP-ENV:Body></SOAP-ENV:Envelope>};
}
require FooType::testAbstractGrandChild;
ok(FooType::testAbstractGrandChild->can('get_abstractGrandChild'), 'attribute');
ok(FooType::testAbstractGrandChild->can('get_abstractChild'), 'parent attribute');
ok(FooType::testAbstractGrandChild->can('get_abstract'), 'grandparent attribute');
rmtree "$path/testlib";