11 local $Data::Dumper::Terse = 1;
12 local $Data::Dumper::Sortkeys = 1;
13 local $Data::Dumper::Indent = 1;
14 my $out = Data::Dumper::Dumper(@_);
16 $out eq 'undef' ? undef : $out;
19 if ( !Config::Any::YAML->is_supported && !$ENV{RELEASE_TESTING} ) {
20 plan skip_all => 'YAML format not supported';
27 my $config = Config::Any::YAML->load( 't/conf/conf.yml' );
29 is( $config->{ name }, 'TestApp' );
34 my $file = 't/invalid/conf.yml';
35 my $config = eval { Config::Any::YAML->load( $file ) };
38 is _dump($config), undef, 'config load failed';
39 isnt $@, '', 'error thrown';
42 # parse error generated on invalid config
44 my $file = 't/invalid/conf.yml';
45 my $config = eval { Config::Any->load_files( { files => [$file], use_ext => 1} ) };
47 is _dump($config), undef, 'config load failed';
48 isnt $@, '', 'error thrown';