use strict; use warnings; use Test::More tests => 3; use File::Temp qw(tempdir); use HTML::FormFu; my $form = HTML::FormFu->new; $form->config_file_path('t/config_file_path'); $form->load_config_file('form.yml'); ok( $form->get_field('found-me') ); my $form2 = HTML::FormFu->new; # create dummy temp directories my @dirs = ( tempdir(CLEANUP => 1), tempdir(CLEANUP => 1), tempdir(CLEANUP => 1), tempdir(CLEANUP => 1), ); $form2->config_file_path(\@dirs); eval { $form2->load_config_file('form.yml'); }; ok($@, "Should die if form.yml is not found"); $form2->config_file_path([ @dirs, 't/config_file_path' ]); $form2->load_config_file('form.yml'); ok( $form2->get_field('found-me') );