1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
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";
|
