X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=t%2F50-general.t;h=59b3f35a56385363ae020d5d06156e3efe92dd82;hp=ec0dc533e91ff6af2530d0776304439edd1c2e5d;hb=4198bf8c36c5f90c71845bd2505d953d3422037e;hpb=5a2e0210fe5c7da046be37b4240008f2b667be67 diff --git a/t/50-general.t b/t/50-general.t index ec0dc53..59b3f35 100644 --- a/t/50-general.t +++ b/t/50-general.t @@ -8,7 +8,7 @@ if ( !Config::Any::General->is_supported ) { plan skip_all => 'Config::General format not supported'; } else { - plan tests => 4; + plan tests => 6; } { @@ -23,3 +23,12 @@ else { { -LowerCaseNames => 1 } ); ok( exists $config->{ component } ); } + +# test invalid config +{ + my $file = 't/invalid/conf.conf'; + my $config = eval { Config::Any::General->load( $file ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); +}