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=6db72431cc9c2f36ec20173b6fa5c01d2c7cd94b;hp=59b3f35a56385363ae020d5d06156e3efe92dd82;hb=2b645c42bc8c5c33f533f7ea97c812f1fc1636d7;hpb=77f14cda81a1985461745614ec79a76d25f13ac4 diff --git a/t/50-general.t b/t/50-general.t index 59b3f35..6db7243 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 => 6; + plan tests => 7; } { @@ -24,11 +24,19 @@ else { ok( exists $config->{ component } ); } +{ + my $config = Config::Any::General->load( + 't/conf/single_element_arrayref.conf' + ); + is_deeply $config->{foo}, [ 'bar' ], + 'single element arrayref'; +} + # 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 ($@)" ); + ok( $@, "error thrown ($@)" ); }