import SOAP-WSDL 1.27 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 1.27 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-1.27.tar.gz
This commit is contained in:
1 parent
7ca2154ad6
commit
2bad767211
389 files changed
+2374
-28345
No files matched your search
@@ -1,44 +0,0 @@
|
||||
package MyTypelib;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
|
||||
sub find_element {};
|
||||
sub find_type {};
|
||||
|
||||
package main;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 5;
|
||||
|
||||
use_ok qw(SOAP::WSDL::Part);
|
||||
|
||||
my $typelib = {};
|
||||
|
||||
eval { SOAP::WSDL::Part->serialize() };
|
||||
like $@, qr{No typelib};
|
||||
|
||||
my $opt = {
|
||||
typelib => 'MyTypelib',
|
||||
namespace => { foo => 'bar'}
|
||||
};
|
||||
|
||||
my $data = {};
|
||||
|
||||
my $part = SOAP::WSDL::Part->new();
|
||||
|
||||
eval { $part->serialize('name', $data, $opt ) };
|
||||
like $@, qr{Neither type nor element};
|
||||
|
||||
$part->set_type('foo:Foo');
|
||||
|
||||
eval { $part->serialize('name', $data, $opt ) };
|
||||
like $@, qr{type foo:Foo};
|
||||
|
||||
$part->set_type(undef);
|
||||
|
||||
$part->set_element('foo:Foo');
|
||||
|
||||
eval { $part->serialize('name', $data, $opt ) };
|
||||
like $@, qr{element foo:Foo};
|
||||
Reference in new issue
Block a user