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';