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
|
use strict;
use warnings;
use Test::More;
{
package MyApp::Form::Test;
use HTML::FormHandler::Moose;
extends 'HTML::FormHandler';
with 'HTML::FormHandler::Field::Role::RequestToken';
has_field 'foo';
has_field 'bar';
has_field '_token' => ( type => 'RequestToken' );
has_field 'save' => ( type => 'Submit' );
}
my $form = MyApp::Form::Test->new;
ok( $form );
$form->process( params => { _token => 'wrong', foo => 'blahblah' } );
ok( ! $form->validated, 'form did not validate without form token' );
done_testing;
|
