1use strict; 2use warnings; 3use lib '../../../lib'; 4use Test::More tests => 4; 5use SOAP::WSDL; 6use File::Basename; 7use File::Spec; 8 9my $path = File::Spec->rel2abs( dirname __FILE__ ); 10my ($volume, $dir) = File::Spec->splitpath($path, 1); 11my @dir_from = File::Spec->splitdir($dir); 12unshift @dir_from, $volume if $volume; 13my $url = join '/', @dir_from; 14 15print "# Using SOAP::WSDL Version $SOAP::WSDL::VERSION\n"; 16 17# chdir to my location 18my $soap = undef; 19 20my $proxy = 'http://127.0.0.1/testPort'; 21 22ok( $soap = SOAP::WSDL->new( 23 wsdl => 'file://' . $url . '/../../acceptance/wsdl/02_port.wsdl' 24) ); 25ok $soap->servicename('testService'); 26ok $soap->portname('testPort'); 27 28ok $soap->wsdlinit( url => $proxy ); 29