t/62-multi.t

   1 use strict;
   2 use warnings;
   3 no warnings 'once';
   4
   5 use Test::More tests => 3;
   6
   7 use Config::Any;
   8 use Config::Any::YAML;
   9
  10 $Config::Any::YAML::NO_YAML_XS_WARNING = 1;
  11
  12 my $file   = 't/multi/conf.yml';
  13 my @expect = (
  14     {   name  => 'TestApp',
  15         Model => { 'Model::Baz' => { qux => 'xyzzy' } }
  16     },
  17     {   name2  => 'TestApp2',
  18         Model2 => { 'Model::Baz2' => { qux2 => 'xyzzy2' } }
  19     },
  20 );
  21
  22 my @results = eval { Config::Any::YAML->load( $file ); };
  23
  24 SKIP: {
  25     skip "Can't load multi-stream YAML files", 3 if $@;
  26     is( @results, 2, '2 documents' );
  27     is_deeply( \@results, \@expect, 'structures ok' );
  28
  29     my $return
  30         = Config::Any->load_files( { use_ext => 1, files => [ $file ] } );
  31     is_deeply(
  32         $return,
  33         [ { $file => \@expect } ],
  34         'config-any structures ok'
  35     );
  36 }