use strict; use warnings; use Test::More tests => 1; use HTML::FormFu; my $form = HTML::FormFu->new( { elements => [ { type => 'Multi', label => 'My multi', elements => [ { type => 'Text', name => 'foo', }, { type => 'Radio', name => 'bar', } ], }, { type => 'Submit' }, ], constraints => ['Required'], } ); $form->tt_args( { INCLUDE_PATH => 'share/templates/tt/xhtml' } ); $form->indicator( sub {1} ); $form->process( {} ); my $xhtml = <
This field is required This field is required
EOF is( "$form", $xhtml );