use Test::More tests => 14;
use_ok('HTML::Widget');
my $w = HTML::Widget->new;
$w->constraint( 'Integer', 'foo' );
$w->constraint( 'Printable', 'bar' );
$w->constraint( 'All', 'baz', 'one' );
$w->constraint( 'All', 'baz', 'two' );
{
my @constraints = $w->get_constraints;
is( scalar(@constraints), 4, 'correct number of constraints' );
is_deeply( $constraints[0]->names, ['foo'], 'correct constraint names' );
is_deeply( $constraints[1]->names, ['bar'], 'correct constraint names' );
is_deeply( $constraints[2]->names, [qw/ baz one /], 'correct constraint names' );
is_deeply( $constraints[3]->names, [qw/ baz two /], 'correct constraint names' );
}
{
my @constraints = $w->get_constraints( type => 'Integer' );
is( scalar(@constraints), 1, 'correct number of constraints' );
is_deeply( $constraints[0]->names, ['foo'], 'correct constraint names' );
isa_ok( $constraints[0], 'HTML::Widget::Constraint::Integer',
'correct constraint type' );
}
{
my @constraints = $w->get_constraints( type => 'All' );
is( scalar(@constraints), 2, 'correct number of constraints' );
is_deeply( $constraints[0]->names, [qw/ baz one /],
'correct constraint names' );
is_deeply( $constraints[1]->names, [qw/ baz two /],
'correct constraint names' );
isa_ok( $constraints[0], 'HTML::Widget::Constraint::All',
'correct constraint type' );
isa_ok( $constraints[1], 'HTML::Widget::Constraint::All',
'correct constraint type' );
}