Martin KutterandMichael G. Schwern
bfc3247583
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.07 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.07.tar.gz
32 lines
957 B
Perl
32 lines
957 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 3; #qw(no_plan);
|
|
|
|
use_ok qw(SOAP::WSDL::XSD::Enumeration);
|
|
|
|
use SOAP::WSDL::Expat::WSDLParser;
|
|
my $parser = SOAP::WSDL::Expat::WSDLParser->new();
|
|
|
|
my $xml = q{<s:schema elementFormDefault="qualified"
|
|
targetNamespace="urn:HelloWorld" xmlns:s="http://www.w3.org/2001/XMLSchema"
|
|
xmlns="urn:HelloWorld">
|
|
<s:simpleType name="test">
|
|
<s:restriction base="s:string">
|
|
<s:enumeration value="foo"/>
|
|
<s:enumeration value="bar">
|
|
<s:annotation>
|
|
<s:documentation>foobar</s:documentation>
|
|
</s:annotation>
|
|
</s:enumeration>
|
|
</s:restriction>
|
|
</s:simpleType>
|
|
</s:schema>
|
|
};
|
|
|
|
my $schema = $parser->parse($xml);
|
|
|
|
is $schema->find_type('urn:HelloWorld', 'test')
|
|
->get_enumeration()->[0]->get_value(), 'foo';
|
|
is $schema->find_type('urn:HelloWorld', 'test')
|
|
->get_enumeration()->[1]->get_value(), 'bar';
|