import SOAP-WSDL 1.18 from CPAN

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

t/1_performance.t

@@ -4,6 +4,7 @@ use Test::More tests=> 7;
 use Time::HiRes qw( gettimeofday tv_interval );
 use lib '../..';
 use Data::Dumper;
+use Cwd;
 use_ok "SOAP::WSDL";
 ### test vars END
 
@@ -15,13 +16,19 @@ my $data = {
 		givenName => 'Vorname'
 		
 };
+
+my $dir = cwd;
+
+# chomp /t/ to allow running the script from t/ directory
+$dir=~s|/t/?||;
+
 my $t0 = [gettimeofday];
 ok( my $soap=SOAP::WSDL->new(
-	wsdl => 'file:///home/lsc/eclipse3/workspace/SOAP/t/acceptance/helloworld.asmx.xml',
+	wsdl => "file://$dir/t/acceptance/helloworld.asmx.xml",
 	no_dispatch => 1
 ), "Create SOAP::WSDL object (".tv_interval ( $t0, [gettimeofday]) ."ms)" ); #->proxy('http://erlm5aqa.ww001.siemens.net/lasttest/helloworld/helloworld.asmx' );
 
-$soap->proxy('http://erlm5aqa.ww001.siemens.net/lasttest/helloworld/helloworld.asmx');
+$soap->proxy('http://helloworld/helloworld.asmx');
 
 $t0 = [gettimeofday];
 ok($soap->wsdlinit(caching => 1), "wsdl file init (".tv_interval ( $t0, [gettimeofday]) ."s)" );;

t/2_helloworld.NET.t

@@ -15,6 +15,7 @@ use diagnostics;
 use Test::More tests => 5;
 use Time::HiRes qw( gettimeofday tv_interval );
 use lib '../..';
+use Cwd;
 use_ok "SOAP::WSDL";
 ### test vars END
 print "Testing SOAP::WSDL ". $SOAP::WSDL::VERSION."\n";
@@ -39,14 +40,13 @@ my $data = {
 };
 
 my $t0 = [gettimeofday];
-my $dir=`pwd`;
-chomp $dir;
+my $dir= cwd;
 $dir=~s/\/t//;
 ok( my $soap=SOAP::WSDL->new(
 	wsdl => 'file:///'.$dir.'/t/acceptance/test.wsdl.xml',
 	no_dispatch => 1
 ), "Create SOAP::WSDL object (".tv_interval ( $t0, [gettimeofday]) ."s)" ); #->proxy('http://erlm5aqa.ww001.siemens.net/lasttest/helloworld/helloworld.asmx' );
-$soap->proxy('http://erlm5aqa.ww001.siemens.net/lasttest/helloworld/helloworld.asmx');
+$soap->proxy('http://helloworld/helloworld.asmx');
 $t0 = [gettimeofday];
 ok($soap->wsdlinit(), "WSDL init (".tv_interval ( $t0, [gettimeofday]) ."s)") ;
 

t/acceptance/helloworld.asmx.xml

@@ -68,7 +68,7 @@ xmlns="http://schemas.xmlsoap.org/wsdl/">
   <service name="Service1">
     <port name="Service1Soap" binding="s0:Service1Soap">
       <soap:address
-      location="http://erlm5aqa.ww001.siemens.net/lasttest/helloworld/helloworld.asmx" />
+      location="http://helloworld/helloworld.asmx" />
     </port>
   </service>
 </definitions>