f0b3bdc201
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_31 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_31.tar.gz
32 lines
846 B
Perl
32 lines
846 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 4;
|
|
|
|
use SOAP::WSDL::XSD::Element;
|
|
use_ok qw(SOAP::WSDL::XSD::Schema);
|
|
|
|
my $obj = SOAP::WSDL::XSD::Schema->new({
|
|
element => [
|
|
SOAP::WSDL::XSD::Element->new({
|
|
name => 'foo',
|
|
targetNamespace => 'bar',
|
|
}),
|
|
SOAP::WSDL::XSD::Element->new({
|
|
name => 'foo',
|
|
targetNamespace => 'baz',
|
|
}),
|
|
SOAP::WSDL::XSD::Element->new({
|
|
name => 'foobar',
|
|
targetNamespace => 'bar',
|
|
}),
|
|
]
|
|
});
|
|
|
|
|
|
my $found= $obj->find_element('bar', 'foobar');
|
|
is $found->get_name(), 'foobar', 'found Element';
|
|
$found = $obj->find_element('baz', 'foo');
|
|
is $found->get_name(), 'foo', 'found Element';
|
|
|
|
$found = $obj->find_element('baz', 'foobar');
|
|
is $found, undef, 'find_Element returns undef on unknown Element'; |