Martin Kutter
25548e6296
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_06 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_06.tar.gz
45 lines
1.4 KiB
Perl
45 lines
1.4 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::ComplexType);
|
|
use_ok qw( MyComplexType );
|
|
# simple type derived from builtin via restriction
|
|
my $obj = MyComplexType->new({ MyTestName => 'test' });
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
|
|
, 'inherited class';
|
|
is $obj, '<MyTestName >test</MyTestName >', 'stringification';
|
|
|
|
$obj = MyComplexType->new({ MyTestName => [ 'test', 'test2' ] });
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
|
|
, 'inherited class';
|
|
is $obj, '<MyTestName >test</MyTestName ><MyTestName >test2</MyTestName >',
|
|
'stringification';
|
|
|
|
# try on the fly factory
|
|
@MyComplexType2::ISA = ('SOAP::WSDL::XSD::Typelib::ComplexType');
|
|
{
|
|
use Class::Std::Storable;
|
|
my %MyTestName_of;
|
|
|
|
MyComplexType2->_factory(
|
|
[ qw(MyTestName) ], # order
|
|
{ MyTestName => \%MyTestName_of }, # attribute lookup map
|
|
{ MyTestName => 'MyElement' } # class name lookup map
|
|
);
|
|
}
|
|
|
|
$obj = MyComplexType2->new({ MyTestName => [ 'test', 'test2' ] });
|
|
ok $obj->isa('SOAP::WSDL::XSD::Typelib::Builtin::anyType')
|
|
, 'inherited class (on the fly-factory object)';
|
|
is $obj, '<MyTestName >test</MyTestName><MyTestName >test2</MyTestName>',
|
|
'stringification (on the fly-factory object)';
|
|
# print Dumper $obj->get_MyTestName();
|
|
|
|
|
|
__END__
|
|
|