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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
use strict;
use warnings;
use Test::More;
use Test::Fatal;
use Carp 'croak';
# use Dancer2::Core::Runner;
use Dancer2::FileUtils qw/dirname path/;
use File::Spec;
use File::Temp;
use Dancer2::ConfigReader;
# undefine ENV vars used as defaults for app environment in these tests
local $ENV{DANCER_ENVIRONMENT};
local $ENV{PLACK_ENV};
# my $runner = Dancer2::Core::Runner->new();
my $location = File::Spec->rel2abs( path( dirname(__FILE__), 'config' ) );
my $location2 = File::Spec->rel2abs( path( dirname(__FILE__), 'config2' ) );
{
my $cfgr = Dancer2::ConfigReader->new(
environment => 'my_env',
location => $location,
default_config => {
content_type => 'text/html',
charset => 'UTF-8',
},
);
is( $cfgr->config->{'application'}->{'some_feature'}, 'foo', 'Ok config' );
is( $cfgr->config->{'charset'}, 'utf-8', 'Ok default config' );
}
{
# note "bad YAML file: environments/failure.yml";
like(
exception {
Dancer2::ConfigReader->new(
environment => 'failure',
location => $location,
default_config => { },
)->config;
},
qr{Unable to parse the configuration file}, 'Configuration file parsing failure',
);
}
{
my $cfgr = Dancer2::ConfigReader->new(
environment => 'any_env',
location => $location,
default_config => { },
);
my $cfg = $cfgr->config;
isnt( $cfg, undef, 'OK config read' );
}
{
my $cfgr = Dancer2::ConfigReader->new(
environment => 'merging',
location => $location,
default_config => { },
);
# note "config merging";
# Check the 'application' top-level key; its the only key that
# is currently a HoH in the test configurations
is_deeply $cfgr->config->{application},
{
some_feature => 'bar',
another_setting => 'baz',
},
"full merging of configuration hashes";
}
{
my $cfgr = Dancer2::ConfigReader->new(
environment => 'lconfig',
location => $location2,
default_config => { },
);
is_deeply $cfgr->config->{application},
{ feature_1 => 'foo',
feature_2 => 'alpha',
feature_3 => 'replacement',
feature_4 => 'blat',
feature_5 => 'beta',
feature_6 => 'bar',
feature_7 => 'baz',
feature_8 => 'goober',
},
"full merging of local configuration hashes";
}
done_testing;
|
