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/SOAP/WSDL/Generator/Template/XSD/Import.t

@@ -4,7 +4,12 @@ use File::Basename qw(dirname);
 use File::Spec;
 use File::Path;
 use diagnostics;
+
 my $path = File::Spec->rel2abs( dirname __FILE__ );
+my ($volume, $dir) = File::Spec->splitpath($path, 1);
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+my $url = join '/', @dir_from;
 
 my $HAVE_TEST_WARN =eval { require Test::Warn; };
 
@@ -20,7 +25,7 @@ my $definitions;
 if ($HAVE_TEST_WARN) {
     Test::Warn::warning_like(sub {
         $definitions = $parser->parse_uri(
-                "file://$path/../../../../../acceptance/wsdl/WSDLParser-import.wsdl"
+                "file://$url/../../../../../acceptance/wsdl/WSDLParser-import.wsdl"
             );
         }
         , qr{already \s imported}x
@@ -30,7 +35,7 @@ else {
     local $SIG{__WARN__} = sub {};
     SKIP: { skip 'Cannot test warning without Test::Warn', 1; }
     $definitions = $parser->parse_uri(
-        "file://$path/../../../../../acceptance/wsdl/WSDLParser-import.wsdl"
+        "file://$url/../../../../../acceptance/wsdl/WSDLParser-import.wsdl"
     );
 }
 my $generator = SOAP::WSDL::Generator::Template::XSD->new({
@@ -39,6 +44,7 @@ my $generator = SOAP::WSDL::Generator::Template::XSD->new({
     element_prefix => 'Foo',
     typemap_prefix => 'Foo',
     OUTPUT_PATH => "$path/testlib",
+    silent => 1,
 });
 
 my $code = "";

t/SOAP/WSDL/Generator/Template/XSD/Unqualified.t

@@ -0,0 +1,56 @@
+use strict;
+use Test::More tests => 4;
+use File::Basename qw(dirname);
+use File::Spec;
+use File::Path;
+use diagnostics;
+
+my $path;
+
+$path = File::Spec->rel2abs( dirname __FILE__ );
+my ( $volume, $dir ) = File::Spec->splitpath( $path, 1 );
+my @dir_from = File::Spec->splitdir($dir);
+unshift @dir_from, $volume if $volume;
+$path = join '/', @dir_from;
+my $HAVE_TEST_XML = eval {
+    require Test::XML;
+    import Test::XML;
+    1;
+};
+
+use_ok qw(SOAP::WSDL::Generator::Visitor::Typelib);
+use_ok qw(SOAP::WSDL::Generator::Template::XSD);
+
+use SOAP::WSDL::Expat::WSDLParser;
+
+my $parser = SOAP::WSDL::Expat::WSDLParser->new();
+
+my $definitions = $parser->parse_uri(
+    "file://$path/../../../../../acceptance/wsdl/006_sax_client.wsdl" );
+
+my $generator = SOAP::WSDL::Generator::Template::XSD->new( {
+        definitions => $definitions,
+        OUTPUT_PATH => "$path/testlib",
+        silent      => 1,
+} );
+
+my $code = "";
+$generator->generate_typelib();
+
+eval qq{use lib "$path/testlib";};
+ok eval("require MyElements::EnqueueMessage;"), "require generated class";
+my $obj =
+  MyElements::EnqueueMessage->new( {MMessage => {MSubject => 'test'}} );
+
+my $xml = q{<EnqueueMessage xmlns="http://www.example.org/Test/">
+   <MMessage xmlns=""><MSubject>test</MSubject></MMessage>
+</EnqueueMessage>
+};
+
+SKIP: {
+    skip( "Cannot test XML content without Test::XML", 1 )
+      if not $HAVE_TEST_XML;
+    is_xml( "$obj", $xml, "XML content" );
+}
+
+rmtree "$path/testlib";

t/SOAP/WSDL/Generator/XSD.t

@@ -47,6 +47,7 @@ my $generator = SOAP::WSDL::Generator::Template::XSD->new({
     element_prefix => 'Foo',
     typemap_prefix => 'Foo',
     OUTPUT_PATH => "$path/testlib",
+    silent => 1
 });
 
 my $code = "";

t/SOAP/WSDL/Generator/XSD_custom_resolver.t

@@ -45,6 +45,7 @@ my $generator = SOAP::WSDL::Generator::Template::XSD->new({
     typemap_prefix => 'Foo',
     OUTPUT_PATH => "$path/testlib",
     prefix_resolver_class => 'TestResolver',
+    silent => 1,
 });
 
 my $code = "";

t/SOAP/WSDL/Generator/XSD_dot_names.t

@@ -23,6 +23,7 @@ my $generator = SOAP::WSDL::Generator::Template::XSD->new({
     element_prefix => 'Foo',
     typemap_prefix => 'Foo',
     OUTPUT_PATH => "$path/testlib",
+    silent => 1,
 });
 
 my $code = "";

t/SOAP/WSDL/Generator/XSD_nested_complextype.t

@@ -32,6 +32,7 @@ my $generator = SOAP::WSDL::Generator::Template::XSD->new({
     element_prefix => 'BarElem',
     typemap_prefix => 'Bar',
     OUTPUT_PATH => "$path/testlib",
+    silent => 1,
 });
 
 

t/SOAP/WSDL/Generator/XSD_unsupported.t

@@ -16,6 +16,7 @@ my $definitions = $parser->parse_file(
 
 my $generator = SOAP::WSDL::Generator::Template::XSD->new({
     definitions => $definitions,
+    silent => 1,
 });
 
 {