import SOAP-WSDL 2.00.07 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.07
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.07.tar.gz
This commit is contained in:
Martin Kutter authored and Michael G. Schwern committed 2009-12-12 19:48:57 -08:00
1 parent 3de318be40
commit bfc3247583
229 files changed
+16685 -2064

No files matched your search

+7 -1
View File
@@ -1,6 +1,6 @@
use strict;
use warnings;
use Test::More tests => 16; #qw(no_plan);
use Test::More tests => 17; #qw(no_plan);
use File::Spec;
use File::Basename;
@@ -38,6 +38,10 @@ else {
);
}
$parser = SOAP::WSDL::Expat::WSDLParser->new();
$definitions = $parser->parse_uri(
"file://$path/../../../acceptance/wsdl/WSDLParser-import.wsdl"
);
ok my $service = $definitions->first_service();
is $service->get_name(), 'Service1', 'wsdl:import service name';
is $definitions->first_binding()->get_name(), 'Service1Soap', 'wsdl:import binding name';
@@ -47,6 +51,8 @@ is @{ $schema_from_ref }, 2, 'got builtin and imported schema';
ok @{ $schema_from_ref->[1]->get_element } > 0;
is $schema_from_ref->[1]->get_element->[0]->get_name(), 'sayHello';
is $schema_from_ref->[1]->get_xmlns()->{ foo }, 'urn:Bar1', 'namespace prefix not overridden by import';
{
my $warn_parser = SOAP::WSDL::Expat::WSDLParser->new();
my $warning;