X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=t%2F53-perl.t;h=6d2d5ca70aeab4707ddd6f9467cbf643ca0f974a;hp=427f611c58bd1decd61cc4661001ca6e61cfe802;hb=5f5b9e4c575591a0749103e0bbeb556cde5c5cac;hpb=572501abb2165014af8973bf9a4aa1f8a522356d diff --git a/t/53-perl.t b/t/53-perl.t index 427f611..6d2d5ca 100644 --- a/t/53-perl.t +++ b/t/53-perl.t @@ -1,11 +1,18 @@ -use Test::More tests => 2; - -use Config::Any::Perl; - -my $config = eval { Config::Any::Perl->load( 't/conf/conf.pl' ) }; - -SKIP: { - skip "Couldn't Load Perl plugin", 2 if $@; - ok( $config ); - is( $config->{ name }, 'TestApp' ); -} +use strict; +use warnings; + +use Test::More tests => 3; + +use Config::Any::Perl; + +{ + my $file = 't/conf/conf.pl'; + my $config = Config::Any::Perl->load( $file ); + + ok( $config ); + is( $config->{ name }, 'TestApp' ); + + my $config_load2 = Config::Any::Perl->load( $file ); + is_deeply( $config_load2, $config, 'multiple loads of the same file' ); +} +