use strict;
use warnings;
use Test::More tests => 3;
use HTML::Widget;
my $w = HTML::Widget->new;
$w->element( 'Textfield', 'foo' );
$w->element( 'Textfield', 'bar' );
$w->element( 'Textarea', 'bar' );
my @elems = $w->get_elements( name => 'bar', type => 'Textfield' );
is( scalar(@elems), 1, 'correct number of elements' );
is( $elems[0]->name, 'bar', 'correct name' );
like( ref($elems[0]), qr/Textfield$/, 'correct type' );