import SOAP-WSDL 2.00_26 from CPAN

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

t/SOAP/WSDL/02_port.t

@@ -3,17 +3,23 @@ use strict;
 use warnings;
 use diagnostics;
 use Cwd;
+use lib '../lib';
+
 use File::Basename;
 use File::Spec;
-use lib '../lib';
+
+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;
 
 use_ok(qw/SOAP::WSDL/);
 
-my $path = File::Spec->rel2abs( dirname __FILE__ );
 my $soap;
 #2
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/02_port.wsdl'
+	wsdl => 'file://' . $url . '/../../acceptance/wsdl/02_port.wsdl'
 ), 'Instantiated object' );
 
 ok( ($soap->servicename('testService')  ), 'set service' );

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

@@ -6,16 +6,21 @@ use lib 't/lib';
 
 use File::Basename;
 use File::Spec;
+
+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;
+
 use_ok(qw/SOAP::WSDL/);
 
 my $xml;
 
 my $soap = undef;
 
-my $path = File::Spec->rel2abs( dirname __FILE__ );
-
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/04_element-simpleType.wsdl'
+	wsdl => 'file://' . $url . '/../../acceptance/wsdl/04_element-simpleType.wsdl'
 ), 'Instantiated object' );
 
 # won't work without - would require SOAP::WSDL::Deserializer::SOM,

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

@@ -2,19 +2,22 @@ use Test::More tests => 8;
 use strict;
 use lib '../lib';
 use lib 't/lib';
-use File::Spec;
 use File::Basename;
+use File::Spec;
+
+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;
 
 use_ok(qw/SOAP::WSDL/);
 
 my ($soap, $xml, $xml2);
 
-# chdir to my location
-my $path = File::Spec->rel2abs( dirname __FILE__ );
-
 #2
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/05_simpleType-list.wsdl'
+    wsdl => 'file://' . $url . '/../../acceptance/wsdl/05_simpleType-list.wsdl'
 ), 'Instantiated object' );
 
 # won't work without - would require SOAP::WSDL::Deserializer::SOM,

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

@@ -7,16 +7,23 @@ use File::Basename;
 use lib '../lib';
 use lib 't/lib';
 
+use File::Basename;
+use File::Spec;
+
+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;
+
 use_ok(qw/SOAP::WSDL/);
 
 my $xml;
 
-my $path = File::Spec->rel2abs( dirname __FILE__ );
-
 my $soap;
 #2
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/05_simpleType-restriction.wsdl'
+    wsdl => 'file://' . $url . '/../../acceptance/wsdl/05_simpleType-restriction.wsdl'
 ), 'Instantiated object' );
 
 #3

t/SOAP/WSDL/06_keep_alive.t

@@ -2,19 +2,23 @@ use Test::More tests => 6;
 use strict;
 use warnings;
 use diagnostics;
-use Cwd;
+use lib '../lib';
 use File::Basename;
 use File::Spec;
-use lib '../lib';
+
+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;
 
 use_ok(qw/SOAP::WSDL/);
 
-my $path = File::Spec->rel2abs( dirname __FILE__ );
 my $soap;
 #2
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/02_port.wsdl',
-	keep_alive => 1,
+    wsdl => 'file://' . $url . '/../../acceptance/wsdl/02_port.wsdl',
+    keep_alive => 1,
 ), 'Instantiated object' );
 
 ok( ($soap->servicename('testService')  ), 'set service' );

t/SOAP/WSDL/11_helloworld.NET.t

@@ -13,9 +13,14 @@
 use strict;
 use Test::More tests => 4;
 use lib '../../../lib/';
-use File::Spec;
 use File::Basename;
+use File::Spec;
 
+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;
 
 use_ok q/SOAP::WSDL/;
 
@@ -23,19 +28,16 @@ use_ok q/SOAP::WSDL/;
 print "# Testing SOAP::WSDL ". $SOAP::WSDL::VERSION."\n";
 print "# Acceptance test against sample output with simple WSDL\n";
 
-
-
 my $data = {
-	name => 'test',
-	givenName => 'test',
+    name => 'test',
+    givenName => 'test',
 };
 
 my $soap = undef;
-my $path = File::Spec->rel2abs( dirname __FILE__ );
 
 ok $soap = SOAP::WSDL->new(
-	wsdl => 'file:///'.$path.'/../../acceptance/wsdl/11_helloworld.wsdl',
-	no_dispatch => 1
+    wsdl => 'file://'.$url.'/../../acceptance/wsdl/11_helloworld.wsdl',
+    no_dispatch => 1
 ), 'Create SOAP::WSDL object'; 
 
 # won't work without - would require SOAP::WSDL::Deserializer::SOM,

t/SOAP/WSDL/12_binding.t

@@ -2,9 +2,15 @@ use strict;
 use lib '../../../lib';
 use Test::More tests => 4;
 use SOAP::WSDL;
-use File::Spec;
-use Data::Dumper;
 use File::Basename;
+use File::Spec;
+
+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;
+
 
 print "# Using SOAP::WSDL Version $SOAP::WSDL::VERSION\n";
 
@@ -13,13 +19,13 @@ my $soap = undef;
 
 my $path = File::Spec->rel2abs( dirname __FILE__ );
 
-my $url = 'http://127.0.0.1/testPort';
+my $proxy = 'http://127.0.0.1/testPort';
 
 
 ok( $soap = SOAP::WSDL->new(
-	wsdl => 'file:///' . $path . '/../../acceptance/wsdl/02_port.wsdl'
+	wsdl => 'file://' . $url . '/../../acceptance/wsdl/02_port.wsdl'
 ) );
 
-ok $soap->wsdlinit( url => $url );
+ok $soap->wsdlinit( url => $proxy );
 ok $soap->servicename('testService');
 ok $soap->portname('testPort');