X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FConfig-Any.git;a=blobdiff_plain;f=t%2F62-multi.t;h=90369bf64a7bbfccfa8ffbe732f1031cead00143;hp=b8b9d7e552e82eb1b0909359103a9626c4d2859a;hb=712235202a9cc46d4d5efa86a7f40c64771f9498;hpb=a918b0b8b7952db918dfabb8dc72bf34832d43d0 diff --git a/t/62-multi.t b/t/62-multi.t index b8b9d7e..90369bf 100644 --- a/t/62-multi.t +++ b/t/62-multi.t @@ -1,7 +1,8 @@ -use Test::More tests => 3; - use strict; use warnings; +no warnings 'once'; + +use Test::More tests => 3; use Config::Any; use Config::Any::YAML; @@ -19,10 +20,15 @@ my @expect = ( my @results = eval { Config::Any::YAML->load( $file ); }; SKIP: { - skip "Can't load YAML files", 3 if $@; + skip "Can't load multi-stream YAML files", 3 if $@; is( @results, 2, '2 documents' ); is_deeply( \@results, \@expect, 'structures ok' ); - my $return = Config::Any->load_files( { use_ext => 1, files => [ $file ] } ); - is_deeply( $return, [ { $file => \@expect } ], 'config-any structures ok' ); + my $return + = Config::Any->load_files( { use_ext => 1, files => [ $file ] } ); + is_deeply( + $return, + [ { $file => \@expect } ], + 'config-any structures ok' + ); }