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

import SOAP-WSDL 2.00_31 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_31
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_31.tar.gz
This commit is contained in:
Martin Kutter
2009-12-12 19:48:21 -08:00
committed by Michael G. Schwern
parent 874251225f
commit f0b3bdc201
54 changed files with 1094 additions and 450 deletions
Download Patch File Download Diff File Expand all files Collapse all files
t/SOAP/WSDL/Generator/Template.t
+4 -4
View File
@@ -44,7 +44,7 @@ print $@ if $@;
# print $output;
__END__
my $tt = Template->new(
my $tt = Template->new(
DEBUG => 1,
EVAL_PERL => 1,
RECURSION => 1,
@@ -53,7 +53,7 @@ my $tt = Template->new(
foreach my $service (@{ $definitions->get_service }) {
my $output;
$tt->process( 'Interface.tt', {
$tt->process( 'Interface.tt', {
definitions => $definitions,
service => $service,
interface_prefix => 'MyInterface',
@@ -62,8 +62,8 @@ foreach my $service (@{ $definitions->get_service }) {
element_prefix => 'MyElement',
}, \$output);
die $tt->error if $tt->error();
ok eval $output, 'eval output';
print $output;
};
t/SOAP/WSDL/Generator/XSD.t
+8 -1
View File
@@ -1,4 +1,4 @@
use Test::More tests => 38;
use Test::More tests => 41;
use File::Basename qw(dirname);
use File::Spec;
use File::Path;
@@ -149,5 +149,12 @@ is $ct_east->get_testAtomicSimpleTypeElement2->get_value(), 23;
isa_ok($ct_east->get_testAtomicSimpleTypeElement2,
'MyTypes::testComplexTypeElementAtomicSimpleType::_testAtomicSimpleTypeElement2');
ok eval { require MyElements::testElementCompletelyEmptyComplex; }
, 'load MyElements::testElementCompletelyEmptyComplex';
ok my $empty = MyElements::testElementCompletelyEmptyComplex->new();
is $empty->serialize_qualified(), '<testElementCompletelyEmptyComplex xmlns="urn:Test"/>'
, 'serialize empty';
rmtree "$path/testlib";