The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
use strict;
use warnings;
use Test::More tests => 2;
use Template;
use File::Basename;
use File::Spec;
use SOAP::WSDL::Expat::WSDLParser;
use SOAP::WSDL::Generator::Template::XSD;

my $path = dirname __FILE__;

my $parser = SOAP::WSDL::Expat::WSDLParser->new();

$parser->parse_file("$path/../../../acceptance/wsdl/006_sax_client.wsdl");
#"$path/../../../../example/wsdl/globalweather.xml");
my $definitions = $parser->get_data();

my $generator = SOAP::WSDL::Generator::Template::XSD->new({
    definitions => $definitions,
});
my $output = q{};


$generator->generate_typemap({
    NO_POD => 1,
    output => \$output,
});

ok eval $output;
print $@ if $@;

#print $output;

$output = q{};
$generator->generate_interface({
    NO_POD => 1,
    output => \$output,
});

ok eval $output;
print $@ if $@;