Martin KutterandMichael G. Schwern
874251225f
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
45 lines
732 B
Perl
45 lines
732 B
Perl
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};
|