import SOAP-WSDL 2.00_29 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
This commit is contained in:
1 parent
2bad767211
commit
874251225f
402 files changed
+30230
-2406
No files matched your search
@@ -0,0 +1,44 @@
|
||||
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