The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 1;

use HTML::FormFu;

my $form = HTML::FormFu->new(
    { tt_args => { INCLUDE_PATH => 'share/templates/tt/xhtml' } } );

# force a submission
$form->indicator( sub {1} );

my $hr = $form->element('Hr');

$form->process( {} );

my $hr_xhtml = qq{<hr />};

is( "$hr", $hr_xhtml );