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
69 lines
2.6 KiB
Perl
69 lines
2.6 KiB
Perl
#!/usr/bin/perl
|
|
use Test::More qw(no_plan);
|
|
use strict;
|
|
use lib 'lib/';
|
|
use lib '../lib/';
|
|
use lib 't/lib';
|
|
|
|
use_ok qw(SOAP::WSDL::XSD::Typelib::Element);
|
|
use_ok qw( MyElement );
|
|
|
|
# simple type derived from builtin via restriction
|
|
my $obj = MyElement->new({ value => 'test'});
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
|
|
, 'inherited class';
|
|
is $obj->serialize_qualified(), '<MyElementName xmlns="urn:Test">test</MyElementName>', 'stringification';
|
|
|
|
$obj = MyAtomicComplexTypeElement->new({ test=> 'Test', test2 => 'Test2'});
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
|
|
, 'inherited class';
|
|
|
|
ok $obj->get_test->isa('SOAP::WSDL::XSD::Typelib::Builtin::string')
|
|
, 'element isa';
|
|
|
|
is $obj->serialize_qualified, '<MyAtomicComplexTypeElement xmlns="urn:Test"><test>Test</test>'
|
|
. '<test2>Test2</test2></MyAtomicComplexTypeElement>'
|
|
, 'stringification';
|
|
|
|
$obj = MyElement->new({ value => undef});
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
|
|
, 'inherited class';
|
|
|
|
# is $obj, '<MyElementName xmlns="urn:Test" xsi:nil="true" />', 'nillable stringification';
|
|
|
|
$obj = MyAtomicComplexTypeElement->new({ test=> 'Test', test2 => [ 'Test2', 'Test3' ]});
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
|
|
, 'inherited class';
|
|
is $obj, '<MyAtomicComplexTypeElement xmlns="urn:Test"><test>Test</test>'
|
|
. '<test2>Test2</test2>'
|
|
. '<test2>Test3</test2>'
|
|
. '</MyAtomicComplexTypeElement>'
|
|
, 'multi value stringification';
|
|
|
|
ok $obj = MyComplexTypeElement->new({ MyTestName => 'test' });
|
|
is $obj->serialize_qualified(), '<MyComplexTypeElement xmlns="urn:Test"><MyTestName>test</MyTestName></MyComplexTypeElement>';
|
|
|
|
__END__
|
|
|
|
# simple type derived from builtin via list
|
|
$obj = MySimpleListType->new({ value => [ 'test', 'test2' ]});
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType')
|
|
, 'inherited class';
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::list')
|
|
, 'inherited class';
|
|
is $obj, 'test test2', 'stringification';
|
|
|
|
# simple type derived from atomic simple type (restriction)
|
|
$obj = MyAtomicSimpleType->new({ value => 'test' });
|
|
ok $obj->isa('MySimpleType') , 'inherited class';
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::SimpleType::restriction')
|
|
, 'inherited class';
|
|
is $obj, 'test', 'stringification';
|
|
|
|
# simple type derived from atomic simple type (list)
|
|
$obj = MyAtomicSimpleListType->new({ value => [ 'test', 'test2' ] });
|
|
ok $obj->isa('MySimpleListType') , 'inherited class';
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::SimpleType::restriction')
|
|
, 'inherited class';
|
|
is $obj, 'test test2', 'stringification';
|