Martin Kutter
25548e6296
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_06 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_06.tar.gz
63 lines
1.6 KiB
Perl
63 lines
1.6 KiB
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
use Test::More tests => 2;
|
|
use lib '../lib';
|
|
use lib 'lib';
|
|
use lib 't/lib';
|
|
use XML::LibXML;
|
|
use SOAP::WSDL::SAX::MessageHandler;
|
|
|
|
use_ok(qw/SOAP::WSDL::Expat::MessageParser/);
|
|
|
|
use MyComplexType;
|
|
use MyElement;
|
|
use MySimpleType;
|
|
use Benchmark;
|
|
|
|
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>
|
|
</MyAtomicComplexTypeElement></SOAP-ENV:Body></SOAP-ENV:Envelope>};
|
|
|
|
my $parser = SOAP::WSDL::Expat::MessageParser->new({
|
|
class_resolver => 'FakeResolver'
|
|
});
|
|
|
|
my $libxml = XML::LibXML->new();
|
|
my $handler = SOAP::WSDL::SAX::MessageHandler->new({
|
|
class_resolver => 'FakeResolver',
|
|
});
|
|
$libxml->set_handler( $handler );
|
|
|
|
|
|
$parser->parse( $xml );
|
|
|
|
is $parser->get_data(), q{<MyAtomicComplexTypeElement xmlns="urn:Test" >}
|
|
. q{<test >Test</test><test2 >Test2</test2></MyAtomicComplexTypeElement>}
|
|
, 'Content comparison';
|
|
|
|
# data classes reside in t/lib/Typelib/
|
|
BEGIN {
|
|
package FakeResolver;
|
|
{
|
|
my %class_list = (
|
|
'MyAtomicComplexTypeElement' => 'MyAtomicComplexTypeElement',
|
|
'MyAtomicComplexTypeElement/test' => 'MyTestElement',
|
|
'MyAtomicComplexTypeElement/test2' => 'MyTestElement2',
|
|
);
|
|
|
|
sub new { return bless {}, 'FakeResolver' };
|
|
|
|
sub get_class {
|
|
my $name = join('/', @{ $_[1] });
|
|
return ($class_list{ $name }) ? $class_list{ $name }
|
|
: warn "no class found for $name";
|
|
};
|
|
};
|
|
|
|
|
|
};
|