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/006_client.t

@@ -21,7 +21,6 @@ my $soap = SOAP::WSDL->new(
     wsdl => 'file:///' . $path .'/t/acceptance/wsdl/006_sax_client.wsdl',
     outputxml => 1, # required, if not set ::SOM serializer will be loaded on 
                     # call
-    readable => 1,
 )->wsdlinit();
 
 $soap->servicename('MessageGateway');

t/009_data_classes.t

@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More tests => 6;
+use Test::More tests => 5;
 use lib 't/lib';
 use lib '../lib';
 use lib 'lib';
@@ -39,14 +39,12 @@ else
 # TODO factor out into different test
 
 my $soap = SOAP::WSDL->new(
-    readable => 1,
     wsdl => 'file:///' . $path .'/t/acceptance/wsdl/006_sax_client.wsdl',
 )->wsdlinit();
 
 $soap->servicename('MessageGateway');
 
 ok( $soap->no_dispatch( 1 ) , "Set no_dispatch" );
-ok( $soap->readable( 0 ) , "Set readable");
 
 sub xml {
 q{<SOAP-ENV:Envelope

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';

t/acceptance/wsdl/generator_test.wsdl

@@ -5,6 +5,7 @@
     xmlns:xsd="http://www.w3.org/2001/XMLSchema"
     xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
     xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
+    xmlns="http://schemas.xmlsoap.org/wsdl/"
 >
     <types>
         <xsd:schema targetNamespace="urn:Test">
@@ -197,9 +198,9 @@
 	</portType>
 
 	<binding type="tns:testPort" name="testBinding">
-            <operation name="testChoice">
-                <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
-				<soap:operation soapAction="testChoice"/>
+           <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
+           <operation name="testChoice">
+				<soap:operation soapAction="testChoice" style="document"/>
 					<input>
 						<soap:body use="literal"/>
 					</input>
@@ -209,8 +210,7 @@
 		    </operation>
             
             <operation name="test">
-                <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
-				<soap:operation soapAction="test"/>
+				<soap:operation soapAction="test" style="document"/>
 					<input>
 						<soap:body use="literal"/>
 					</input>
@@ -218,10 +218,8 @@
 						<soap:body use="literal"/>
 					</output>
 		    </operation>
-            
             <operation name="testHeader">
         		<soap:operation soapAction="testHeader"/>
-                <soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/>
 				<input>
 					<soap:body use="literal" parts="tns:testBody"/>
 					<soap:header use="literal" part="tns:testHeader" message="tns:testHeaderRequest"/>