Martin Kutter
c2ac24dd0f
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
31 lines
828 B
Perl
31 lines
828 B
Perl
use Test::More tests => 3;
|
|
use File::Basename qw(dirname);
|
|
use File::Spec;
|
|
|
|
my $path = File::Spec->rel2abs( dirname __FILE__ );
|
|
|
|
use_ok qw(SOAP::WSDL::Generator::Visitor::Typelib);
|
|
use_ok qw(SOAP::WSDL::Generator::Template::XSD);
|
|
|
|
use SOAP::WSDL::Expat::WSDLParser;
|
|
|
|
my $parser = SOAP::WSDL::Expat::WSDLParser->new();
|
|
my $definitions = $parser->parse_file(
|
|
"$path/../../../acceptance/wsdl/generator_unsupported_test.wsdl"
|
|
);
|
|
|
|
my $generator = SOAP::WSDL::Generator::Template::XSD->new({
|
|
definitions => $definitions,
|
|
});
|
|
|
|
{
|
|
# 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 ! $@;
|