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