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')";

}