1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
use strict;
use warnings;
use Test::More tests => 6;
use SOAP::WSDL::XSD::Attribute;
use SOAP::WSDL::XSD::Schema;
use_ok qw(SOAP::WSDL::Types);
my $types = SOAP::WSDL::Types->new();
$types->set_xmlns({
foo => 'bar',
});
my $attr = SOAP::WSDL::XSD::Attribute->new({
name => 'test',
targetNamespace => 'bar'
});
my $schema = SOAP::WSDL::XSD::Schema->new();
$schema->push_attribute( $attr );
$types->push_schema(
$schema
);
ok my $found_attr = $types->find_attribute('bar', 'test');
is $found_attr, $attr;
ok $types->find_attribute([ 'bar', 'test' ]);
ok ! $types->find_attribute('foo', 'test');
ok ! $types->find_element('foo', 'test');
|
