6e95d01610
Wow. Even with the "fix" in, it runs correctly once, and then starts vomiting
with a similar error again as before the fix. it'll fail 20 times in a
row, then pass 20 times in a row. there's some haunted house level
shit going wrong here.
This reverts commit b121a061d8.
59 lines
1.4 KiB
Perl
59 lines
1.4 KiB
Perl
use strict;
|
|
use Test::More tests => 3;
|
|
use File::Basename qw(dirname);
|
|
use File::Spec;
|
|
use File::Path;
|
|
use diagnostics;
|
|
|
|
my $path = File::Spec->rel2abs( dirname __FILE__ );
|
|
my ($volume, $dir) = File::Spec->splitpath($path, 1);
|
|
my @dir_from = File::Spec->splitdir($dir);
|
|
unshift @dir_from, $volume if $volume;
|
|
my $url = join '/', @dir_from;
|
|
|
|
my $HAVE_TEST_WARN =eval { require Test::Warn; };
|
|
|
|
use_ok qw(SOAP::WSDL::Generator::Template::XSD);
|
|
|
|
use SOAP::WSDL::Expat::WSDLParser;
|
|
|
|
my $parser = SOAP::WSDL::Expat::WSDLParser->new();
|
|
|
|
my $definitions;
|
|
|
|
if ($HAVE_TEST_WARN) {
|
|
Test::Warn::warning_like(sub {
|
|
$definitions = $parser->parse_uri(
|
|
"file://$url/../../../../../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://$url/../../../../../acceptance/wsdl/WSDLParser-import.wsdl"
|
|
);
|
|
}
|
|
my $generator = SOAP::WSDL::Generator::Template::XSD->new({
|
|
definitions => $definitions,
|
|
type_prefix => 'Foo',
|
|
element_prefix => 'Foo',
|
|
typemap_prefix => 'Foo',
|
|
OUTPUT_PATH => "$path/testlib",
|
|
silent => 1,
|
|
});
|
|
|
|
my $code = "";
|
|
$generator->set_output(\$code);
|
|
$generator->generate_typelib();
|
|
{
|
|
eval $code;
|
|
ok !$@;
|
|
print $@ if $@;
|
|
}
|
|
|
|
rmtree "$path/testlib";
|