Martin KutterandMichael G. Schwern
874251225f
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
40 lines
1.0 KiB
Perl
40 lines
1.0 KiB
Perl
use Test::More tests => 13;
|
|
use lib '../../../lib';
|
|
use_ok qw(SOAP::WSDL::Deserializer::Hash);
|
|
|
|
# Try all instanciation variants
|
|
ok my $deserializer = SOAP::WSDL::Deserializer::Hash->new();
|
|
ok $deserializer = SOAP::WSDL::Deserializer::Hash->new({
|
|
class_resolver => 'SomeFunkyClass',
|
|
});
|
|
|
|
ok my $data = $deserializer->deserialize(q{<a><b>1</b><b>2</b><c>3</c></a>});
|
|
is $data->{a}->{b}->[0], 1;
|
|
is $data->{a}->{b}->[1], 2;
|
|
is $data->{a}->{c}, 3;
|
|
|
|
# need 3 elements in array to trigger all branches...
|
|
# need ignorable whitespace to trigger removal...
|
|
ok $data = $deserializer->deserialize(
|
|
q{<a>
|
|
<b><c>1</c></b>
|
|
<b><c>2</c></b>
|
|
<b><c>3</c></b>
|
|
</a>});
|
|
is $data->{a}->{b}->[0]->{c}, 1;
|
|
is $data->{a}->{b}->[1]->{c}, 2;
|
|
|
|
eval { $deserializer->deserialize('grzlmpfh') };
|
|
ok $@->isa('SOAP::WSDL::SOAP::Typelib::Fault11');
|
|
|
|
my $fault = $deserializer->generate_fault({
|
|
message => 'Foo',
|
|
code => 'Bar',
|
|
role => 'mine',
|
|
});
|
|
|
|
is $fault->get_faultstring(), 'Foo';
|
|
|
|
$fault = $deserializer->generate_fault({});
|
|
is $fault->get_faultstring(), 'Unknown error';
|