import SOAP-WSDL 2.00_07 from CPAN

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

t/009_data_classes.t

@@ -4,7 +4,6 @@ use Test::More tests => 5;
 use lib 't/lib';
 use lib '../lib';
 use lib 'lib';
-use Benchmark;
 use XML::Simple;
 use SOAP::WSDL::SAX::WSDLHandler;
 use Cwd;
@@ -49,11 +48,6 @@ $soap->servicename('MessageGateway');
 ok( $soap->no_dispatch( 1 ) , "Set no_dispatch" );
 ok( $soap->readable( 0 ) , "Set readable");
 
-timethese 100, {
-    'ClassParser' => sub { $parser->parse_string( xml() ); },
-    'XML::Simple' => sub { return XMLin( xml() ) },
-};
-
 sub xml {
 q{<SOAP-ENV:Envelope
         xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"

t/017_generator.t

@@ -19,7 +19,7 @@ $parser->parse_string( xml() );
 my $wsdl;
 ok( $wsdl = $filter->get_data() , "get object tree");
 
-ok $wsdl->create_interface({
+$wsdl->create({
   base_path => "$path/testlib",
   typemap_prefix => "Test::Typemap::",
   type_prefix => "Test::Type::",

t/098_pod.t

@@ -8,7 +8,7 @@ my $dir = cwd;
 
 if ( $dir =~ /t$/ )
 {
-	@directories = ('../lib/');
+	@directories = ('../lib/', '../bin/');
 }
 else
 {

t/SOAP/WSDL/XSD/Typelib/Builtin/001_string.t

@@ -1,4 +1,4 @@
-use Test::More tests => 3;
+use Test::More tests => 4;
 use strict;
 use warnings;
 use lib '../lib';
@@ -9,7 +9,7 @@ my $obj;
 $obj = SOAP::WSDL::XSD::Typelib::Builtin::string->new();
 
 $obj->set_value( '& "Aber" <test>');
-    
+is $obj->get_value() , '& "Aber" <test>';
     
 is $obj, '&amp; &qout;Aber&qout; &lt;test&gt;'
     , 'escape text on serialization';