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

import SOAP-WSDL 2.00.05 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.05
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.05.tar.gz
This commit is contained in:
Martin Kutter authored and Michael G. Schwern committed 2009-12-12 19:48:45 -08:00
1 parent c3e3d1908e
commit c2ac24dd0f
109 files changed
+725 -2095
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

t/SOAP/WSDL/Expat/WSDLParser.t
+31 -18
View File
@@ -1,9 +1,11 @@
use strict;
use warnings;
use Test::More tests => 14; #qw(no_plan);
use Test::More tests => 16; #qw(no_plan);
use File::Spec;
use File::Basename;
my $HAVE_TEST_WARN =eval { require Test::Warn; };
my $path = File::Spec->rel2abs( dirname __FILE__ );
$path =~s{\\}{/}xg; # stupid windows workaround: $path works with /, but not
# with \
@@ -16,25 +18,25 @@ my $definitions = $parser->parse_file(
"$path/../../../acceptance/wsdl/WSDLParser.wsdl"
);
use Data::Dumper;
my $schema = $definitions->first_types()->get_schema()->[1];
my $attr = $schema->get_element()->[0]->first_complexType->first_attribute();
ok $attr->get_name('testAttribute'), 'attribute name';
ok $attr->get_type('xs:string'), 'attribute type';
#use SOAP::WSDL::Generator::Template::XSD;
#my $generator = SOAP::WSDL::Generator::Template::XSD->new({
# definitions => $definitions,
# type_prefix => 'Foo',
# element_prefix => 'Foo',
# typemap_prefix => 'Foo',
# OUTPUT_PATH => "$path/testlib",
#});
$definitions = $parser->parse_uri(
"file://$path/../../../acceptance/wsdl/WSDLParser-import.wsdl"
);
if ($HAVE_TEST_WARN) {
Test::Warn::warning_like( sub {
$definitions = $parser->parse_uri(
"file://$path/../../../acceptance/wsdl/WSDLParser-import.wsdl"
);
}, qr{already \s imported}x, 'duplicate import warning')
}
else {
SKIP: { skip 'Cannot test warnings without Test::Warn', 1; };
local $SIG{__WARN__} = sub {};
$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';
@@ -77,9 +79,20 @@ like $@, qr{\A cannot \s import \s document \s from \s namespace \s
$SIG{ALRM} = sub { die 'looped'};
alarm 1;
$definitions = $parser->parse_file(
"$path/../../../acceptance/wsdl/WSDLParser_import_loop.wsdl"
);
if ($HAVE_TEST_WARN) {
Test::Warn::warning_like( sub {
$definitions = $parser->parse_uri(
"file://$path/../../../acceptance/wsdl/WSDLParser_import_loop.wsdl"
);
}, qr{already \s imported}x, 'duplicate import warning');
}
else {
SKIP: { skip 'Cannot test warnings without Test::Warn', 1; };
local $SIG{__WARN__} = sub {};
$definitions = $parser->parse_uri(
"file://$path/../../../acceptance/wsdl/WSDLParser_import_loop.wsdl"
);
}
alarm 0;
pass 'import loop';