The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
{
    package main;

    use strict;
    use warnings;

    use Test::More tests => 2;

    use HTML::FormFu;

    my $form = HTML::FormFu->new;

    $form->stash->{context} = new C::Fake;

    $form->load_config_file('t/elements/requesttoken.yml');

    like( $form, qr/<input name="_token" type="hidden" value="/, "RequestToken field is a hidden field" );

    like( $form, qr/value="\w+"/, "RequestToken field has a random value" );

}
{
    package C::Fake;

    sub new { return bless( {}, shift ) }

    sub session { return {} }

}