use strict;
use warnings;
use HTML::Shakan;
use t::Util;
use Test::More tests => 2;
sub check {
my $q = shift;
my $form = HTML::Shakan->new(
request => $q,
fields => [
Duplication(
'name' => (
TextField( name => 'a' ),
TextField( name => 'b' ),
)
),
],
);
$form->is_valid;
}
is check(query({a => 1, b => 1})), 1;
is check(query({a => 1, b => 2})), 0;