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=5e51b4124d3c65fbb6a145285ac5d442be2a59b9;hp=427f611c58bd1decd61cc4661001ca6e61cfe802;hb=7c2181827882c125de98ccbe16402f5b277a3f44;hpb=572501abb2165014af8973bf9a4aa1f8a522356d diff --git a/t/53-perl.t b/t/53-perl.t index 427f611..5e51b41 100644 --- a/t/53-perl.t +++ b/t/53-perl.t @@ -1,11 +1,17 @@ -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 Test::More tests => 3; + +use Config::Any::Perl; + +my $file = 't/conf/conf.pl'; +my $config = eval { Config::Any::Perl->load( $file ) }; + +SKIP: { + skip "Couldn't Load Perl plugin", 3 if $@; + + ok( $config ); + is( $config->{ name }, 'TestApp' ); + + my $config_2 = eval { Config::Any::Perl->load( $file ) }; + + is_deeply( $config_2, $config, 'multiple loads of perl configs' ); +}