use strict;
use warnings;
use Test::More tests => 33; #qw(no_plan);

use_ok qw(SOAP::Lite);

my @setter_from = qw(
        name value attr type actor encodingStyle
        prefix uri value signature
);

my @option_from = qw(
    root mustUnderstand
);

my $data = SOAP::Data->new();
isa_ok $data, 'SOAP::Data';

for my $method ( @option_from ) {
    no strict qw(refs);
    my $data = SOAP::Data->$method("foo_$method");
}

for my $method ( @setter_from ) {
    no strict qw(refs);
    my $data = SOAP::Data->$method("foo_$method");
    isa_ok $data, 'SOAP::Data';
    is $data->$method(), "foo_$method", "SOAP::Data->$method() value";
    $data = $data->$method("bar_$method");
    is $data->$method(), "bar_$method", "\$data->$method() value";
}

$data = SOAP::Data->set_value('foo');
is $data->value(), 'foo';