/t/html_attr.t

 1use strict;
 2use warnings;
 3use Test::More;
 4
 5{
 6    package Test::Form;
 7    use HTML::FormHandler::Moose;
 8    extends 'HTML::FormHandler';
 9
10    has '+html_attr' => ( default => sub { { method => 'GET', class => 'hfh test_form', target => '_blank' } } );
11    has_field 'foo' => ( html_attr => { arbitrary => 'something' } );
12    has_field 'bar' => ( html_attr => { writeonly => 1 } );
13}
14
15my $form = Test::Form->new;
16$form->process( params => {} );
17my $rendered = $form->render;
18like( $rendered, qr/class="hfh test_form"/, 'form has class' );
19like( $rendered, qr/method="GET"/, 'form has html method' );
20like( $rendered, qr/arbitrary="something"/, 'field has arbitrary attribute' );
21like( $rendered, qr/writeonly="1"/, 'field has writeonly attribute' );
22like( $rendered, qr/target="_blank"/, 'form has target attribute');
23
24done_testing;