use Test::More; plan tests => 42; use_ok qw(SOAP::Lite::Deserializer::XMLSchema1999); is SOAP::Lite::Deserializer::XMLSchema1999->anyTypeValue(), 'ur-type', 'anyTypeValue'; is SOAP::Lite::Deserializer::XMLSchema1999->as_boolean('false'), 0, 'as_boolean("false")'; is SOAP::Lite::Deserializer::XMLSchema1999->as_boolean('true'), 1, 'as_boolean("false")'; eval {SOAP::Lite::Deserializer::XMLSchema1999->as_boolean('foobar') }; ok $@, 'died on illegal boolean value'; undef $@; is ord SOAP::Lite::Deserializer::XMLSchema1999->as_hex('FF'), 255, 'as_hex(FF)'; is ord SOAP::Lite::Deserializer::XMLSchema1999->as_hex('65'), 101, 'as_hex(65)'; is SOAP::Lite::Deserializer::XMLSchema1999->as_hex('4142'), 'AB', 'as_hex(4142)'; is SOAP::Lite::Deserializer::XMLSchema1999->as_ur_type('4242'), '4242', 'as_ur_type(4242)'; is SOAP::Lite::Deserializer::XMLSchema1999->as_undef('true'), '1', 'as_undef("true")'; is SOAP::Lite::Deserializer::XMLSchema1999->as_undef('false'), '0', 'as_undef("false")'; eval {SOAP::XMLSchema1999::Deserializer->as_undef('ZUMSL')}; ok $@, 'died on illegal nil value'; undef $@; for (qw( string float double decimal timeDuration recurringDuration uriReference integer nonPositiveInteger negativeInteger long int short byte nonNegativeInteger unsignedLong unsignedInt unsignedShort unsignedByte positiveInteger timeInstant time timePeriod date month year century recurringDate recurringDay language) ) { no strict qw(refs); my $method = "as_$_"; is SOAP::Lite::Deserializer::XMLSchema1999->$method('something nice'), 'something nice', "$method('something nice')"; }