Commit | Line | Data |
41f47406 |
1 | use Test::More tests => 9; |
2 | |
3 | use Config::Any::INI; |
4 | |
92a04e78 |
5 | my $config = eval { Config::Any::INI->load( 't/conf/conf.ini' ) }; |
41f47406 |
6 | my $simpleconfig = eval { Config::Any::INI->load( 't/conf/conf2.ini' ) }; |
7 | |
8 | SKIP: { |
9 | skip "Couldn't Load INI plugin", 6 if $@; |
10 | ok( $config, "loaded INI config #1" ); |
11 | is( $config->{ name }, 'TestApp', "toplevel key lookup succeeded" ); |
92a04e78 |
12 | is( $config->{ Component }->{ Controller::Foo }->{ foo }, |
13 | 'bar', "nested hashref hack lookup succeeded" ); |
14 | |
41f47406 |
15 | ok( $simpleconfig, "loaded INI config #1" ); |
16 | is( $simpleconfig->{ name }, 'TestApp', "toplevel key lookup succeeded" ); |
92a04e78 |
17 | is( $simpleconfig->{ Controller::Foo }->{ foo }, |
18 | 'bar', "nested hashref hack lookup succeeded" ); |
41f47406 |
19 | } |
20 | |
21 | $Config::Any::INI::MAP_SECTION_SPACE_TO_NESTED_KEY = 0; |
22 | my $unspaced_config = eval { Config::Any::INI->load( 't/conf/conf.ini' ); }; |
23 | SKIP: { |
24 | skip "Couldn't load INI plugin", 3 if $@; |
25 | ok( $unspaced_config, "loaded INI config #1 in no-map-space mode" ); |
92a04e78 |
26 | is( $unspaced_config->{ name }, |
27 | 'TestApp', "toplevel key lookup succeeded" ); |
28 | is( $unspaced_config->{ 'Component Controller::Foo' }->{ foo }, |
29 | 'bar', "unnested key lookup succeeded" ); |
41f47406 |
30 | } |