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=7ac9f8cd9ba256ca90f415f262797e893343ae9a;hp=b8b9d7e552e82eb1b0909359103a9626c4d2859a;hb=fb331ab38e01abd77ee833aed41d7661bba3e7d0;hpb=a918b0b8b7952db918dfabb8dc72bf34832d43d0 diff --git a/t/62-multi.t b/t/62-multi.t index b8b9d7e..7ac9f8c 100644 --- a/t/62-multi.t +++ b/t/62-multi.t @@ -1,11 +1,14 @@ -use Test::More tests => 3; - use strict; use warnings; +no warnings 'once'; + +use Test::More tests => 3; use Config::Any; use Config::Any::YAML; +$Config::Any::YAML::NO_YAML_XS_WARNING = 1; + my $file = 't/multi/conf.yml'; my @expect = ( { name => 'TestApp', @@ -19,10 +22,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' + ); }