f0b3bdc201
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_31 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_31.tar.gz
86 lines
2.9 KiB
Perl
86 lines
2.9 KiB
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 4;
|
|
use lib '../../../../lib';
|
|
use lib '../../../../t/lib';
|
|
use lib 't/lib';
|
|
use lib '../lib';
|
|
use lib 'lib';
|
|
|
|
use_ok(qw/SOAP::WSDL::Expat::MessageParser/);
|
|
|
|
use MyComplexType;
|
|
use MyElement;
|
|
use MySimpleType;
|
|
|
|
my $xml = q{<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
|
|
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >
|
|
<SOAP-ENV:Body><MyAtomicComplexTypeElement xmlns="urn:Test" >
|
|
<test>Test</test>
|
|
<test2 >Test2</test2>
|
|
<foo><bar></bar><baz></baz></foo>
|
|
</MyAtomicComplexTypeElement></SOAP-ENV:Body></SOAP-ENV:Envelope>};
|
|
|
|
my $parser = SOAP::WSDL::Expat::MessageParser->new({
|
|
class_resolver => 'FakeResolver'
|
|
});
|
|
|
|
$parser->parse( $xml );
|
|
|
|
is $parser->get_data(), q{<MyAtomicComplexTypeElement xmlns="urn:Test">}
|
|
. q{<test>Test</test><test2>Test2</test2></MyAtomicComplexTypeElement>}
|
|
, 'Content comparison';
|
|
|
|
my $xml_attr = q{<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
|
|
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >
|
|
<SOAP-ENV:Body><MyElementAttrs xmlns="urn:Test" test="Test" test2="Test2">
|
|
<test>Test</test>
|
|
<test2 > </test2>
|
|
</MyElementAttrs></SOAP-ENV:Body></SOAP-ENV:Envelope>};
|
|
|
|
$parser->parse($xml_attr);
|
|
|
|
is $parser->get_data(),
|
|
q{<MyElementAttrs xmlns="urn:Test" test="Test" test2="Test2"><test>Test</test></MyElementAttrs>},
|
|
'Content with attributes';
|
|
|
|
my $xml_error = q{<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
|
|
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" >
|
|
<SOAP-ENV:Body><MyElementAttrs xmlns="urn:Test" test="Test" test2="Test2">
|
|
<test>Test</test>
|
|
<test2 ></test2>
|
|
<foo>Bar</foo>
|
|
</MyElementAttrs></SOAP-ENV:Body></SOAP-ENV:Envelope>};
|
|
|
|
eval { $parser->parse($xml_error) };
|
|
like $@, qr{\A Cannot \s resolve \s class \s for \s MyElementAttrs/foo }x, 'XML error';
|
|
|
|
# data classes reside in t/lib/Typelib/
|
|
BEGIN {
|
|
package FakeResolver;
|
|
{
|
|
my %class_list = (
|
|
'MyAtomicComplexTypeElement' => 'MyAtomicComplexTypeElement',
|
|
'MyAtomicComplexTypeElement/test' => 'MyTestElement',
|
|
'MyAtomicComplexTypeElement/test2' => 'MyTestElement2',
|
|
'MyAtomicComplexTypeElement/foo' => '__SKIP__',
|
|
# 'MyAtomicComplexTypeElement/foo/bar' => 'MyFooElement',
|
|
# 'MyAtomicComplexTypeElement/foo/baz' => 'MyFooElement',
|
|
'MyElementAttrs' => 'MyElementAttrs',
|
|
'MyElementAttrs/test' => 'MyTestElement',
|
|
'MyElementAttrs/test2' => 'MyTestElement2',
|
|
);
|
|
|
|
sub new { return bless {}, 'FakeResolver' };
|
|
|
|
sub get_typemap { return \%class_list };
|
|
|
|
sub get_class {
|
|
my $name = join('/', @{ $_[1] });
|
|
return ($class_list{ $name }) ? $class_list{ $name }
|
|
: undef;
|
|
};
|
|
};
|
|
};
|