use strict;
use warnings;
use Test::More;

{
    package Test::Render;
    use Moose::Role;

    sub render {
        my $self = shift;
        my $output .= $self->render_start;
        $output .= '<p>This is the rendering role</p>';
        $output .= $self->render_end;
    }
}

{
    package Test::Form;
    use HTML::FormHandler::Moose;
    extends 'HTML::FormHandler';
    with 'Test::Render';

    has_field 'foo';
    has_field 'bar';
}

my $form = Test::Form->new;
my $render = $form->render;
like( $render, qr/This is the rendering role/, 'rendered using role' );
like( $render, qr/<form/, 'form tag rendered' );

done_testing;