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

2
Build.PL
View File

@@ -4,7 +4,7 @@ Module::Build->new(
create_makefile_pl => 'passthrough',
dist_abstract => 'SOAP with WSDL support',
dist_name => 'SOAP-WSDL',
dist_version => '2.00_14',
dist_version => '2.00_15',
module_name => 'SOAP::WSDL',
license => 'artistic',
requires => {

11
CHANGES
View File

@@ -1,4 +1,4 @@
Release notes for SOAP::WSDL 2.00_14
Release notes for SOAP::WSDL 2.00_15
-------
I'm very happy to present a new pre-release version of SOAP::WSDL.
@@ -27,6 +27,15 @@ Features:
The following changes have been made:
2.00_15
----
The following bugs have been fixed (the numbers in square brackets are the
tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
* [ 1792321 ] 2.00_14 requires SOAP::Lite for passing tests
Fixed.
2.00_14
----

4
META.yml
View File

@@ -1,6 +1,6 @@
---
name: SOAP-WSDL
version: 2.00_14
version: 2.00_15
author:
abstract: SOAP with WSDL support
license: artistic
@@ -40,7 +40,7 @@ provides:
version: 2.00_13
SOAP::WSDL::Deserializer::SOM:
file: lib/SOAP/WSDL/Deserializer/SOM.pm
version: 2.00_14
version: 2.00_15
SOAP::WSDL::Expat::MessageParser:
file: lib/SOAP/WSDL/Expat/MessageParser.pm
SOAP::WSDL::Expat::MessageStreamParser:

19
lib/SOAP/WSDL/Deserializer/SOM.pm
View File

@@ -2,19 +2,16 @@ package SOAP::WSDL::Deserializer::SOM;
use strict;
use warnings;
our $VERSION = '2.00_14';
our @ISA = qw(SOAP::Deserializer);
our $VERSION = '2.00_15';
our @ISA;
my $HAVE_SOAP_LITE = eval { require SOAP::Lite };
sub deserialize {
my $self = shift;
die 'Cannot deserialize to SOM object without SOAP::Lite.
Please install SOAP::Lite.
'
if not $HAVE_SOAP_LITE;
$self->SUPER::deserialize(@_);
eval {
require SOAP::Lite;
push @ISA, 'SOAP::Deserializer';
}
or die "Cannot load SOAP::Lite.
Cannot deserialize to SOM object without SOAP::Lite.
Please install SOAP::Lite.";
sub generate_fault {
my ($self, $args_from_ref) = @_;

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";
}