import SOAP-WSDL 2.00_24 from CPAN

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

t/SOAP/WSDL/Deserializer/Hash.t

@@ -1,4 +1,4 @@
-use Test::More tests => 11;
+use Test::More tests => 13;
 use lib '../../../lib';
 use_ok qw(SOAP::WSDL::Deserializer::Hash);
 
@@ -13,9 +13,27 @@ 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>});
+# 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');
+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';

t/SOAP/WSDL/Deserializer/SOM.t

@@ -1,5 +1,5 @@
 use Test::More;
-use SOAP::Lite;
+
 eval { require SOAP::Lite; 1; } or do {
     plan skip_all => 'SOAP::Lite not available';
     exit 0;

t/SOAP/WSDL/Deserializer/XSD.t

@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 8;
 
 use SOAP::WSDL::Deserializer::XSD;
 
@@ -16,4 +16,8 @@ my $fault = $obj->generate_fault();
 
 is $fault->get_faultstring(), 'Unknown error';
 is $fault->get_faultactor(), 'urn:localhost';
-is $fault->get_faultcode(), 'soap:Client';
+is $fault->get_faultcode(), 'soap:Client';
+
+isa_ok $obj->deserialize('rubbeldiekatz'), 'SOAP::WSDL::SOAP::Typelib::Fault11';
+isa_ok $obj->deserialize('<zumsel></zumsel>'), 'SOAP::WSDL::SOAP::Typelib::Fault11';
+isa_ok $obj->deserialize('<Envelope xmlns="huchmampf"></Envelope>'), 'SOAP::WSDL::SOAP::Typelib::Fault11';