1use Test::More tests => 37; 2use_ok qw(SOAP::Lite::Deserializer::XMLSchemaSOAP1_2); 3 4is SOAP::Lite::Deserializer::XMLSchemaSOAP1_2->anyTypeValue(), 5 'anyType', 6 'anyTypeValue'; 7 8 9is SOAP::Lite::Deserializer::XMLSchemaSOAP1_2->as_boolean('true'), 10 1, 'as_boolean("true")'; 11 12is SOAP::Lite::Deserializer::XMLSchemaSOAP1_2->as_boolean('false'), 13 0, 'as_boolean("false")'; 14 15is SOAP::Lite::Deserializer::XMLSchemaSOAP1_2->as_anyType('4242'), 16 '4242', 'as_anyType(4242)'; 17 18for (qw( 19 string float double decimal dateTime timePeriod gMonth gYearMonth gYear 20 century gMonthDay gDay duration recurringDuration anyURI 21 language integer nonPositiveInteger negativeInteger long int short byte 22 nonNegativeInteger unsignedLong unsignedInt unsignedShort unsignedByte 23 positiveInteger date time dateTime 24 ) ) { 25 26 no strict qw(refs); 27 my $method = "as_$_"; 28 is SOAP::Lite::Deserializer::XMLSchemaSOAP1_2->$method('something nice'), 29 'something nice', "$method('something nice')"; 30 31} 32