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