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