8 if ( !Config::Any::INI->is_supported ) {
9 plan skip_all => 'INI format not supported';
16 my $config = Config::Any::INI->load( 't/conf/conf.ini' );
17 ok( $config, 'config loaded' );
18 is( $config->{ name }, 'TestApp', "toplevel key lookup succeeded" );
19 is( $config->{ Component }->{ 'Controller::Foo' }->{ foo },
20 'bar', "nested hashref hack lookup succeeded" );
24 my $config = Config::Any::INI->load( 't/conf/conf2.ini' );
25 ok( $config, 'config loaded' );
26 is( $config->{ name }, 'TestApp', "toplevel key lookup succeeded" );
27 is( $config->{ 'Controller::Foo' }->{ foo },
28 'bar', "nested hashref hack lookup succeeded" );
32 local $Config::Any::INI::MAP_SECTION_SPACE_TO_NESTED_KEY = 0;
33 my $config = Config::Any::INI->load( 't/conf/conf.ini' );
34 ok( $config, 'config loaded (no-map-space mode)' );
35 is( $config->{ name }, 'TestApp', "toplevel key lookup succeeded" );
36 is( $config->{ 'Component Controller::Foo' }->{ foo },
37 'bar', "unnested key lookup succeeded" );
41 my $config = Config::Any::INI->load( 't/conf/subsections.ini' );
45 { a => 1, subsection1 => { b => 2 }, subsection2 => { c => 3 } }
47 ok( $config, 'config loaded' );
48 is_deeply( $config, \%expected, 'subsections parsed properly' );
53 my $file = 't/invalid/conf.ini';
54 my $config = eval { Config::Any::INI->load( $file ) };
56 ok( !$config, 'config load failed' );
57 ok( $@, "error thrown ($@)" );
60 # parse error generated on invalid config
62 my $file = 't/invalid/conf.ini';
63 my $config = eval { Config::Any->load_files( { files => [$file], use_ext => 1} ) };
65 ok( !$config, 'config load failed' );
66 ok( $@, "error thrown ($@)" );