1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
use strict;
use warnings;
use Test::More tests => 4;
use File::Temp qw(tempdir);
use HTML::FormFu;
my $form = HTML::FormFu->new;
$form->config_file_path('t/load_config/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/load_config/config_file_path' ] );
$form2->load_config_file('form.yml');
ok( $form2->get_field('found-me') );
my $form3 = HTML::FormFu->new;
$form3->config_file_path(
[ 't/load_config/config_file_path2', @dirs,
't/load_config/config_file_path'
] );
$form3->load_config_file('form.yml');
ok( $form3->get_field('new-found-me') );
|
