fb9fd4a2b1
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.08 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.08.tar.gz
56 lines
1.4 KiB
Perl
56 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;
|
|
|
|
$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;
|
|
$path = join '/', @dir_from;
|
|
my $HAVE_TEST_XML = eval {
|
|
require Test::XML;
|
|
import Test::XML;
|
|
1;
|
|
};
|
|
|
|
use_ok qw(SOAP::WSDL::Generator::Template::XSD);
|
|
|
|
use SOAP::WSDL::Expat::WSDLParser;
|
|
|
|
my $parser = SOAP::WSDL::Expat::WSDLParser->new();
|
|
|
|
my $definitions = $parser->parse_uri(
|
|
"file://$path/../../../../../acceptance/wsdl/006_sax_client.wsdl" );
|
|
|
|
my $generator = SOAP::WSDL::Generator::Template::XSD->new( {
|
|
definitions => $definitions,
|
|
OUTPUT_PATH => "$path/testlib",
|
|
silent => 1,
|
|
} );
|
|
|
|
my $code = "";
|
|
$generator->generate_typelib();
|
|
|
|
eval qq{use lib "$path/testlib";};
|
|
ok eval("require MyElements::EnqueueMessage;"), "require generated class";
|
|
my $obj =
|
|
MyElements::EnqueueMessage->new( {MMessage => {MSubject => 'test'}} );
|
|
|
|
my $xml = q{<EnqueueMessage xmlns="http://www.example.org/Test/">
|
|
<MMessage xmlns=""><MSubject>test</MSubject></MMessage>
|
|
</EnqueueMessage>
|
|
};
|
|
|
|
SKIP: {
|
|
skip( "Cannot test XML content without Test::XML", 1 )
|
|
if not $HAVE_TEST_XML;
|
|
is_xml( "$obj", $xml, "XML content" );
|
|
}
|
|
|
|
rmtree "$path/testlib";
|