Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 51 lines (34 sloc) 1.063 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
use strict;
use warnings;

use Test::More tests => 15;

use HTML::FormFu;

my $form = HTML::FormFu->new->force_errors(1);

$form->element('Text')->name('foo')->constraint('Integer');
$form->element('Text')->name('bar')->constraint('Integer');

{
    $form->process( {
            foo => '1',
            bar => '0',
        } );

    ok( !$form->has_errors, 'has no real errors' );

    ok( !$form->has_errors('foo') );
    ok( !$form->has_errors('bar') );

    ok( @{ $form->get_errors( { name => 'foo', forced => 1 } ) } );
    ok( @{ $form->get_errors( { name => 'bar', forced => 1 } ) } );

    ok( $form->valid('foo') );
    ok( $form->valid('bar') );

    ok( $form->submitted_and_valid );
}

{
    $form->process( {
            foo => 0,
            bar => "0\n",
        } );

    ok( $form->has_errors );

    ok( !$form->has_errors('foo') );
    ok( $form->has_errors('bar') );

    ok( @{ $form->get_errors( { name => 'foo', forced => 1 } ) } );

    ok( $form->valid('foo') );
    ok( !$form->valid('bar') );

    ok( !$form->submitted_and_valid );
}
Something went wrong with that request. Please try again.