X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=t%2F55-yaml.t;h=b6d1f9e7102fb5eb09fe9aa81bfe3662f55b0d63;hp=caf6f66650311653ac08d2196ada7bfbbc30ab3e;hb=82410e22b11e82191fa54ba974cdaac68a8c5454;hpb=e7be073ac39914776ae469d6d1b51b666f6210d5 diff --git a/t/55-yaml.t b/t/55-yaml.t index caf6f66..b6d1f9e 100644 --- a/t/55-yaml.t +++ b/t/55-yaml.t @@ -3,15 +3,14 @@ use warnings; no warnings 'once'; use Test::More; +use Config::Any; use Config::Any::YAML; -$Config::Any::YAML::NO_YAML_XS_WARNING = 1; - if ( !Config::Any::YAML->is_supported ) { plan skip_all => 'YAML format not supported'; } else { - plan tests => 4; + plan tests => 6; } { @@ -28,3 +27,12 @@ else { ok( !$config, 'config load failed' ); ok( $@, "error thrown ($@)" ); } + +# parse error generated on invalid config +{ + my $file = 't/invalid/conf.yml'; + my $config = eval { Config::Any->load_files( { files => [$file], use_ext => 1} ) }; + + ok( !$config, 'config load failed' ); + ok( $@, "error thrown ($@)" ); +}