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
2009-12-12 19:48:45 -08:00
committed by Michael G. Schwern
parent c3e3d1908e
commit c2ac24dd0f
109 changed files with 725 additions and 2095 deletions
Download Patch File Download Diff File Expand all files Collapse all files
t/SOAP/WSDL/Generator/Template/XSD/Import.t
+21 -4
View File
@@ -1,10 +1,13 @@
use Test::More tests => 3;
use strict;
use Test::More tests => 4;
use File::Basename qw(dirname);
use File::Spec;
use File::Path;
use diagnostics;
my $path = File::Spec->rel2abs( dirname __FILE__ );
my $HAVE_TEST_WARN =eval { require Test::Warn; };
use_ok qw(SOAP::WSDL::Generator::Visitor::Typelib);
use_ok qw(SOAP::WSDL::Generator::Template::XSD);
@@ -12,10 +15,24 @@ use SOAP::WSDL::Expat::WSDLParser;
my $parser = SOAP::WSDL::Expat::WSDLParser->new();
my $definitions = $parser->parse_uri(
"file://$path/../../../../../acceptance/wsdl/WSDLParser-import.wsdl"
);
my $definitions;
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
);
}
else {
local $SIG{__WARN__} = sub {};
SKIP: { skip 'Cannot test warning without Test::Warn', 1; }
$definitions = $parser->parse_uri(
"file://$path/../../../../../acceptance/wsdl/WSDLParser-import.wsdl"
);
}
my $generator = SOAP::WSDL::Generator::Template::XSD->new({
definitions => $definitions,
type_prefix => 'Foo',
t/SOAP/WSDL/Generator/XSD_unsupported.t
+8 -5
View File
@@ -1,4 +1,4 @@
use Test::More tests => 2;
use Test::More tests => 3;
use File::Basename qw(dirname);
use File::Spec;
@@ -19,9 +19,12 @@ my $generator = SOAP::WSDL::Generator::Template::XSD->new({
});
{
# currently, there is no completely unsupported XML schema
# idiom (at least none which is detected properly)
# TODO update WSDL and add some (there sure are)
# currently, there is no completely unsupported XML schema
# idiom (at least none which is detected properly)
# TODO update WSDL and add some (there sure are)
my $code = "";
$generator->set_output(\$code);
eval { $generator->generate_typelib() };
eval $code;
}
# ok $@, $@;
ok ! $@;