use strict;
use warnings;
use Test::More tests => 3;
use HTML::Widget;
use lib 't/lib';
use HTMLWidget::TestLib;
my $w = HTML::Widget->new;
$w->element( 'Select', 'foo' )->options( 1 => 'yes', 0 => 'no' )
->constrain_options(1);
my $f = $w->process();
my @constraints = $w->get_constraints;
is( scalar(@constraints), 1, '1 implicit IN constraint' );
my $keys = $constraints[0]->in;
is( $keys->[0], 1, 'constraint value' );
is( $keys->[1], 0, 'constraint value' );