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