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

import SOAP-WSDL 2.00_12 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_12
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_12.tar.gz
This commit is contained in:
Martin Kutter
2007-09-03 07:25:01 -08:00
committed by Michael G. Schwern
parent c2da74b5ae
commit fd0854e34a
28 changed files with 312 additions and 1070 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
t/002_parse_wsdl.t
View File

@@ -1,30 +1,24 @@
#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 18; # qw/no_plan/; # TODO: change to tests => N;
use Test::More tests => 17;
use lib '../lib';
use XML::LibXML;
eval {
require Test::XML;
import Test::XML;
};
use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
my $filter;
ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(
), "Object creation");
my $parser = XML::LibXML->new();
$parser->set_handler( $filter );
my $parser = SOAP::WSDL::Expat::WSDLParser->new();
$parser->parse_string( xml() );
my $wsdl;
ok( $wsdl = $filter->get_data() , "get object tree");
ok( $wsdl = $parser->get_data() , "get object tree");
my $types = $wsdl->first_types();

11
t/003_wsdl_based_serializer.t
View File

@@ -1,16 +1,14 @@
use Test::More tests => 11;
use Data::Dumper;
use lib '../lib';
use XML::LibXML;
use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
my $filter;
ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
my $parser;
my $parser = XML::LibXML->new();
$parser->set_handler( $filter );
ok($parser = SOAP::WSDL::Expat::WSDLParser->new() );
eval { $parser->parse_string( xml() ) };
if ($@)
@@ -24,8 +22,7 @@ else
}
my $wsdl;
ok( $wsdl = $filter->get_data() , "get object tree");
ok( $wsdl = $parser->get_data() , "get object tree");
my $schema = $wsdl->first_types();

13
t/004_parse_wsdl.t
View File

@@ -4,21 +4,16 @@ use warnings;
use Test::More tests => 5;
use lib '../lib';
use XML::LibXML;
eval {
require Test::XML;
import Test::XML;
};
use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
my $filter;
my $parser;
ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
my $parser = XML::LibXML->new();
$parser->set_handler( $filter );
ok($parser = SOAP::WSDL::Expat::WSDLParser->new(), "Object creation");
eval { $parser->parse_string( xml() ) };
if ($@)
@@ -32,7 +27,7 @@ else
}
my $wsdl;
ok( $wsdl = $filter->get_data() , "get object tree");
ok( $wsdl = $parser->get_data() , "get object tree");
my $schema = $wsdl->get_types()->[0]->get_schema()->[0] || die "No schema !";

14
t/005_parse_contributed.t
View File

@@ -4,19 +4,13 @@ use warnings;
use Test::More qw/no_plan/; # TODO: change to tests => N;
use Data::Dumper;
use lib '../lib';
use XML::LibXML;
use diagnostics;
use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
my $filter;
ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
my $parser = XML::LibXML->new();
$parser->set_handler( $filter );
my $parser;
ok($parser = SOAP::WSDL::Expat::WSDLParser->new(), "Object creation");
eval { $parser->parse_string( xml() ) };
if ($@)
{
@@ -29,7 +23,7 @@ else
}
my $wsdl;
ok( $wsdl = $filter->get_data() , "get object tree");
ok( $wsdl = $parser->get_data() , "get object tree");
my $opt = {
namespace => $wsdl->get_xmlns(),

4
t/007_envelope.t
View File

@@ -10,7 +10,7 @@ eval {
import Test::XML;
};
use_ok qw/SOAP::WSDL::Envelope/;
use_ok qw/SOAP::WSDL::Serializer::SOAP11/;
my $opt = {
readable => 1,
@@ -18,7 +18,7 @@ my $opt = {
},
};
my $xml;
ok( $xml = SOAP::WSDL::Envelope->serialize(
ok( $xml = SOAP::WSDL::Serializer::SOAP11->serialize(
undef, undef, $opt
),
"serialize empty envelope"

22
t/015_to_typemap.t
View File

@@ -1,30 +1,18 @@
#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More;
use Test::More tests => 5;
use lib '../lib';
if (eval "require XML::LibXML") {
plan tests => 5;
}
else {
plan skip_all => "Cannot test without XML::LibXML";
}
eval {
require Test::XML;
import Test::XML;
};
use_ok(qw/SOAP::WSDL::SAX::WSDLHandler/);
use_ok(qw/SOAP::WSDL::Expat::WSDLParser/);
my $filter;
ok($filter = SOAP::WSDL::SAX::WSDLHandler->new(), "Object creation");
my $parser = XML::LibXML->new();
$parser->set_handler( $filter );
my $parser;
ok($parser = SOAP::WSDL::Expat::WSDLParser->new(), "Object creation");
eval { $parser->parse_string( xml() ) };
if ($@)
{
@@ -37,7 +25,7 @@ else
}
my $wsdl;
ok( $wsdl = $filter->get_data() , "get object tree");
ok( $wsdl = $parser->get_data() , "get object tree");
ok $wsdl->to_typemap( { prefix => 'CP::EAI::Typelib::' } ), 'typemap';
exit;

25
t/SOAP/WSDL/XSD/Typelib/Builtin/002_time.t
View File

@@ -1,25 +0,0 @@
use Test::More tests => 3;
use strict;
use warnings;
use lib '../lib';
use_ok('SOAP::WSDL::XSD::Typelib::Builtin::time');
my $obj;
$obj = SOAP::WSDL::XSD::Typelib::Builtin::time->new();
$obj->set_value( '12:23:03' );
is $obj->get_value() , '12:23:03+01:00', 'conversion';
$obj->set_value( '12:23:03.12345+01:00' ), ;
is $obj->get_value() , '12:23:03.12345+01:00', 'no conversion';
# exit;
#~ use Benchmark;
#~ timethese 10000, {
#~ xml => sub { $obj->set_value('2037-12-31T00:00:00.0000000+01:00') },
#~ string => sub { $obj->set_value('2037-12-31') },
#~ }

7
t/lib/MyElement.pm
View File

@@ -1,7 +1,6 @@
#!/usr/bin/perl
package MyElement;
use strict;
use Class::Std::Storable;
use SOAP::WSDL::XSD::Typelib::Element;
use SOAP::WSDL::XSD::Typelib::Builtin;
use base (
@@ -14,7 +13,6 @@ sub get_xmlns { 'urn:Test' };
package MyComplexTypeElement;
use strict;
use Class::Std::Storable;
use SOAP::WSDL::XSD::Typelib::Element;
use MyComplexType;
use base (
@@ -27,7 +25,6 @@ sub get_xmlns { 'urn:Test' };
package MyTestElement;
use strict;
use Class::Std::Storable;
use SOAP::WSDL::XSD::Typelib::Element;
use SOAP::WSDL::XSD::Typelib::Builtin::string;
use base (
@@ -36,12 +33,11 @@ use base (
);
__PACKAGE__->__set_name('MyTestElement');
sub get_xmlns { 'urn:Test' };
package MyTestElement2;
use strict;
use Class::Std::Storable;
use SOAP::WSDL::XSD::Typelib::Element;
use SOAP::WSDL::XSD::Typelib::Builtin;
use base (
@@ -57,7 +53,6 @@ sub get_xmlns { 'urn:Test' };
package MyAtomicComplexTypeElement;
use strict;
use Class::Std::Storable;
use SOAP::WSDL::XSD::Typelib::Element;
use SOAP::WSDL::XSD::Typelib::ComplexType;
use SOAP::WSDL::XSD::Typelib::Builtin;

2
t/lib/Typelib/Base.pm
View File

@@ -1,5 +1,5 @@
package Typelib::Base;
use Class::Std::Storable;
use Class::Std::Storable;
sub mk_add_mutators {
my $class = shift;

1
t/lib/Typelib/TEnqueueMessage.pm
View File

@@ -1,7 +1,6 @@
package Typelib::TEnqueueMessage;
use strict;
use base qw(Typelib::Base);
use Class::Std::Storable;
my %MMessage_of :ATTR(:name<MMessage> :default<()>);

1
t/lib/Typelib/TMessage.pm
View File

@@ -1,7 +1,6 @@
package Typelib::TMessage;
use strict;
use base qw(Typelib::Base);
use Class::Std::Storable;
my %MRecipientURI_of :ATTR(:name<MRecipientURI> :default<()>);
my %MMessageContent_of :ATTR(:name<MMessageContent> :default<()>);