X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=t%2F52-json.t;h=23eb920497aa5610a09df6af7b0aef1952d6f03d;hp=5467ebe6c7e4d6da38434fd737eb73d27adbcb90;hb=11501cf7c7fd46e8723c2de165a00e2f8deefc72;hpb=5a2e0210fe5c7da046be37b4240008f2b667be67 diff --git a/t/52-json.t b/t/52-json.t index 5467ebe..23eb920 100644 --- a/t/52-json.t +++ b/t/52-json.t @@ -8,7 +8,7 @@ if ( !Config::Any::JSON->is_supported ) { plan skip_all => 'JSON format not supported'; } else { - plan tests => 2; + plan tests => 4; } { @@ -16,3 +16,12 @@ else { ok( $config ); is( $config->{ name }, 'TestApp' ); } + +# test invalid config +{ + my $file = 't/invalid/conf.json'; + my $config = eval { Config::Any::JSON->load( $file ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); +}