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

import SOAP-WSDL 2.00_15 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_15
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_15.tar.gz
This commit is contained in:
Martin Kutter
2007-09-11 04:24:21 -08:00
committed by Michael G. Schwern
parent 099c83b6bc
commit 7ba2f93e44
14 changed files with 54 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
t/SOAP/WSDL/03_complexType-all.t
View File

@@ -42,6 +42,10 @@ ok $soap->wsdlinit(
), 'parse WSDL';
ok $soap->no_dispatch(1), 'set no dispatch';
# won't work without - would require SOAP::WSDL::Deserializer::SOM,
# which requires SOAP::Lite
$soap->outputxml(1);
ok ($xml = $soap->call('test',
testAll => {
Test1 => 'Test 1',

4
t/SOAP/WSDL/03_complexType-element-ref.t
View File

@@ -28,6 +28,10 @@ ok( $soap = SOAP::WSDL->new(
no_dispatch => 1,
), 'Instantiated object' );
# won't work without - would require SOAP::WSDL::Deserializer::SOM,
# which requires SOAP::Lite
$soap->outputxml(1);
ok ($xml = $soap->call('test',
testAll => {
Test2 => 'Test2',

5
t/SOAP/WSDL/03_complexType-sequence.t
View File

@@ -36,6 +36,11 @@ ok( $soap->wsdlinit(
), 'parsed WSDL' );
$soap->no_dispatch(1);
# won't work without - would require SOAP::WSDL::Deserializer::SOM,
# which requires SOAP::Lite
$soap->outputxml(1);
#4
ok $xml = $soap->call('test',
testSequence => {

7
t/SOAP/WSDL/04_element-simpleType.t
View File

@@ -26,6 +26,11 @@ ok( $soap = SOAP::WSDL->new(
#3
$soap->readable(1);
# won't work without - would require SOAP::WSDL::Deserializer::SOM,
# which requires SOAP::Lite
$soap->outputxml(1);
ok( $soap->wsdlinit(
servicename => 'testService',
), 'parsed WSDL' );
@@ -34,8 +39,6 @@ $soap->no_dispatch(1);
ok ( $xml = $soap->call('test', testElement1 => 1 ) ,
'Serialized (simpler) element' );
# print $xml, "\n";
TODO: {
local $TODO="implement min/maxOccurs checks";

2
t/SOAP/WSDL/04_element.t
View File

@@ -30,6 +30,8 @@ ok( $soap = SOAP::WSDL->new(
#3
$soap->readable(1);
$soap->outputxml(1);
ok( $soap->wsdlinit(
servicename => 'testService',
), 'parsed WSDL' );

3
t/SOAP/WSDL/05_simpleType-list.t
View File

@@ -23,6 +23,9 @@ ok( $soap = SOAP::WSDL->new(
), 'Instantiated object' );
$soap->readable(1);
# won't work without - would require SOAP::WSDL::Deserializer::SOM,
# which requires SOAP::Lite
$soap->outputxml(1);
#3
ok( $soap->wsdlinit(

3
t/SOAP/WSDL/05_simpleType-restriction.t
View File

@@ -31,6 +31,9 @@ ok( $soap->wsdlinit(
), 'parsed WSDL' );
$soap->no_dispatch(1);
$soap->autotype(0);
# won't work without - would require SOAP::WSDL::Deserializer::SOM,
# which requires SOAP::Lite
$soap->outputxml(1);
#4
ok $xml = $soap->call('test', testAll => [ 1, 2 ] ) , 'Serialize list call';

3
t/SOAP/WSDL/05_simpleType-union.t
View File

@@ -26,6 +26,9 @@ ok $soap = SOAP::WSDL->new(
$soap->readable(1);
ok $soap->wsdlinit(), 'parsed WSDL';
$soap->no_dispatch(1);
# won't work without - would require SOAP::WSDL::Deserializer::SOM,
# which requires SOAP::Lite
$soap->outputxml(1);
#4
ok $xml = $soap->call('test', testAll => 1 ) , 'Serialized call';

4
t/SOAP/WSDL/11_helloworld.NET.t
View File

@@ -43,6 +43,10 @@ ok $soap = SOAP::WSDL->new(
no_dispatch => 1
), 'Create SOAP::WSDL object';
# won't work without - would require SOAP::WSDL::Deserializer::SOM,
# which requires SOAP::Lite
$soap->outputxml(1);
$soap->proxy('http://helloworld/helloworld.asmx');
ok $soap->wsdlinit(

17
t/SOAP/WSDL/12_binding.pl
View File

@@ -27,20 +27,3 @@ ok( $soap = SOAP::WSDL->new(
ok $soap->wsdlinit( url => $url );
ok $soap->servicename('testService');
ok $soap->portname('testPort');
__END__
my $xpath = $soap->_wsdl_xpath( );
my @ports = $xpath->findnodes( '/definitions/service[@name="' . $soap->servicename() . '"]/port/soap:address[@location="' . $url .'"]');
if (@ports)
{
print "# found testPort URL\n";
my $address = shift @ports;
my $port = $address->getParentNode();
print $port->getAttribute('binding'), "\n";
print $port->getAttribute('name'), "\n";
}