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 {} }

}