Commit | Line | Data |
---|---|---|
5a2e0210 | 1 | use strict; |
2 | use warnings; | |
f0e3c221 | 3 | |
5a2e0210 | 4 | use Test::More; |
f0e3c221 | 5 | use Config::Any::General; |
6 | ||
5a2e0210 | 7 | if ( !Config::Any::General->is_supported ) { |
8 | plan skip_all => 'Config::General format not supported'; | |
9 | } | |
10 | else { | |
11 | plan tests => 4; | |
12 | } | |
f0e3c221 | 13 | |
5a2e0210 | 14 | { |
15 | my $config = Config::Any::General->load( 't/conf/conf.conf' ); | |
f0e3c221 | 16 | ok( $config ); |
17 | is( $config->{ name }, 'TestApp' ); | |
9ac432c2 | 18 | ok( exists $config->{ Component } ); |
5a2e0210 | 19 | } |
9ac432c2 | 20 | |
5a2e0210 | 21 | { |
22 | my $config = Config::Any::General->load( 't/conf/conf.conf', | |
23 | { -LowerCaseNames => 1 } ); | |
9ac432c2 | 24 | ok( exists $config->{ component } ); |
f0e3c221 | 25 | } |