use strict;
use warnings;
use HTML::Shakan;
use Test::More tests => 8;
use CGI;
# -------------------------------------------------------------------------
# submitted
do {
my $form = HTML::Shakan->new(
request => CGI->new,
fields => [
TextField(name => 'yay')
],
);
is $form->submitted(), 0, "not submit";
};
do {
my $form = HTML::Shakan->new(
request => CGI->new({yay => 1}),
fields => [
TextField(name => 'yay')
],
);
is $form->submitted(), 1, 'ok. you submit';
};
# -------------------------------------------------------------------------
# submitted_and_valid
do {
my $form = HTML::Shakan->new(
request => CGI->new({yay => 1}),
fields => [
TextField(name => 'yay'),
TextField(required => 1, name => 'bay'),
],
);
is $form->submitted(), 1, 'ok. you submit';
ok ! $form->submitted_and_valid(), 'but not valid';
ok ! $form->is_valid(), 'not valid';
};
do {
my $form = HTML::Shakan->new(
request => CGI->new({yay => 1, bay => 1}),
fields => [
TextField(name => 'yay'),
TextField(required => 1, name => 'bay'),
],
);
is $form->submitted(), 1, 'ok. you submit';
ok $form->submitted_and_valid(), 'and valid';
ok $form->is_valid(), 'ofcourse valid';
};