# -*-perl-*-

# $Id$

use strict;
use lib 't';
use TestUtil;
use Test::Exception;
use Test::More  tests => 16;

require_ok( 'Workflow::Action::InputField' );

my $action;

dies_ok { $action = Workflow::Action::InputField->new({}) };

ok($action = Workflow::Action::InputField->new({
    name        => 'test',
    is_required => 'yes', 
}));

isa_ok($action, 'Workflow::Action::InputField');

my @values;

@values = $action->get_possible_values();

is(scalar @values, 0);

ok(@values = $action->add_possible_values(
    { label => 'foo', value => '1' },
    { label => 'bar', value => '2' },
));

ok(@values = $action->get_possible_values());

is(scalar @values, 2);

is($action->is_required, 'yes');

is($action->is_optional, 'no');

ok($action = Workflow::Action::InputField->new({
    name        => 'test',
    is_required => 'no', 
}));

is($action->is_required, 'no');

is($action->is_optional, 'yes');

ok($action = Workflow::Action::InputField->new({
    name        => 'test',
}));

is($action->is_required, 'no');

is($action->is_optional, 'yes');