t/10-branches.t

   1 use Test::More tests => 9;
   2 use Config::Any;
   3
   4 ok( !Config::Any->load_files(), "load_files expects args" );
   5 ok( !Config::Any->load_stems(), "load_stems expects args" );
   6
   7 {
   8     my @warnings;
   9     local $SIG{ __WARN__ } = sub { push @warnings, @_ };
  10     Config::Any->load_files( {} );
  11     like(
  12         shift @warnings,
  13         qr/^no files specified/,
  14         "load_files expects files"
  15     );
  16     Config::Any->load_stems( {} );
  17     like(
  18         shift @warnings,
  19         qr/^no stems specified/,
  20         "load_stems expects stems"
  21     );
  22 }
  23
  24 my @files = glob( "t/conf/conf.*" );
  25 my $filter = sub { return };
  26 ok( Config::Any->load_files( { files => \@files, use_ext => 0 } ),
  27     "use_ext 0 works" );
  28 ok( Config::Any->load_files( { files => \@files, use_ext => 1 } ),
  29     "use_ext 1 works" );
  30
  31 ok( Config::Any->load_files(
  32         { files => \@files, use_ext => 1, filter => \&$filter }
  33     ),
  34     "filter works"
  35 );
  36 eval {
  37     Config::Any->load_files(
  38         {   files   => \@files,
  39             use_ext => 1,
  40             filter  => sub { die }
  41         }
  42     );
  43 };
  44 ok( $@, "filter breaks" );
  45
  46 my @stems = qw(t/conf/conf);
  47 ok( Config::Any->load_stems( { stems => \@stems, use_ext => 1 } ),
  48     "load_stems with stems works" );