import SOAP-WSDL 2.00.06 from CPAN

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

t/SOAP/WSDL/XSD/ComplexType.t

@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 3; #qw(no_plan);
+use Test::More tests => 5; #qw(no_plan);
 
 use_ok qw(SOAP::WSDL::XSD::ComplexType);
 
@@ -11,7 +11,8 @@ eval { $obj->serialize('foo') };
 like $@, qr{sorry, \s we \s just}xsm;
 
 $obj->set_targetNamespace('bar');
-
+ok $obj->set_abstract(1);
+ok $obj->set_final(1);
 eval {
     $obj->serialize(
         'foo', 'bar', { autotype => 1 , namespace => {} }

t/SOAP/WSDL/XSD/Typelib/ComplexType.t

@@ -327,8 +327,12 @@ like $@, qr{unknown \s field \s foobar \s in \s MyType }xms;
 eval { $obj->set_FOO(42) };
 like $@, qr{Can't \s locate \s object \s method}x, 'error on calling unknown object method';
 
-eval { MyType->set_FOO(42) };
-like $@, qr{Can't \s locate \s object \s method}x,  'error on calling unknown class method';
+TODO: {
+    local $TODO = "Identify calls to class methods";
+
+    eval { MyType->set_FOO(42) };
+    like $@, qr{Can't \s locate \s class \s method}x,  'error on calling unknown class method';
+}
 
 ok ! MyType->can('set_FOO'), 'MyType->can("setFOO")';
 
@@ -338,7 +342,7 @@ eval { MyType->new({ FOO => 42 }) };
 like $@, qr{unknown \s field \s}xm, 'error passing unknown field to constructor';
 
 eval {
-    # catch warning - 
+    # catch warning -
     local $SIG{__WARN__} = sub {};
     SOAP::WSDL::XSD::Typelib::ComplexType::AUTOMETHOD()
 };