X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=t%2F51-ini.t;h=1fea5442f091ee73868e9a118117ca176dc41829;hp=8040d5b91b7b5e52fe56f0a15690667302098211;hb=1d172fc510f2ed15a00d475073f6df964b398484;hpb=5a2e0210fe5c7da046be37b4240008f2b667be67 diff --git a/t/51-ini.t b/t/51-ini.t index 8040d5b..1fea544 100644 --- a/t/51-ini.t +++ b/t/51-ini.t @@ -8,7 +8,7 @@ if ( !Config::Any::INI->is_supported ) { plan skip_all => 'INI format not supported'; } else { - plan tests => 11; + plan tests => 13; } { @@ -46,3 +46,12 @@ else { ok( $config, 'config loaded' ); is_deeply( $config, \%expected, 'subsections parsed properly' ); } + +# test invalid config +{ + my $file = 't/invalid/conf.ini'; + my $config = eval { Config::Any::INI->load( $file ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); +}