view release on metacpan or  search on metacpan

t/05strict.t  view on Meta::CPAN

my $w = HTML::Widget->new->method('post')->action('/foo/bar')->strict(1);

$w->element( 'Textfield', 'age' )->label('Age')->size(3);
$w->element( 'Textfield', 'name' )->label('Name')->size(60);
$w->element( 'Submit',    'ok' )->value('OK');

$w->constraint( 'Integer', 'age' )->message('No integer.');
$w->constraint( 'Maybe',   'ok' );

my $query = HTMLWidget::TestLib->mock_query( {
        age  => 'NaN',
        name => 'sri',
        foo  => 'blah',
        bar  => 'stuff',
        ok   => 'OK',
    } );

my $f = $w->process($query);

ok( $f->valid('ok'),     'Field ok is valid' );
ok( !$f->valid('name'),  'Field name is valid' );