dinislage/SOAP-WSDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

import SOAP-WSDL 1.18 from CPAN

Browse Source 
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
This commit is contained in:
Martin Kutter
2009-12-12 19:47:37 -08:00
committed by Michael G. Schwern
parent 121b801cc8
commit 90ea294d66
5 changed files with 74 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
t/2_helloworld.NET.t
+3 -3
View File
@@ -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)") ;