import SOAP-WSDL 2.00_17 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_17
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_17.tar.gz

t/SOAP/WSDL/Deserializer/Hash.t

@@ -0,0 +1,21 @@
+use Test::More tests => 11;
+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;
+
+ok $data = $deserializer->deserialize(q{<a><b><c>1</c></b><b><c>2</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');

t/SOAP/WSDL/Deserializer/SOM.t

@@ -0,0 +1,30 @@
+use Test::More;
+eval { require SOAP::Lite } or do {
+    plan skip_all => 'SOAP::Lite not available';
+    exit 0;
+};
+
+use lib '../../../lib';
+plan tests => 10;
+use_ok qw(SOAP::WSDL::Deserializer::SOM);
+
+ok my $deserializer = SOAP::WSDL::Deserializer::SOM->new();
+
+ok my $som = $deserializer->deserialize(q{<a><b>1</b><b>2</b><c>3</c></a>});
+my $data = $som->match('/a')->valueof;
+
+is $data->{ c } , 3;
+is $data->{ b }->[0] , 1;
+is $data->{ b }->[1] , 2;
+
+eval { $deserializer->generate_fault({
+    role => 'soap:Server',
+    code => 'Test',
+    message => 'Teststring'
+});
+};
+ok $@->isa('SOAP::Fault');
+
+is $@->faultcode(), 'Test';
+is $@->faultactor(), 'soap:Server';
+is $@->faultstring(), 'Teststring';

t/SOAP/WSDL/Deserializer/XSD.t

@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+use Test::More tests => 5;
+
+use SOAP::WSDL::Deserializer::SOAP11;
+
+my $obj;
+
+ok $obj = SOAP::WSDL::Deserializer::SOAP11->new();
+ok $obj = SOAP::WSDL::Deserializer::SOAP11->new({
+    class_resolver => 'TestResolver',
+    some_other_option => 'ignored',
+});
+
+my $fault = $obj->generate_fault();
+
+is $fault->get_faultstring(), 'Unknown error';
+is $fault->get_faultactor(), 'urn:localhost';
+is $fault->get_faultcode(), 'soap:Client';