1use Test::More tests => 5; 2use strict; 3use warnings; 4use SOAP::WSDL::XSD::Typelib::Builtin::Name; 5my $Name = SOAP::WSDL::XSD::Typelib::Builtin::Name->new(); 6is $Name->get_value(), undef; 7$Name = SOAP::WSDL::XSD::Typelib::Builtin::Name->new({}); 8is $Name->get_value(), undef; 9ok $Name = SOAP::WSDL::XSD::Typelib::Builtin::Name->new({ value => 'xsd:Test' }); 10is "$Name", "xsd:Test", 'stringification'; 11 12ok $Name->isa('SOAP::WSDL::XSD::Typelib::Builtin::normalizedString'), 'inheritance';