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