import SOAP-WSDL 2.00_18 from CPAN

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

t/SOAP/WSDL/03_complexType-all.t

@@ -25,7 +25,6 @@ my $soap;
 #2
 ok( $soap = SOAP::WSDL->new(
 	wsdl => 'file://' . $path . '/../../acceptance/wsdl/03_complexType-all.wsdl',
-	readable =>1,
 ), 'Instantiated object' );
 
 #3

t/SOAP/WSDL/03_complexType-choice.t

@@ -7,6 +7,6 @@ my $soap = SOAP::WSDL->new();
 
 
 TODO: {
-    local $TODO="implement <choice> support";
+    local $TODO="implement tests";
     fail "serialize choice element";
 }

t/SOAP/WSDL/03_complexType-complexContent.t

@@ -17,6 +17,6 @@ my $soap = SOAP::WSDL->new();
 
 
 TODO: {
-    local $TODO="implement <complexContent> support";
+    local $TODO="implement <complexContent> tests";
     fail "serialize complexContent element";
 }

t/SOAP/WSDL/03_complexType-element-ref.t

@@ -20,7 +20,6 @@ my $soap;
 #2
 ok( $soap = SOAP::WSDL->new(
 	wsdl => 'file://' . $path . '/../../acceptance/wsdl/03_complexType-element-ref.wsdl',
-	readable => 1,
     no_dispatch => 1,
 ), 'Instantiated object' );
 

t/SOAP/WSDL/04_element-simpleType.t

@@ -14,14 +14,10 @@ my $soap = undef;
 
 my $path = File::Spec->rel2abs( dirname __FILE__ );
 
-#2
 ok( $soap = SOAP::WSDL->new(
 	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/04_element-simpleType.wsdl'
 ), 'Instantiated object' );
 
-#3
-$soap->readable(1);
-
 # won't work without - would require SOAP::WSDL::Deserializer::SOM,
 # which requires SOAP::Lite
 $soap->outputxml(1);

t/SOAP/WSDL/05_simpleType-list.t

@@ -17,7 +17,6 @@ ok( $soap = SOAP::WSDL->new(
 	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/05_simpleType-list.wsdl'
 ), 'Instantiated object' );
 
-$soap->readable(1);
 # won't work without - would require SOAP::WSDL::Deserializer::SOM,
 # which requires SOAP::Lite
 $soap->outputxml(1);

t/SOAP/WSDL/05_simpleType-restriction.t

@@ -20,7 +20,6 @@ ok( $soap = SOAP::WSDL->new(
 ), 'Instantiated object' );
 
 #3
-$soap->readable(1);
 ok( $soap->wsdlinit(
     servicename => 'testService',
 ), 'parsed WSDL' );

t/SOAP/WSDL/05_simpleType-union.t

@@ -16,7 +16,6 @@ ok $soap = SOAP::WSDL->new(
 ), 'Instantiated object';
 
 #3
-$soap->readable(1);
 ok $soap->wsdlinit(), 'parsed WSDL';
 $soap->no_dispatch(1);
 # won't work without - would require SOAP::WSDL::Deserializer::SOM,

t/SOAP/WSDL/Generator/XCS.t

@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+use Test::More;
+use File::Spec;
+use File::Basename;
+eval { require XML::Compile::WSDL11 }
+    or plan skip_all => 'Cannot test without XML::Compile::WSDL11'; 
+
+eval { require XML::LibXML }
+    or plan skip_all => 'Cannot test without XML::LibXML'; 
+
+plan skip_all => 'XML::Compile::WSDL11 is not functional yet';
+
+plan tests => qw(no_plan);
+
+my $path = File::Spec->rel2abs( dirname __FILE__ );
+
+my $libxml = XML::LibXML->new();
+my $xml = $libxml->parse_file("$path/../../../acceptance/wsdl/generator_test.wsdl");
+
+my $wsdl    = XML::Compile::WSDL11->new($xml);
+my $schemas = $wsdl->schemas;
+my $operation = $wsdl->operation('testHeader');
+
+my $client = $operation->prepareClient();

t/SOAP/WSDL/XSD/Typelib/Builtin/time.t

@@ -2,6 +2,17 @@ use Test::More tests => 3;
 use strict;
 use warnings;
 use lib '../lib';
+use Date::Parse;
+use Date::Format;
+
+sub timezone {
+    my @time = localtime;
+    my $tz = strftime('%z', @time);
+    substr $tz, -2, 0, ':';
+    return $tz;
+}
+
+my $timezone = timezone;
 
 use_ok('SOAP::WSDL::XSD::Typelib::Builtin::time');
 my $obj;
@@ -9,7 +20,7 @@ my $obj;
 $obj = SOAP::WSDL::XSD::Typelib::Builtin::time->new();
 
 $obj->set_value( '12:23:03' );
-is $obj->get_value() , '12:23:03+01:00', 'conversion';
+is $obj->get_value() , "12:23:03$timezone", 'conversion';
 
 $obj->set_value( '12:23:03.12345+01:00' ), ;
 is $obj->get_value() , '12:23:03.12345+01:00', 'no conversion';